From a77519ba1045d23a7bb8ea1c56cc90518e9fedb9 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 16 Jun 2004 14:49:50 +0000
Subject: bug fixes ; command so ; reintroduce batch mode

---
 src/GF/Shell/ShellCommands.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/GF/Shell/ShellCommands.hs')

diff --git a/src/GF/Shell/ShellCommands.hs b/src/GF/Shell/ShellCommands.hs
index 650364d45..03e8fafbd 100644
--- a/src/GF/Shell/ShellCommands.hs
+++ b/src/GF/Shell/ShellCommands.hs
@@ -33,6 +33,7 @@ data Command =
  | CMorphoAnalyse
  | CTestTokenizer
  | CComputeConcrete String
+ | CShowOpers String
 
  | CTranslationQuiz Language Language
  | CTranslationList Language Language Int
@@ -98,6 +99,7 @@ testValidFlag :: ShellState -> OptFunId -> String -> Err ()
 testValidFlag st f x = case f of
   "cat"     -> testIn (map prQIdent_ (allCategories st))
   "lang"    -> testIn (map prt (allLanguages st))
+  "res"     -> testIn (map prt (allResources (srcModules st)))
   "number"  -> testN
   "printer" -> testInc customGrammarPrinter
   "lexer"   -> testInc customTokenizer
@@ -143,6 +145,7 @@ optionsOfCommand co = case co of
   CMorphoAnalyse -> both "short" "lang"
   CTestTokenizer -> flags "lexer"
   CComputeConcrete _ -> flags "res"
+  CShowOpers _ -> flags "res"
 
   CTranslationQuiz _ _ -> flags "cat"
   CTranslationList _ _ _ ->  flags "cat"
-- 
cgit v1.2.3