acs_sc::impl::alias::parse_spec (private)

 acs_sc::impl::alias::parse_spec -contract_name contract_name \
    -impl_name impl_name -operation operation -spec spec

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

Parse the spec for a single alias. The spec can either be just the name of a Tcl procedure, or it can be an array list containing the two keys 'alias' and 'language'.

Switches:

-contract_name

(required)

-impl_name

(required)

-operation

(required)

-spec

(required)

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

Testcases:

No testcase defined.

Source code:

    if { [llength $spec] == 1 } {

        # Single-element spec, which means it's the name of a Tcl procedure
        new  -contract_name $contract_name  -impl_name $impl_name  -operation $operation  -alias $spec
    } else {
        # It's a full spec, expect 'alias' and 'language'
        array set alias $spec

        new  -contract_name $contract_name  -impl_name $impl_name  -operation $operation  -alias $alias(alias)  -language $alias(language)

    }

Generic XQL file:

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

PostgreSQL XQL file:

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

Oracle XQL file:

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