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):
%3 doc::parse_comment_text doc::parse_comment_text (private) doc::set_proc_name_source_text_comment_text doc::set_proc_name_source_text_comment_text doc::parse_comment_text->doc::set_proc_name_source_text_comment_text doc::util::text_divider doc::util::text_divider (private) doc::set_proc_name_source_text_comment_text->doc::util::text_divider template::util::comment_text_normalize template::util::comment_text_normalize (private) doc::set_proc_name_source_text_comment_text->template::util::comment_text_normalize

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
[ hide source ] | [ make this the default ]
Show another procedure: