. ie !"\$2"" .TP \n()Cu
. el .TP 15
\$1 \\$2\ (\$3)
\$1 \\$2\ .\} \\$1\ .\} .\} .. ..
\h'-1.5n'\L'|\n(^yu-1v'\l'\n(^lu+3n\(ul'\L'\n(^tu+1v-\n(^yu'\l'|0u-1.5n\(ul' .\} \h'-1.5n'\L'|\n(^yu-1v'\h'\n(^lu+3n'\L'\n(^tu+1v-\n(^yu'\l'|0u-1.5n\(ul' .\} .\}
\h'|\n(^lu+3n'\L'|\n(^Yu-1v\(bv'\v'\n(^tu+1v-\n(^Yu'\h'-|\n(^lu+3n'.\} .. 'ti 0 'nf .\} \kx\h'-\nxu'\h'|\n(^lu+3n'\ky\L'-\n(^xu'\v'\n(^xu'\h'|0u'\c .\} 'fi .\} .\} ..
See the \options\ manual entry for details on the standard options. ..
Command-Line Name: \\$1\ Database Name: \\$2\ Database Class: \\$3\
.. \$1\l'|0\(ul'\$2 ....
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 ``\ 32'' or ``\u001a'', which will be safely substituted by the Tcl interpreter into ``^Z''.
The -rsrc and -rsrcid forms of this command are only available on Macintosh computers. These versions of the command allow you to source a script from a TEXT resource. You may specify what TEXT resource to source by either name or id. By default Tcl searches all open resource files, which include the current application and any loaded C extensions. Alternatively, you may specify the fileName where the TEXT resource can be found.