1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
/* -*-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 = 255; /* 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_IBMOS2 | 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);
}
|
