aboutsummaryrefslogtreecommitdiff
path: root/jim.c
diff options
context:
space:
mode:
authorantirez <antirez>2005-02-27 17:06:16 +0000
committerantirez <antirez>2005-02-27 17:06:16 +0000
commit188b257855973b53b68cc814141cf4ed6f709a00 (patch)
tree71e4ba6073cd14e006a95be3d6de4af2322937b2 /jim.c
parentba67c1dc4e964e555617f05d4acc0ee77f4ff7fc (diff)
downloadjimtcl-188b257855973b53b68cc814141cf4ed6f709a00.zip
jimtcl-188b257855973b53b68cc814141cf4ed6f709a00.tar.gz
jimtcl-188b257855973b53b68cc814141cf4ed6f709a00.tar.bz2
aritymin/aritymax information no longer used for C-coded commands.
API changed accordingly.
Diffstat (limited to 'jim.c')
-rw-r--r--jim.c94
1 files changed, 43 insertions, 51 deletions
diff --git a/jim.c b/jim.c
index 9fd3c64..02ac8da 100644
--- a/jim.c
+++ b/jim.c
@@ -2487,7 +2487,7 @@ Jim_HashTableType Jim_CommandsHashTableType = {
/* ------------------------- Commands related functions --------------------- */
int Jim_CreateCommand(Jim_Interp *interp, char *cmdName, Jim_CmdProc cmdProc,
- int arityMin, int arityMax, void *privData)
+ void *privData)
{
Jim_HashEntry *he;
Jim_Cmd *cmdPtr;
@@ -2496,8 +2496,6 @@ int Jim_CreateCommand(Jim_Interp *interp, char *cmdName, Jim_CmdProc cmdProc,
if (he == NULL) { /* New command to create */
cmdPtr = Jim_Alloc(sizeof(*cmdPtr));
cmdPtr->cmdProc = cmdProc;
- cmdPtr->arityMin = arityMin;
- cmdPtr->arityMax = arityMax;
cmdPtr->privData = privData;
Jim_AddHashEntry(&interp->commands, cmdName, cmdPtr);
} else {
@@ -2508,8 +2506,6 @@ int Jim_CreateCommand(Jim_Interp *interp, char *cmdName, Jim_CmdProc cmdProc,
Jim_DecrRefCount(interp, cmdPtr->bodyObjPtr);
}
cmdPtr->cmdProc = cmdProc;
- cmdPtr->arityMin = arityMin;
- cmdPtr->arityMax = arityMax;
cmdPtr->privData = privData;
}
/* There is no need to increment the 'proc epoch' because
@@ -2587,7 +2583,6 @@ int Jim_RenameCommand(Jim_Interp *interp, char *oldName, char *newName)
Jim_DecrRefCount(interp, cmdPtr->bodyObjPtr);
} else { /* Or C-coded command. */
Jim_CreateCommand(interp, newName, cmdPtr->cmdProc,
- cmdPtr->arityMin, cmdPtr->arityMax,
cmdPtr->privData);
}
/* DeleteCommand will incr the proc epoch */
@@ -8102,50 +8097,49 @@ int Jim_InfoCoreCommand(Jim_Interp *interp, int argc, Jim_Obj **argv)
struct {
char *name;
Jim_CmdProc cmdProc;
- int arityMin, arityMax;
} Jim_CoreCommandsTable[] = {
- {"set", Jim_SetCoreCommand, 2, 3},
- {"unset", Jim_UnsetCoreCommand, 2, -1},
- {"puts", Jim_PutsCoreCommand, 2, 2},
- {"+", Jim_AddCoreCommand, 1, -1},
- {"*", Jim_MulCoreCommand, 1, -1},
- {"-", Jim_SubCoreCommand, 2, -1},
- {"/", Jim_DivCoreCommand, 2, -1},
- {"incr", Jim_IncrCoreCommand, 2, 3},
- {"while", Jim_WhileCoreCommand, 3, 3},
- {"for", Jim_ForCoreCommand, 5, 5},
- {"if", Jim_IfCoreCommand, 3, -1},
- {"list", Jim_ListCoreCommand, 1, -1},
- {"lindex", Jim_LindexCoreCommand, 3, -1},
- {"lset", Jim_LsetCoreCommand, 4, -1},
- {"llength", Jim_LlengthCoreCommand, 2, 2},
- {"lappend", Jim_LappendCoreCommand, 2, -1},
- {"append", Jim_AppendCoreCommand, 2, -1},
- {"debug", Jim_DebugCoreCommand, 2, -1},
- {"eval", Jim_EvalCoreCommand, 2, -1},
- {"uplevel", Jim_UplevelCoreCommand, 2, -1},
- {"expr", Jim_ExprCoreCommand, 2, -1},
- {"break", Jim_BreakCoreCommand, 1, 1},
- {"continue", Jim_ContinueCoreCommand, 1, 1},
- {"proc", Jim_ProcCoreCommand, 4, 4},
- {"concat", Jim_ConcatCoreCommand, 1, -1},
- {"return", Jim_ReturnCoreCommand, 1, 4},
- {"upvar", Jim_UpvarCoreCommand, 3, -1},
- {"global", Jim_GlobalCoreCommand, 2, -1},
- {"string", Jim_StringCoreCommand, 3, -1},
- {"time", Jim_TimeCoreCommand, 2, 3},
- {"exit", Jim_ExitCoreCommand, 1, 2},
- {"catch", Jim_CatchCoreCommand, 2, 3},
- {"ref", Jim_RefCoreCommand, 2, 3},
- {"getref", Jim_GetrefCoreCommand, 2, 2},
- {"setref", Jim_SetrefCoreCommand, 3, 3},
- {"collect", Jim_CollectCoreCommand, 1, 1},
- {"rename", Jim_RenameCoreCommand, 3, 3},
- {"dict", Jim_DictCoreCommand, 2, -1},
- {"load", Jim_LoadCoreCommand, 2, 2},
- {"subst", Jim_SubstCoreCommand, 2, -1},
- {"info", Jim_InfoCoreCommand, 2, -1},
- {NULL, NULL, 0, 0}
+ {"set", Jim_SetCoreCommand},
+ {"unset", Jim_UnsetCoreCommand},
+ {"puts", Jim_PutsCoreCommand},
+ {"+", Jim_AddCoreCommand},
+ {"*", Jim_MulCoreCommand},
+ {"-", Jim_SubCoreCommand},
+ {"/", Jim_DivCoreCommand},
+ {"incr", Jim_IncrCoreCommand},
+ {"while", Jim_WhileCoreCommand},
+ {"for", Jim_ForCoreCommand},
+ {"if", Jim_IfCoreCommand},
+ {"list", Jim_ListCoreCommand},
+ {"lindex", Jim_LindexCoreCommand},
+ {"lset", Jim_LsetCoreCommand},
+ {"llength", Jim_LlengthCoreCommand},
+ {"lappend", Jim_LappendCoreCommand},
+ {"append", Jim_AppendCoreCommand},
+ {"debug", Jim_DebugCoreCommand},
+ {"eval", Jim_EvalCoreCommand},
+ {"uplevel", Jim_UplevelCoreCommand},
+ {"expr", Jim_ExprCoreCommand},
+ {"break", Jim_BreakCoreCommand},
+ {"continue", Jim_ContinueCoreCommand},
+ {"proc", Jim_ProcCoreCommand},
+ {"concat", Jim_ConcatCoreCommand},
+ {"return", Jim_ReturnCoreCommand},
+ {"upvar", Jim_UpvarCoreCommand},
+ {"global", Jim_GlobalCoreCommand},
+ {"string", Jim_StringCoreCommand},
+ {"time", Jim_TimeCoreCommand},
+ {"exit", Jim_ExitCoreCommand},
+ {"catch", Jim_CatchCoreCommand},
+ {"ref", Jim_RefCoreCommand},
+ {"getref", Jim_GetrefCoreCommand},
+ {"setref", Jim_SetrefCoreCommand},
+ {"collect", Jim_CollectCoreCommand},
+ {"rename", Jim_RenameCoreCommand},
+ {"dict", Jim_DictCoreCommand},
+ {"load", Jim_LoadCoreCommand},
+ {"subst", Jim_SubstCoreCommand},
+ {"info", Jim_InfoCoreCommand},
+ {NULL, NULL},
};
/* Some Jim core command is actually a procedure written in Jim itself. */
@@ -8171,8 +8165,6 @@ void Jim_RegisterCoreCommands(Jim_Interp *interp)
Jim_CreateCommand(interp,
Jim_CoreCommandsTable[i].name,
Jim_CoreCommandsTable[i].cmdProc,
- Jim_CoreCommandsTable[i].arityMin,
- Jim_CoreCommandsTable[i].arityMax,
NULL);
i++;
}