home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari FTP
/
ATARI_FTP_0693.zip
/
ATARI_FTP_0693
/
Tex
/
Dvi
/
dvieps.arc
/
INITGLOB.H
< prev
next >
Wrap
Text File
|
1988-10-16
|
4KB
|
123 lines
/* -*-C-*- initglob.h */
/*-->initglob*/
/**********************************************************************/
/****************************** initglob ******************************/
/**********************************************************************/
void
initglob() /* initialize global variables */
{
register INT16 i; /* loop index */
register char* tcp; /* temporary character pointer */
/***********************************************************************
Set up masks such that rightones[k] has 1-bits at the right end of
the word from k .. HOST_WORD_SIZE-1, where bits are numbered from
left (high-order) to right (lower-order), 0 .. HOST_WORD_SIZE-1.
img_mask[k] has a 1-bit in position k, bits numbered as above.
power[k] is 1 << k, and gpower[k] is 2**k-1 (i.e. 1-bits in
low-order k positions). These 3 require only 32 entries each since
they deal with 32-bit words from the PK and GF font files.
These are set at run-time, rather than compile time to avoid (a)
problems with C preprocessors which sometimes do not handle large
constants correctly, and (b) host byte-order dependence.
***********************************************************************/
rightones[HOST_WORD_SIZE-1] = 1;
for (i = HOST_WORD_SIZE-2; (i >= 0); --i)
rightones[i] = (rightones[i+1] << 1) | 1;
img_mask[31] = 1;
for (i = 30; i >= 0; --i)
img_mask[i] = img_mask[i+1] << 1;
power[0] = 1;
for (i = 1; i <= 31; ++i)
power[i] = power[i-1] << 1;
gpower[0] = 0; /* NB: we have gpower[0..32], not [0..31] */
for (i = 1; i <= 32; ++i)
gpower[i] = power[i-1] | gpower[i-1];
debug_code = 0;
runmag = STDMAG; /* default runtime magnification */
#if HPLASERJET
hpres = DEFAULT_RESOLUTION; /* default output resolution */
#endif /* HPLASERJET */
#if HPJETPLUS
size_limit = 128; /* largest character size */
#endif
#if CANON_A2
/*
This should really be 64, but there are serious problems with the
Canon A2 downloaded font mechanism--characters are randomly dropped
from the output. Setting the size limit to 0 forces each character
to be loaded as a raster bitmap, which blows the output file size up
by more than a factor of 10, sigh....
*/
size_limit = 0;
#ifdef CANON_TEST
size_limit = 64; /* largest character size */
stor_limit = STOR_LIMIT;
merit_fact = MERIT_FACT;
stor_fonts = STOR_FONTS;
#endif /* CANON_TEST */
#endif
#if POSTSCRIPT
size_limit = PS_SIZELIMIT; /* characters larger than this */
/* get loaded each time with */
/* surrounding save/restore to */
/* get around PostScript bugs */
ps_vmbug = FALSE; /* do not reload fonts on each page */
#endif /* POSTSCRIPT */
npage = 0;
copies = 1; /* number of copies of each page */
topmargin = 1.0; /* DVI driver standard default */
leftmargin = 1.0; /* DVI driver standard default */
subfile[0] = '\0';
#if VIRTUAL_FONTS
virt_font = FALSE;
#endif
/*
Copy default file fields into global variables, then replace by any
runtime environment variable definitions. We need not do this for
TOPS-20 and VAX VMS, since SUBPATH and FONTPATH are already
initialized to logical names which the operating system will
translate at file open time.
*/
(void)strcpy(helpcmd,DVIHELP);
(void)strcpy(subpath,SUBPATH);
(void)strcpy(subname,SUBNAME);
(void)strcpy(subext,SUBEXT);
(void)strcpy(fontpath,FONTPATH);
(void)strcpy(fontlist,FONTLIST);
if ((tcp = GETENV("DVIHELP")) != (char *)NULL)
(void)strcpy(helpcmd,tcp);
#if (OS_ATARI | OS_PCDOS | OS_UNIX)
if ((tcp = GETENV(TEXINPUTS)) != (char *)NULL)
(void)strcpy(subpath,tcp);
if ((tcp = GETENV(TEXFONTS)) != (char *)NULL)
(void)strcpy(fontpath,tcp);
#endif
if ((tcp = GETENV("FONTLIST")) != (char *)NULL)
(void)strcpy(fontlist,tcp);
}