GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

describe cc,e,ph,q and i in Commands also. Allows word completion

Browse Source
This commit is contained in:
kr.angelov
2008-06-05 11:50:24 +00:00
parent 0841f73b83
commit 3e15333c41
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src-3.0/GF/Command/Commands.hs
View File

@@ -63,6 +63,10 @@ commandHelp full (co,info) = unlines $ [
-- this list must be kept sorted by the command name! -- this list must be kept sorted by the command name!
allCommands :: PGF -> Map.Map String CommandInfo allCommands :: PGF -> Map.Map String CommandInfo
allCommands pgf = Map.fromAscList [ allCommands pgf = Map.fromAscList [
("cc", emptyCommandInfo),
("e", emptyCommandInfo),
("ph", emptyCommandInfo),
("q", emptyCommandInfo),
("gr", emptyCommandInfo { ("gr", emptyCommandInfo {
longname = "generate_random", longname = "generate_random",
synopsis = "generates a list of random trees, by default one tree", synopsis = "generates a list of random trees, by default one tree",
@@ -91,6 +95,9 @@ allCommands pgf = Map.fromAscList [
_ -> "command not found" _ -> "command not found"
_ -> commandHelpAll pgf opts) _ -> commandHelpAll pgf opts)
}), }),
("i", emptyCommandInfo {
options = ["prob", "retain", "gfo", "src", "no-cpu", "cpu", "quiet", "verbose"]
}),
("l", emptyCommandInfo { ("l", emptyCommandInfo {
exec = \opts -> return . fromStrings . map (optLin opts), exec = \opts -> return . fromStrings . map (optLin opts),
options = ["all","record","table","term"], options = ["all","record","table","term"],