diff options
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/Tk/pTk/Lang.h')
-rw-r--r-- | Master/tlpkg/tlperl/site/lib/Tk/pTk/Lang.h | 202 |
1 files changed, 0 insertions, 202 deletions
diff --git a/Master/tlpkg/tlperl/site/lib/Tk/pTk/Lang.h b/Master/tlpkg/tlperl/site/lib/Tk/pTk/Lang.h deleted file mode 100644 index b09cede6bfb..00000000000 --- a/Master/tlpkg/tlperl/site/lib/Tk/pTk/Lang.h +++ /dev/null @@ -1,202 +0,0 @@ -#ifndef _LANG -#define _LANG - -#define STATIC_BUILD - - -#include "tkConfig.h" -#define TCL_NO_DEPRECATED - -#if !defined(WIN32) && defined(USE_XFT_FONTS) -#ifndef TCL_UTF_MAX -#define TCL_UTF_MAX 13 -#endif -#endif - -#define USE_TCLALLOC 1 -#define TCL_MEM_DEBUG -#define USE_COMPAT_CONST -#include "tcl.h" - -#if !defined(__GNUC__) && !defined(_AIX) -#ifdef __STDC__ -#ifndef STRINGIFY -#define STRINGIFY(x) STRINGIFY1(x) -#define STRINGIFY1(x) #x -#endif /* STRINGIFY */ -#define __FUNCTION__ __FILE__ ":" STRINGIFY(__LINE__) -#else /* STDC */ -#define __FUNCTION__ "" -#endif /* STDC */ -#endif /* GNUC or AIX */ - -EXTERN int Tcl_DStringLength _ANSI_ARGS_((Tcl_DString *dString)); -EXTERN char * Tcl_DStringValue _ANSI_ARGS_((Tcl_DString *dString)); - -EXTERN void Tcl_IncrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr)); -EXTERN void Tcl_DecrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr)); -EXTERN int Tcl_IsShared _ANSI_ARGS_((Tcl_Obj *objPtr)); - -EXTERN Tcl_ObjType * TclObjGetType _ANSI_ARGS_((Tcl_Obj *objPtr)); -EXTERN int TclObjLength _ANSI_ARGS_((Tcl_Obj *objPtr)); -EXTERN void TclObjSetType _ANSI_ARGS_((Tcl_Obj *objPtr,Tcl_ObjType *newType)); -EXTERN Tcl_InternalRep * TclObjInternal _ANSI_ARGS_((Tcl_Obj *objPtr)); - -#if defined(TCL_EVENT_IMPLEMENT) && !defined(Var) -#include "mTk/tclGeneric/tclInt.h" -#endif -#if !defined(TCL_EVENT_IMPLEMENT) || defined(Var) -#define _TCLINT -typedef void *TclHandle; -extern Tcl_ObjType tclIntType; -#endif - -#ifndef Var -#define Var Tcl_Obj * -#endif -#ifndef LangCallback -#define LangCallback Tcl_Obj -#endif -#define LangStringArg(x) Tcl_NewStringObj(x,-1) - -#define XFree_arg_t void - -EXTERN void LangSetString _ANSI_ARGS_((Tcl_Obj **,CONST char *)); -EXTERN void LangSetDefault _ANSI_ARGS_((Tcl_Obj **,CONST char *)); -EXTERN void LangSetInt _ANSI_ARGS_((Tcl_Obj **,int)); -EXTERN void LangSetDouble _ANSI_ARGS_((Tcl_Obj **,double)); -EXTERN void LangSetObj _ANSI_ARGS_((Tcl_Obj **,Tcl_Obj *)); -EXTERN void LangSetVar _ANSI_ARGS_((Tcl_Obj **,Var)); - -EXTERN int LangCmpArg _ANSI_ARGS_((CONST Tcl_Obj *,CONST Tcl_Obj *)); -EXTERN int LangCmpOpt _ANSI_ARGS_((CONST char *opt,CONST char *arg,size_t length)); - - -/* FIXME: - Tk will set freeProc as for Tcl e.g. NULL for statics & UIDs - and to "free" for Tcl_Merge etc. - Non Tk users *may* be able to use it as a guide, - but it is more likely that they will have to use - their own ref counts. - Perhaps Tcl_Merge should set freeProc and/or Tcl's - LangSetString() deliberately malloc() a copy of the string so we don't need - the freeProc -*/ -EXTERN void LangFreeArg _ANSI_ARGS_((Tcl_Obj *,Tcl_FreeProc *freeProc)); -EXTERN Tcl_Obj *LangCopyArg _ANSI_ARGS_((Tcl_Obj *)); - -EXTERN int LangNull _ANSI_ARGS_((Tcl_Obj *)); - -EXTERN void TclpGetTime _ANSI_ARGS_((Tcl_Time *time)); -EXTERN void TclpAsyncMark _ANSI_ARGS_((Tcl_AsyncHandler async)); - -EXTERN void Lang_SetErrorCode _ANSI_ARGS_((Tcl_Interp *interp,char *code)); -EXTERN char *Lang_GetErrorCode _ANSI_ARGS_((Tcl_Interp *interp)); -EXTERN char *Lang_GetErrorInfo _ANSI_ARGS_((Tcl_Interp *interp)); - -/* Old-config handler for variables */ -EXTERN int LangSaveVar _ANSI_ARGS_((Tcl_Interp *,Tcl_Obj *,Var *,int type)); -EXTERN void LangFreeVar _ANSI_ARGS_((Var)); - -/* New-config handler for objects, variables and callbacks */ -EXTERN int LangConfigObj _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj **save, - Tcl_Obj *obj, int type)); - -EXTERN int LangEventHook _ANSI_ARGS_((int flags)); -EXTERN void Lang_BuildInImages _ANSI_ARGS_((void)); -EXTERN void * TclCalloc _ANSI_ARGS_((size_t n,size_t s)); -EXTERN void LangDebug _ANSI_ARGS_((CONST char *fmt,...)); -EXTERN void LangDumpVec _ANSI_ARGS_((CONST char *tag, int argc, Tcl_Obj **vec)); - -EXTERN void Lang_DeleteObject _ANSI_ARGS_((Tcl_Interp *,Tcl_Command)); -EXTERN Tcl_Command Lang_CreateObject _ANSI_ARGS_((Tcl_Interp *interp, - char *cmdName, Tcl_ObjCmdProc *proc, - ClientData clientData, - Tcl_CmdDeleteProc *deleteProc)); - -EXTERN int Lang_CallWithArgs _ANSI_ARGS_ ((Tcl_Interp *interp, - char *sub, int argc, Tcl_Obj *CONST *argv)); - -EXTERN void Tcl_IntResults _ANSI_ARGS_((Tcl_Interp *interp,int,int,...)); -EXTERN void Tcl_DoubleResults _ANSI_ARGS_((Tcl_Interp *interp,int,int,...)); -EXTERN void Tcl_SprintfResult _ANSI_ARGS_((Tcl_Interp *,char *,...)); - - - -EXTERN int LangDoCallback _ANSI_ARGS_((Tcl_Interp *,LangCallback *,int result,int argc,...)); -EXTERN int LangMethodCall _ANSI_ARGS_((Tcl_Interp *,Tcl_Obj *,char *,int result,int argc,...)); - -EXTERN char *LangLibraryDir _ANSI_ARGS_((void)); -EXTERN void Lang_SetBinaryResult _ANSI_ARGS_((Tcl_Interp *interp, - char *string, int len, Tcl_FreeProc *freeProc)); -EXTERN Tcl_ObjCmdProc *LangOptionCommand; - -typedef char *(Lang_VarTraceProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, Tcl_Obj *part1, CONST char *part2, int flags)); - -EXTERN Tcl_Encoding Lang_CreateEncoding _ANSI_ARGS_(( - CONST char *encodingName, - Tcl_EncodingConvertProc *toUtfProc, - Tcl_EncodingConvertProc *fromUtfProc, - Tcl_EncodingFreeProc *freeProc, - ClientData clientData, - int nullSize)); - -EXTERN int Tcl_AfterObjCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); - - -EXTERN int Lang_TraceVar _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj *varRef, int flags, - Lang_VarTraceProc * proc, - ClientData clientData)); - -EXTERN void Lang_UntraceVar _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * varRef, int flags, - Lang_VarTraceProc * proc, - ClientData clientData)); - -EXTERN int Tk_PropertyCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, Tcl_Obj **objv)); - -struct TkFontAttributes; - -EXTERN unsigned int LangFontRank _ANSI_ARGS_((unsigned int suggested, - int ch, CONST char *gotName, - CONST char *wantFoundary, - CONST struct TkFontAttributes *wantAttrib, - CONST char *wantEncoding, - CONST char *gotFoundary, - CONST struct TkFontAttributes *gotAttrib, - CONST char *gotEncoding)); - -EXTERN void Lang_FreeRegExp _ANSI_ARGS_((Tcl_RegExp re)); - -EXTERN long Lang_OSHandle _ANSI_ARGS_((int fd)); -#define TK_LIBRARY LangLibraryDir() - -#ifdef WIN32 -#ifdef __BORLANDC__ -#pragma warn -par /* "parameter 'foo' is never used" */ -#pragma warn -aus /* "'foo' is assigned a value that is never used" */ -#pragma warn -use /* "'foo' is declared but never used" */ -#endif - -#ifdef _MSC_VER -#pragma warning(disable:4101 4102 4244 4018) -#pragma warning(disable:4133) /* init incompatible for xlib */ -#endif -#endif - -#ifndef RC_INVOKED -#include "tkEvent.h" -#if !defined(TCL_EVENT_IMPLEMENT) -#include "tkEvent.m" -#endif -#endif - -#endif /* _LANG */ - - - - |