From 3e15333c41fb58cb31b395588cd2db3a7c0bf3ac Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@chalmers.se>
Date: Thu, 5 Jun 2008 11:50:24 +0000
Subject: [PATCH] describe cc,e,ph,q and i in Commands also. Allows word
 completion

---
 src-3.0/GF/Command/Commands.hs | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src-3.0/GF/Command/Commands.hs b/src-3.0/GF/Command/Commands.hs
index a7ba9bed8..1742012d9 100644
--- a/src-3.0/GF/Command/Commands.hs
+++ b/src-3.0/GF/Command/Commands.hs
@@ -63,6 +63,10 @@ commandHelp full (co,info) = unlines $ [
 -- this list must be kept sorted by the command name!
 allCommands :: PGF -> Map.Map String CommandInfo
 allCommands pgf = Map.fromAscList [
+  ("cc", emptyCommandInfo),
+  ("e",  emptyCommandInfo),
+  ("ph", emptyCommandInfo),
+  ("q",  emptyCommandInfo),
   ("gr", emptyCommandInfo {
      longname = "generate_random",
      synopsis = "generates a list of random trees, by default one tree",
@@ -91,6 +95,9 @@ allCommands pgf = Map.fromAscList [
                 _ -> "command not found"
        _ -> commandHelpAll pgf opts)
      }),
+  ("i", emptyCommandInfo {
+     options = ["prob", "retain", "gfo", "src", "no-cpu", "cpu", "quiet", "verbose"]
+     }),
   ("l", emptyCommandInfo {
      exec = \opts -> return . fromStrings . map (optLin opts),
      options = ["all","record","table","term"],