Posted to tcl by apw at Tue Aug 07 19:45:05 GMT 2007view raw

  1. int
  2. Tcl_NewNamespaceVars(
  3. Tcl_Interp *interp,
  4. Tcl_Namespace *nsPtr,
  5. int argc,
  6. char *argv[])
  7. {
  8. const char *tail;
  9. Var *varPtr = NULL;
  10. Tcl_Obj *tailPtr;
  11. int i;
  12. int new;
  13.  
  14. if (nsPtr == NULL) {
  15. return TCL_ERROR;
  16. }
  17. tailPtr = NULL;
  18. for (i=0;i<argc;i++) {
  19. tail = argv[i];
  20. if (tail == NULL) {
  21. continue;
  22. }
  23. tailPtr = Tcl_NewStringObj(tail, -1);
  24. varPtr = VarHashCreateVar(&((Namespace *)nsPtr)->varTable,
  25. tailPtr, &new);
  26. }
  27. return TCL_OK;
  28. }
  29.