GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-01 07:12:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

added mkStr to the Haskell binding

Browse Source
This commit is contained in:
kr.angelov
2014-12-19 08:58:02 +00:00
parent bb1c1dd27c
commit f44f9a1b00
4 changed files with 33 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/runtime/haskell-bind/PGF2.hsc
View File

@@ -17,7 +17,7 @@ module PGF2 (-- * PGF
-- * Concrete syntax
Concr,languages,parse,parseWithHeuristics,linearize,
-- * Trees
Expr,readExpr,showExpr,mkApp,unApp,
Expr,readExpr,showExpr,mkApp,unApp,mkStr,
-- * Morphology
MorphoAnalysis, lookupMorpho, fullFormLexicon,
-- * Exceptions
@@ -167,6 +167,15 @@ unApp (Expr expr master) =
c_args <- peekArray (fromIntegral arity) (appl `plusPtr` (#offset PgfApplication, args))
return $ Just (fun, [Expr c_arg master | c_arg <- c_args])
mkStr :: String -> Expr
mkStr str =
unsafePerformIO $
withCString str $ \cstr -> do
exprPl <- gu_new_pool
c_expr <- pgf_expr_string cstr exprPl
exprFPl <- newForeignPtr gu_pool_finalizer exprPl
return (Expr c_expr exprFPl)
readExpr :: String -> Maybe Expr
readExpr str =
unsafePerformIO $