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

Partial Call Graph (max 5 caller/called nodes):

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