source — Evaluate a file or resource as a Tcl script
source fileName
source -encoding encodingName fileName
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 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 command will return
that error. If a return
command is invoked from within the script then the remainder of the
file will be skipped and the source command will return
normally with the result from the return command.
The end-of-file character for files is “\32” (^Z) for all
platforms. The source command will read files up to this character.
This restriction does not exist for the read or gets commands, allowing for files
containing code and data segments (scripted documents). If you
require a “^Z” in code for string comparison, you can use “\x1A”,
which will be safely substituted by the Tcl interpreter into
“^Z”.
A leading BOM (Byte order mark) contained in the file is ignored
for unicode encodings (utf-8, utf-16, ucs-2).
The -encoding option is used to specify the encoding of
the data stored in fileName. When the -encoding
option is omitted, the utf-8 encoding is assumed.
Run the script in the file foo.tcl and then the script in
the file bar.tcl:
source foo.tcl
source bar.tcl
Alternatively:
foreach scriptFile {foo.tcl bar.tcl} {
source $scriptFile
}
file, cd, encoding, info
file, script
Copyright © 1993 The Regents of the University of
California.
Copyright © 1994-1996 Sun Microsystems, Inc.
Copyright © 2000 Scriptics Corporation.