diff options
Diffstat (limited to 'src/GF/Shell/PShell.hs')
| -rw-r--r-- | src/GF/Shell/PShell.hs | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/src/GF/Shell/PShell.hs b/src/GF/Shell/PShell.hs index cc5731ff2..bb375d00d 100644 --- a/src/GF/Shell/PShell.hs +++ b/src/GF/Shell/PShell.hs @@ -1,15 +1,15 @@ ---------------------------------------------------------------------- -- | --- Module : (Module) --- Maintainer : (Maintainer) +-- Module : PShell +-- Maintainer : AR -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/02/18 19:21:20 $ +-- > CVS $Date: 2005/02/24 11:46:37 $ -- > CVS $Author: peb $ --- > CVS $Revision: 1.17 $ +-- > CVS $Revision: 1.18 $ -- --- (Description of the module) +-- parsing GF shell commands. AR 11\/11\/2001 ----------------------------------------------------------------------------- module PShell where @@ -29,8 +29,7 @@ import IO -- parsing GF shell commands. AR 11/11/2001 --- getting a sequence of command lines as input - +-- | getting a sequence of command lines as input getCommandLines :: IO (String,[CommandLine]) getCommandLines = do s <- fetchCommand "> " @@ -67,8 +66,7 @@ pInputString s = case s of ('"':_:_) -> [AString (init (tail s))] _ -> [AError "illegal string"] --- command rl can be written remove_language etc. - +-- | command @rl@ can be written @remove_language@ etc. abbrevCommand :: String -> String abbrevCommand = hds . words . map u2sp where u2sp c = if c=='_' then ' ' else c |