Index: openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl,v diff -u -N -r1.72.2.39 -r1.72.2.40 --- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 17 Jan 2022 16:20:35 -0000 1.72.2.39 +++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 17 Jan 2022 18:03:23 -0000 1.72.2.40 @@ -1222,7 +1222,7 @@ } elseif {[info procs ::nsf::procs::$proc_name_pattern] ne ""} { return [::nx::Object info method body ::nsf::procs::$proc_name] } else { - return "No such Tcl-proc '$proc_name'" + return $proc_name } } @@ -1703,11 +1703,11 @@ } set data [string map [list & "&" < "<" > ">"] \n$script] - set in_comment 0 set in_quotes 0 set proc_ok 1 set l [string length $data] + for {set i 0} {$i < $l} {incr i} { set char [string index $data $i] switch -- $char { @@ -1826,6 +1826,7 @@ set proc_ok 0 set procl [length_proc [string range $data $i end]] set proc_name [string range $data $i $i+$procl] + if {$proc_name eq "ad_proc"} { # # Pretty print comment after ad_proc rather than trying to index keywords @@ -1878,7 +1879,9 @@ } } } + continue } + # # The last four words in the following clause # are deprecated procs which are unfortunately @@ -1945,7 +1948,7 @@ # ns_log notice "TCLCODE: giving up on '$proc_name' ($procl) [string range $data $i $i+20]" #} append html $proc_name - set proc_ok 1 + #set proc_ok 1 } incr i $procl