summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/tiedir/tie-w2c.ch
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/tiedir/tie-w2c.ch')
-rw-r--r--Build/source/texk/web2c/tiedir/tie-w2c.ch109
1 files changed, 109 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/tiedir/tie-w2c.ch b/Build/source/texk/web2c/tiedir/tie-w2c.ch
new file mode 100644
index 00000000000..6dfa043b38b
--- /dev/null
+++ b/Build/source/texk/web2c/tiedir/tie-w2c.ch
@@ -0,0 +1,109 @@
+% Changes to adapt tie to web2c.
+% Copyright 2001 by Olaf Weber
+% This file is in the Public Domain.
+
+@x Already in cpascal.h.
+@d incr(v) v+=1 /* increase a variable by unity */
+@d decr(v) v-=1 /* decrease a variable by unity */
+@y
+@z
+
+@x
+@ Furthermore we include the additional types |boolean| and |string|.
+@d false 0
+@d true 1
+@<Global types@>=
+typedef int boolean;
+typedef char* string;
+@y
+@ Furthermore we include the additional types |boolean| and |string|.
+/* boolean, false, true; string; all from cpascal.h */
+@z
+
+@x -- we need more input files.
+#define max_file_index 9
+/* we don't think that anyone needs more than 9 change files,
+@y
+#define max_file_index 32
+/* we don't think that anyone needs more than 32 change files,
+@z
+
+@x -- add to global includes.
+#include <stdio.h>
+@y
+#include "cpascal.h"
+#include <stdio.h>
+/* Also redefine usage to avoid clash with function from lib. */
+#define usage tieusage
+@z
+
+@x
+void get_line(i)
+ file_index i;
+@y
+void get_line P1C(file_index, i)
+@z
+
+@x
+void err_loc(i) /* prints location of error */
+ int i;
+@y
+void err_loc P1C(int, i) /* prints location of error */
+@z
+
+@x
+boolean lines_dont_match(i,j)
+ file_index i,j;
+@y
+boolean lines_dont_match P2C(file_index, i, file_index, j)
+@z
+
+@x
+void init_change_file(i,b)
+ file_index i; boolean b;
+@y
+void init_change_file P2C(file_index, i, boolean, b)
+@z
+
+@x
+void put_line(j)
+ file_index j;
+@y
+void put_line P1C(file_index, j)
+@z
+
+@x
+boolean e_of_ch_module(i)
+ file_index i;
+@y
+boolean e_of_ch_module P1C(file_index, i)
+@z
+
+@x
+boolean e_of_ch_preamble(i)
+ file_index i;
+@y
+boolean e_of_ch_preamble P1C(file_index, i)
+@z
+
+@x
+void usage()
+@y
+void usage P1H(void)
+@z
+
+@x
+main(argc,argv)
+ int argc; string *argv;
+@y
+int main P2C(int, argc, string *, argv)
+@z
+
+@x
+ print_ln(banner); /* print a ``banner line'' */
+ print_ln(copyright); /* include the copyright notice */
+@y
+ print(banner); /* print a ``banner line'' */
+ print_ln(versionstring); /* Web2C version */
+ print_ln(copyright); /* include the copyright notice */
+@z