Changeset 3636 for src/Pugs/Shell.hs

Timestamp:

05/22/05 15:06:08 (4 years ago)

Author:

iblech

svk:copy_cache_prev:

5201

Message:

Added ".." as a shell command which outputs the AST unformatted.

Files:

• src/Pugs/Shell.hs (modified) (2 diffs)

src/Pugs/Shell.hs

@@ -22 +22 @@
    | CmdQuit
    | CmdParse String
+   | CmdParseRaw String
    | CmdRun RunOptions String
    | CmdHelp
@@ -50 +51 @@
 parseCommandLine ('?':str)      = CmdRun (RunOpts True True  True) str
 parseCommandLine ('!':str)      = CmdRun (RunOpts True False True) str
+parseCommandLine ('.':'.':str)  = CmdParseRaw str
 parseCommandLine ('.':str)      = CmdParse str
 parseCommandLine (':':'q':_)    = CmdQuit