apm_callback_format_args (public)

 apm_callback_format_args [ -version_id version_id ] \
    [ -package_key package_key ] -type type [ -arg_list arg_list ]

Defined in packages/acs-tcl/tcl/apm-procs.tcl

Return a string on format -arg_name1 arg_value1 -arg_name2 arg_value2 ... for the callback proc of given type.

Switches:
-version_id (optional)
-package_key (optional)
-type (required)
-arg_list (optional)
Author:
Peter Marklund

Partial Call Graph (max 5 caller/called nodes):
%3 test_apm__test_callback_invoke apm__test_callback_invoke (test acs-tcl) apm_callback_format_args apm_callback_format_args test_apm__test_callback_invoke->apm_callback_format_args apm_arg_names_for_callback_type apm_arg_names_for_callback_type (public) apm_callback_format_args->apm_arg_names_for_callback_type apm_invoke_callback_proc apm_invoke_callback_proc (public) apm_invoke_callback_proc->apm_callback_format_args

Testcases:
apm__test_callback_invoke
Source code:
    array set args_array $arg_list

    set arg_string ""
    set provided_arg_names [array names args_array]
    foreach required_arg_name [apm_arg_names_for_callback_type -type $type] {
        if {$required_arg_name ni $provided_arg_names} {
            error "required argument $required_arg_name not supplied to callback proc of type $type"
        }

        append arg_string " -${required_arg_name} $args_array($required_arg_name)"
    }

    return $arg_string
Generic XQL file:
packages/acs-tcl/tcl/apm-procs.xql

PostgreSQL XQL file:
packages/acs-tcl/tcl/apm-procs-postgresql.xql

Oracle XQL file:
packages/acs-tcl/tcl/apm-procs-oracle.xql

[ hide source ] | [ make this the default ]
Show another procedure: