db_qd_internal_get_queryname_root (private)

 db_qd_internal_get_queryname_root relative_path

Defined in packages/acs-bootstrap-installer/tcl/40-db-query-dispatcher-procs.tcl

Parameters:
relative_path
Returns:
relative path with trailing .

Partial Call Graph (max 5 caller/called nodes):
%3 db_qd_internal_load_queries db_qd_internal_load_queries (private) db_qd_internal_get_queryname_root db_qd_internal_get_queryname_root db_qd_internal_load_queries->db_qd_internal_get_queryname_root

Testcases:
No testcase defined.
Source code:
    # remove the prepended "/packages/" string
    regsub {^\/?packages\/} $relative_path {} relative_path

    # remove the last chunk of the filename, since we're just looking for the root path
    # NOTE: THIS MAY NEED BETTER ABSTRACTION, since this assumes a naming scheme
    # of -rdbms.XXX (ben)
    regsub {\.xql} $relative_path {} relative_path
    regsub -- "\-[db_type]$" $relative_path {} relative_path

    # Change all . to :
    regsub -all {\.} $relative_path {:} relative_path

    # Change all / to . (hah, no reference to News for Nerds)
    regsub -all {/} $relative_path {.} relative_path

    # We append a "." at the end, since we want easy concatenation
    return "${relative_path}."
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: