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.ch18
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 */