diff options
Diffstat (limited to 'Build/source/texk/web2c/tiedir/tie-w2c.ch')
-rw-r--r-- | Build/source/texk/web2c/tiedir/tie-w2c.ch | 18 |
1 files changed, 16 insertions, 2 deletions
diff --git a/Build/source/texk/web2c/tiedir/tie-w2c.ch b/Build/source/texk/web2c/tiedir/tie-w2c.ch index 6dfa043b38b..55c5a64c624 100644 --- a/Build/source/texk/web2c/tiedir/tie-w2c.ch +++ b/Build/source/texk/web2c/tiedir/tie-w2c.ch @@ -33,6 +33,7 @@ typedef char* string; @y #include "cpascal.h" #include <stdio.h> +#include <kpathsea/kpathsea.h> /* Also redefine usage to avoid clash with function from lib. */ #define usage tieusage @z @@ -52,10 +53,22 @@ void err_loc P1C(int, i) /* prints location of error */ @z @x -boolean lines_dont_match(i,j) + 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) +boolean lines_dont_match P2C(file_index, i, file_index, j) @z @x @@ -103,6 +116,7 @@ int main P2C(int, argc, string *, argv) 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 */ |