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

Unpack the node and category another layer deep.

Browse Source
This commit is contained in:
Rob Rix 2015-11-25 15:02:11 -05:00
parent 0b735a697d
commit d6860a8934
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
app/Main.hs
View File

@ -87,7 +87,15 @@ toTerm document contents (node, category) = do
name <- ts_node_p_name node document name <- ts_node_p_name node document
children <- namedChildren node children <- namedChildren node
range <- range node range <- range node
return (Info range $ Data.Set.fromList [ category ], Leaf $ substring range contents) where annotation <- return . Info range $ Data.Set.fromList [ category ]
case children of
_ -> return (annotation, Leaf $ substring range contents)
where
nodeAndCategory :: Ptr TSNode -> IO (Ptr TSNode, String)
nodeAndCategory node = do
name <- ts_node_p_name node document
name <- peekCString name
return (node, name)
keyedProductions = Data.Set.fromList [ "object" ] keyedProductions = Data.Set.fromList [ "object" ]
fixedProductions = Data.Set.fromList [ "pair", "rel_op", "math_op", "bool_op", "bitwise_op", "type_op", "math_assignment", "assignment", "subscript_access", "member_access", "new_expression", "function_call", "function", "ternary" ] fixedProductions = Data.Set.fromList [ "pair", "rel_op", "math_op", "bool_op", "bitwise_op", "type_op", "math_assignment", "assignment", "subscript_access", "member_access", "new_expression", "function_call", "function", "ternary" ]