summaryrefslogtreecommitdiff
path: root/dviware/dvitty/vax2pyr.patch
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /dviware/dvitty/vax2pyr.patch
Initial commit
Diffstat (limited to 'dviware/dvitty/vax2pyr.patch')
-rw-r--r--dviware/dvitty/vax2pyr.patch125
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