diff options
| author | Steve Bennett <steveb@workware.net.au> | 2011-12-01 17:25:36 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2011-12-01 17:35:17 +1000 |
| commit | 7a4644aeb3f15a984497f52012a0f7eb6c403157 (patch) | |
| tree | a66278f0a2fa22ed84202fc71d4ebf0bec0afe00 /jim-subcmd.c | |
| parent | 4843862936e1dd181a22ecd752dccae7b3d3baef (diff) | |
| download | jimtcl-7a4644aeb3f15a984497f52012a0f7eb6c403157.zip jimtcl-7a4644aeb3f15a984497f52012a0f7eb6c403157.tar.gz jimtcl-7a4644aeb3f15a984497f52012a0f7eb6c403157.tar.bz2 | |
Minor changes for Tcl compatibility
Error messages
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'jim-subcmd.c')
| -rw-r--r-- | jim-subcmd.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/jim-subcmd.c b/jim-subcmd.c index 446ed19..bd6e050 100644 --- a/jim-subcmd.c +++ b/jim-subcmd.c @@ -62,7 +62,7 @@ static void add_cmd_usage(Jim_Interp *interp, const jim_subcmd_type * ct, Jim_Ob static void set_wrong_args(Jim_Interp *interp, const jim_subcmd_type * command_table, Jim_Obj *subcmd) { - Jim_SetResultString(interp, "wrong # args: must be \"", -1); + Jim_SetResultString(interp, "wrong # args: should be \"", -1); add_cmd_usage(interp, command_table, subcmd); Jim_AppendStrings(interp, Jim_GetResult(interp), "\"", NULL); } @@ -159,7 +159,7 @@ const jim_subcmd_type *Jim_ParseSubCmd(Jim_Interp *interp, const jim_subcmd_type /* Check the number of args */ if (argc - 2 < ct->minargs || (ct->maxargs >= 0 && argc - 2 > ct->maxargs)) { - Jim_SetResultString(interp, "wrong # args: must be \"", -1); + Jim_SetResultString(interp, "wrong # args: should be \"", -1); /* subcmd */ add_cmd_usage(interp, ct, argv[0]); Jim_AppendStrings(interp, Jim_GetResult(interp), "\"", NULL); |