Index: openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl,v diff -u -r1.20.2.5 -r1.20.2.6 --- openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl 20 Nov 2019 16:46:06 -0000 1.20.2.5 +++ openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl 16 Jan 2020 15:36:00 -0000 1.20.2.6 @@ -42,6 +42,7 @@ set good 0 set allowedChars {^[a-zA-Z_0-9_]+$} set allowedToplevel {^(_|(ad|acs|aa|adp|api|apm|chat|db|doc|ds|dt|cr|export|fs|general_comments|lc|news|ns|package|pkg_info|relation|rp|rss|sec|server_cluster|content_search|util|xml)_.+|callback|exec)$} + set serverModuleProcs {^(h264open|h264length|h264read|h264eof|h264close)$} set internalUse {^(_.+|AcsSc[.].+|callback::.+|install::.+)$} set prescribed {^((after|before|notifications)-(install|instantiate|uninstall|uninstantiate|upgrade))$} foreach p [lsort -dictionary [nsv_array names api_proc_doc]] { @@ -50,7 +51,7 @@ incr count set tail [namespace tail $p] set qualifiers [regsub -all "::" [namespace qualifiers $p] "__"] - if {[regexp $internalUse $p]} continue + if {[regexp $internalUse $p] || [regexp $serverModuleProcs $p]} continue set pa [nsv_get api_proc_doc $p] set protection [expr {[dict exists $pa protection] && "public" in [dict get $pa protection] ? "public" : "private"}]