GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -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 5b14dd8da5
commit f715e053b9
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

9
contrib/py-bindings/mtest.c
View File

@@ -56,11 +56,10 @@ int main(int argc, char *argv[])
} while (*p && k < 5);
} else
puts("no match");
gf_freeTrees(result);
gf_freeType(cat);
gf_freeLanguage(lang);
gf_freePGF(pgf); */
gf_freeTrees(result); */
gf_freeType(&cat);
gf_freeLanguage(&lang);
gf_freePGF(&pgf);
gf_exit();
return 0;
}