summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/site/lib/Tk/pTk/Lang.h
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/Tk/pTk/Lang.h')
-rw-r--r--Master/tlpkg/tlperl/site/lib/Tk/pTk/Lang.h202
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 */
-
-
-
-