GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-24 03:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Freeing StablePtr's in PyGF.

Browse Source
This commit is contained in:
jordi.saludes
2010-07-16 13:17:49 +00:00
parent 950c57d3bc
commit f8b2a1173f
2 changed files with 17 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
contrib/py-bindings/PyGF.hsc
View File

@@ -9,6 +9,11 @@ import Foreign.C.Types
#include "pygf.h"
-- type PyPtr = Ptr Py
freeSp :: String -> Ptr a -> IO ()
freeSp tname p = do
sp <- (#peek PyGF, sp) p
freeStablePtr sp
putStrLn $ "freeing " ++ tname ++ " at " ++ (show p)
instance Storable PGF where
sizeOf _ = (#size PyGF)
@@ -49,7 +54,14 @@ instance Storable Tree where
peek p = do
sp <- (#peek PyGF, sp) p
deRefStablePtr sp
foreign export ccall gf_freePGF :: Ptr PGF -> IO ()
foreign export ccall gf_freeType :: Ptr Type -> IO ()
foreign export ccall gf_freeLanguage :: Ptr Language -> IO ()
gf_freePGF = freeSp "pgf"
gf_freeType = freeSp "type"
gf_freeLanguage = freeSp "language"
{-foreign export ccall gf_printCId :: Ptr CId-> IO CString
gf_printCId p = do