diff options
-rw-r--r-- | jim.c | 28 | ||||
-rw-r--r-- | jim.h | 2 | ||||
-rw-r--r-- | tests/alias.test | 2 |
3 files changed, 3 insertions, 29 deletions
@@ -10241,10 +10241,6 @@ static void JimSetProcWrongArgs(Jim_Interp *interp, Jim_Obj *procNameObj, Jim_Cm Jim_Obj *argmsg = Jim_NewStringObj(interp, "", 0); int i; - if (interp->rewriteNameObj) { - procNameObj = interp->rewriteNameObj; - } - for (i = 0; i < cmd->u.proc.argListLen; i++) { Jim_AppendString(interp, argmsg, " ", 1); @@ -10730,17 +10726,8 @@ int Jim_SubstObj(Jim_Interp *interp, Jim_Obj *substObjPtr, Jim_Obj **resObjPtrPt void Jim_WrongNumArgs(Jim_Interp *interp, int argc, Jim_Obj *const *argv, const char *msg) { Jim_Obj *objPtr; - Jim_Obj *listObjPtr; + Jim_Obj *listObjPtr = Jim_NewListObj(interp, argv, argc); - if (interp->rewriteNameObj) { - argc -= interp->rewriteNameCount; - argv += interp->rewriteNameCount; - listObjPtr = Jim_NewListObj(interp, &interp->rewriteNameObj, 1); - ListInsertElements(listObjPtr, -1, argc, argv); - } - else { - listObjPtr = Jim_NewListObj(interp, argv, argc); - } if (*msg) { Jim_ListAppendElement(interp, listObjPtr, Jim_NewStringObj(interp, msg, -1)); } @@ -12623,25 +12610,14 @@ static int Jim_TailcallCoreCommand(Jim_Interp *interp, int argc, Jim_Obj *const static int JimAliasCmd(Jim_Interp *interp, int argc, Jim_Obj *const *argv) { - int retcode; Jim_Obj *cmdList; Jim_Obj *prefixListObj = Jim_CmdPrivData(interp); - Jim_Obj *saveRewriteNameObj = interp->rewriteNameObj; - - interp->rewriteNameObj = argv[0]; - interp->rewriteNameCount = Jim_ListLength(interp, prefixListObj); /* prefixListObj is a list to which the args need to be appended */ cmdList = Jim_DuplicateObj(interp, prefixListObj); ListInsertElements(cmdList, -1, argc - 1, argv + 1); - Jim_IncrRefCount(cmdList); - - retcode = JimEvalObjList(interp, cmdList); - Jim_DecrRefCount(interp, cmdList); - interp->rewriteNameObj = saveRewriteNameObj; - - return retcode; + return JimEvalObjList(interp, cmdList); } static void JimAliasCmdDelete(Jim_Interp *interp, void *privData) @@ -558,8 +558,6 @@ typedef struct Jim_Interp { Jim_PrngState *prngState; /* per interpreter Random Number Gen. state. */ struct Jim_HashTable packages; /* Provided packages hash table */ Jim_Stack *loadHandles; /* handles of loaded modules [load] */ - Jim_Obj *rewriteNameObj; /* Replaces the name of the current command for error reporting */ - int rewriteNameCount; /* How many elements of the current command name to replace */ } Jim_Interp; /* Currently provided as macro that performs the increment. diff --git a/tests/alias.test b/tests/alias.test index 57a8d62..9e866a2 100644 --- a/tests/alias.test +++ b/tests/alias.test @@ -40,7 +40,7 @@ test alias-1.8 "Replace proc with alias" { test alias-1.9 "error message from alias" -body { alias newstring string newstring match -} -returnCodes error -result {wrong # args: should be "newstring match ?-nocase? pattern string"} +} -returnCodes error -result {wrong # args: should be "string match ?-nocase? pattern string"} test alias-1.10 "info alias" { alias x info exists |