diff options
| author | aarne <unknown> | 2005-10-06 09:02:33 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2005-10-06 09:02:33 +0000 |
| commit | c2aeb9ae16c344c354194ec2efac773bbb7ce5d1 (patch) | |
| tree | dbb71f76a6130352025a799e08fedc14bd94af14 /src/GF/Shell/ShellCommands.hs | |
| parent | a78acc722ec26be2be20f22f74e98329d57008b1 (diff) | |
macro commands
Diffstat (limited to 'src/GF/Shell/ShellCommands.hs')
| -rw-r--r-- | src/GF/Shell/ShellCommands.hs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/GF/Shell/ShellCommands.hs b/src/GF/Shell/ShellCommands.hs index c2d2b367b..b41dc0b69 100644 --- a/src/GF/Shell/ShellCommands.hs +++ b/src/GF/Shell/ShellCommands.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/10/05 20:02:20 $ +-- > CVS $Date: 2005/10/06 10:02:34 $ -- > CVS $Author: aarne $ --- > CVS $Revision: 1.40 $ +-- > CVS $Revision: 1.41 $ -- -- The datatype of shell commands and the list of their options. ----------------------------------------------------------------------------- @@ -40,6 +40,9 @@ data Command = | CTransformGrammar FilePath | CConvertLatex FilePath + | CDefineCommand String [String] + | CDefineTerm String + | CLinearize [()] ---- parameters | CParse | CTranslate Language Language @@ -200,7 +203,7 @@ optionsOfCommand co = case co of CPrintMultiGrammar -> both "utf8 utf8id" "printer" CPrintSourceGrammar -> both "utf8" "printer" - CHelp _ -> opts "all filter length lexer unlexer printer transform depth number" + CHelp _ -> opts "all defs filter length lexer unlexer printer transform depth number" CImpure ICEditSession -> both "f" "file" CImpure ICTranslateSession -> both "f langs" "cat" |