ad_page_contract_split_argspec_flags (private)

 ad_page_contract_split_argspec_flags flags

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

Splits the flags in an argspec definition into a list.

Parameters:
flags

Partial Call Graph (max 5 caller/called nodes):
%3 test_ad_page_contract_argspec_parsing ad_page_contract_argspec_parsing (test acs-tcl) ad_page_contract_split_argspec_flags ad_page_contract_split_argspec_flags test_ad_page_contract_argspec_parsing->ad_page_contract_split_argspec_flags ad_page_contract_argspec_flag_regexp ad_page_contract_argspec_flag_regexp (private) ad_page_contract_split_argspec_flags->ad_page_contract_argspec_flag_regexp ad_page_contract ad_page_contract (public) ad_page_contract->ad_page_contract_split_argspec_flags

Testcases:
ad_page_contract_argspec_parsing
Source code:
    set flag_rx [ad_page_contract_argspec_flag_regexp]

    set pre_flag_list [list]
    while { [regexp [subst -nocommands {^(${flag_rx})(?:,(.+)|)$}] $flags _ flag rest] } {
        lappend pre_flag_list $flag
        set flags $rest
    }

   return $pre_flag_list
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: