github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00
Code Issues Projects Releases Wiki Activity

Allocate a root node I guess.

Browse Source
This commit is contained in:
Rob Rix 2015-11-24 16:40:47 -05:00
parent 3efa8f7e51
commit 0effaae938
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
app/Main.hs
View File

@ -14,10 +14,13 @@ import Language.Haskell.Syntax
import System.Environment
import GHC.Generics
import GHC.Prim
import Foreign
import Foreign.C
import Foreign.CStorable
import Foreign.C.Types
import Foreign.C.String
import Foreign.ForeignPtr.Unsafe
data TSLanguage = TsLanguage deriving (Show, Eq, Generic, CStorable)
foreign import ccall "prototype/doubt-difftool/doubt-difftool-Bridging-Header.h ts_language_c" ts_language_c :: IO (Foreign.Ptr TSLanguage)
@ -64,7 +67,8 @@ main = do
source <- newCString ""
ts_document_set_input_string document source
ts_document_parse document
root <- ts_document_root_node document
root <- (mallocForeignPtr :: IO (ForeignPtr TSNode))
ts_document_root_node_p document $ unsafeForeignPtrToPtr root
ts_document_free document
free source
putStrLn $ "cSizeOf " ++ show (cSizeOf document)