command cm

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)

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