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

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