apm_post_instantiation_tcl_proc_from_key (private)

 apm_post_instantiation_tcl_proc_from_key package_key

Defined in packages/acs-tcl/tcl/apm-procs.tcl

Generates the name of the Tcl procedure we execute for post-instantiation.

Parameters:

package_key

Returns:

The name of a Tcl procedure, if it exists, or empty string if no such Tcl procedure was found.

Author:

Michael Bryzek <mbryzek@arsdigita.com>

Created:

2001-03-05

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

Testcases:

apm__test_callback_get_set

Source code:

    set procedure_name [string tolower "[string trim $package_key]_post_instantiation"]
    # Change all "-" to "_" to mimic our Tcl standards
    regsub -all -- {\-} $procedure_name "_" procedure_name
    if { [namespace which ::$procedure_name] eq "" } {
        # No such procedure exists...
        return ""
    }
    # Procedure exists
    return $procedure_name

Generic XQL file:

packages/acs-tcl/tcl/apm-procs.xql

PostgreSQL XQL file:

packages/acs-tcl/tcl/apm-procs-postgresql.xql

Oracle XQL file:

packages/acs-tcl/tcl/apm-procs-oracle.xql