mirror of
https://github.com/Interlisp/maiko.git
synced 2026-02-06 00:14:43 +00:00
Reformat all C source files with Clang-format in Google style w/ 100 col width.
This commit is contained in:
Nick Briggs
322
src/lineblt8.c
Executable file → Normal file
322
src/lineblt8.c
Executable file → Normal file
@@ -1,12 +1,7 @@
|
||||
/* $Id: lineblt8.c,v 1.3 1999/05/31 23:35:37 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
/* $Id: lineblt8.c,v 1.3 1999/05/31 23:35:37 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved
|
||||
*/
|
||||
static char *id = "$Id: lineblt8.c,v 1.3 1999/05/31 23:35:37 sybalsky Exp $ Copyright (C) Venue";
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
|
||||
@@ -21,8 +16,6 @@ static char *id = "$Id: lineblt8.c,v 1.3 1999/05/31 23:35:37 sybalsky Exp $ Copy
|
||||
|
||||
#include "version.h"
|
||||
|
||||
|
||||
|
||||
#include <sys/types.h>
|
||||
#include "lispemul.h"
|
||||
|
||||
@@ -30,120 +23,108 @@ static char *id = "$Id: lineblt8.c,v 1.3 1999/05/31 23:35:37 sybalsky Exp $ Copy
|
||||
#include <sys/bsdtypes.h>
|
||||
#endif /* ISC */
|
||||
|
||||
|
||||
#define COLOR8ARRAYSIZE 16
|
||||
#define BITSPERNIBBLE 4
|
||||
#define COLOR8ARRAYSIZE 16
|
||||
#define BITSPERNIBBLE 4
|
||||
#define BITSPERDLWORD 16
|
||||
|
||||
DLword BitMaskArray[]={32768,16384,8192,4096,2048,1024,
|
||||
512,256,128,64,32,16,8,4,2,1};
|
||||
unsigned int ConvBM_tbl[] = {
|
||||
0 , 0xff , 0xff00 , 0xffff ,
|
||||
0xff0000 , 0xff00ff , 0xffff00 , 0xffffff ,
|
||||
0xff000000 , 0xff0000ff , 0xff00ff00 , 0xff00ffff ,
|
||||
0xffff0000 , 0xffff00ff , 0xffffff00 , 0xffffffff };
|
||||
unsigned int BMask_tbl[] = { 0xf , 7 , 3 , 1 };
|
||||
DLword BitMaskArray[] = {32768, 16384, 8192, 4096, 2048, 1024, 512, 256,
|
||||
128, 64, 32, 16, 8, 4, 2, 1};
|
||||
unsigned int ConvBM_tbl[] = {0, 0xff, 0xff00, 0xffff, 0xff0000, 0xff00ff,
|
||||
0xffff00, 0xffffff, 0xff000000, 0xff0000ff, 0xff00ff00, 0xff00ffff,
|
||||
0xffff0000, 0xffff00ff, 0xffffff00, 0xffffffff};
|
||||
unsigned int BMask_tbl[] = {0xf, 7, 3, 1};
|
||||
|
||||
#define noop 1
|
||||
|
||||
/***************************************************************
|
||||
Macro:WriteLongW
|
||||
/***************************************************************
|
||||
Macro:WriteLongW
|
||||
**************************************************************/
|
||||
#define WriteLongW(srcpattern,destptr,op1,op2) {\
|
||||
register cnt;\
|
||||
register u_char *des,*src;\
|
||||
for(cnt=0,des=(u_char*)destptr,src=(u_char*)(&(srcpattern));\
|
||||
cnt <4 ; cnt++,des++,src++)\
|
||||
(*des) op1 (*src);}
|
||||
#define WriteLongW(srcpattern, destptr, op1, op2) \
|
||||
{ \
|
||||
register cnt; \
|
||||
register u_char *des, *src; \
|
||||
for (cnt = 0, des = (u_char *)destptr, src = (u_char *)(&(srcpattern)); cnt < 4; \
|
||||
cnt++, des++, src++) \
|
||||
(*des) op1(*src); \
|
||||
}
|
||||
|
||||
|
||||
/***************************************************************
|
||||
Macro:LineBLT8
|
||||
srcWptr : DLword ptr
|
||||
offset : Bits offset
|
||||
width : Bits width to copy
|
||||
dstLptr : Destination's LispPTR ptr
|
||||
op1,op2 : operations in C(=,|=,^=,&=,^)
|
||||
ERASE only uses op2
|
||||
/***************************************************************
|
||||
Macro:LineBLT8
|
||||
srcWptr : DLword ptr
|
||||
offset : Bits offset
|
||||
width : Bits width to copy
|
||||
dstLptr : Destination's LispPTR ptr
|
||||
op1,op2 : operations in C(=,|=,^=,&=,^)
|
||||
ERASE only uses op2
|
||||
**************************************************************/
|
||||
/* srcw points DLword which contains the nibble processed now */
|
||||
/* offset indicates MSB in the nibble */
|
||||
/* width:before copy,make sure the nibble is inside source bitmap */
|
||||
/* width:after copy,decremented by BITSPERNIBBLE.
|
||||
therefore,width indictes the rest bits in source bitmap */
|
||||
|
||||
#define LineBLT8(srcWptr,offset,width,dstLptr,op1,op2){ \
|
||||
register DLword *srcw; \
|
||||
register u_int temp1; \
|
||||
for(srcw= (srcWptr) + (offset)/BITSPERDLWORD ; \
|
||||
((width) -BITSPERNIBBLE)>= 0; \
|
||||
(width) -=BITSPERNIBBLE, \
|
||||
(dstLptr) = (u_char *) ((u_int *)(dstLptr) + 1), \
|
||||
(offset)+=BITSPERNIBBLE) \
|
||||
{\
|
||||
switch((offset) % 16) {\
|
||||
case 0 : WriteLongW(color_array[(*srcw )>> 12],dstLptr,op1,op2);\
|
||||
break;\
|
||||
case 1 : WriteLongW(color_array[(*srcw & 0x7800) >> 11],dstLptr,op1,op2); \
|
||||
break;\
|
||||
case 2 : WriteLongW(color_array[(*srcw & 0x3c00) >> 10],dstLptr,op1,op2); \
|
||||
break;\
|
||||
case 3 : WriteLongW(color_array[(*srcw & 0x1e00) >> 9],dstLptr,op1,op2);\
|
||||
break;\
|
||||
case 4 : WriteLongW(color_array[(*srcw & 0x0f00) >> 8],dstLptr,op1,op2);\
|
||||
break;\
|
||||
case 5 : WriteLongW(color_array[(*srcw & 0x0780) >> 7],dstLptr,op1,op2);\
|
||||
break;\
|
||||
case 6 : WriteLongW(color_array[(*srcw & 0x03c0) >> 6],dstLptr,op1,op2);\
|
||||
break;\
|
||||
case 7 : WriteLongW(color_array[(*srcw & 0x01e0) >> 5],dstLptr,op1,op2);\
|
||||
break;\
|
||||
case 8 : WriteLongW(color_array[(*srcw & 0x00f0) >> 4],dstLptr,op1,op2);\
|
||||
break;\
|
||||
case 9 : WriteLongW(color_array[(*srcw & 0x0078) >> 3],dstLptr,op1,op2);\
|
||||
break;\
|
||||
case 10 : WriteLongW(color_array[(*srcw & 0x003c) >> 2],dstLptr,op1,op2);\
|
||||
break;\
|
||||
case 11 : WriteLongW(color_array[(*srcw & 0x001e) >> 1],dstLptr,op1,op2);\
|
||||
break;\
|
||||
case 12 : WriteLongW(color_array[*srcw & 0xf],dstLptr,op1,op2);\
|
||||
srcw++; /* move srcw pointer */\
|
||||
break;\
|
||||
case 13 : temp1= (*srcw & 7) << 1 ;\
|
||||
temp1 |= ((*(++srcw)) & 0x8000)>> 15 ;/** Compiler's BUG?*/\
|
||||
WriteLongW(color_array[temp1],dstLptr,op1,op2);\
|
||||
break;\
|
||||
case 14 : temp1= ((*srcw & 3) << 2) ;\
|
||||
temp1 |= ((*(++srcw) & 0xc000)>> 14) ;\
|
||||
WriteLongW(color_array[temp1],dstLptr,op1,op2);\
|
||||
break;\
|
||||
case 15 : temp1= ((*srcw & 1) << 3);\
|
||||
temp1 |= ((*(++srcw) & 0xe000)>> 13) ;\
|
||||
WriteLongW(color_array[temp1],dstLptr,op1,op2);\
|
||||
break;\
|
||||
} /* switch end */\
|
||||
} /* for end */\
|
||||
/* process for the rest bits (0~3)*/\
|
||||
switch(width)\
|
||||
{ register u_char *destc;\
|
||||
register int mod;\
|
||||
case 0: /* already finished */\
|
||||
break;\
|
||||
case 1: \
|
||||
case 2:\
|
||||
case 3: destc=(u_char *)dstLptr;\
|
||||
while(width--){\
|
||||
if(BitMaskArray[mod =(offset %16)] & *srcw) \
|
||||
(*destc++) op1 (color1);\
|
||||
else (*destc++) op1 (color0);\
|
||||
if(mod == 15) srcw++;\
|
||||
offset++;\
|
||||
} /* WHILE END */\
|
||||
break;\
|
||||
default: ;/* error */\
|
||||
}/* switch end */\
|
||||
} /* MACRO END */
|
||||
/* srcw points DLword which contains the nibble processed now */
|
||||
/* offset indicates MSB in the nibble */
|
||||
/* width:before copy,make sure the nibble is inside source bitmap */
|
||||
/* width:after copy,decremented by BITSPERNIBBLE.
|
||||
therefore,width indictes the rest bits in source bitmap */
|
||||
|
||||
#define LineBLT8(srcWptr, offset, width, dstLptr, op1, op2) \
|
||||
{ \
|
||||
register DLword *srcw; \
|
||||
register u_int temp1; \
|
||||
for (srcw = (srcWptr) + (offset) / BITSPERDLWORD; ((width)-BITSPERNIBBLE) >= 0; \
|
||||
(width) -= BITSPERNIBBLE, (dstLptr) = (u_char *)((u_int *)(dstLptr) + 1), \
|
||||
(offset) += BITSPERNIBBLE) { \
|
||||
switch ((offset) % 16) { \
|
||||
case 0: WriteLongW(color_array[(*srcw) >> 12], dstLptr, op1, op2); break; \
|
||||
case 1: WriteLongW(color_array[(*srcw & 0x7800) >> 11], dstLptr, op1, op2); break; \
|
||||
case 2: WriteLongW(color_array[(*srcw & 0x3c00) >> 10], dstLptr, op1, op2); break; \
|
||||
case 3: WriteLongW(color_array[(*srcw & 0x1e00) >> 9], dstLptr, op1, op2); break; \
|
||||
case 4: WriteLongW(color_array[(*srcw & 0x0f00) >> 8], dstLptr, op1, op2); break; \
|
||||
case 5: WriteLongW(color_array[(*srcw & 0x0780) >> 7], dstLptr, op1, op2); break; \
|
||||
case 6: WriteLongW(color_array[(*srcw & 0x03c0) >> 6], dstLptr, op1, op2); break; \
|
||||
case 7: WriteLongW(color_array[(*srcw & 0x01e0) >> 5], dstLptr, op1, op2); break; \
|
||||
case 8: WriteLongW(color_array[(*srcw & 0x00f0) >> 4], dstLptr, op1, op2); break; \
|
||||
case 9: WriteLongW(color_array[(*srcw & 0x0078) >> 3], dstLptr, op1, op2); break; \
|
||||
case 10: WriteLongW(color_array[(*srcw & 0x003c) >> 2], dstLptr, op1, op2); break; \
|
||||
case 11: WriteLongW(color_array[(*srcw & 0x001e) >> 1], dstLptr, op1, op2); break; \
|
||||
case 12: \
|
||||
WriteLongW(color_array[*srcw & 0xf], dstLptr, op1, op2); \
|
||||
srcw++; /* move srcw pointer */ \
|
||||
break; \
|
||||
case 13: \
|
||||
temp1 = (*srcw & 7) << 1; \
|
||||
temp1 |= ((*(++srcw)) & 0x8000) >> 15; /** Compiler's BUG?*/ \
|
||||
WriteLongW(color_array[temp1], dstLptr, op1, op2); \
|
||||
break; \
|
||||
case 14: \
|
||||
temp1 = ((*srcw & 3) << 2); \
|
||||
temp1 |= ((*(++srcw) & 0xc000) >> 14); \
|
||||
WriteLongW(color_array[temp1], dstLptr, op1, op2); \
|
||||
break; \
|
||||
case 15: \
|
||||
temp1 = ((*srcw & 1) << 3); \
|
||||
temp1 |= ((*(++srcw) & 0xe000) >> 13); \
|
||||
WriteLongW(color_array[temp1], dstLptr, op1, op2); \
|
||||
break; \
|
||||
} /* switch end */ \
|
||||
} /* for end */ \
|
||||
/* process for the rest bits (0~3)*/ \
|
||||
switch (width) { \
|
||||
register u_char *destc; \
|
||||
register int mod; \
|
||||
case 0: /* already finished */ break; \
|
||||
case 1: \
|
||||
case 2: \
|
||||
case 3: \
|
||||
destc = (u_char *)dstLptr; \
|
||||
while (width--) { \
|
||||
if (BitMaskArray[mod = (offset % 16)] & *srcw) \
|
||||
(*destc++) op1(color1); \
|
||||
else \
|
||||
(*destc++) op1(color0); \
|
||||
if (mod == 15) srcw++; \
|
||||
offset++; \
|
||||
} /* WHILE END */ \
|
||||
break; \
|
||||
default:; /* error */ \
|
||||
} /* switch end */ \
|
||||
} /* MACRO END */
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
@@ -157,76 +138,61 @@ switch(width)\
|
||||
|
||||
/* I don't care sourcetype & operation NOW */
|
||||
|
||||
void lineBlt8(DLword *srcbase, register int offset, register u_char *destl, register int width, u_char color0, u_char color1, LispPTR sourcetype, LispPTR operation)
|
||||
|
||||
|
||||
/* register u_int *destl;*/
|
||||
/* for SPARC */
|
||||
|
||||
/* Background color */
|
||||
/* foreground color */
|
||||
|
||||
/*operation type PAINT,REPLACE or INVERT */
|
||||
void lineBlt8(DLword *srcbase, register int offset, register u_char *destl, register int width,
|
||||
u_char color0, u_char color1, LispPTR sourcetype, LispPTR operation)
|
||||
|
||||
{
|
||||
static unsigned char beforecolor0=0;
|
||||
static unsigned char beforecolor1=0;
|
||||
static color_array[COLOR8ARRAYSIZE];
|
||||
/* register u_int *destl;*/
|
||||
/* for SPARC */
|
||||
|
||||
extern DLword REPLACE_atom;
|
||||
extern DLword INPUT_atom;
|
||||
extern DLword INVERT_atom;
|
||||
extern DLword PAINT_atom;
|
||||
extern DLword ERASE_atom;
|
||||
/* Background color */
|
||||
/* foreground color */
|
||||
|
||||
/*operation type PAINT,REPLACE or INVERT */
|
||||
|
||||
{
|
||||
static unsigned char beforecolor0 = 0;
|
||||
static unsigned char beforecolor1 = 0;
|
||||
static color_array[COLOR8ARRAYSIZE];
|
||||
|
||||
DLword *baseword; /* Assume dest word always quad aligned */
|
||||
extern DLword REPLACE_atom;
|
||||
extern DLword INPUT_atom;
|
||||
extern DLword INVERT_atom;
|
||||
extern DLword PAINT_atom;
|
||||
extern DLword ERASE_atom;
|
||||
|
||||
DLword *baseword; /* Assume dest word always quad aligned */
|
||||
|
||||
if(sourcetype == INVERT_atom)
|
||||
{
|
||||
register tempcol;
|
||||
tempcol = color0;
|
||||
color0 = color1;
|
||||
color1 = tempcol;
|
||||
}
|
||||
if((beforecolor0 != color0) || (beforecolor1 != color1))
|
||||
{
|
||||
/* making color-mapped array */
|
||||
register i;
|
||||
register u_int longcol0,longcol1;
|
||||
|
||||
beforecolor0 = color0;
|
||||
beforecolor1 = color1;
|
||||
longcol0 = (color0 << 24) | (color0 << 16) | (color0 << 8) | color0;
|
||||
longcol1 = (color1 << 24) | (color1 << 16) | (color1 << 8) | color1;
|
||||
|
||||
for(i=0;i < COLOR8ARRAYSIZE;i++)
|
||||
{
|
||||
color_array[i] = ConvBM_tbl[i] & longcol1;
|
||||
color_array[i] |= (~(ConvBM_tbl[i])) & longcol0;
|
||||
}
|
||||
} /* otherwise previous colors are same as current one. use cached one */
|
||||
|
||||
if(operation == REPLACE_atom)
|
||||
{
|
||||
LineBLT8(srcbase,offset,width,destl,=,noop);
|
||||
}
|
||||
else if (operation == INVERT_atom)
|
||||
{
|
||||
LineBLT8(srcbase,offset,width,destl,^=,noop);
|
||||
}
|
||||
else if (operation == PAINT_atom)
|
||||
{
|
||||
LineBLT8(srcbase,offset,width,destl,|=,noop);
|
||||
}
|
||||
else if (operation == ERASE_atom)
|
||||
{ /*erase */
|
||||
LineBLT8(srcbase,offset,width,destl,&=~,noop);
|
||||
}
|
||||
else error("lineBlt8:Illegal operation specified");
|
||||
|
||||
if (sourcetype == INVERT_atom) {
|
||||
register tempcol;
|
||||
tempcol = color0;
|
||||
color0 = color1;
|
||||
color1 = tempcol;
|
||||
}
|
||||
/* lineBlt8 end */
|
||||
if ((beforecolor0 != color0) || (beforecolor1 != color1)) {
|
||||
/* making color-mapped array */
|
||||
register i;
|
||||
register u_int longcol0, longcol1;
|
||||
|
||||
beforecolor0 = color0;
|
||||
beforecolor1 = color1;
|
||||
longcol0 = (color0 << 24) | (color0 << 16) | (color0 << 8) | color0;
|
||||
longcol1 = (color1 << 24) | (color1 << 16) | (color1 << 8) | color1;
|
||||
|
||||
for (i = 0; i < COLOR8ARRAYSIZE; i++) {
|
||||
color_array[i] = ConvBM_tbl[i] & longcol1;
|
||||
color_array[i] |= (~(ConvBM_tbl[i])) & longcol0;
|
||||
}
|
||||
} /* otherwise previous colors are same as current one. use cached one */
|
||||
|
||||
if (operation == REPLACE_atom) {
|
||||
LineBLT8(srcbase, offset, width, destl, =, noop);
|
||||
} else if (operation == INVERT_atom) {
|
||||
LineBLT8(srcbase, offset, width, destl, ^=, noop);
|
||||
} else if (operation == PAINT_atom) {
|
||||
LineBLT8(srcbase, offset, width, destl, |=, noop);
|
||||
} else if (operation == ERASE_atom) { /*erase */
|
||||
LineBLT8(srcbase, offset, width, destl, &= ~, noop);
|
||||
} else
|
||||
error("lineBlt8:Illegal operation specified");
|
||||
}
|
||||
/* lineBlt8 end */
|
||||
|
||||
Reference in New Issue
Block a user