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):
%3 template::list::create template::list::create (public) template::list::from_clauses template::list::from_clauses template::list::create->template::list::from_clauses template::list::get_reference template::list::get_reference (public) template::list::from_clauses->template::list::get_reference

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
[ hide source ] | [ make this the default ]
Show another procedure: