From 7fa31cc6447718f166b1963f79f9e58ac25a88c9 Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 18 May 2006 14:59:58 +0000 Subject: Wordlist format --- src/GF/Shell.hs | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'src/GF/Shell.hs') diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs index bdbf6d62c..4b9660ced 100644 --- a/src/GF/Shell.hs +++ b/src/GF/Shell.hs @@ -50,6 +50,7 @@ import GF.Infra.Option import GF.UseGrammar.Information import GF.Shell.HelpFile import GF.Compile.PrOld +import GF.Compile.Wordlist import GF.Grammar.PrGrammar import Control.Monad (foldM,liftM) @@ -189,6 +190,10 @@ execLine put (c@(co, os), arg, cs) (outps,st) = do execC :: CommandOpt -> ShellIO execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case comm of + CImport file | fileSuffix file == "gfwl" -> do + fs <- mkWordlist file + foldM (\x y -> execC (CImport y, opts) x) sa fs + CImport file | oElem fromExamples opts -> do es <- liftM nub $ getGFEFiles opts file system $ "gf -examples" +++ unlines es -- cgit v1.2.3