This is download.c in view mode; [Download] [Up]
/*
* Code to download a font definition at the beginning of a section.
*/
#include "dvips.h" /* The copyright notice in that file is included too! */
/*
* These are the external routines we call.
*/
extern void numout() ;
extern void mhexout() ;
extern void cmdout() ;
extern long unpack() ;
extern void flip() ;
extern void specialout() ;
extern long getlong() ;
extern void error() ;
extern char *nextstring ;
/*
* These are the external variables we access.
*/
extern FILE *bitfile ;
extern fontdesctype *curfnt ;
extern long bytesleft ;
extern long mbytesleft ;
extern quarterword *raster ;
extern quarterword *mraster ;
extern Boolean compressed ;
extern integer mag ;
extern int actualdpi ;
static unsigned char dummyend[8] = { 252 } ;
/*
* We have a routine that downloads an individual character.
*/
static int lastccout ;
void downchar(c, cc)
chardesctype *c ;
shalfword cc ;
{
register long i, j ;
register halfword cheight, cwidth ;
register long k ;
register quarterword *p ;
register halfword cmd ;
register shalfword xoff, yoff ;
halfword wwidth = 0 ;
register long len ;
int smallchar ;
p = c->packptr ;
cmd = *p++ ;
if (cmd & 4) {
if ((cmd & 7) == 7) {
cwidth = getlong(p) ;
cheight = getlong(p + 4) ;
xoff = getlong(p + 8) ;
yoff = getlong(p + 12) ;
p += 16 ;
} else {
cwidth = p[0] * 256 + p[1] ;
cheight = p[2] * 256 + p[3] ;
xoff = p[4] * 256 + p[5] ; /* N.B.: xoff, yoff are signed halfwords */
yoff = p[6] * 256 + p[7] ;
p += 8 ;
}
} else {
cwidth = *p++ ;
cheight = *p++ ;
xoff = *p++ ;
yoff = *p++ ;
if (xoff > 127)
xoff -= 256 ;
if (yoff > 127)
yoff -= 256 ;
}
if (c->flags & BIGCHAR)
smallchar = 0 ;
else
smallchar = 5 ;
if (compressed) {
len = getlong(p) ;
p += 4 ;
} else {
wwidth = (cwidth + 15) / 16 ;
i = 2 * cheight * (long)wwidth ;
if (i <= 0)
i = 2 ;
i += smallchar ;
if (mbytesleft < i) {
if (mbytesleft >= RASTERCHUNK)
(void) free((char *) mraster) ;
if (RASTERCHUNK > i) {
mraster = (quarterword *)mymalloc((integer)RASTERCHUNK) ;
mbytesleft = RASTERCHUNK ;
} else {
k = i + i / 4 ;
mraster = (quarterword *)mymalloc((integer)k) ;
mbytesleft = k ;
}
}
k = i;
while (k > 0)
mraster[--k] = 0 ;
unpack(p, (halfword *)mraster, cwidth, cheight, cmd) ;
p = mraster ;
len = i - smallchar ;
}
if (cheight == 0 || cwidth == 0 || len == 0) {
cwidth = 1 ;
cheight = 1 ;
wwidth = 1 ;
len = 2 ;
if (compressed)
p = dummyend ; /* CMD(END); see repack.c */
else
mraster[0] = 0 ;
}
if (smallchar) {
p[len] = cwidth ;
p[len + 1] = cheight ;
p[len + 2] = xoff + 128 ;
p[len + 3] = yoff + 128 ;
p[len + 4] = c->pixelwidth ;
} else
/*
* Now we actually send out the data.
*/
specialout('[') ;
if (compressed) {
specialout('<') ;
mhexout(p, len + smallchar) ;
specialout('>') ;
} else {
i = (cwidth + 7) / 8 ;
if (i * cheight > 65520) {
long bc = 0 ;
specialout('<') ;
for (j=0; j<cheight; j++) {
if (bc + i > 65520) {
specialout('>') ;
specialout('<') ;
bc = 0 ;
}
mhexout(p, i) ;
bc += i ;
p += 2*wwidth ;
}
specialout('>') ;
} else {
specialout('<') ;
if (2 * wwidth == i)
mhexout(p, ((long)cheight) * i + smallchar) ;
else {
for (j=0; j<cheight; j++) {
mhexout(p, i) ;
p += 2*wwidth ;
}
if (smallchar)
mhexout(p, (long)smallchar) ;
}
specialout('>') ;
}
}
if (smallchar == 0) {
numout((integer)cwidth) ;
numout((integer)cheight) ;
numout((integer)xoff + 128) ; /* not all these casts needed. */
numout((integer)yoff + 128) ;
numout((integer)(c->pixelwidth)) ;
}
if (lastccout + 1 == cc) {
cmdout("I") ;
} else {
numout((integer)cc) ;
cmdout("D") ;
}
lastccout = cc ;
}
/*
* Output the literal name of the font change command with PostScript index n
*/
static char goodnames[] =
"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" ;
void
makepsname(s, n)
register char *s ;
register int n ;
{
n-- ;
*s++ = 'F' + n / sizeof(goodnames) ;
*s++ = goodnames[n % sizeof(goodnames)] ;
*s++ = 0 ;
}
void
lfontout(n)
int n ;
{
char buf[10];
char *b = buf ;
*b++ = '/' ;
makepsname(b, n) ;
cmdout(buf);
}
/*
* And the download procedure.
*/
void download(p, psfont)
charusetype *p ;
int psfont ;
{
register int b, i ;
register halfword bit ;
register chardesctype *c ;
int cc, maxcc = -1, numcc ;
float fontscale ;
char name[10] ;
lastccout = -5 ;
name[0] = '/' ;
makepsname(name + 1, psfont) ;
curfnt = p->fd ;
curfnt->psname = psfont ;
if (curfnt->resfont) {
struct resfont *rf = curfnt->resfont ;
cmdout(name) ;
/* following code re-arranged - Rob Hutchings 1992Apr02 */
c = curfnt->chardesc ;
c = curfnt->chardesc + 255 ;
cc = 255 ;
numcc = 0 ;
i = 0 ;
for (b=15; b>=0; b--) {
for (bit=1; bit; bit<<=1) {
if (p->bitmap[b] & bit) {
if (i > 0) {
numout((integer)i) ;
specialout('[') ;
i = 0 ;
}
numout((integer)c->pixelwidth) ;
c->flags |= EXISTS ;
numcc++ ;
} else {
i++ ;
c->flags &= ~EXISTS ;
}
c-- ;
cc-- ;
}
}
if (i > 0) {
numout((integer)i) ;
specialout('[') ;
}
specialout ('{') ;
if (rf->specialinstructions)
cmdout(rf->specialinstructions) ;
specialout ('}') ;
/*
* Perhaps there is a good reason to avoid float in this code; but in general
* arithmetic should be done in the driver rather than the interpreter - Rob
*/
numout((integer)numcc) ;
fontscale = ((float)(curfnt->scaledsize)) / 655360.0 ;
fontscale *= (((float)mag)/7200.0) ;
fontscale *= actualdpi ;
(void)sprintf(nextstring, "%f", fontscale) ;
cmdout(nextstring) ;
(void)strcpy(nextstring, "/") ;
(void)strcat(nextstring, rf->PSname) ;
cmdout(nextstring) ;
/* end of changed section - Rob */
cmdout("rf") ;
rf->sent = 1 ;
return ;
}
/*
* Here we calculate the largest character actually used, and
* send it as a parameter to df.
*/
cc = 0 ;
numcc = 0 ;
for (b=0; b<16; b++) {
for (bit=32768; bit!=0; bit>>=1) {
if (p->bitmap[b] & bit) {
maxcc = cc ;
numcc++ ;
}
cc++ ;
}
}
if (numcc <= 0)
return ;
cmdout(name) ;
numout((integer)numcc) ;
numout((integer)maxcc + 1) ;
/*
* If we need to scale the font, we say so by using dfs
* instead of df, and we give it a scale factor. We also
* scale the character widths; this is ugly, but scaling
* fonts is ugly, and this is the best we can probably do.
*/
if (curfnt->dpi != curfnt->loadeddpi) {
numout((integer)curfnt->dpi) ;
numout((integer)curfnt->loadeddpi) ;
if (curfnt->alreadyscaled == 0) {
for (b=0, c=curfnt->chardesc; b<256; b++, c++)
c->pixelwidth = (c->pixelwidth *
(long)curfnt->dpi * 2 + curfnt->loadeddpi) / (2 * curfnt->loadeddpi) ;
curfnt->alreadyscaled = 1 ;
}
cmdout("dfs") ;
} else
cmdout("df") ;
c = curfnt->chardesc ;
cc = 0 ;
for (b=0; b<16; b++) {
for (bit=32768; bit; bit>>=1) {
if (p->bitmap[b] & bit) {
downchar(c, cc) ;
c->flags |= EXISTS ;
} else
c->flags &= ~EXISTS ;
c++ ;
cc++ ;
}
}
cmdout("E") ;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.