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