plpgsql_utility::define_function_args (public)

 plpgsql_utility::define_function_args attr_list

Defined in packages/acs-subsite/tcl/plpgsql-utility-procs.tcl

Returns the attribute list as a string suitable for a call to define_function_args.

Parameters:

attr_list (required)

Author:

Steve Woodcock <swoodcock@scholastic.co.uk>

Created:

07/2001

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

Testcases:

No testcase defined.

Source code:

        set pieces [list]
        foreach triple $attr_list {
            set attr  [string trim [lindex $triple 1]]
            set dft   [string trim [lindex $triple 2]]
            if { $dft eq "" || $dft eq "NULL" } {
                set default ""
            } else {
                if { [string index $dft 0] eq "'" } {
                    set dft [string range $dft 1 [string length $dft]-2]
                }
                set default ";${dft}"
            }
            lappend pieces "${attr}${default}"
        }
        return [join $pieces ","]

XQL Not present:

Generic, Oracle

PostgreSQL XQL file:

packages/acs-subsite/tcl/plpgsql-utility-procs-postgresql.xql