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

Cover every case

Browse Source
This commit is contained in:
joshvera 2016-11-22 15:05:16 -05:00
parent 75daa6d42e
commit 4605197d20
1 changed files with 33 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
src/Language/Go.hs
View File

@ -17,17 +17,19 @@ termConstructor
-> Range -- ^ The character range that the term occupies. -> Range -- ^ The character range that the term occupies.
-> [ SyntaxTerm Text '[Range, Category, SourceSpan] ] -- ^ The child nodes of the term. -> [ SyntaxTerm Text '[Range, Category, SourceSpan] ] -- ^ The child nodes of the term.
-> IO (SyntaxTerm Text '[Range, Category, SourceSpan]) -- ^ The resulting term, in IO. -> IO (SyntaxTerm Text '[Range, Category, SourceSpan]) -- ^ The resulting term, in IO.
termConstructor source sourceSpan name range children = case (name, children) of termConstructor source sourceSpan name range children = case name of
("return_statement", _) -> withDefaultInfo $ S.Return (listToMaybe children) "return_statement" -> withDefaultInfo $ S.Return (listToMaybe children)
("source_file", packageName : rest) "source_file" -> case children of
| category (extract packageName) == Other "package_clause" -> packageName : rest | category (extract packageName) == Other "package_clause" ->
case unwrap packageName of case unwrap packageName of
S.Indexed [id] -> withCategory Module (S.Module id rest) S.Indexed [id] -> withCategory Module (S.Module id rest)
_ -> withCategory Error (S.Error children) _ -> withCategory Error (S.Error children)
("import_declaration", imports) -> toImports imports _ -> withCategory Error (S.Error children)
("function_declaration", [id, params, block]) -> "import_declaration" -> toImports children
withDefaultInfo $ S.Function id (toList $ unwrap params) (toList $ unwrap block) "function_declaration" -> withDefaultInfo $ case children of
("for_statement", children) -> [id, params, block] -> S.Function id (toList $ unwrap params) (toList $ unwrap block)
rest -> S.Error rest
"for_statement" ->
withDefaultInfo $ case children of withDefaultInfo $ case children of
[body] | category (extract body) == Other "block" -> [body] | category (extract body) == Other "block" ->
S.For [] (toList $ unwrap body) S.For [] (toList $ unwrap body)
@ -36,41 +38,46 @@ termConstructor source sourceSpan name range children = case (name, children) of
[rangeClause, body] | category (extract rangeClause) == Other "range_clause" -> [rangeClause, body] | category (extract rangeClause) == Other "range_clause" ->
S.For (toList $ unwrap rangeClause) (toList $ unwrap body) S.For (toList $ unwrap rangeClause) (toList $ unwrap body)
other -> S.Error other other -> S.Error other
("expression_switch_statement", children) -> "expression_switch_statement" ->
case Prologue.break isCaseClause children of case Prologue.break isCaseClause children of
(clauses, cases) -> do (clauses, cases) -> do
clauses' <- withDefaultInfo $ S.Indexed clauses clauses' <- withDefaultInfo $ S.Indexed clauses
withDefaultInfo $ S.Switch clauses' cases withDefaultInfo $ S.Switch clauses' cases
where isCaseClause = (== Case) . category . extract where isCaseClause = (== Case) . category . extract
("type_switch_statement", children) -> "type_switch_statement" ->
case Prologue.break isCaseClause children of case Prologue.break isCaseClause children of
(clauses, cases) -> do (clauses, cases) -> do
withDefaultInfo $ case clauses of withDefaultInfo $ case clauses of
[id] -> S.Switch id cases [id] -> S.Switch id cases
_ -> S.Error children _ -> S.Error children
where isCaseClause = (== Case) . category . extract where isCaseClause = (== Case) . category . extract
("select_statement", children) -> withDefaultInfo $ S.Select (toCommunicationCase =<< children) "select_statement" -> withDefaultInfo $ S.Select (toCommunicationCase =<< children)
where toCommunicationCase = toList . unwrap where toCommunicationCase = toList . unwrap
("go_statement", children) -> withDefaultInfo $ toExpression S.Go children "go_statement" -> withDefaultInfo $ toExpression S.Go children
("defer_statement", children) -> withDefaultInfo $ toExpression S.Defer children "defer_statement" -> withDefaultInfo $ toExpression S.Defer children
("selector_expression", children) -> withDefaultInfo $ toSubscriptAccess children "selector_expression" -> withDefaultInfo $ toSubscriptAccess children
("index_expression", children) -> withDefaultInfo $ toSubscriptAccess children "index_expression" -> withDefaultInfo $ toSubscriptAccess children
("slice_expression", children) -> sliceToSubscriptAccess children "slice_expression" -> sliceToSubscriptAccess children
("type_assertion_expression", children) -> withDefaultInfo $ case children of "type_assertion_expression" -> withDefaultInfo $ case children of
[a, b] -> S.TypeAssertion a b [a, b] -> S.TypeAssertion a b
rest -> S.Error rest rest -> S.Error rest
("type_conversion_expression", children) -> withDefaultInfo $ case children of "type_conversion_expression" -> withDefaultInfo $ case children of
[a, b] -> S.TypeConversion a b [a, b] -> S.TypeConversion a b
rest -> S.Error rest rest -> S.Error rest
-- TODO: Handle multiple var specs -- TODO: Handle multiple var specs
("var_declaration", varSpecs) -> withDefaultInfo . S.Indexed =<< mapM toVarDecl varSpecs "var_declaration" -> withDefaultInfo . S.Indexed =<< mapM toVarDecl children
("short_var_declaration", children) -> listToVarDecls children "short_var_declaration" -> listToVarDecls children
("if_statement", children) -> toIfStatement children "if_statement" -> toIfStatement children
("call_expression", [id]) -> withDefaultInfo $ S.FunctionCall id [] "call_expression" -> withDefaultInfo $ case children of
("const_declaration", constSpecs) -> toConsts constSpecs [id] -> S.FunctionCall id []
("func_literal", [params, _, body]) -> withDefaultInfo $ S.AnonymousFunction (toList $ unwrap params) (toList $ unwrap body) rest -> S.Error rest
(_, []) -> withDefaultInfo . S.Leaf $ toText (slice range source) "const_declaration" -> toConsts children
_ -> withDefaultInfo $ S.Indexed children "func_literal" -> withDefaultInfo $ case children of
[params, _, body] -> S.AnonymousFunction (toList $ unwrap params) (toList $ unwrap body)
rest -> S.Error rest
_ -> withDefaultInfo $ case children of
[] -> S.Leaf . toText $ slice range source
_ -> S.Indexed children
where where
toExpression f = \case toExpression f = \case
[expr] -> f expr [expr] -> f expr