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
operation
impl

Author:

Neophytos Demetriou

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

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