home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _5e830e1b0ff87fb6f48b74d963d230f1 < prev    next >
Encoding:
Text File  |  2004-06-01  |  6.7 KB  |  207 lines
  1. #ifndef _LANG
  2. #define _LANG
  3.  
  4. #define STATIC_BUILD
  5.  
  6.  
  7. #ifdef bool
  8. #undef bool
  9. #endif
  10.  
  11. #include "tkConfig.h"
  12. #define TCL_NO_DEPRECATED
  13.  
  14. #if !defined(WIN32) && defined(USE_XFT_FONTS)
  15. #ifndef TCL_UTF_MAX
  16. #define TCL_UTF_MAX 13
  17. #endif
  18. #endif
  19.  
  20. #define USE_TCLALLOC 1
  21. #define TCL_MEM_DEBUG
  22. #define USE_COMPAT_CONST
  23. #include "tcl.h"
  24.  
  25. #if !defined(__GNUC__) && !defined(_AIX)
  26. #ifdef __STDC__
  27. #ifndef STRINGIFY
  28. #define STRINGIFY(x)        STRINGIFY1(x)
  29. #define STRINGIFY1(x)       #x
  30. #endif    /* STRINGIFY */
  31. #define __FUNCTION__ __FILE__ ":" STRINGIFY(__LINE__)
  32. #else     /* STDC */
  33. #define __FUNCTION__ ""
  34. #endif    /* STDC */
  35. #endif    /* GNUC or AIX */
  36.  
  37. EXTERN int    Tcl_DStringLength _ANSI_ARGS_((Tcl_DString *dString));
  38. EXTERN char *    Tcl_DStringValue _ANSI_ARGS_((Tcl_DString *dString));
  39.  
  40. EXTERN void    Tcl_IncrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr));
  41. EXTERN void    Tcl_DecrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr));
  42. EXTERN int    Tcl_IsShared _ANSI_ARGS_((Tcl_Obj *objPtr));
  43.  
  44. EXTERN Tcl_ObjType *    TclObjGetType _ANSI_ARGS_((Tcl_Obj *objPtr));
  45. EXTERN int        TclObjLength  _ANSI_ARGS_((Tcl_Obj *objPtr));
  46. EXTERN void        TclObjSetType _ANSI_ARGS_((Tcl_Obj *objPtr,Tcl_ObjType *newType));
  47. EXTERN Tcl_InternalRep *    TclObjInternal _ANSI_ARGS_((Tcl_Obj *objPtr));
  48.  
  49. #if defined(TCL_EVENT_IMPLEMENT) && !defined(Var)
  50. #include "mTk/tclGeneric/tclInt.h"
  51. #endif
  52. #if !defined(TCL_EVENT_IMPLEMENT) || defined(Var)
  53. #define _TCLINT
  54. typedef void *TclHandle;
  55. extern Tcl_ObjType    tclIntType;
  56. #endif
  57.  
  58. #ifndef Var
  59. #define Var Tcl_Obj *
  60. #endif
  61. #ifndef LangCallback
  62. #define LangCallback Tcl_Obj
  63. #endif
  64. #define LangStringArg(x) Tcl_NewStringObj(x,-1)
  65.  
  66. #define XFree_arg_t void
  67.  
  68. EXTERN void LangSetString _ANSI_ARGS_((Tcl_Obj **,CONST char *));
  69. EXTERN void LangSetDefault _ANSI_ARGS_((Tcl_Obj **,CONST char *));
  70. EXTERN void LangSetInt _ANSI_ARGS_((Tcl_Obj **,int));
  71. EXTERN void LangSetDouble _ANSI_ARGS_((Tcl_Obj **,double));
  72. EXTERN void LangSetObj _ANSI_ARGS_((Tcl_Obj **,Tcl_Obj *));
  73. EXTERN void LangSetVar _ANSI_ARGS_((Tcl_Obj **,Var));
  74.  
  75. EXTERN int  LangCmpArg  _ANSI_ARGS_((CONST Tcl_Obj *,CONST Tcl_Obj *));
  76. EXTERN int  LangCmpOpt  _ANSI_ARGS_((CONST char *opt,CONST char *arg,size_t length));
  77.  
  78.  
  79. /* FIXME:
  80.    Tk will set freeProc as for Tcl e.g. NULL for statics & UIDs
  81.    and to "free" for Tcl_Merge etc.
  82.    Non Tk users *may* be able to use it as a guide,
  83.    but it is more likely that they will have to use
  84.    their own ref counts.
  85.    Perhaps Tcl_Merge should set freeProc and/or Tcl's
  86.    LangSetString() deliberately malloc() a copy of the string so we don't need
  87.    the freeProc
  88. */
  89. EXTERN void LangFreeArg _ANSI_ARGS_((Tcl_Obj *,Tcl_FreeProc *freeProc));
  90. EXTERN Tcl_Obj *LangCopyArg _ANSI_ARGS_((Tcl_Obj *));
  91.  
  92. EXTERN int  LangNull _ANSI_ARGS_((Tcl_Obj *));
  93.  
  94. EXTERN void        TclpGetTime  _ANSI_ARGS_((Tcl_Time *time));
  95. EXTERN void        TclpAsyncMark _ANSI_ARGS_((Tcl_AsyncHandler async));
  96.  
  97. EXTERN void Lang_SetErrorCode _ANSI_ARGS_((Tcl_Interp *interp,char *code));
  98. EXTERN char *Lang_GetErrorCode _ANSI_ARGS_((Tcl_Interp *interp));
  99. EXTERN char *Lang_GetErrorInfo _ANSI_ARGS_((Tcl_Interp *interp));
  100.  
  101. /* Old-config handler for variables */
  102. EXTERN int LangSaveVar _ANSI_ARGS_((Tcl_Interp *,Tcl_Obj *,Var *,int type));
  103. EXTERN void LangFreeVar _ANSI_ARGS_((Var));
  104.  
  105. /* New-config handler for objects, variables and callbacks */
  106. EXTERN int LangConfigObj _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj **save,
  107.                       Tcl_Obj *obj, int type));
  108.  
  109. EXTERN int LangEventHook _ANSI_ARGS_((int flags));
  110. EXTERN void Lang_BuildInImages _ANSI_ARGS_((void));
  111. EXTERN void *    TclCalloc _ANSI_ARGS_((size_t n,size_t s));
  112. EXTERN void LangDebug _ANSI_ARGS_((CONST char *fmt,...));
  113. EXTERN void LangDumpVec _ANSI_ARGS_((CONST char *tag, int argc, Tcl_Obj **vec));
  114.  
  115. EXTERN void Lang_DeleteObject _ANSI_ARGS_((Tcl_Interp *,Tcl_Command));
  116. EXTERN Tcl_Command    Lang_CreateObject _ANSI_ARGS_((Tcl_Interp *interp,
  117.                 char *cmdName, Tcl_ObjCmdProc *proc,
  118.                 ClientData clientData,
  119.                 Tcl_CmdDeleteProc *deleteProc));
  120.  
  121. EXTERN int Lang_CallWithArgs _ANSI_ARGS_ ((Tcl_Interp *interp,
  122.                     char *sub, int argc, Tcl_Obj *CONST *argv));
  123.  
  124. EXTERN void        Tcl_IntResults _ANSI_ARGS_((Tcl_Interp *interp,int,int,...));
  125. EXTERN void        Tcl_DoubleResults _ANSI_ARGS_((Tcl_Interp *interp,int,int,...));
  126. EXTERN void        Tcl_SprintfResult _ANSI_ARGS_((Tcl_Interp *,char *,...));
  127.  
  128.  
  129.  
  130. EXTERN int LangDoCallback _ANSI_ARGS_((Tcl_Interp *,LangCallback *,int result,int argc,...));
  131. EXTERN int LangMethodCall _ANSI_ARGS_((Tcl_Interp *,Tcl_Obj *,char *,int result,int argc,...));
  132.  
  133. EXTERN char *LangLibraryDir _ANSI_ARGS_((void));
  134. EXTERN void Lang_SetBinaryResult _ANSI_ARGS_((Tcl_Interp *interp,
  135.                 char *string, int len, Tcl_FreeProc *freeProc));
  136. EXTERN Tcl_ObjCmdProc *LangOptionCommand;
  137.  
  138. typedef char *(Lang_VarTraceProc) _ANSI_ARGS_((ClientData clientData,
  139.     Tcl_Interp *interp, Tcl_Obj *part1, CONST char *part2, int flags));
  140.  
  141. EXTERN Tcl_Encoding    Lang_CreateEncoding _ANSI_ARGS_((
  142.     CONST char *encodingName,
  143.     Tcl_EncodingConvertProc *toUtfProc,
  144.     Tcl_EncodingConvertProc *fromUtfProc,
  145.     Tcl_EncodingFreeProc *freeProc,
  146.     ClientData clientData,
  147.     int nullSize));
  148.  
  149. EXTERN int        Tcl_AfterObjCmd _ANSI_ARGS_((ClientData clientData,
  150.                 Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]));
  151.  
  152.  
  153. EXTERN int        Lang_TraceVar _ANSI_ARGS_((Tcl_Interp * interp,
  154.                 Tcl_Obj *varRef, int flags,
  155.                 Lang_VarTraceProc * proc,
  156.                 ClientData clientData));
  157.  
  158. EXTERN void        Lang_UntraceVar _ANSI_ARGS_((Tcl_Interp * interp,
  159.                 Tcl_Obj * varRef, int flags,
  160.                 Lang_VarTraceProc * proc,
  161.                 ClientData clientData));
  162.  
  163. EXTERN int        Tk_PropertyCmd _ANSI_ARGS_((ClientData clientData,
  164.                 Tcl_Interp *interp, int argc, Tcl_Obj **objv));
  165.  
  166. struct TkFontAttributes;
  167.  
  168. EXTERN unsigned int     LangFontRank _ANSI_ARGS_((unsigned int suggested,
  169.                 int ch, CONST char *gotName,
  170.                 CONST char *wantFoundary,
  171.                 CONST struct TkFontAttributes *wantAttrib,
  172.                 CONST char *wantEncoding,
  173.                 CONST char *gotFoundary,
  174.                 CONST struct TkFontAttributes *gotAttrib,
  175.                 CONST char *gotEncoding));
  176.  
  177. EXTERN void        Lang_FreeRegExp _ANSI_ARGS_((Tcl_RegExp re));
  178.  
  179. EXTERN long Lang_OSHandle _ANSI_ARGS_((int fd));
  180. #define TK_LIBRARY LangLibraryDir()
  181.  
  182. #ifdef WIN32
  183. #ifdef __BORLANDC__
  184. #pragma warn -par    /* "parameter 'foo' is never used" */
  185. #pragma warn -aus    /* "'foo' is assigned a value that is never used" */
  186. #pragma warn -use    /* "'foo' is declared but never used" */
  187. #endif
  188.  
  189. #ifdef _MSC_VER
  190. #pragma warning(disable:4101 4102 4244 4018)
  191. #pragma warning(disable:4133) /* init incompatible for xlib */
  192. #endif
  193. #endif
  194.  
  195. #ifndef RC_INVOKED
  196. #include "tkEvent.h"
  197. #if !defined(TCL_EVENT_IMPLEMENT)
  198. #include "tkEvent.m"
  199. #endif
  200. #endif
  201.  
  202. #endif /* _LANG */
  203.  
  204.  
  205.  
  206.  
  207.