createArgumentFuncPtr argvFuncPtr, cmdTerritory cmdScope, const char *usage, const char *helpString)

{

/* No code to support threads for Tcl */

/* If required add thread Specific code

int isSafe, i;

cli_ArgvInfo *argtable;

char **required_args;

cli_cmdCallbackInfo *cmdCallbackInfo;

if ((cmdName == NULL) || (cmdFuncPtr == NULL) || (helpString == NULL)) {

printf("Error: New command with NULL string or object procs or with no help string provided\n");

return TCL_ERROR;

}

/* Used for creating internal commands */

isSafe = Tcl_IsSafe(interp);

argtable = (cli_ArgvInfo *) ckalloc(sizeof(cli_ArgvInfo) * 100);

for (i = 0; i < 100; i++) {

argtable[i].key = (char *) NULL;

argtable[i].type = CLI_ARGV_END;

argtable[i].range_set = false;

argtable[i].option = CLI_ARGV_OPTIONAL;

argtable[i].def = (char *) NULL;

argtable[i].help = (char *) NULL;

}

cmdCallbackInfo = (cli_cmdCallbackInfo *) ckalloc(sizeof(cli_cmdCallbackInfo));

cmdCallbackInfo->command_usage = usage;

cmdCallbackInfo->parsedArgTable = (cli_parsedArgInfo *) ckalloc(sizeof(cli_parsedArgInfo) * 100);

for (i = 0; i < 100; i++) {

cmdCallbackInfo->parsedArgTable[i].parsed_args = CLI_PARSED_ARGV_END;

cmdCallbackInfo->parsedArgTable[i].data = (char *) NULL;

cmdCallbackInfo->parsedArgTable[i].arg_string = (char *) NULL;

cmdCallbackInfo->parsedArgTable[i].arg_int = CLI_DEFAULT_INT_OR_FLOAT_VALUE;

cmdCallbackInfo->parsedArgTable[i].arg_float = CLI_DEFAULT_INT_OR_FLOAT_VALUE;

cmdCallbackInfo->parsedArgTable[i].arg_usage = (char *) NULL;

}

cmdCallbackInfo->userdata = (void *) NULL;

/* Create a new command with cmdName */

Tcl_CreateCommand(interp, cmdName, cmdFuncPtr, (ClientData) cmdCallbackInfo,

(void (*)_ANSI_ARGS_((ClientData))) NULL);

cliSetArgvInfo(argtable);

if (isSafe) {

if (cmdScope == CLI_COMMAND_INTERNAL) {

Tcl_HideCommand(interp, cmdName, cmdName);

}

}

if (argvFuncPtr != NULL) {

(*argvFuncPtr) ();

/* Now call create Arguments so that we can fill the necessary

}

required_args = getReqdArgs();

cliAddCommandtoHashtable(cmdName, argtable, required_args, cmdCallbackInfo->parsedArgTable, helpString);

return TCL_OK;

{

/* if it called many times, the interperter will store only

Tcl_AppendElement(interp, "+OK");

return TCL_OK;

{

/* If it called many times, the interpreter will store only

Tcl_AppendElement(interp, "-ERROR");

return TCL_ERROR;