template::adp_append_code (public)

 template::adp_append_code code [ nobreak ]

Defined in packages/acs-templating/tcl/parse-procs.tcl

Adds a line of code to the Tcl output from the compiler. Called by basically any adp custom tag implementation and also from developer support.

Parameters:
code - A line of Tcl code
nobreak (optional)
Options:
-nobreak
Flag indicating that code should be appended to the current last line rather than adding a new line, for cases where code must continue on the same line, such as the "else" tag.

Partial Call Graph (max 5 caller/called nodes):
%3 test_adp_parse_tags adp_parse_tags (test acs-templating) template::adp_append_code template::adp_append_code test_adp_parse_tags->template::adp_append_code test_template_widget_file template_widget_file (test acs-templating) test_template_widget_file->template::adp_append_code ds_adp_end_box ds_adp_end_box (public) ds_adp_end_box->template::adp_append_code ds_adp_start_box ds_adp_start_box (public) ds_adp_start_box->template::adp_append_code packages/acs-templating/tcl/tag-init.tcl packages/acs-templating/ tcl/tag-init.tcl packages/acs-templating/tcl/tag-init.tcl->template::adp_append_code publish::process_tag publish::process_tag (private) publish::process_tag->template::adp_append_code template::adp_append_string template::adp_append_string (private) template::adp_append_string->template::adp_append_code

Testcases:
template_widget_file, adp_parse_tags
Source code:
    if { [string is space $code] } { return }

    variable parse_list

    if {$nobreak eq "-nobreak"} {

        set last_line [lindex $parse_list end]
        append last_line " $code"
        lset parse_list end $last_line

    } else {

        lappend parse_list $code
    }
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: