diff options
| author | dgp <dgp@users.sourceforge.net> | 2006-02-08 21:41:27 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2006-02-08 21:41:27 (GMT) |
| commit | c02df4db03405fcafcc2112fb34211157748e459 (patch) | |
| tree | feaabb969de44d4d6c82c59dab708581780f8666 /generic/tclIntDecls.h | |
| parent | 828b7e282d4e1591be7f44c77c513ed0bf170b06 (diff) | |
| download | tcl-c02df4db03405fcafcc2112fb34211157748e459.zip tcl-c02df4db03405fcafcc2112fb34211157748e459.tar.gz tcl-c02df4db03405fcafcc2112fb34211157748e459.tar.bz2 | |
TIP#258 IMPLEMENTATION
* doc/Encoding.3: New subcommand [encoding dirs].
* doc/encoding.n: New routine Tcl_GetEncodingNameFromEnvironment.
* generic/tcl.decls: Made public:
* generic/tclBasic.c: TclGetEncodingFromObj
* generic/tclCmdAH.c: -> Tcl_GetEncodingFromObj
* generic/tclEncoding.c:TclGetEncodingSearchPath
* generic/tclInt.decls: -> Tcl_GetEncodingSearchPath
* generic/tclInt.h: TclSetEncodingSearchPath
* generic/tclTest.c: -> Tcl_SetEncodingSearchPath
* library/init.tcl: Removed commands:
* tests/cmdAH.test: [tcl::unsupported::EncodingDirs]
* tests/encoding.test: [testencoding path] (Tcltest)
* unix/tclUnixInit.c: [Patch 1413934].
* win/tclWinInit.c:
* generic/tclDecls.h: make genstubs
* generic/tclIntDecls.h:
* generic/tclStubInit.c:
Diffstat (limited to 'generic/tclIntDecls.h')
| -rw-r--r-- | generic/tclIntDecls.h | 43 |
1 files changed, 10 insertions, 33 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index 5df62d5..2eeaa4d 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIntDecls.h,v 1.85 2005/12/13 22:43:18 kennykb Exp $ + * RCS: @(#) $Id: tclIntDecls.h,v 1.86 2006/02/08 21:41:27 dgp Exp $ */ #ifndef _TCLINTDECLS @@ -988,23 +988,9 @@ EXTERN int TclpObjAccess _ANSI_ARGS_((Tcl_Obj * pathPtr, EXTERN Tcl_Channel TclpOpenFileChannel _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * pathPtr, int mode, int permissions)); #endif -#ifndef TclGetEncodingSearchPath_TCL_DECLARED -#define TclGetEncodingSearchPath_TCL_DECLARED -/* 209 */ -EXTERN Tcl_Obj * TclGetEncodingSearchPath _ANSI_ARGS_((void)); -#endif -#ifndef TclSetEncodingSearchPath_TCL_DECLARED -#define TclSetEncodingSearchPath_TCL_DECLARED -/* 210 */ -EXTERN int TclSetEncodingSearchPath _ANSI_ARGS_(( - Tcl_Obj * searchPath)); -#endif -#ifndef TclpGetEncodingNameFromEnvironment_TCL_DECLARED -#define TclpGetEncodingNameFromEnvironment_TCL_DECLARED -/* 211 */ -EXTERN CONST char * TclpGetEncodingNameFromEnvironment _ANSI_ARGS_(( - Tcl_DString * bufPtr)); -#endif +/* Slot 209 is reserved */ +/* Slot 210 is reserved */ +/* Slot 211 is reserved */ #ifndef TclpFindExecutable_TCL_DECLARED #define TclpFindExecutable_TCL_DECLARED /* 212 */ @@ -1291,9 +1277,9 @@ typedef struct TclIntStubs { int (*tclpObjStat) _ANSI_ARGS_((Tcl_Obj * pathPtr, Tcl_StatBuf * buf)); /* 206 */ int (*tclpObjAccess) _ANSI_ARGS_((Tcl_Obj * pathPtr, int mode)); /* 207 */ Tcl_Channel (*tclpOpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * pathPtr, int mode, int permissions)); /* 208 */ - Tcl_Obj * (*tclGetEncodingSearchPath) _ANSI_ARGS_((void)); /* 209 */ - int (*tclSetEncodingSearchPath) _ANSI_ARGS_((Tcl_Obj * searchPath)); /* 210 */ - CONST char * (*tclpGetEncodingNameFromEnvironment) _ANSI_ARGS_((Tcl_DString * bufPtr)); /* 211 */ + void *reserved209; + void *reserved210; + void *reserved211; void (*tclpFindExecutable) _ANSI_ARGS_((CONST char * argv0)); /* 212 */ Tcl_Obj * (*tclGetObjNameOfExecutable) _ANSI_ARGS_((void)); /* 213 */ void (*tclSetObjNameOfExecutable) _ANSI_ARGS_((Tcl_Obj * name, Tcl_Encoding encoding)); /* 214 */ @@ -1971,18 +1957,9 @@ extern TclIntStubs *tclIntStubsPtr; #define TclpOpenFileChannel \ (tclIntStubsPtr->tclpOpenFileChannel) /* 208 */ #endif -#ifndef TclGetEncodingSearchPath -#define TclGetEncodingSearchPath \ - (tclIntStubsPtr->tclGetEncodingSearchPath) /* 209 */ -#endif -#ifndef TclSetEncodingSearchPath -#define TclSetEncodingSearchPath \ - (tclIntStubsPtr->tclSetEncodingSearchPath) /* 210 */ -#endif -#ifndef TclpGetEncodingNameFromEnvironment -#define TclpGetEncodingNameFromEnvironment \ - (tclIntStubsPtr->tclpGetEncodingNameFromEnvironment) /* 211 */ -#endif +/* Slot 209 is reserved */ +/* Slot 210 is reserved */ +/* Slot 211 is reserved */ #ifndef TclpFindExecutable #define TclpFindExecutable \ (tclIntStubsPtr->tclpFindExecutable) /* 212 */ |