apm_bootstrap_load_libraries (private)

 apm_bootstrap_load_libraries [ -load_tests ] [ -init ] [ -procs ] \
    package_key [ errorVarName ]

Defined in packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl

Scan all the files in the "tcl" dir of the package and load those asked for by the init and procs flags. This proc is an analog of apm_load_libraries. In addition though this proc sets apm_first_time_loading_p variable.

Switches:

-load_tests (optional, boolean, defaults to "0")

-init (optional, boolean)

Load initialization files

-procs (optional, boolean)

Load the proc library files

Parameters:

package_key (required)

The package to load (normally acs-tcl)

errorVarName (optional)

Authors:

Don Baccus <dhogaza@pacifier.com>

Peter Marklund

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

Testcases:

No testcase defined.

Source code:

    set file_types [list]
    if { $procs_p } {
        lappend file_types tcl_procs
    }
    if { $init_p } {
        lappend file_types tcl_init
    }
    if { $load_tests_p } {
        lappend file_types test_procs
    }
    if {$errorVarName ne ""} {
        upvar $errorVarName error
    }

    # This is the first time each of these files is being loaded (see
    # the documentation for the apm_first_time_loading_p proc).
    set ::apm_first_time_loading_p 1

    set package_root_dir [acs_package_root_dir $package_key]
    foreach file [apm_get_package_files -package_key $package_key -file_types $file_types] {

        apm_bootstrap_load_file $package_root_dir $file error

        # Call db_release_unused_handles, only if the library defining it
        # (10-database-procs.tcl) has been sourced yet.
        if { [namespace which db_release_unused_handles] ne ""} {
            db_release_unused_handles
        }
    }

    unset ::apm_first_time_loading_p

XQL Not present:

Generic, PostgreSQL, Oracle