Index: generic/nsf.c =================================================================== diff -u -r353fe0c41d46ad9d3475bd4b8ea16aea6aae0419 -r39607bed15618248130a1251cc2b1c2a03db93b0 --- generic/nsf.c (.../nsf.c) (revision 353fe0c41d46ad9d3475bd4b8ea16aea6aae0419) +++ generic/nsf.c (.../nsf.c) (revision 39607bed15618248130a1251cc2b1c2a03db93b0) @@ -12420,7 +12420,7 @@ /* nsfCmd configure NsfConfigureCmd { - {-argName "configureoption" -required 1 -type "filter|softrecreate|objectsystems|keepinitcmd|checkresult"} + {-argName "configureoption" -required 1 -type "debug|filter|softrecreate|objectsystems|keepinitcmd|checkresult"} {-argName "value" -required 0 -type tclobj} } */ @@ -12442,6 +12442,22 @@ return TCL_OK; } + if (configureoption == ConfigureoptionDebugIdx) { + int level; + + if (valueObj) { + int result = Tcl_GetIntFromObj(interp, valueObj, &level); + if (result != TCL_OK) { + return result; + } + RUNTIME_STATE(interp)->debugLevel = level; + } + Tcl_SetIntObj(Tcl_GetObjResult(interp), + RUNTIME_STATE(interp)->debugLevel); + + return TCL_OK; + } + if (valueObj) { int result = Tcl_GetBooleanFromObj(interp, valueObj, &bool); if (result != TCL_OK) @@ -15380,7 +15396,7 @@ /* objectInfoMethod hasmixin NsfObjInfoHasMixinMethod { - {-argName "class" -type class} + {-argName "class" -required 1 -type class} } */ static int @@ -15401,7 +15417,7 @@ /* objectInfoMethod hastype NsfObjInfoHasTypeMethod { - {-argName "class" -type class} + {-argName "class" -required 1 -type class} } */ static int @@ -15412,7 +15428,7 @@ /* objectInfoMethod is NsfObjInfoIsMethod { - {-argName "objectkind" -type "class|baseclass|metaclass"} + {-argName "objectkind" -required 1 -type "class|baseclass|metaclass"} } */ static int @@ -15440,7 +15456,7 @@ /* objectInfoMethod lookupfilter NsfObjInfoLookupFilterMethod { - {-argName "filter"} + {-argName "filter" -required 1} } */ static int @@ -15475,7 +15491,7 @@ /* objectInfoMethod lookupmethod NsfObjInfoLookupMethodMethod { - {-argName "pattern" -required 0} + {-argName "name" -required 1 -type tclobj} } */ static int @@ -15602,7 +15618,7 @@ /* objectInfoMethod method NsfObjInfoMethodMethod { {-argName "infomethodsubcmd" -type "args|body|definition|handle|parameter|parametersyntax|type|precondition|postcondition|subcommands"} - {-argName "name"} + {-argName "name" -required 1 -type tclobj} } */ @@ -15856,7 +15872,7 @@ /* classInfoMethod method NsfClassInfoMethodMethod { {-argName "infomethodsubcmd" -type "args|body|definition|handle|parameter|parametersyntax|type|precondition|postcondition|subcommands"} - {-argName "name"} + {-argName "name" -required 1 -type tclobj} } */