summaryrefslogtreecommitdiff
path: root/dviware/dvitty/vax2pyr.patch
blob: 3289eed11fafb40109c67dfccc7180d4c2340257 (plain)
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
123
124
125
*** dvitty.p	Wed Oct  7 01:32:29 1987
--- dvitty.p.pyr	Wed Oct  7 01:39:46 1987
***************
*** 1,3 ****
--- 1,5 ----
  (******************************************************************************
+  * draken:/usr/src/local/dvitty/dvitty.p 1986-12-29 04:13:17
+  *               port to Pyramid OSx done.
   * bogart:/usr/alla/zap/dvitty/dvitty.p  1986-09-21 01:54:52,
   *               bugfixes from Tor Lillqvist (santra!tml) added.
***************
*** 167,175 ****
                        bdpp,               { unexpected postpost               }
                        nopst,              { no post-amble where expected      }
!                       illch,              { character code out of range       }
                        filop,              { cannot access file                }
                        filcr);             { cannot creat file                 }
  
!      DVIfiletype = file of sbyte;
  
  {-----------------------------------------------------------------------------}
--- 169,177 ----
                        bdpp,               { unexpected postpost               }
                        nopst,              { no post-amble where expected      }
!                       Qllch,              { character code out of range       }
                        filop,              { cannot access file                }
                        filcr);             { cannot creat file                 }
  
!      DVIfiletype = file of char;
  
  {-----------------------------------------------------------------------------}
***************
*** 234,238 ****
              bdpp  : writeln(ERRfile,'Postpost occured before post-command.');
              nopst : writeln(ERRfile,'Missing postamble.');
!             illch : writeln(ERRfile,'Character code out of range, 0..127');
              filop : writeln(ERRfile,'Cannot open dvifile');
              filcr : writeln(ERRfile,'Cannot create outfile');
--- 236,240 ----
              bdpp  : writeln(ERRfile,'Postpost occured before post-command.');
              nopst : writeln(ERRfile,'Missing postamble.');
!             Qllch : writeln(ERRfile,'Character code out of range, 0..127');
              filop : writeln(ERRfile,'Cannot open dvifile');
              filcr : writeln(ERRfile,'Cannot create outfile');
***************
*** 495,502 ****
  
  function getbyte : integer;              { get next byte from dvi-file }
!     var   b : sbyte;
      begin
          read(DVIfile, b);
!         if b<0 then getbyte:=b+256 else getbyte:=b
      end;  { getbyte }
  
--- 497,504 ----
  
  function getbyte : integer;              { get next byte from dvi-file }
!     var   b : char;
      begin
          read(DVIfile, b);
!         getbyte:=ord(b);
      end;  { getbyte }
  
***************
*** 521,528 ****
  
  function signedbyte : integer;     { returns next byte fr dvi-file, signed }
!     var   b : sbyte;
      begin
          read(DVIfile, b);
!         signedbyte:=b;
      end;  { signedbyte }
  
--- 523,531 ----
  
  function signedbyte : integer;     { returns next byte fr dvi-file, signed }
!     var   b : char;
      begin
          read(DVIfile, b);
!         foo:=ord(b);
!         if foo>127 then signedbyte:=foo-256 else signedbyte:=foo;
      end;  { signedbyte }
  
***************
*** 531,536 ****
  function signed2 : integer;          { returns the next two bytes, signed }
      begin
!         read(DVIfile, foo);
!         signed2:=foo*256+getbyte
      end;  { signed2 }
  
--- 534,538 ----
  function signed2 : integer;          { returns the next two bytes, signed }
      begin
!         signed2:=signedbyte*256+getbyte
      end;  { signed2 }
  
***************
*** 539,544 ****
  function signed3 : integer;       { returns the next three bytes, signed }
      begin
!         read(DVIfile, foo);
!         foo:=foo*256+getbyte;
          signed3:=foo*256+getbyte
      end;  { signed3 }
--- 541,545 ----
  function signed3 : integer;       { returns the next three bytes, signed }
      begin
!         foo:=signedbyte*256+getbyte;
          signed3:=foo*256+getbyte
      end;  { signed3 }
***************
*** 548,553 ****
  function signed4 : integer;         { returns the next four bytes, signed }
      begin
!         read(DVIfile, foo);
!         foo:=foo*256+getbyte;
          foo:=foo*256+getbyte;
          signed4:=foo*256+getbyte
--- 549,553 ----
  function signed4 : integer;         { returns the next four bytes, signed }
      begin
!         foo:=signedbyte*256+getbyte;
          foo:=foo*256+getbyte;
          signed4:=foo*256+getbyte