acs_sc_update_alias_wrappers (public)

 acs_sc_update_alias_wrappers

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

Loop over actual bindings, finding every impl alias for each contract operation and call "acs_sc_proc" for all of these.

See Also:

• acs_sc_proc

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

Testcases:

No testcase defined.

Source code:

    db_foreach impl_operation {
        select ia.impl_contract_name,
               ia.impl_operation_name,
               ia.impl_name,
               ia.impl_alias,
               ia.impl_pl
        from   acs_sc_bindings b, acs_sc_impl_aliases ia
        where  ia.impl_id = b.impl_id
    } {
        #
        # Create the AcsSc.Contract.Operation.Impl wrapper proc for this implementation
        #
        if {[catch {
            #
            # Check, if the wrapper exists already
            #
            set proc_name [acs_sc_generate_name $impl_contract_name $impl_name $impl_operation_name]
            if {[namespace which ::$proc_name] eq ""} {
                #
                # Create it new.
                #
                acs_sc_proc $impl_contract_name $impl_operation_name $impl_name $impl_alias $impl_pl
            }
        } errorMsg]} {
            ns_log error "Service contract initialization failed, call was:\n acs_sc_proc $impl_contract_name $impl_operation_name $impl_name $impl_alias $impl_pl"
        }
    }

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

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