replace --advanced by --fullhelp; refs #7621

This commit is contained in:
Andreas Rumpf 2018-04-20 08:45:03 +02:00
commit 9cc8fec370
2 changed files with 12 additions and 1 deletions

View file

@ -77,6 +77,14 @@ proc writeAdvancedUsage(pass: TCmdLinePass) =
{msgStdout})
msgQuit(0)
proc writeFullhelp(pass: TCmdLinePass) =
if pass == passCmd1:
msgWriteln(`%`(HelpMessage, [VersionAsString,
platform.OS[platform.hostOS].name,
CPU[platform.hostCPU].name]) & Usage & AdvancedUsage,
{msgStdout})
msgQuit(0)
proc writeVersionInfo(pass: TCmdLinePass) =
if pass == passCmd1:
msgWriteln(`%`(HelpMessage, [VersionAsString,
@ -611,6 +619,9 @@ proc processSwitch(switch, arg: string, pass: TCmdLinePass, info: TLineInfo;
of "advanced":
expectNoArg(switch, arg, pass, info)
writeAdvancedUsage(pass)
of "fullhelp":
expectNoArg(switch, arg, pass, info)
writeFullhelp(pass)
of "help", "h":
expectNoArg(switch, arg, pass, info)
helpOnError(pass)