diff options
author | Andreas Scherer <andreas_tex@freenet.de> | 2023-07-21 14:14:07 +0000 |
---|---|---|
committer | Andreas Scherer <andreas_tex@freenet.de> | 2023-07-21 14:14:07 +0000 |
commit | 01b485ff67d2a9b74b908db54b1b030d51d3cf8e (patch) | |
tree | 910ecded44c0373e549775a7d71eacd8f8a3ca3b /Build/source/texk/web2c/cwebdir/comm-w2c.ch | |
parent | 692a5ac8d0ba11a7fb1dbac5f5a35d7b34f29262 (diff) |
[CWEB] Match common.w with common.h.
git-svn-id: svn://tug.org/texlive/trunk@67688 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/cwebdir/comm-w2c.ch')
-rw-r--r-- | Build/source/texk/web2c/cwebdir/comm-w2c.ch | 72 |
1 files changed, 36 insertions, 36 deletions
diff --git a/Build/source/texk/web2c/cwebdir/comm-w2c.ch b/Build/source/texk/web2c/cwebdir/comm-w2c.ch index 1b38a538818..ecc3ff2b460 100644 --- a/Build/source/texk/web2c/cwebdir/comm-w2c.ch +++ b/Build/source/texk/web2c/cwebdir/comm-w2c.ch @@ -141,41 +141,6 @@ char *found_filename; /* filename found by |kpse_find_file| */ @z @x -if ((web_file=fopen(web_file_name,"r"))==NULL) { - strcpy(web_file_name,alt_web_file_name); - if ((web_file=fopen(web_file_name,"r"))==NULL) - fatal("! Cannot open input file ", web_file_name); -} -@y -if ((found_filename=kpse_find_cweb(web_file_name))==NULL @| - || (web_file=fopen(found_filename,"r"))==NULL) - fatal(_("! Cannot open input file "), web_file_name); -else if (strlen(found_filename) < max_file_name_length) { - /* Copy name for \#\&{line} directives. */ - if (strcmp(web_file_name, found_filename)) - strcpy(web_file_name, found_filename + - ((strncmp(found_filename,"./",2)==0) ? 2 : 0)); - free(found_filename); -} else fatal(_("! Filename too long\n"), found_filename); -@z - -@x -if ((change_file=fopen(change_file_name,"r"))==NULL) - fatal("! Cannot open change file ", change_file_name); -@y -if ((found_filename=kpse_find_cweb(change_file_name))==NULL @| - || (change_file=fopen(found_filename,"r"))==NULL) - fatal(_("! Cannot open change file "), change_file_name); -else if (strlen(found_filename) < max_file_name_length) { - /* Copy name for \#\&{line} directives. */ - if (strcmp(change_file_name, found_filename)) - strcpy(change_file_name, found_filename + - ((strncmp(found_filename,"./",2)==0) ? 2 : 0)); - free(found_filename); -} else fatal(_("! Filename too long\n"), found_filename); -@z - -@x err_print("! Include file name not given"); @y err_print(_("! Include file name not given")); @@ -288,6 +253,41 @@ The remainder of the \.{@@i} line after the file name is ignored. @z @x +if ((web_file=fopen(web_file_name,"r"))==NULL) { + strcpy(web_file_name,alt_web_file_name); + if ((web_file=fopen(web_file_name,"r"))==NULL) + fatal("! Cannot open input file ", web_file_name); +} +@y +if ((found_filename=kpse_find_cweb(web_file_name))==NULL @| + || (web_file=fopen(found_filename,"r"))==NULL) + fatal(_("! Cannot open input file "), web_file_name); +else if (strlen(found_filename) < max_file_name_length) { + /* Copy name for \#\&{line} directives. */ + if (strcmp(web_file_name, found_filename)) + strcpy(web_file_name, found_filename + + ((strncmp(found_filename,"./",2)==0) ? 2 : 0)); + free(found_filename); +} else fatal(_("! Filename too long\n"), found_filename); +@z + +@x +if ((change_file=fopen(change_file_name,"r"))==NULL) + fatal("! Cannot open change file ", change_file_name); +@y +if ((found_filename=kpse_find_cweb(change_file_name))==NULL @| + || (change_file=fopen(found_filename,"r"))==NULL) + fatal(_("! Cannot open change file "), change_file_name); +else if (strlen(found_filename) < max_file_name_length) { + /* Copy name for \#\&{line} directives. */ + if (strcmp(change_file_name, found_filename)) + strcpy(change_file_name, found_filename + + ((strncmp(found_filename,"./",2)==0) ? 2 : 0)); + free(found_filename); +} else fatal(_("! Filename too long\n"), found_filename); +@z + +@x @d hash_size 353 /* should be prime */ @y @d hash_size 8501 /* should be prime */ @@ -608,7 +608,7 @@ else { @z @x -@** Index. +@* Index. @y @** Extensions to {\tentex CWEB}. The following sections introduce new or improved features that have been created by numerous contributors over the |