diff options
Diffstat (limited to 'src/GF/API.hs')
| -rw-r--r-- | src/GF/API.hs | 20 |
1 files changed, 14 insertions, 6 deletions
diff --git a/src/GF/API.hs b/src/GF/API.hs index 20f32b59e..d9c9afe49 100644 --- a/src/GF/API.hs +++ b/src/GF/API.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/05/17 11:20:25 $ --- > CVS $Author: peb $ --- > CVS $Revision: 1.36 $ +-- > CVS $Date: 2005/06/02 17:31:57 $ +-- > CVS $Author: aarne $ +-- > CVS $Revision: 1.37 $ -- -- Application Programmer's Interface to GF; also used by Shell. AR 10/11/2001 ----------------------------------------------------------------------------- @@ -55,6 +55,7 @@ import qualified GF.Infra.Ident as I import qualified GF.Compile.GrammarToCanon as GC import qualified GF.Canon.CanonToGrammar as CG import qualified GF.Canon.MkGFC as MC +import qualified GF.Embed.EmbedAPI as EA import GF.UseGrammar.Editing @@ -145,9 +146,11 @@ string2GFCat = string2CFCat -- then stg for customizable and internal use optFile2grammar :: Options -> FilePath -> IOE GFGrammar -optFile2grammar os f = do - ((_,_,gr),_) <- compileModule os emptyShellState f - ioeErr $ grammar2stateGrammar os gr +optFile2grammar os f + | fileSuffix f == "gfcm" = ioeIO $ liftM firstStateGrammar $ EA.file2grammar f + | otherwise = do + ((_,_,gr),_) <- compileModule os emptyShellState f + ioeErr $ grammar2stateGrammar os gr optFile2grammarE :: Options -> FilePath -> IOE GFGrammar optFile2grammarE = optFile2grammar @@ -292,6 +295,11 @@ morphoAnalyse opts gr where mo = morpho gr +isKnownWord :: GFGrammar -> String -> Bool +isKnownWord gr s = case morphoAnalyse (options [beShort]) gr s of + a@(_:_:_) -> last (init a) /= '*' -- [word *] + _ -> False + {- prExpXML :: StateGrammar -> Term -> [String] prExpXML gr = prElementX . term2elemx (stateAbstract gr) |