summaryrefslogtreecommitdiff
path: root/src-3.0/GF/Command/AbsGFShell.hs
diff options
context:
space:
mode:
authorkr.angelov <kr.angelov@chalmers.se>2008-06-05 07:33:42 +0000
committerkr.angelov <kr.angelov@chalmers.se>2008-06-05 07:33:42 +0000
commit4803fb8052caba0421949c9d7768d44ec28d109d (patch)
tree669ab3dcc40cca9a91cd9220c366677ce1db8bdb /src-3.0/GF/Command/AbsGFShell.hs
parent0b1a157222e0f96b9c9d6f8cea98caf547c4bdf9 (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.hs42
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)
-