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 (required)
- Returns:
- relative path with trailing .
- Partial Call Graph (max 5 caller/called nodes):
- 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