diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /dviware/dvitty/vax2pyr.patch |
Initial commit
Diffstat (limited to 'dviware/dvitty/vax2pyr.patch')
-rw-r--r-- | dviware/dvitty/vax2pyr.patch | 125 |
1 files changed, 125 insertions, 0 deletions
diff --git a/dviware/dvitty/vax2pyr.patch b/dviware/dvitty/vax2pyr.patch new file mode 100644 index 0000000000..3289eed11f --- /dev/null +++ b/dviware/dvitty/vax2pyr.patch @@ -0,0 +1,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 |