NAME<\/a> ______________________________________________________________________________<\/p>\n source \u2212 Evaluate a file or resource as a Tcl script<\/p>\n source<\/b> fileName<\/i><\/p>\n source \u2212encoding<\/b> encodingName fileName<\/i> ______________________________________________________________________________<\/p>\n This command takes the contents of the specified file or resource and passes it to the Tcl interpreter as a text script. The return value from source<\/b> is the return value of the last command executed in the script. If an error occurs in evaluating the contents of the script then the source<\/b> command will return that error. If a return<\/b> command is invoked from within the script then the remainder of the file will be skipped and the source<\/b> command will return normally with the result from the return<\/b> command.<\/p>\n The end-of-file character for files is \u201c32\u201d (^Z) for all platforms. The source command will read files up to this character. This restriction does not exist for the read<\/b> or gets<\/b> commands, allowing for files containing code and data segments (scripted documents). If you require a \u201c^Z\u201d in code for string comparison, you can use \u201c\u000032\u201d or \u201cu001a\u201d, which will be safely substituted by the Tcl interpreter into \u201c^Z\u201d.<\/p>\n A leading BOM (Byte order mark) contained in the file is ignored for unicode encodings (utf-8, unicode).<\/p>\n The \u2212encoding<\/b> option is used to specify the encoding of the data stored in fileName<\/i>. When the \u2212encoding<\/b> option is omitted, the system encoding is assumed.<\/p>\n Run the script in the file foo.tcl<\/b> and then the script in the file bar.tcl<\/b>:<\/p>\n source<\/b> foo.tcl Alternatively:<\/p>\n foreach scriptFile {foo.tcl bar.tcl} { file(n), cd(n), encoding(n), info(n)<\/p>\n file, script<\/p>\n source \u2212 Evaluate a file or resource as a Tcl script <\/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,2939],"class_list":["post-6355","post","type-post","status-publish","format-standard","hentry","category-n-comandos-tcl-tk","category-sin-categoria","tag-mann","tag-source"],"gutentor_comment":0,"_links":{"self":[{"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/posts\/6355","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=6355"}],"version-history":[{"count":0,"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/posts\/6355\/revisions"}],"wp:attachment":[{"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/media?parent=6355"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/categories?post=6355"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/tags?post=6355"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
SYNOPSIS<\/a>
DESCRIPTION<\/a>
EXAMPLE<\/a>
SEE ALSO<\/a>
KEYWORDS<\/a> <\/p>\n
\nNAME <\/a> <\/h2>\n
SYNOPSIS <\/a> <\/h2>\n
DESCRIPTION <\/a> <\/h2>\n
EXAMPLE <\/a> <\/h2>\n
source<\/b> bar.tcl<\/p>\n
source<\/b> $scriptFile
}<\/p>\nSEE ALSO <\/a> <\/h2>\n
KEYWORDS <\/a> <\/h2>\n
\n","protected":false},"excerpt":{"rendered":"