lang::test::get_all_package_files (private)

 lang::test::get_all_package_files

Defined in packages/acs-lang/tcl/test/acs-lang-test-procs.tcl

Get all files on the system where some message key is expected.

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

Testcases:

No testcase defined.

Source code:

    set files [list]
    set directories [list $::acs::rootdir/packages/]
    while {[llength $directories] > 0} {
        set d [lindex $directories 0]
        set directories [lrange $directories 1 end]
        lappend directories {*}[glob -directory $d -nocomplain -types d *]
        lappend files {*}[glob -directory $d -nocomplain -types {f r} *.{adp,sql,tcl}]
    }
    return $files

XQL Not present:

Generic, PostgreSQL, Oracle