diff options
author | Araq <rumpf_a@web.de> | 2013-02-21 15:36:28 -0800 |
---|---|---|
committer | Araq <rumpf_a@web.de> | 2013-02-21 15:36:28 -0800 |
commit | f1d5e8479b479cb58fd8bec5fffee84bb66af6dc (patch) | |
tree | 942c43ad1717bd0f46c4aa187bfe9d51beb47877 /compiler | |
parent | dad664ca714ee681d22fb93344388fde2c9ff472 (diff) | |
parent | 9564e7069b2d11c8ad54a07e5676cc952c711114 (diff) | |
download | Nim-f1d5e8479b479cb58fd8bec5fffee84bb66af6dc.tar.gz |
Merge pull request #280 from keitahaga/better-error-message
Slightly better error message
Diffstat (limited to 'compiler')
-rwxr-xr-x | compiler/commands.nim | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/compiler/commands.nim b/compiler/commands.nim index 1da632858..4dcf011f4 100755 --- a/compiler/commands.nim +++ b/compiler/commands.nim @@ -65,8 +65,13 @@ proc writeCommandLineUsage() = MsgWriteln(getCommandLineDesc()) helpWritten = true +proc addPrefix(switch: string): string = + if len(switch) == 1: result = "-" & switch + else: result = "--" & switch + proc InvalidCmdLineOption(pass: TCmdLinePass, switch: string, info: TLineInfo) = - LocalError(info, errInvalidCmdLineOption, switch) + if switch == " ": LocalError(info, errInvalidCmdLineOption, "-") + else: LocalError(info, errInvalidCmdLineOption, addPrefix(switch)) proc splitSwitch(switch: string, cmd, arg: var string, pass: TCmdLinePass, info: TLineInfo) = @@ -98,10 +103,10 @@ proc ProcessOnOffSwitchG(op: TGlobalOptions, arg: string, pass: TCmdlinePass, else: LocalError(info, errOnOrOffExpectedButXFound, arg) proc ExpectArg(switch, arg: string, pass: TCmdLinePass, info: TLineInfo) = - if arg == "": LocalError(info, errCmdLineArgExpected, switch) + if arg == "": LocalError(info, errCmdLineArgExpected, addPrefix(switch)) proc ExpectNoArg(switch, arg: string, pass: TCmdLinePass, info: TLineInfo) = - if arg != "": LocalError(info, errCmdLineNoArgExpected, switch) + if arg != "": LocalError(info, errCmdLineNoArgExpected, addPrefix(switch)) proc ProcessSpecificNote(arg: string, state: TSpecialWord, pass: TCmdlinePass, info: TLineInfo) = |