[25] | 1 | '\" |
---|
| 2 | '\" Copyright (c) 1993 The Regents of the University of California. |
---|
| 3 | '\" Copyright (c) 1994-1996 Sun Microsystems, Inc. |
---|
| 4 | '\" Copyright (c) 2000 Scriptics Corporation. |
---|
| 5 | '\" |
---|
| 6 | '\" See the file "license.terms" for information on usage and redistribution |
---|
| 7 | '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. |
---|
| 8 | '\" |
---|
| 9 | '\" RCS: @(#) $Id: source.n,v 1.18 2007/12/13 15:22:33 dgp Exp $ |
---|
| 10 | '\" |
---|
| 11 | .so man.macros |
---|
| 12 | .TH source n "" Tcl "Tcl Built-In Commands" |
---|
| 13 | .BS |
---|
| 14 | '\" Note: do not modify the .SH NAME line immediately below! |
---|
| 15 | .SH NAME |
---|
| 16 | source \- Evaluate a file or resource as a Tcl script |
---|
| 17 | .SH SYNOPSIS |
---|
| 18 | \fBsource \fIfileName\fR |
---|
| 19 | .sp |
---|
| 20 | .VS 8.5 |
---|
| 21 | \fBsource\fR \fB\-encoding \fIencodingName fileName\fR |
---|
| 22 | .VE 8.5 |
---|
| 23 | .BE |
---|
| 24 | .SH DESCRIPTION |
---|
| 25 | .PP |
---|
| 26 | This command takes the contents of the specified file or resource |
---|
| 27 | and passes it to the Tcl interpreter as a text script. The return |
---|
| 28 | value from \fBsource\fR is the return value of the last command |
---|
| 29 | executed in the script. If an error occurs in evaluating the contents |
---|
| 30 | of the script then the \fBsource\fR command will return that error. |
---|
| 31 | If a \fBreturn\fR command is invoked from within the script then the |
---|
| 32 | remainder of the file will be skipped and the \fBsource\fR command |
---|
| 33 | will return normally with the result from the \fBreturn\fR command. |
---|
| 34 | .PP |
---|
| 35 | The end-of-file character for files is |
---|
| 36 | .QW \e32 |
---|
| 37 | (^Z) for all platforms. |
---|
| 38 | The source command will read files up to this character. This |
---|
| 39 | restriction does not exist for the \fBread\fR or \fBgets\fR commands, |
---|
| 40 | allowing for files containing code and data segments (scripted documents). |
---|
| 41 | If you require a |
---|
| 42 | .QW ^Z |
---|
| 43 | in code for string comparison, you can use |
---|
| 44 | .QW \e032 |
---|
| 45 | or |
---|
| 46 | .QW \eu001a , |
---|
| 47 | which will be safely substituted by the Tcl interpreter into |
---|
| 48 | .QW ^Z . |
---|
| 49 | .PP |
---|
| 50 | .VS 8.5 |
---|
| 51 | The \fB\-encoding\fR option is used to specify the encoding of |
---|
| 52 | the data stored in \fIfileName\fR. When the \fB\-encoding\fR option |
---|
| 53 | is omitted, the system encoding is assumed. |
---|
| 54 | .VE 8.5 |
---|
| 55 | .SH EXAMPLE |
---|
| 56 | Run the script in the file \fBfoo.tcl\fR and then the script in the |
---|
| 57 | file \fBbar.tcl\fR: |
---|
| 58 | .CS |
---|
| 59 | \fBsource\fR foo.tcl |
---|
| 60 | \fBsource\fR bar.tcl |
---|
| 61 | .CE |
---|
| 62 | Alternatively: |
---|
| 63 | .CS |
---|
| 64 | foreach scriptFile {foo.tcl bar.tcl} { |
---|
| 65 | \fBsource\fR $scriptFile |
---|
| 66 | } |
---|
| 67 | .CE |
---|
| 68 | .SH "SEE ALSO" |
---|
| 69 | file(n), cd(n), encoding(n), info(n) |
---|
| 70 | .SH KEYWORDS |
---|
| 71 | file, script |
---|