Wordlist format

1 files changed, 5 insertions, 0 deletions

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