acs_sc_get_alias (private)

 acs_sc_get_alias contract operation impl

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

Returns the implementation alias (the proc defined to handle a given operation for a given implementation).

Parameters:
contract (required)
operation (required)
impl (required)
Author:
Neophytos Demetriou

Partial Call Graph (max 5 caller/called nodes):
%3 acs_sc_proc acs_sc_proc (private) acs_sc_get_alias acs_sc_get_alias acs_sc_proc->acs_sc_get_alias acs_sc_binding_exists_p acs_sc_binding_exists_p (public) acs_sc_get_alias->acs_sc_binding_exists_p db_0or1row db_0or1row (public) acs_sc_get_alias->db_0or1row

Testcases:
No testcase defined.
Source code:
    # LARS
    set exists_p [acs_sc_binding_exists_p $contract $impl]

    #set exists_p [util_memoize [list acs_sc_binding_exists_p $contract $impl]]

    if {![set exists_p]} {return ""}

    db_0or1row get_alias {
        select impl_alias, impl_pl
          from acs_sc_impl_aliases
         where impl_contract_name  = :contract
           and impl_operation_name = :operation
           and impl_name           = :impl
    }

    return [list $impl_alias $impl_pl]
XQL Not present:
PostgreSQL, Oracle
Generic XQL file:
packages/acs-service-contract/tcl/acs-service-contract-procs.xql

[ hide source ] | [ make this the default ]
Show another procedure: