doc_adp_append_code (private)

 doc_adp_append_code line

Defined in packages/acs-tcl/tcl/adp-parser-procs.tcl

Helper procedure to append a line of code to the Tcl translation of an ADP. Adds the line of code to the caller's $code variable, indenting depending on the size of the caller's $balanced_tag_stack.

Parameters:
line (required)

Partial Call Graph (max 5 caller/called nodes):
%3 doc_adp_compile doc_adp_compile (public) doc_adp_append_code doc_adp_append_code doc_adp_compile->doc_adp_append_code doc_adp_flush_text_buffer doc_adp_flush_text_buffer (private) doc_adp_flush_text_buffer->doc_adp_append_code

Testcases:
No testcase defined.
Source code:
    upvar code code
    upvar balanced_tag_stack balanced_tag_stack
    for { set i 0 } { $i < [llength $balanced_tag_stack] } { incr i } {
    append code "    "
    }
    append code "$line\n"
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: