% 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 @= 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 @y #include "cpascal.h" #include #include /* 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 fopen(input_organization[0]->name_of_file,"r"); @y kpse_open_file(input_organization[0]->name_of_file, kpse_web_format); @z @x fopen(input_organization[i]->name_of_file,"r"); @y kpse_open_file(input_organization[i]->name_of_file, kpse_web_format); @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 kpse_set_program_name(argv[0], "tie"); print(banner); /* print a ``banner line'' */ print_ln(versionstring); /* Web2C version */ print_ln(copyright); /* include the copyright notice */ @z