github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-23 06:41:45 +03:00
Code Issues Projects Releases Wiki Activity

🔥 expr.

Browse Source
This commit is contained in:
Rob Rix 2017-04-19 16:28:51 -04:00
parent c83b75f5b4
commit 1d2c924088
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -78,8 +78,8 @@ statement = exit Statement.Return Return
<|> if' <|> if'
<|> ifModifier <|> ifModifier
<|> unless <|> unless
<|> expr <|> literal
where exit construct sym = term . construct <$ symbol sym <*> children (optional (symbol ArgumentList *> children expr)) where exit construct sym = term . construct <$ symbol sym <*> children (optional (symbol ArgumentList *> children statement))
comment :: Assignment Grammar (Term Syntax ()) comment :: Assignment Grammar (Term Syntax ())
comment = term . Comment.Comment <$ symbol Comment <*> source comment = term . Comment.Comment <$ symbol Comment <*> source
@ -89,14 +89,11 @@ if' = go If
where go s = term <$ symbol s <*> children (Statement.If <$> statement <*> (term <$> many statement) <*> (go Elsif <|> term <$ symbol Else <*> children (many statement))) where go s = term <$ symbol s <*> children (Statement.If <$> statement <*> (term <$> many statement) <*> (go Elsif <|> term <$ symbol Else <*> children (many statement)))
ifModifier :: Assignment Grammar (Term Syntax ()) ifModifier :: Assignment Grammar (Term Syntax ())
ifModifier = term <$ symbol IfModifier <*> children (flip Statement.If <$> statement <*> expr <*> pure (term Syntax.Empty)) ifModifier = term <$ symbol IfModifier <*> children (flip Statement.If <$> statement <*> statement <*> pure (term Syntax.Empty))
unless :: Assignment Grammar (Term Syntax ()) unless :: Assignment Grammar (Term Syntax ())
unless = term <$ symbol Unless <*> children (Statement.If <$> (term . Expression.Not <$> statement) <*> (term <$> many statement) <*> (term <$ symbol Else <*> children (many statement))) unless = term <$ symbol Unless <*> children (Statement.If <$> (term . Expression.Not <$> statement) <*> (term <$> many statement) <*> (term <$ symbol Else <*> children (many statement)))
expr :: Assignment Grammar (Term Syntax ())
expr = literal
literal :: Assignment Grammar (Term Syntax ()) literal :: Assignment Grammar (Term Syntax ())
literal = term Literal.true <$ symbol Language.Ruby.Syntax.True <* source literal = term Literal.true <$ symbol Language.Ruby.Syntax.True <* source
<|> term Literal.false <$ symbol Language.Ruby.Syntax.False <* source <|> term Literal.false <$ symbol Language.Ruby.Syntax.False <* source