diff options
Diffstat (limited to 'src/runtime/haskell-bind/PGF2.hsc')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2.hsc | 22 |
1 files changed, 20 insertions, 2 deletions
diff --git a/src/runtime/haskell-bind/PGF2.hsc b/src/runtime/haskell-bind/PGF2.hsc index b022d06fe..e50fdd4b1 100644 --- a/src/runtime/haskell-bind/PGF2.hsc +++ b/src/runtime/haskell-bind/PGF2.hsc @@ -57,11 +57,13 @@ module PGF2 (-- * PGF alignWords, -- ** Parsing parse, parseWithHeuristics, - -- ** Generation + -- ** Sentence Lookup + lookupSentence, + -- ** Generation generateAll, -- ** Morphological Analysis MorphoAnalysis, lookupMorpho, fullFormLexicon, - -- ** Visualizations + -- ** Visualizations graphvizAbstractTree,graphvizParseTree, -- * Exceptions @@ -470,6 +472,22 @@ mkCallbacksMap concr callbacks pool = do predict_callback _ _ _ = return nullPtr +lookupSentence :: Concr -- ^ the language with which we parse + -> Type -- ^ the start category + -> String -- ^ the input sentence + -> [(Expr,Float)] +lookupSentence lang (Type ctype _) sent = + unsafePerformIO $ + do exprPl <- gu_new_pool + parsePl <- gu_new_pool + sent <- newUtf8CString sent parsePl + enum <- pgf_lookup_sentence (concr lang) ctype sent parsePl exprPl + parseFPl <- newForeignPtr gu_pool_finalizer parsePl + exprFPl <- newForeignPtr gu_pool_finalizer exprPl + exprs <- fromPgfExprEnum enum parseFPl (touchConcr lang >> touchForeignPtr exprFPl) + return exprs + + -- | The oracle is a triple of functions. -- The first two take a category name and a linearization field name -- and they should return True/False when the corresponding |