Posted to tcl by apw at Tue Aug 07 19:45:05 GMT 2007view raw
- int
- Tcl_NewNamespaceVars(
- Tcl_Interp *interp,
- Tcl_Namespace *nsPtr,
- int argc,
- char *argv[])
- {
- const char *tail;
- Var *varPtr = NULL;
- Tcl_Obj *tailPtr;
- int i;
- int new;
- if (nsPtr == NULL) {
- return TCL_ERROR;
- }
- tailPtr = NULL;
- for (i=0;i<argc;i++) {
- tail = argv[i];
- if (tail == NULL) {
- continue;
- }
- tailPtr = Tcl_NewStringObj(tail, -1);
- varPtr = VarHashCreateVar(&((Namespace *)nsPtr)->varTable,
- tailPtr, &new);
- }
- return TCL_OK;
- }