ad_file (public)

 ad_file subcmd arg1 [ args... ]

Defined in packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl

Tcl supports csh-style tilde substitution. If a filename starts with a tilde, then the filename will be interpreted as if the first element is replaced with the location of the home directory for the given user. If the user does not exist, an exception is raised. (e.g. [file dirname ~gustafn.foo]). https://www.tcl-lang.org/man/tcl/TclCmd/filename.htm#M20 This little proc can be used in cases, where (a) the tilde-substitution is unwanted, and where the "name" argument (usually the first argument after the subcommand) might contain user provided values.

Parameters:
subcmd (required)
arg1 (required)

Partial Call Graph (max 5 caller/called nodes):
%3 test_ad_file ad_file (test acs-bootstrap-installer) ad_file ad_file test_ad_file->ad_file test_files__check_upgrade_ordering files__check_upgrade_ordering (test acs-tcl) test_files__check_upgrade_ordering->ad_file test_files__check_xql_files files__check_xql_files (test acs-tcl) test_files__check_xql_files->ad_file test_files__page_contracts files__page_contracts (test acs-tcl) test_files__page_contracts->ad_file test_files__tcl_file_common_errors files__tcl_file_common_errors (test acs-tcl) test_files__tcl_file_common_errors->ad_file Object ::template::CSS Object ::template::CSS (public) Object ::template::CSS->ad_file Object ::throttle Object ::throttle (public) Object ::throttle->ad_file acs::disk_cache_eval acs::disk_cache_eval (public) acs::disk_cache_eval->ad_file ad_acs_require_basic_schemata ad_acs_require_basic_schemata (private) ad_acs_require_basic_schemata->ad_file apm_bootstrap_load_file apm_bootstrap_load_file (private) apm_bootstrap_load_file->ad_file

Testcases:
ad_file, files__tcl_file_syntax_errors, files__tcl_file_common_errors, files__check_upgrade_ordering, files__check_xql_files, files__trailing_whitespace, files__page_contracts, safe_tmpfile_p
Source code:
    if {[string range $arg1 0 0] eq {~}} {
        set arg1 ./$arg1
    }
    uplevel [list ::file $subcmd $arg1 {*}$args]
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: