diff options
author | dgp <dgp@noemail.net> | 2002-01-05 22:55:50 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2002-01-05 22:55:50 (GMT) |
commit | ea8142320581e8a8cedaa242c5e520d120a83b4e (patch) | |
tree | 079d4ac0f5133b723b4406e3605a8ba6b18c5aab /generic/tclInt.decls | |
parent | c6d5d3000556744273ad6fbbcc5b6cd0bfa45ff4 (diff) | |
download | tcl-ea8142320581e8a8cedaa242c5e520d120a83b4e.zip tcl-ea8142320581e8a8cedaa242c5e520d120a83b4e.tar.gz tcl-ea8142320581e8a8cedaa242c5e520d120a83b4e.tar.bz2 |
* doc/Tcl_Main.3:
* generic/tclMain.c: Substantial rewrite and expanded documentation
of Tcl_Main to correct a number of bugs and flaws:
* Interactive Tcl_Main can now enter a main loop, exit
that loop and continue interactive operations. The loop
may even exit in the midst of interactive command typing
without loss of the partial command. [Bugs 486453, 474131]
* Tcl_Main now gracefully handles deletion of its master
interpreter.
* Interactive Tcl_Main can now operate with non-blocking stdin
* Interactive Tcl_Main can now detect EOF on stdin even in
mid-command. [Bug 491341]
* Added VFS-aware internal routines for managing the
startup script selection.
* Tcl variable 'tcl_interactive' is now linked to C variable
'tty' so that one can disable/enable interactive prompts
at the script level when there is no startup script. This
is meant for use by the test suite.
* Consistent use of the Tcl libraries standard channels as
returned by Tcl_GetStdChannel(); as opposed to the channels
named 'stdin', 'stdout', and 'stderr' in the master interp,
which can be different or unavailable.
* Tcl_Main now calls Tcl_Exit() if evaluation of [exit] in the
master interpreter returns, assuring Tcl_Main does not return. * Documented Tcl_Main's absence from public stub table
* Documented that Tcl_Main does not return.
* Documented Tcl variables set by Tcl_Main.
* All prompts are done from a single procedure, Prompt.
* Use of Tcl_Obj-enabled interfaces everywhere.
* generic/tclInt.decls (TclGetStartupScriptPath,
TclSetStartupScriptPath): New internal VFS-aware routines for
managing the startup script of Tcl_Main.
* generic/tclIntDecls.h:
* generic/tclStubInit.c: make genstubs
* generic/tclTest.c (TestsetmainloopCmd,TestexitmainloopCmd,
Tcltest_Init,TestinterpdeleteCmd):
* tests/main.test (new): Added new file to test suite that
thoroughly tests generic/tclMain.c; added some new test commands
for testing Tcl_SetMainLoop().
FossilOrigin-Name: f24c18a585bae5d10dd0fcb587ac979f99d00370
Diffstat (limited to 'generic/tclInt.decls')
-rw-r--r-- | generic/tclInt.decls | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/generic/tclInt.decls b/generic/tclInt.decls index 23dfdd0..1b7915b 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.decls @@ -12,7 +12,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: tclInt.decls,v 1.38 2001/11/23 01:26:47 das Exp $ +# RCS: @(#) $Id: tclInt.decls,v 1.39 2002/01/05 22:55:51 dgp Exp $ library tcl @@ -611,10 +611,10 @@ declare 157 generic { Var * TclVarTraceExists (Tcl_Interp *interp, char *varName) } declare 158 generic { - void TclSetStartupScriptFileName(char *filename) + void TclSetStartupScriptFileName(CONST char *filename) } declare 159 generic { - char *TclGetStartupScriptFileName(void) + CONST char *TclGetStartupScriptFileName(void) } #declare 160 generic { # int TclpMatchFilesTypes(Tcl_Interp *interp, char *separators, \ @@ -660,6 +660,15 @@ declare 166 generic { Tcl_Obj* valuePtr ) } +# VFS-aware versions of Tcl*StartupScriptFileName (158 and 159 above) +declare 167 generic { + void TclSetStartupScriptPath(Tcl_Obj *pathPtr) +} +declare 168 generic { + Tcl_Obj *TclGetStartupScriptPath(void) +} + + ############################################################################## # Define the platform specific internal Tcl interface. These functions are |