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
|
/*
* Input bytes from the dvi file or the current virtual character.
* These routines could probably be sped up significantly; but they are
* very machine dependent, so I will leave such tuning to the installer.
* They simply get and return bytes in batches of one, two, three, and four,
* updating the current position as necessary.
*/
#include "dvips.h" /* The copyright notice in that file is included too! */
#include "protos.h"
extern FILE *dvifile ;
extern quarterword *curpos, *curlim ;
void
abortpage P1H(void)
{
error("! unexpected eof on DVI file") ;
}
shalfword /* the value returned is, however, between 0 and 255 */
dvibyte P1H(void)
{
register shalfword i ;
if (curpos) {
if (curpos>=curlim) return((shalfword)140) ;
return (*curpos++) ;
}
if ((i=getc(dvifile))==EOF)
abortpage() ;
return(i) ;
}
halfword
twobytes P1H(void)
{
register halfword i ;
i = dvibyte() ;
return(i*256+dvibyte()) ; }
integer
threebytes P1H(void)
{
register integer i ;
i = twobytes() ;
return(i*256+dvibyte()) ; }
shalfword
signedbyte P1H(void)
{
register shalfword i ;
if (curpos) {
if (curpos>=curlim)
error("! unexpected end of virtual packet") ;
i = *curpos++ ;
} else if ((i=getc(dvifile))==EOF)
abortpage() ;
if (i<128) return(i) ;
else return(i-256) ;
}
shalfword
signedpair P1H(void)
{
register shalfword i ;
i = signedbyte() ;
return(i*256+dvibyte()) ;
}
integer
signedtrio P1H(void)
{
register integer i ;
i = signedpair() ;
return(i*256+dvibyte()) ;
}
integer
signedquad P1H(void)
{
register integer i ;
i = signedpair() ;
return(i*65536+twobytes()) ;
}
void
skipover P1C(int, i)
{
while (i-->0) (void)dvibyte() ;
}
|
