diff options
| author | kr.angelov <kr.angelov@chalmers.se> | 2008-06-05 07:33:42 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@chalmers.se> | 2008-06-05 07:33:42 +0000 |
| commit | 4803fb8052caba0421949c9d7768d44ec28d109d (patch) | |
| tree | 669ab3dcc40cca9a91cd9220c366677ce1db8bdb /src-3.0/GF/Command/AbsGFShell.hs | |
| parent | 0b1a157222e0f96b9c9d6f8cea98caf547c4bdf9 (diff) | |
use parser combinators to parse the shell commands. simplified CommandLine type
Diffstat (limited to 'src-3.0/GF/Command/AbsGFShell.hs')
| -rw-r--r-- | src-3.0/GF/Command/AbsGFShell.hs | 42 |
1 files changed, 0 insertions, 42 deletions
diff --git a/src-3.0/GF/Command/AbsGFShell.hs b/src-3.0/GF/Command/AbsGFShell.hs deleted file mode 100644 index c13004cf9..000000000 --- a/src-3.0/GF/Command/AbsGFShell.hs +++ /dev/null @@ -1,42 +0,0 @@ -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) - |
