diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-17 21:41:51 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-17 21:41:51 +0000 |
commit | 487ca4806cc046076293cf6cc5fbba0db282bac7 (patch) | |
tree | 847b412ab5158dd7bdd7ed7e5a4cc3fbca94be32 /Build/source/texk/web2c/tiedir/tie-w2c.ch | |
parent | a3d3111bfe26b8e5f5bc6049dfb2a4ca2edc7881 (diff) |
texk 1
git-svn-id: svn://tug.org/texlive/trunk@1485 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/tiedir/tie-w2c.ch')
-rw-r--r-- | Build/source/texk/web2c/tiedir/tie-w2c.ch | 109 |
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 |