NAME<\/a> ______________________________________________________________________________<\/p>\n tcl::prefix \u2212 facilities for prefix matching<\/p>\n ::tcl::prefix all<\/b> table string<\/i> This document describes commands looking up a prefix in a list of strings. The following commands are supported: Returns a list of all elements in table<\/i> that begin with the prefix string<\/i>.<\/p>\n ::tcl::prefix longest<\/b> table string<\/i><\/p>\n Returns the longest common prefix of all elements in table<\/i> that begin with the prefix string<\/i>.<\/p>\n ::tcl::prefix match<\/b> ?options<\/i>? table string<\/i><\/p>\n If string<\/i> equals one element in table<\/i> or is a prefix to exactly one element, the matched element is returned. If not, the result depends on the \u2212error<\/b> option. (It is recommended that the table<\/i> be sorted before use with this subcommand, so that the list of matches presented in the error message also becomes sorted, though this is not strictly necessary for the operation of this subcommand itself.) Accept only exact matches.<\/p>\n \u2212message<\/b> string<\/i><\/p>\n Use string<\/i> in the error message at a mismatch. Default is \u201coption\u201d.<\/p>\n \u2212error<\/b> options<\/i><\/p>\n The options<\/i> are used when no match is found. If options<\/i> is empty, no error is generated and an empty string is returned. Otherwise the options<\/i> are used as return<\/b> options when generating the error message. The default corresponds to setting \u201c\u2212level 0\u201d. Example: If \u201c\u2212error<\/b> {\u2212errorcode MyError \u2212level 1}\u201d is used, an error would be generated as:<\/p>\n return \u2212errorcode MyError \u2212level 1 \u2212code error Basic use:<\/p>\n namespace import ::tcl::prefix Simplifying option matching:<\/p>\n array set opts {\u2212apa 1 \u2212bepa “” \u2212cepa 0} Creating a switch<\/b> that supports prefixes:<\/p>\n switch [prefix match<\/b> {apa bepa cepa} $arg] { lsearch(n), namespace(n), string(n), Tcl_GetIndexFromObj(3)<\/p>\n prefix, table lookup<\/p>\n tcl::prefix \u2212 facilities for prefix matching <\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3783,1],"tags":[2635,2878],"class_list":["post-6264","post","type-post","status-publish","format-standard","hentry","category-n-comandos-tcl-tk","category-sin-categoria","tag-mann","tag-tcl_prefix"],"gutentor_comment":0,"_links":{"self":[{"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/posts\/6264","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/comments?post=6264"}],"version-history":[{"count":0,"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/posts\/6264\/revisions"}],"wp:attachment":[{"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/media?parent=6264"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/categories?post=6264"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/tags?post=6264"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
SYNOPSIS<\/a>
DESCRIPTION<\/a>
EXAMPLES<\/a>
SEE ALSO<\/a>
KEYWORDS<\/a> <\/p>\n
\nNAME <\/a> <\/h2>\n
SYNOPSIS <\/a> <\/h2>\n
::tcl::prefix longest<\/b> table string<\/i>
::tcl::prefix match<\/b> ?option …? table string<\/i> ______________________________________________________________________________<\/p>\nDESCRIPTION <\/a> <\/h2>\n
::tcl::prefix all<\/b> table string<\/i><\/p>\n
\u2212exact<\/b><\/p>\n
“ambiguous option …”<\/p>\nEXAMPLES <\/a> <\/h2>\n
prefix match<\/b> {apa bepa cepa} apa
\u2192 apa<\/i>
prefix match<\/b> {apa bepa cepa} a
\u2192 apa<\/i>
prefix match<\/b> \u2212exact {apa bepa cepa} a
\u2192 bad option “a”: must be apa, bepa, or cepa<\/i>
prefix match<\/b> \u2212message “switch” {apa ada bepa cepa} a
\u2192 ambiguous switch “a”: must be apa, ada, bepa, or cepa<\/i>
prefix longest<\/b> {fblocked fconfigure fcopy file fileevent flush} fc
\u2192 fco<\/i>
prefix all<\/b> {fblocked fconfigure fcopy file fileevent flush} fc
\u2192 fconfigure fcopy<\/i><\/p>\n
foreach {arg val} $args {
set opts([prefix match<\/b> {\u2212apa \u2212bepa \u2212cepa} $arg]) $val
}<\/p>\n
apa { }
bepa { }
cepa { }
}<\/p>\nSEE ALSO <\/a> <\/h2>\n
KEYWORDS <\/a> <\/h2>\n
\n","protected":false},"excerpt":{"rendered":"