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

added mkInt and mkFloat in the Haskell binding to make it easy to create literal expressions

Browse Source
This commit is contained in:
krasimir
2015-11-19 13:18:19 +00:00
parent fe7397efe4
commit 9f9b23d0dd
5 changed files with 59 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/runtime/haskell-bind/PGF2/Expr.hsc
View File

@@ -67,6 +67,22 @@ mkStr str =
exprFPl <- newForeignPtr gu_pool_finalizer exprPl
return (Expr c_expr exprFPl)
mkInt :: Int -> Expr
mkInt val =
unsafePerformIO $ do
exprPl <- gu_new_pool
c_expr <- pgf_expr_int (fromIntegral val) exprPl
exprFPl <- newForeignPtr gu_pool_finalizer exprPl
return (Expr c_expr exprFPl)
mkFloat :: Double -> Expr
mkFloat val =
unsafePerformIO $ do
exprPl <- gu_new_pool
c_expr <- pgf_expr_float (realToFrac val) exprPl
exprFPl <- newForeignPtr gu_pool_finalizer exprPl
return (Expr c_expr exprFPl)
readExpr :: String -> Maybe Expr
readExpr str =
unsafePerformIO $