diff options
Diffstat (limited to 'generic/tclInt.decls')
-rw-r--r-- | generic/tclInt.decls | 74 |
1 files changed, 19 insertions, 55 deletions
diff --git a/generic/tclInt.decls b/generic/tclInt.decls index 924b45c..2ea5f18 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.decls @@ -10,7 +10,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.2.4.2 1999/03/09 02:37:15 stanton Exp $ +# RCS: @(#) $Id: tclInt.decls,v 1.2.4.3 1999/03/10 06:41:50 stanton Exp $ library tcl @@ -496,82 +496,37 @@ declare 131 generic { Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, \ Tcl_ResolveCompiledVarProc *compiledVarProc) } - -# Compilation procedures for commands in the generic core: - -# Signature changed in 8.1: -# declare 132 generic { -# int TclCompileBreakCmd(Tcl_Interp *interp, char *string, char *lastChar, \ -# int compileFlags, struct CompileEnv *compileEnvPtr) -# } -# declare 133 generic { -# int TclCompileCatchCmd(Tcl_Interp *interp, char *string, char *lastChar, \ -# int compileFlags, struct CompileEnv *compileEnvPtr) -# } -# declare 134 generic { -# int TclCompileContinueCmd(Tcl_Interp *interp, char *string, \ -# char *lastChar, int compileFlags, struct CompileEnv *compileEnvPtr) -# } -# declare 135 generic { -# int TclCompileExprCmd(Tcl_Interp *interp, char *string, char *lastChar, \ -# int compileFlags, struct CompileEnv *compileEnvPtr) -# } -# declare 136 generic { -# int TclCompileForCmd(Tcl_Interp *interp, char *string, char *lastChar, \ -# int compileFlags, struct CompileEnv *compileEnvPtr) -# } -# declare 137 generic { -# int TclCompileForeachCmd(Tcl_Interp *interp, char *string, \ -# char *lastChar, int compileFlags, struct CompileEnv *compileEnvPtr) -# } -# declare 138 generic { -# int TclCompileIfCmd(Tcl_Interp *interp, char *string, char *lastChar, \ -# int compileFlags, struct CompileEnv *compileEnvPtr) -# } -# declare 139 generic { -# int TclCompileIncrCmd(Tcl_Interp *interp, char *string, char *lastChar, \ -# int compileFlags, struct CompileEnv *compileEnvPtr) -# } -# declare 140 generic { -# int TclCompileSetCmd(Tcl_Interp *interp, char *string, char *lastChar, \ -# int compileFlags, struct CompileEnv *compileEnvPtr) -# } -# declare 141 generic { -# int TclCompileWhileCmd(Tcl_Interp *interp, char *string, char *lastChar, \ -# int compileFlags, struct CompileEnv *compileEnvPtr) -# } - -declare 142 generic { +declare 132 generic { int TclpHasSockets(Tcl_Interp *interp) } -declare 143 generic { +declare 133 generic { struct tm * TclpGetDate(TclpTime_t time, int useGMT) } -declare 144 generic { +declare 134 generic { size_t TclpStrftime(char *s, size_t maxsize, const char *format, \ const struct tm *t) } -declare 145 generic { +declare 135 generic { int TclpCheckStackSpace(void) } # Added in 8.1: -declare 146 generic { +declare 136 generic { char * Tcl_GetString(Tcl_Obj *objPtr) } -declare 147 generic { +declare 137 generic { int TclpChdir(CONST char *dirName) } -declare 148 generic { +declare 138 generic { char * TclGetEnv(CONST char *name, Tcl_DString *valuePtr) } -declare 149 generic { +declare 139 generic { int TclpLoadFile(Tcl_Interp *interp, char *fileName, char *sym1, \ char *sym2, Tcl_PackageInitProc **proc1Ptr, \ Tcl_PackageInitProc **proc2Ptr, ClientData *clientDataPtr) } -declare 150 generic { +declare 140 generic { int TclLooksLikeInt(char *bytes, int length) } @@ -770,6 +725,15 @@ declare 20 win { declare 21 win { char * TclpGetTZName(int isdst) } +declare 22 win { + char * TclWinNoBackslash(char *path) +} +declare 23 win { + TCHAR * Tcl_WinUtfToTChar(CONST char *string, int len, Tcl_DString *dsPtr) +} +declare 24 win { + char * Tcl_WinTCharToUtf(CONST TCHAR *string, int len, Tcl_DString *dsPtr) +} ######################### # Unix specific internals |