acs_sc_get_statement (private)

 acs_sc_get_statement impl_alias impl_pl arguments

Defined in packages/acs-service-contract/tcl/acs-service-contract-procs.tcl

Builds the statement to call from the provided metadata.

Parameters:

impl_alias (required)

Tcl or plpgsql proc to call

impl_pl (required)

programmimg language of the proc to call (TCL or PLPGSQL)

arguments (required)

list of argument names

Author:

Neophytos Demetriou

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

Testcases:

No testcase defined.

Source code:

    switch $impl_pl {
        TCL {
            set full_statement [list $impl_alias]
            for {set __i 0} {$__i < [llength $arguments]} {incr __i} {
                lappend full_statement "\$[lindex $arguments $__i]"
            }
            set full_statement [join $full_statement]
        }
        PLPGSQL {
            set args_list [list]
            for {set __i 0} {$__i < [llength $arguments]} {incr __i} {
                lappend args_list "\$[lindex $arguments $__i]"
            }
            set args_final [join $args_list ,]
            set full_statement "db_exec_plsql full_statement \"select ${impl_alias}(${args_final})\""
        }
        default {
            error "ACS-SC: Unknown impl_pl: $impl_pl"
        }
    }

    return $full_statement

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

packages/acs-service-contract/tcl/acs-service-contract-procs.xql