template::list::from_clauses (public)

 template::list::from_clauses -name name [ -comma ]

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

Switches:

-name (required)

-comma (optional, boolean)

Set this flag if you want the result to start with an ',' if the list of from clauses returned is nonempty.

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

Testcases:

No testcase defined.

Source code:

    # Get an upvar'd reference to list_properties
    get_reference -name $name

    if { [llength $list_properties(from_clauses)] == 0 } {
        return {}
    }
    set trimmed_from_clauses [list]

    set result {}

    if { ![string is space [lindex $list_properties(from_clauses) 0]] && $comma_p && ![string match "left*" [string trim [lindex $list_properties(from_clauses) 0]]]} {
        append result ", "
    }
    set i 0
    foreach elm $list_properties(from_clauses) {

        if {(![string is space $elm] && ![string match "left*" [string trim $elm]])
            && ($comma_p || $i > 0)} {
            append results ","
        }
        append result " $elm"
        incr i
    }
    #    append result [join $list_properties(from_clauses) "\n , "]

    return $result

XQL Not present:

Generic, PostgreSQL, Oracle