mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-26 11:52:25 +00:00
Reformat all C source files with Clang-format in Google style w/ 100 col width.
This commit is contained in:
Nick Briggs
236
src/xcursor.c
Executable file → Normal file
236
src/xcursor.c
Executable file → Normal file
@@ -1,8 +1,7 @@
|
||||
/* $Id: xcursor.c,v 1.4 2001/12/26 22:17:06 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
/* $Id: xcursor.c,v 1.4 2001/12/26 22:17:06 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved
|
||||
*/
|
||||
static char *id = "$Id: xcursor.c,v 1.4 2001/12/26 22:17:06 sybalsky Exp $ Copyright (C) Venue";
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-1995, 2000 Venue. */
|
||||
@@ -18,8 +17,6 @@ static char *id = "$Id: xcursor.c,v 1.4 2001/12/26 22:17:06 sybalsky Exp $ Copyr
|
||||
|
||||
#include "version.h"
|
||||
|
||||
|
||||
|
||||
#include <stdio.h>
|
||||
#if defined(MACOSX) || defined(FREEBSD)
|
||||
#include <stdlib.h>
|
||||
@@ -37,21 +34,15 @@ static char *id = "$Id: xcursor.c,v 1.4 2001/12/26 22:17:06 sybalsky Exp $ Copyr
|
||||
#include "dbprint.h"
|
||||
#include "devif.h"
|
||||
|
||||
extern IOPAGE *IOPage;
|
||||
extern IOPAGE *IOPage;
|
||||
|
||||
extern XGCValues gcv;
|
||||
extern int Lisp_Xinitialized
|
||||
, Bitmap_Pad
|
||||
, Default_Depth;
|
||||
extern int Lisp_Xinitialized, Bitmap_Pad, Default_Depth;
|
||||
|
||||
XImage CursorImage;
|
||||
Pixmap CursorPixmap_source
|
||||
, CursorPixmap_mask;
|
||||
GC cursor_source_gc
|
||||
, cursor_mask_gc;
|
||||
XColor cursor_fore_xcsd
|
||||
, cursor_back_xcsd
|
||||
, xced;
|
||||
Pixmap CursorPixmap_source, CursorPixmap_mask;
|
||||
GC cursor_source_gc, cursor_mask_gc;
|
||||
XColor cursor_fore_xcsd, cursor_back_xcsd, xced;
|
||||
extern Colormap Colors;
|
||||
|
||||
extern DspInterface currentdsp;
|
||||
@@ -72,9 +63,7 @@ int cursor_sw;
|
||||
/* ADD these to the positions we get in SetMouseXY calls. This */
|
||||
/* way, X and lisp agree where the mouse is */
|
||||
|
||||
int Current_Hot_X = 0,
|
||||
Current_Hot_Y = 0;
|
||||
|
||||
int Current_Hot_X = 0, Current_Hot_Y = 0;
|
||||
|
||||
void set_Xcursor(DspInterface, unsigned char *, int, int, Cursor *, int);
|
||||
|
||||
@@ -87,27 +76,18 @@ void set_Xcursor(DspInterface, unsigned char *, int, int, Cursor *, int);
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
void Init_XCursor()
|
||||
{
|
||||
void Init_XCursor() {
|
||||
int i;
|
||||
DLword *newbm = (DLword *) (IOPage->dlcursorbitmap);
|
||||
DLword *newbm = (DLword *)(IOPage->dlcursorbitmap);
|
||||
|
||||
TPRINT(( "TRACE: Init_DisplayCursor()\n" ));
|
||||
TPRINT(("TRACE: Init_DisplayCursor()\n"));
|
||||
/* this is guaranteed to be our first cursor, isn't it? */
|
||||
cursorlist = (struct MXCURSOR *) malloc(sizeof(struct MXCURSOR));
|
||||
cursorlist = (struct MXCURSOR *)malloc(sizeof(struct MXCURSOR));
|
||||
cursorlist->next = NULL;
|
||||
for(i=0; i<CURSORHEIGHT; i++)
|
||||
cursorlist->bitmap[i] = newbm[i];
|
||||
set_Xcursor( currentdsp, (unsigned char *)newbm, 0, 0, &(cursorlist->Xid), 1);
|
||||
DefineCursor(currentdsp->display_id,
|
||||
currentdsp->DisplayWindow,
|
||||
&(cursorlist->Xid));
|
||||
} /* end Init_XCursor */
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
for (i = 0; i < CURSORHEIGHT; i++) cursorlist->bitmap[i] = newbm[i];
|
||||
set_Xcursor(currentdsp, (unsigned char *)newbm, 0, 0, &(cursorlist->Xid), 1);
|
||||
DefineCursor(currentdsp->display_id, currentdsp->DisplayWindow, &(cursorlist->Xid));
|
||||
} /* end Init_XCursor */
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
@@ -124,62 +104,53 @@ void Init_XCursor()
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
void Set_XCursor( x, y )
|
||||
int x, y;
|
||||
void Set_XCursor(x, y) int x, y;
|
||||
{
|
||||
/* compare cursor in IOPage memory with cursors we've seen before */
|
||||
register struct MXCURSOR *clp, *clbp;
|
||||
register DLword *newbm = ((DLword *) (IOPage->dlcursorbitmap));
|
||||
register DLword *newbm = ((DLword *)(IOPage->dlcursorbitmap));
|
||||
register int i;
|
||||
|
||||
|
||||
XLOCK; /* No signals while setting the cursor */
|
||||
for(clp = cursorlist; clp != NULL; clbp = clp, clp = clp->next) {
|
||||
for(i=0; i< CURSORHEIGHT; i++)
|
||||
if(clp->bitmap[i] != newbm[i]) break;
|
||||
if(i == CURSORHEIGHT) break;
|
||||
XLOCK; /* No signals while setting the cursor */
|
||||
for (clp = cursorlist; clp != NULL; clbp = clp, clp = clp->next) {
|
||||
for (i = 0; i < CURSORHEIGHT; i++)
|
||||
if (clp->bitmap[i] != newbm[i]) break;
|
||||
if (i == CURSORHEIGHT) break;
|
||||
}
|
||||
|
||||
if(clp == NULL) { /* it isn't there, push on a new one */
|
||||
clp = (struct MXCURSOR *) malloc(sizeof (struct MXCURSOR));
|
||||
if (clp == NULL) { /* it isn't there, push on a new one */
|
||||
clp = (struct MXCURSOR *)malloc(sizeof(struct MXCURSOR));
|
||||
/* and fill it up with the current new cursor */
|
||||
for(i=0; i< CURSORHEIGHT; i++)
|
||||
clp->bitmap[i] = newbm[i];
|
||||
for (i = 0; i < CURSORHEIGHT; i++) clp->bitmap[i] = newbm[i];
|
||||
#ifdef NEWXCURSOR
|
||||
/* JDS 000521 Added "15-" to fix cursor troubles at window edge */
|
||||
set_Xcursor( currentdsp, (unsigned char *) newbm, x, 15-y, &(clp->Xid), 1);
|
||||
set_Xcursor(currentdsp, (unsigned char *)newbm, x, 15 - y, &(clp->Xid), 1);
|
||||
#else
|
||||
set_Xcursor( currentdsp, (unsigned char *) newbm, 0, 0, &(clp->Xid), 1);
|
||||
set_Xcursor(currentdsp, (unsigned char *)newbm, 0, 0, &(clp->Xid), 1);
|
||||
#endif /* NEWXCURSOR */
|
||||
clp->next = cursorlist;
|
||||
cursorlist = clp;
|
||||
} else
|
||||
/* found it, move it to the front of the list
|
||||
(this should reduce search time on the average by keeping
|
||||
the popular cursors near the front of the list)
|
||||
*/
|
||||
if (clp != cursorlist) { /* don't move if it's already there */
|
||||
clbp->next = clp->next;
|
||||
clp->next = cursorlist;
|
||||
cursorlist = clp;
|
||||
}
|
||||
else
|
||||
/* found it, move it to the front of the list
|
||||
(this should reduce search time on the average by keeping
|
||||
the popular cursors near the front of the list)
|
||||
*/
|
||||
if(clp != cursorlist) { /* don't move if it's already there */
|
||||
clbp->next = clp->next;
|
||||
clp->next = cursorlist;
|
||||
cursorlist = clp;
|
||||
}
|
||||
DefineCursor(currentdsp->display_id,
|
||||
currentdsp->DisplayWindow,
|
||||
&(clp->Xid));
|
||||
XUNLOCK; /* Signals OK now */
|
||||
DefineCursor(currentdsp->display_id, currentdsp->DisplayWindow, &(clp->Xid));
|
||||
XUNLOCK; /* Signals OK now */
|
||||
|
||||
#ifdef NEWXCURSOR
|
||||
/* Save the hotspot for later position reporting/setting */
|
||||
|
||||
Current_Hot_X = x;
|
||||
Current_Hot_Y = 15-y; /* Added 15- to fix window-edge trouble */
|
||||
#endif /* NEWXCURSOR */
|
||||
|
||||
} /* end Set_XCursor */
|
||||
|
||||
|
||||
Current_Hot_Y = 15 - y; /* Added 15- to fix window-edge trouble */
|
||||
#endif /* NEWXCURSOR */
|
||||
|
||||
} /* end Set_XCursor */
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
@@ -189,67 +160,63 @@ void Set_XCursor( x, y )
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
void init_Xcursor(display, window)
|
||||
Display *display;
|
||||
void init_Xcursor(display, window) Display *display;
|
||||
{
|
||||
TPRINT(("TRACE: init_Xcursor()\n"));
|
||||
|
||||
TPRINT(( "TRACE: init_Xcursor()\n" ));
|
||||
XLOCK; /* Take no X signals during this activity (ISC 386) */
|
||||
|
||||
XLOCK; /* Take no X signals during this activity (ISC 386) */
|
||||
|
||||
CursorImage.width = CURSORWIDTH;
|
||||
CursorImage.height = CURSORHEIGHT;
|
||||
CursorImage.xoffset = 0;
|
||||
CursorImage.format = XYBitmap;
|
||||
#if (defined (XV11R1) || defined(BYTESWAP))
|
||||
CursorImage.byte_order = LSBFirst;
|
||||
#else /* XV11R1 | BYTESWAP */
|
||||
CursorImage.byte_order = MSBFirst;
|
||||
CursorImage.width = CURSORWIDTH;
|
||||
CursorImage.height = CURSORHEIGHT;
|
||||
CursorImage.xoffset = 0;
|
||||
CursorImage.format = XYBitmap;
|
||||
#if (defined(XV11R1) || defined(BYTESWAP))
|
||||
CursorImage.byte_order = LSBFirst;
|
||||
#else /* XV11R1 | BYTESWAP */
|
||||
CursorImage.byte_order = MSBFirst;
|
||||
#endif /* XV11R1 | BYTESWAP */
|
||||
|
||||
CursorImage.bitmap_unit = BITSPER_DLWORD;
|
||||
CursorImage.bitmap_unit = BITSPER_DLWORD;
|
||||
#ifdef AIX
|
||||
CursorImage.bitmap_pad = 32;
|
||||
CursorImage.bitmap_pad = 32;
|
||||
#else
|
||||
CursorImage.bitmap_pad = Bitmap_Pad;
|
||||
CursorImage.bitmap_pad = Bitmap_Pad;
|
||||
#endif /* AIX */
|
||||
CursorImage.depth = 1;
|
||||
CursorImage.bytes_per_line = BITSPER_DLWORD/8;
|
||||
CursorImage.bitmap_bit_order = MSBFirst;
|
||||
CursorImage.depth = 1;
|
||||
CursorImage.bytes_per_line = BITSPER_DLWORD / 8;
|
||||
CursorImage.bitmap_bit_order = MSBFirst;
|
||||
|
||||
CursorPixmap_source = XCreatePixmap( display, window , CURSORWIDTH, CURSORHEIGHT, 1);
|
||||
CursorPixmap_mask = XCreatePixmap( display, window , CURSORWIDTH, CURSORHEIGHT, 1);
|
||||
CursorPixmap_source = XCreatePixmap(display, window, CURSORWIDTH, CURSORHEIGHT, 1);
|
||||
CursorPixmap_mask = XCreatePixmap(display, window, CURSORWIDTH, CURSORHEIGHT, 1);
|
||||
|
||||
gcv.function = GXcopy;
|
||||
gcv.foreground = BlackPixelOfScreen( ScreenOfDisplay( display, DefaultScreen(display)));
|
||||
gcv.background = WhitePixelOfScreen( ScreenOfDisplay( display, DefaultScreen(display)));
|
||||
gcv.function = GXcopy;
|
||||
gcv.foreground = BlackPixelOfScreen(ScreenOfDisplay(display, DefaultScreen(display)));
|
||||
gcv.background = WhitePixelOfScreen(ScreenOfDisplay(display, DefaultScreen(display)));
|
||||
#ifdef AIX
|
||||
gcv.plane_mask = 1;
|
||||
gcv.plane_mask = 1;
|
||||
#endif /* AIX */
|
||||
|
||||
cursor_source_gc = XCreateGC( display, window
|
||||
, GCForeground|GCBackground|GCFunction
|
||||
cursor_source_gc = XCreateGC(display, window,
|
||||
GCForeground | GCBackground | GCFunction
|
||||
#ifdef AIX
|
||||
|GCPlaneMask
|
||||
| GCPlaneMask
|
||||
#endif /* AIX */
|
||||
, &gcv );
|
||||
cursor_mask_gc = XCreateGC( display, window
|
||||
, GCForeground|GCBackground|GCFunction
|
||||
,
|
||||
&gcv);
|
||||
cursor_mask_gc = XCreateGC(display, window,
|
||||
GCForeground | GCBackground | GCFunction
|
||||
#ifdef AIX
|
||||
|GCPlaneMask
|
||||
| GCPlaneMask
|
||||
#endif /* AIX */
|
||||
, &gcv );
|
||||
,
|
||||
&gcv);
|
||||
|
||||
XAllocNamedColor( display, Colors, "black"
|
||||
, &cursor_fore_xcsd, &xced );
|
||||
XAllocNamedColor( display, Colors, "white"
|
||||
, &cursor_back_xcsd, &xced );
|
||||
|
||||
XUNLOCK; /* OK to take signals again */
|
||||
|
||||
} /* end init_Xcursor */
|
||||
XAllocNamedColor(display, Colors, "black", &cursor_fore_xcsd, &xced);
|
||||
XAllocNamedColor(display, Colors, "white", &cursor_back_xcsd, &xced);
|
||||
|
||||
XUNLOCK; /* OK to take signals again */
|
||||
|
||||
} /* end init_Xcursor */
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
@@ -259,13 +226,10 @@ void init_Xcursor(display, window)
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
void set_Xcursor( dsp, bitmap, hotspot_x, hotspot_y, return_cursor, from_lisp )
|
||||
DspInterface dsp;
|
||||
unsigned char *bitmap;
|
||||
int hotspot_x
|
||||
, hotspot_y
|
||||
, from_lisp;
|
||||
Cursor *return_cursor;
|
||||
void set_Xcursor(dsp, bitmap, hotspot_x, hotspot_y, return_cursor, from_lisp) DspInterface dsp;
|
||||
unsigned char *bitmap;
|
||||
int hotspot_x, hotspot_y, from_lisp;
|
||||
Cursor *return_cursor;
|
||||
{
|
||||
extern unsigned char reversedbits[];
|
||||
unsigned char image[32];
|
||||
@@ -273,33 +237,29 @@ void set_Xcursor( dsp, bitmap, hotspot_x, hotspot_y, return_cursor, from_lisp )
|
||||
Pixmap Cursor_src, Cursor_msk;
|
||||
Screen *screen;
|
||||
|
||||
#ifdef BYTESWAP
|
||||
if (from_lisp) for (i=0; i<32; i++) image[i] = reversedbits[bitmap[i^3]];
|
||||
else for ( i=0; i<32; i++) image[i] = reversedbits[bitmap[i]];
|
||||
#ifdef BYTESWAP
|
||||
if (from_lisp)
|
||||
for (i = 0; i < 32; i++) image[i] = reversedbits[bitmap[i ^ 3]];
|
||||
else
|
||||
for (i = 0; i < 32; i++) image[i] = reversedbits[bitmap[i]];
|
||||
#else
|
||||
for ( i=0; i<32; i++) image[i] = reversedbits[bitmap[i]];
|
||||
for (i = 0; i < 32; i++) image[i] = reversedbits[bitmap[i]];
|
||||
#endif /* BYTESWAP */
|
||||
|
||||
XLOCK;
|
||||
screen = ScreenOfDisplay( dsp->display_id, DefaultScreen( dsp->display_id ));
|
||||
Cursor_src = XCreatePixmapFromBitmapData(dsp->display_id,
|
||||
dsp->DisplayWindow,
|
||||
image, 16, 16, 1, 0,
|
||||
1); /* Has to have a depth of 1! */
|
||||
Cursor_msk = XCreatePixmapFromBitmapData(dsp->display_id,
|
||||
dsp->DisplayWindow,
|
||||
image, 16, 16, 1, 0,
|
||||
1); /* Has to have a depth of 1! */
|
||||
*return_cursor = XCreatePixmapCursor( dsp->display_id
|
||||
, Cursor_src, Cursor_msk
|
||||
, &cursor_fore_xcsd, &cursor_back_xcsd
|
||||
, hotspot_x, hotspot_y );
|
||||
screen = ScreenOfDisplay(dsp->display_id, DefaultScreen(dsp->display_id));
|
||||
Cursor_src = XCreatePixmapFromBitmapData(dsp->display_id, dsp->DisplayWindow, image, 16, 16, 1, 0,
|
||||
1); /* Has to have a depth of 1! */
|
||||
Cursor_msk = XCreatePixmapFromBitmapData(dsp->display_id, dsp->DisplayWindow, image, 16, 16, 1, 0,
|
||||
1); /* Has to have a depth of 1! */
|
||||
*return_cursor = XCreatePixmapCursor(dsp->display_id, Cursor_src, Cursor_msk, &cursor_fore_xcsd,
|
||||
&cursor_back_xcsd, hotspot_x, hotspot_y);
|
||||
|
||||
/* Should free these now (doc says server may not copy them) */
|
||||
XFreePixmap(dsp->display_id, Cursor_src);
|
||||
XFreePixmap(dsp->display_id, Cursor_msk);
|
||||
|
||||
XFlush( dsp->display_id );
|
||||
XFlush(dsp->display_id);
|
||||
XUNLOCK;
|
||||
|
||||
} /* end set_Xcursor */
|
||||
} /* end set_Xcursor */
|
||||
|
||||
Reference in New Issue
Block a user