doc::set_proc_name_source_text_comment_text (private)
doc::set_proc_name_source_text_comment_text proc_block
Defined in packages/acs-templating/tcl/doc-tcl-procs.tcl
called by parse_comment_text
- Parameters:
- proc_block (required)
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
Source code: upvar source_txt source_txt upvar proc_name proc_name upvar comment_text comment_text doc::util::text_divider proc_block {\n\s*proc\s+} set comment_text [lindex $proc_block 0] set source_text [join [lrange $proc_block 1 end] "" ] set proc_name [lindex [template::util::comment_text_normalize $source_text] 1]XQL Not present: Generic, PostgreSQL, Oracle