From 46f85fb13a569e27863565b4ec99800038e3fd68 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 29 Dec 2004 13:48:41 +0000
Subject: command cm

---
 src/GF/Shell/PShell.hs        | 2 ++
 src/GF/Shell/ShellCommands.hs | 3 ++-
 2 files changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/GF/Shell')

diff --git a/src/GF/Shell/PShell.hs b/src/GF/Shell/PShell.hs
index ff447fc6d..dd62067f2 100644
--- a/src/GF/Shell/PShell.hs
+++ b/src/GF/Shell/PShell.hs
@@ -68,6 +68,8 @@ pCommand ws = case ws of
   "i"  : f : [] -> aUnit   (CImport f)
   "rl" : l : [] -> aUnit   (CRemoveLanguage (language l))
   "e"  : []     -> aUnit   CEmptyState
+  "cm" : a : [] -> aUnit   (CChangeMain (Just (pzIdent a)))
+  "cm" : []     -> aUnit   (CChangeMain Nothing)
   "s"  : []     -> aUnit   CStripState
   "tg" : f : [] -> aUnit   (CTransformGrammar f)
   "cl" : f : [] -> aUnit   (CConvertLatex f)
diff --git a/src/GF/Shell/ShellCommands.hs b/src/GF/Shell/ShellCommands.hs
index e30b8010b..a3e5d3b94 100644
--- a/src/GF/Shell/ShellCommands.hs
+++ b/src/GF/Shell/ShellCommands.hs
@@ -20,6 +20,7 @@ data Command =
    CImport FilePath
  | CRemoveLanguage Language
  | CEmptyState
+ | CChangeMain (Maybe I.Ident)
  | CStripState
  | CTransformGrammar FilePath
  | CConvertLatex FilePath
@@ -161,7 +162,7 @@ optionsOfCommand co = case co of
   CWriteFile  _ -> none
   CAppendFile _ -> none
   CSpeakAloud -> flags "language"
-  CPutString -> flags "filter length"
+  CPutString -> both "utf8" "filter length"
   CShowTerm -> flags "printer"
   CSystemCommand _ -> none
 
-- 
cgit v1.2.3