1
1
mirror of https://github.com/github/semantic.git synced 2024-12-24 23:42:31 +03:00

Retrieve the node’s name.

This commit is contained in:
Rob Rix 2015-11-25 10:39:13 -05:00
parent 3460632ab9
commit 56ad4b9b9c

View File

@ -79,7 +79,9 @@ parseTreeSitterFile file = do
putStrLn $ "cSizeOf " ++ show (cSizeOf document) where
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" ]
toTerm (node, category) = _
toTerm (node, category) = do
name <- ts_node_p_name node document
return ()
withNode :: (Ptr TSNode -> IO a) -> IO a
withNode writer = do