diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2015-01-30 13:05:57 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2015-01-30 13:05:57 +0000 |
| commit | 68a2f095904281308a51f0c1dcaf9df301dc62eb (patch) | |
| tree | 7d6bb0f45cd238398b46224c4886e0ffc87de29b /src/runtime/haskell-bind/PGF2.hsc | |
| parent | 340328b8a18d7533444f3d4957c5c3644ca1975e (diff) | |
added hasLinearization in the Haskell binding
Diffstat (limited to 'src/runtime/haskell-bind/PGF2.hsc')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2.hsc | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/runtime/haskell-bind/PGF2.hsc b/src/runtime/haskell-bind/PGF2.hsc index 20ffc11c4..64f849e56 100644 --- a/src/runtime/haskell-bind/PGF2.hsc +++ b/src/runtime/haskell-bind/PGF2.hsc @@ -17,7 +17,8 @@ module PGF2 (-- * CId -- * PGF PGF,readPGF,AbsName,abstractName,startCat, -- * Concrete syntax - ConcName,Concr,languages,parse,parseWithHeuristics,linearize,alignWords, + ConcName,Concr,languages,parse,parseWithHeuristics, + hasLinearization,linearize,alignWords, -- * Types Type(..), Hypo, functionType, -- * Trees @@ -409,6 +410,10 @@ mkCallbacksMap concr callbacks pool = do predict_callback _ _ _ _ = return nullPtr +hasLinearization :: Concr -> Fun -> Bool +hasLinearization lang id = unsafePerformIO $ + withCString id (pgf_has_linearization (concr lang)) + linearize :: Concr -> Expr -> String linearize lang e = unsafePerformIO $ withGuPool $ \pl -> |