github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 04:51:57 +03:00
Code Issues Projects Releases Wiki Activity

Assign until modifiers.

Browse Source
This commit is contained in:
Rob Rix 2017-05-01 16:38:35 -04:00
parent 8aad196202
commit 20109d2705
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Language/Ruby/Syntax.hs
View File

@ -79,6 +79,7 @@ statement = exit Statement.Return Return
<|> while
<|> whileModifier
<|> until
<|> untilModifier
<|> literal
where exit construct sym = symbol sym *> term <*> (children (construct <$> optional (symbol ArgumentList *> children statement)))
@ -107,6 +108,9 @@ whileModifier = symbol WhileModifier *> term <*> children (flip Statement.While
until :: Assignment (Node Grammar) (Term Syntax Location)
until = symbol Until *> term <*> children (Statement.While <$> (term <*> (Expression.Not <$> statement)) <*> (term <*> many statement))
untilModifier :: Assignment (Node Grammar) (Term Syntax Location)
untilModifier = symbol UntilModifier *> term <*> children (flip Statement.While <$> statement <*> (term <*> (Expression.Not <$> statement)))
literal :: Assignment (Node Grammar) (Term Syntax Location)
literal = leaf Language.Ruby.Syntax.True (const Literal.true)
<|> leaf Language.Ruby.Syntax.False (const Literal.false)