TclPlatStubs - tcl/tkコードリーディング

概要

サポートされなくなった関数
tcl/generic/tclDecls.h

メンバー

• int magic;
• struct TclPlatStubHooks *hooks; ??ソース見つからず
• TCHAR * (*tcl_WinUtfToTChar) (CONST char *str, int len, Tcl_DString *dsPtr); /* 0 */ 文字変換関数へのポインタ？
• char * (*tcl_WinTCharToUtf) (CONST TCHAR *str, int len, Tcl_DString *dsPtr); /* 1 */ 文字変換関数へのポインタ？

ソース

typedef struct TclPlatStubs {

   int magic;
   struct TclPlatStubHooks *hooks;

#ifdef

__WIN32__ /* WIN */

   TCHAR * (*tcl_WinUtfToTChar) (CONST char *str, int len, Tcl_DString *dsPtr); /* 0 */
   char * (*tcl_WinTCharToUtf) (CONST TCHAR *str, int len, Tcl_DString *dsPtr); /* 1 */

#endif

/* WIN */

#ifdef

MAC_OSX_TCL /* MACOSX */

   int (*tcl_MacOSXOpenBundleResources) ([[Tcl_Interp]] *interp, CONST char *bundleName, int hasResourceFile, int maxPathLen, char *libraryPath); /* 0 */
   int (*tcl_MacOSXOpenVersionedBundleResources) (Tcl_Interp *interp, CONST char *bundleName, CONST char *bundleVersion, int hasResourceFile, int maxPathLen, char *libraryPath); /* 1 */

#endif

/* MACOSX */
} TclPlatStubs;