github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-18 12:21:57 +03:00
Code Issues Projects Releases Wiki Activity

Add more cases

Browse Source
This commit is contained in:
joshvera 2016-10-17 17:15:07 -04:00
parent 9d81396317
commit 90a36c6a40
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/Language/Go.hs
View File

@ -15,10 +15,11 @@ termConstructor
-> Range -- ^ The character range that the term occupies.
-> [Term (S.Syntax Text) (Record '[Range, Category, SourceSpan])] -- ^ The child nodes of the term.
-> IO (Term (S.Syntax Text) (Record '[Range, Category, SourceSpan])) -- ^ The resulting term, in IO.
termConstructor source sourceSpan name range children = withDefaultInfo $
case (name, children) of
termConstructor source sourceSpan name range children = withDefaultInfo =<< do
putStrLn name
pure $ case (name, children) of
("return_statement", _) -> S.Return (listToMaybe children)
(_, []) -> S.Leaf . toText $ slice range source
(_, _) -> S.Leaf . toText $ slice range source
where
withDefaultInfo syntax = do
sourceSpan' <- sourceSpan
@ -32,5 +33,12 @@ categoryForGoName = \case
"return_statement" -> Return
"interpreted_string_literal" -> StringLiteral
"raw_string_literal" -> StringLiteral
"binary_expression" -> RelationalOperator
"function_declaration" -> Function
"call_expression" -> FunctionCall
"selector_expression" -> MethodCall
"parameters" -> Args
"short_var_declaration" -> VarDecl
"assignment_statement" -> Assignment
s -> Other (toS s)