Wordlist format

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