install::xml::action::instantiate-object (private)

 install::xml::action::instantiate-object node

Defined in packages/acs-tcl/tcl/install-procs.tcl

Instantiate an object using package_instantiate_object. This will work for both PostgreSQL and Oracle if the proper object package and new() function have been defined.

Parameters:

node

Author:

Don Baccus donb@pacifier.com

Created:

2008-12-04

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

Testcases:

No testcase defined.

Source code:

    set type [apm_required_attribute_value $node type]

    set params [xml_node_get_children [lindex $node 0]]
    set var_list {}
    foreach param $params {
        if {[xml_node_get_name $param] ne "param"} {
            error "Unknown xml element \"[xml_node_get_name $param]\""
        }

        set name [apm_required_attribute_value $param name]
        set id [apm_attribute_value -default {} $param id]
        set value [apm_attribute_value -default {} $param value]

        if {$id ne ""} {
            set value [install::xml::util::get_id $id]
        }

        lappend var_list [list $name $value]
    }

    set object_id [package_instantiate_object -var_list $var_list $type]

    set id [apm_attribute_value -default "" $node id]
    if {$id ne ""} {
        set ::install::xml::ids($id) $object_id
    }
    return

XQL Not present:

Generic, PostgreSQL, Oracle