123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217 |
- /*
- * tkMacOSXPort.h --
- *
- * This file is included by all of the Tk C files. It contains
- * information that may be configuration-dependent, such as
- * #includes for system include files and a few other things.
- *
- * Copyright (c) 1994-1996 Sun Microsystems, Inc.
- * Copyright 2001-2009, Apple Inc.
- * Copyright (c) 2005-2009 Daniel A. Steffen <das@users.sourceforge.net>
- *
- * See the file "license.terms" for information on usage and redistribution
- * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
- */
- #ifndef _TKMACPORT
- #define _TKMACPORT
- #include <stdio.h>
- #include <pwd.h>
- #include <assert.h>
- #include <errno.h>
- #include <fcntl.h>
- #include <ctype.h>
- #include <math.h>
- #include <string.h>
- #include <limits.h>
- #include <stdlib.h>
- #include <sys/types.h>
- #include <sys/file.h>
- #ifdef HAVE_SYS_SELECT_H
- # include <sys/select.h>
- #endif
- #include <sys/stat.h>
- #ifndef _TCL
- # include <tcl.h>
- #endif
- #if TIME_WITH_SYS_TIME
- # include <sys/time.h>
- # include <time.h>
- #else
- # if HAVE_SYS_TIME_H
- # include <sys/time.h>
- # else
- # include <time.h>
- # endif
- #endif
- #if HAVE_INTTYPES_H
- # include <inttypes.h>
- #endif
- #include <unistd.h>
- #if defined(__GNUC__) && !defined(__cplusplus)
- # pragma GCC diagnostic ignored "-Wc++-compat"
- #endif
- #include <X11/Xlib.h>
- #include <X11/cursorfont.h>
- #include <X11/keysym.h>
- #include <X11/Xatom.h>
- #include <X11/Xfuncproto.h>
- #include <X11/Xutil.h>
- /*
- * The following macro defines the type of the mask arguments to
- * select:
- */
- #ifndef NO_FD_SET
- # define SELECT_MASK fd_set
- #else
- # ifndef _AIX
- typedef long fd_mask;
- # endif
- # if defined(_IBMR2)
- # define SELECT_MASK void
- # else
- # define SELECT_MASK int
- # endif
- #endif
- /*
- * Used to tag functions that are only to be visible within the module being
- * built and not outside it (where this is supported by the linker).
- */
- #ifndef MODULE_SCOPE
- # ifdef __cplusplus
- # define MODULE_SCOPE extern "C"
- # else
- # define MODULE_SCOPE extern
- # endif
- #endif
- /*
- * The following macro defines the number of fd_masks in an fd_set:
- */
- #ifndef FD_SETSIZE
- # ifdef OPEN_MAX
- # define FD_SETSIZE OPEN_MAX
- # else
- # define FD_SETSIZE 256
- # endif
- #endif
- #if !defined(howmany)
- # define howmany(x, y) (((x)+((y)-1))/(y))
- #endif
- #ifndef NFDBITS
- # define NFDBITS NBBY*sizeof(fd_mask)
- #endif
- #define MASK_SIZE howmany(FD_SETSIZE, NFDBITS)
- /*
- * Define "NBBY" (number of bits per byte) if it's not already defined.
- */
- #ifndef NBBY
- # define NBBY 8
- #endif
- /*
- * The following define causes Tk to use its internal keysym hash table
- */
- #define REDO_KEYSYM_LOOKUP
- /*
- * Defines for X functions that are used by Tk but are treated as
- * no-op functions on the Macintosh.
- */
- #undef XFlush
- #define XFlush(display) (0)
- #undef XFree
- #define XFree(data) (((data) != NULL) ? (ckfree(data),0) : 0)
- #undef XGrabServer
- #define XGrabServer(display) (0)
- #undef XNoOp
- #define XNoOp(display) (display->request++,0)
- #undef XUngrabServer
- #define XUngrabServer(display) (0)
- #undef XSynchronize
- #define XSynchronize(display, onoff) (display->request++,NULL)
- #undef XVisualIDFromVisual
- #define XVisualIDFromVisual(visual) (visual->visualid)
- /*
- * The following functions are not used on the Mac, so we stub them out.
- */
- #define TkpCmapStressed(tkwin,colormap) (0)
- #define TkpFreeColor(tkColPtr)
- #define TkSetPixmapColormap(p,c) {}
- #define TkpSync(display)
- /*
- * TkMacOSXGetCapture is a legacy function used on the Mac. When fixing
- * [943d5ebe51], TkpGetCapture was added to the Windows port. Both
- * are actually the same feature and should bear the same name. However,
- * in order to avoid potential backwards incompatibilities, renaming
- * TkMacOSXGetCapture into TkpGetCapture in *PlatDecls.h shall not be
- * done in a patch release, therefore use a define here.
- */
- #define TkpGetCapture TkMacOSXGetCapture
- /*
- * This macro stores a representation of the window handle in a string.
- */
- #define TkpPrintWindowId(buf,w) \
- sprintf((buf), "0x%lx", (unsigned long) (w))
- /*
- * Turn off Tk double-buffering as Aqua windows are already double-buffered.
- */
- #define TK_NO_DOUBLE_BUFFERING 1
- #define TK_HAS_DYNAMIC_COLORS 1
- #define TK_DYNAMIC_COLORMAP 0x0fffffff
- /*
- * Inform tkImgPhInstance.c that we implement TkpPutRGBAImage to render RGBA
- * images directly into a window.
- */
- #define TK_CAN_RENDER_RGBA
- MODULE_SCOPE int TkpPutRGBAImage(
- Display* display, Drawable drawable, GC gc,XImage* image,
- int src_x, int src_y, int dest_x, int dest_y,
- unsigned int width, unsigned int height);
- /*
- * Used by xcolor.c
- */
- MODULE_SCOPE unsigned long TkMacOSXRGBPixel(unsigned long red, unsigned long green,
- unsigned long blue);
- #define TkpGetPixel(p) (TkMacOSXRGBPixel(p->red >> 8, p->green >> 8, p->blue >> 8))
- /*
- * Used by tkWindow.c
- */
- MODULE_SCOPE void TkMacOSXHandleMapOrUnmap(Tk_Window tkwin, XEvent *event);
- #define TkpHandleMapOrUnmap(tkwin, event) TkMacOSXHandleMapOrUnmap(tkwin, event)
- /*
- * Used by tkAppInit
- */
- #define USE_CUSTOM_EXIT_PROC
- EXTERN int TkpWantsExitProc(void);
- EXTERN TCL_NORETURN void TkpExitProc(void *);
- #endif /* _TKMACPORT */
|