diff options
| -rw-r--r-- | src/runtime/haskell-bind/CRuntimeFFI.hsc | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/src/runtime/haskell-bind/CRuntimeFFI.hsc b/src/runtime/haskell-bind/CRuntimeFFI.hsc index 7554170ed..ff0ed628a 100644 --- a/src/runtime/haskell-bind/CRuntimeFFI.hsc +++ b/src/runtime/haskell-bind/CRuntimeFFI.hsc @@ -3,7 +3,16 @@ #include <gu/enum.h> #include <gu/exn.h> -module CRuntimeFFI where +module CRuntimeFFI(-- * PGF + PGF,readPGF,abstractName,startCat, + -- * Concrete syntax + Concr,Language,{-languages,-}getConcr,parse,linearize, + -- * Trees + Expr,Tree,readExpr,showExpr,unApp, + -- * Morphology + MorphoAnalysis,lookupMorpho,fullFormLexicon, + printLexEntry + ) where import Prelude hiding (fromEnum) import Control.Monad @@ -62,7 +71,7 @@ data PGF = PGF {pgfPool :: Pool, pgf :: Ptr PgfPGF} deriving Show data Concr = Concr {concr :: (Ptr PgfConcr), concrMaster :: PGF} type Language = CId -readPGF :: String -> IO PGF +readPGF :: FilePath -> IO PGF readPGF filepath = do pool <- newPool pgf <- withCString filepath $ \file -> @@ -291,4 +300,4 @@ fromFullFormEntry enum pool master = then return [] else do tok <- peekCString =<< pgf_fullform_get_string ffEntry toks <- unsafeInterleaveIO (fromFullFormEntry enum pool master) - return (tok : toks)
\ No newline at end of file + return (tok : toks) |