Index: generic/gentclAPI.tcl =================================================================== diff -u -raa5b3f4293624fedf641985718ab15c82f5daf78 -r878a74b68b15d4ee5c33d345e670f50ce7473ebc --- generic/gentclAPI.tcl (.../gentclAPI.tcl) (revision aa5b3f4293624fedf641985718ab15c82f5daf78) +++ generic/gentclAPI.tcl (.../gentclAPI.tcl) (revision 878a74b68b15d4ee5c33d345e670f50ce7473ebc) @@ -486,7 +486,8 @@ puts "enum {\n $enumString\n} NsfMethods;\n" puts $fns set definitionString [join $ifds ",\n"] - puts "static Nsf_methodDefinition method_definitions\[$nrIfds\] = \{\n$definitionString,\{NULL\}\n\};\n" + set terminator {NULL, NULL, 0, {{NULL, 0, 0, ConvertToNothing, NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL}}} + puts "static Nsf_methodDefinition method_definitions\[$nrIfds\] = \{\n$definitionString,\n{$terminator}\n\};\n" } proc methodDefinition {methodName methodType implementation parameterDefinitions options} { @@ -513,7 +514,7 @@ } set d(parameterDefinitions) $completed set ::definitions($d(methodType)-$d(implementation)-$d(methodName)) [array get d] - puts $::nxdocIndex [list set ::nxdoc::include($d(ns)::$d(methodName)) $opts(-nxdoc)] + # puts $::nxdocIndex [list set ::nxdoc::include($d(ns)::$d(methodName)) $opts(-nxdoc)] } proc checkMethod {methodName implementation parameterDefinitions {options ""}} { @@ -538,9 +539,9 @@ } if {[llength $argv] == 1} {set decls $argv} {set decls generic/gentclAPI.decls} -set ::nxdocIndex [open [file root $decls].nxdocindex w] +# set ::nxdocIndex [open [file root $decls].nxdocindex w] source $decls -close $::nxdocIndex +# close $::nxdocIndex puts { /*