diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-05-20 11:47:44 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-05-20 11:47:44 +0000 |
| commit | 31bf84122b21efb444aa8d055472e166ffb90783 (patch) | |
| tree | 1f051909336f1534346bcccde8dda59beab02f64 /src-2.9/GF/Command/AbsGFShell.hs | |
| parent | 74f048dcf41de3540778de54dfa7541fa5b39c46 (diff) | |
moved all old source code to src-2.9 ; src will be for GF 3 development
Diffstat (limited to 'src-2.9/GF/Command/AbsGFShell.hs')
| -rw-r--r-- | src-2.9/GF/Command/AbsGFShell.hs | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/src-2.9/GF/Command/AbsGFShell.hs b/src-2.9/GF/Command/AbsGFShell.hs new file mode 100644 index 000000000..c13004cf9 --- /dev/null +++ b/src-2.9/GF/Command/AbsGFShell.hs @@ -0,0 +1,42 @@ +module GF.Command.AbsGFShell where + +-- Haskell module generated by the BNF converter + +newtype Ident = Ident String deriving (Eq,Ord,Show) +data CommandLine = + CLine [Pipe] + | CEmpty + deriving (Eq,Ord,Show) + +data Pipe = + PComm [Command] + deriving (Eq,Ord,Show) + +data Command = + Comm Ident [Option] Argument + | CNoarg Ident [Option] + deriving (Eq,Ord,Show) + +data Option = + OOpt Ident + | OFlag Ident Value + deriving (Eq,Ord,Show) + +data Value = + VId Ident + | VInt Integer + deriving (Eq,Ord,Show) + +data Argument = + ATree Tree + deriving (Eq,Ord,Show) + +data Tree = + TApp Ident [Tree] + | TAbs [Ident] Tree + | TId Ident + | TInt Integer + | TStr String + | TFloat Double + deriving (Eq,Ord,Show) + |
