|
definition:
|
options :: [OptDescr (Options -> Options)]
options =
[ Option "h?" ["help"]
(NoArg (\opts -> opts { optHelp = True }))
"print help and exit"
, Option "q" ["quiet"]
(NoArg (\opts -> opts { optVerb = 0 }))
"run quietly (no output, only exit code)"
, Option "v" ["verb"]
(OptArg (maybe (checkVerb 2) (safeReadNat checkVerb)) "<n>")
("verbosity level:\n" ++
"0: quiet (same as `-q')\n" ++
"1: show status messages (default)\n" ++
"2: show intermediate results (same as `-v')\n" ++
"3: show all details")
, Option "m" ["main"]
(ReqArg (\s opts -> opts { optMain = s }) "<m>")
("Curry expression (of type IO HtmlPage) computing\n" ++
"the HTML page\n(default: main)")
, Option "o" ["output"]
(ReqArg (\s opts -> opts { optOutput = s }) "<o>")
("name of the file (with suffix .cgi) where the cgi\n" ++
"program should be stored (default: <curry>.cgi)")
, Option "a" ["absolute"]
(NoArg (\opts -> opts { optAbsolute = True }))
"generate script with absolute file names"
, Option "i" ["include"]
(ReqArg (\s opts -> opts { optFormMods = optFormMods opts ++ [s] })
"<i>")
("Additional Curry module for which all public\n" ++
"form handlers should be generated")
, Option "s" ["system"]
(ReqArg (\s opts -> opts { optSystem = s }) "<s>")
("set path to the root of Curry system so that\n" ++
"'<s>/bin/curry' is invoked to compile script and\n" ++
"'<s>/bin/cleancurry' to clean intermediate files\n" ++
"(default: '" ++ installDir ++ "')")
, Option "" ["cpm"]
(ReqArg (\s opts -> opts { optCPM = s }) "<c>")
("set the Curry Package Manager command\n" ++
"(default: 'cypm')")
, Option "D" []
(ReqArg (\s opts -> opts { optCurryRC = optCurryRC opts ++ [s] })
"name=val")
"define (curry)rc property 'name' as 'val'"
, Option "u" ["ulimit"]
(ReqArg (\s opts -> opts { optLimit = s }) "<l>")
("set 'ulimit <l>' when executing the cgi program\n" ++
"(default: '-t 120')")
]
where
safeReadNat opttrans s opts = case readNat s of
[(n,"")] -> opttrans n opts
_ -> error "Illegal number argument (try `-h' for help)"
checkVerb n opts = if n>=0 && n<4
then opts { optVerb = n }
else error "Illegal verbosity level (try `-h' for help)"
|