summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/ctiedir
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2009-06-24 07:02:11 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2009-06-24 07:02:11 +0000
commit6cbeff63c5f18ab4752342de7ae83a35118ebc38 (patch)
treee3becf02bc3d160206e1370760b38fd6a3c03609 /Build/source/texk/web2c/ctiedir
parent4257aa8b08cf9d60fbf6dd3d5da0afae5e4308ba (diff)
use ANSI C function declarations and prototypes
git-svn-id: svn://tug.org/texlive/trunk@13938 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/ctiedir')
-rw-r--r--Build/source/texk/web2c/ctiedir/ChangeLog2
-rw-r--r--Build/source/texk/web2c/ctiedir/ctie-k.c1166
2 files changed, 2 insertions, 1166 deletions
diff --git a/Build/source/texk/web2c/ctiedir/ChangeLog b/Build/source/texk/web2c/ctiedir/ChangeLog
index 046d4c8b73f..690c025ff37 100644
--- a/Build/source/texk/web2c/ctiedir/ChangeLog
+++ b/Build/source/texk/web2c/ctiedir/ChangeLog
@@ -2,6 +2,8 @@
* ctie-k.ch: drop P?C, P?H, use ANSI C function declarations.
+ * ctie-k.c (removed): obsolete, there still is ctie.c.
+
2005-02-05 Olaf Weber <olaf@infovore.xs4all.nl>
* ctie.1: Correct header from TIE to CTIE.
diff --git a/Build/source/texk/web2c/ctiedir/ctie-k.c b/Build/source/texk/web2c/ctiedir/ctie-k.c
deleted file mode 100644
index bfa74483d5d..00000000000
--- a/Build/source/texk/web2c/ctiedir/ctie-k.c
+++ /dev/null
@@ -1,1166 +0,0 @@
-#define version_number "1.1"
-#define banner "This is CTIE, Version 1.1"
-#define copyright \
-"Copyright 2002,2003 Julian Gilbey. All rights reserved. There is no warranty.\n\
-Run with the --version option for other important information." \
- \
-
-#define kpse_find_cweb(name) kpse_find_file(name,kpse_cweb_format,true) \
-
-#define buf_size 1024
-#define max_file_index 32 \
-
-#define xisupper(c) (isupper(c) &&((unsigned char) c<0200) ) \
- \
-
-#define spotless 0
-#define troublesome 1
-#define fatal 2 \
-
-#define max_include_files 20 \
-
-#define max_file_name_length 1024 \
-
-#define too_long() {total_include_files--;free(new_inc) ; \
-err_print(i,"! Include file name too long") ;goto restart;} \
-
-#define fatal_error(i,s,t) { \
-fprintf(stderr,"\n%s",s) ; \
-err_print(i,t) ; \
-history= fatal; \
-exit(wrap_up() ) ; \
-} \
- \
-
-#define none (-1) \
-
-/*2:*/
-#line 89 "./ctie.w"
-
-/*10:*/
-#line 172 "./ctie.w"
-
-#include <stdio.h>
-
-
-#line 126 "./ctie-k.ch"
-/*:10*//*39:*/
-#line 715 "./ctie.w"
-
-#include <errno.h>
-
-
-/*:39*//*72:*/
-#line 454 "./ctie-k.ch"
-
-#include <kpathsea/kpathsea.h>
-
-/*:72*/
-#line 90 "./ctie.w"
-
-/*12:*/
-#line 211 "./ctie.w"
-
-#define search 0
-#define test 1
-#define reading 2
-#define ignore 3
-typedef int in_file_modes;
-#define unknown 0
-#define master 1
-#define chf 2
-typedef int file_types;
-
-
-/*:12*//*13:*/
-#line 229 "./ctie.w"
-
-#define normal 0
-#define pre 1
-#define post 2
-typedef int out_md_type;
-
-
-/*:13*//*14:*/
-#line 239 "./ctie.w"
-
-typedef int file_index;
-
-
-/*:14*//*15:*/
-#line 246 "./ctie.w"
-
-typedef struct _indsc{
-char file_name[max_file_name_length];
-long line;
-FILE*the_file;
-struct _indsc*parent;
-}include_description;
-
-
-/*:15*//*16:*/
-#line 259 "./ctie.w"
-
-typedef struct _idsc{
-string file_name;
-char buffer[buf_size];
-in_file_modes mode;
-long line;
-file_types type_of_file;
-include_description*current_include;
-char*buffer_end;
-char*limit;
-char*loc;
-FILE*the_file;
-int dont_match;
-}input_description;
-
-
-/*:16*/
-#line 91 "./ctie.w"
-
-/*30:*/
-#line 584 "./ctie.w"
-
-#line 223 "./ctie-k.ch"
-void err_print P2H(file_index,char*);
-#line 586 "./ctie.w"
-
-/*:30*//*35:*/
-#line 673 "./ctie.w"
-
-#line 243 "./ctie-k.ch"
-int wrap_up P1H(void);
-#line 675 "./ctie.w"
-
-/*:35*//*37:*/
-#line 696 "./ctie.w"
-
-#line 249 "./ctie-k.ch"
-void pfatal_error P2H(char*,char*);
-#line 698 "./ctie.w"
-
-/*:37*//*69:*/
-#line 1232 "./ctie.w"
-
-#line 392 "./ctie-k.ch"
-void usage_help P1H(void);
-void print_version_and_exit P2H(string,string);
-#line 1235 "./ctie.w"
-
-
-/*:69*/
-#line 92 "./ctie.w"
-
-/*9:*/
-#line 162 "./ctie.w"
-
-int history= spotless;
-
-
-/*:9*//*17:*/
-#line 286 "./ctie.w"
-
-int total_include_files= 0;
-
-/*:17*//*18:*/
-#line 292 "./ctie.w"
-
-file_index actual_input,test_input,no_ch;
-file_types prod_chf= unknown;
-out_md_type out_mode;
-
-/*:18*//*20:*/
-#line 309 "./ctie.w"
-
-input_description*input_organisation[max_file_index+1];
-
-
-/*:20*//*24:*/
-#line 406 "./ctie.w"
-
-boolean input_has_ended= false;
-
-
-/*:24*//*41:*/
-#line 742 "./ctie.w"
-
-FILE*out_file;
-string out_name;
-
-
-#line 273 "./ctie-k.ch"
-/*:41*//*68:*/
-#line 1217 "./ctie.w"
-
-string CTIEHELP[]= {
-"Usage: ctie -[mc] outfile master changefile(s)",
-" Create a new master file or change file from the given",
-" master (C)WEB file and changefiles.",
-" All filenames are taken literally; no suffixes are added.",
-"",
-"-m create a new master file from original (C)WEB and change file(s)",
-"-c create a master change file for original (C)WEB file from changefile(s)",
-"--help display this help and exit",
-"--version display version information and exit",
-NULL
-};
-
-
-/*:68*//*73:*/
-#line 459 "./ctie-k.ch"
-
-string file_open_mode;
-#line 1278 "./ctie.w"
-
-
-/*:73*/
-#line 93 "./ctie.w"
-
-/*31:*/
-#line 589 "./ctie.w"
-
-#line 230 "./ctie-k.ch"
-void err_print P2C(file_index,i,char*,s)
-
-#line 592 "./ctie.w"
-{
-char*k,*l;
-fprintf(stderr,*s=='!'?"\n%s":"%s",s);
-if(i>=0)/*32:*/
-#line 611 "./ctie.w"
-
-{
-register input_description*inp_desc= input_organisation[i];
-register include_description*inc_desc= inp_desc->current_include;
-
-if(inc_desc!=NULL){
-fprintf(stderr,". (l. %ld of include file %s",inc_desc->line,
-inc_desc->file_name);
-fprintf(stderr," included from l. %ld of %s file %s)\n",
-inp_desc->line,
-inp_desc->type_of_file==master?"master":"change",
-inp_desc->file_name);
-}
-else
-fprintf(stderr,". (l. %ld of %s file %s)\n",inp_desc->line,
-inp_desc->type_of_file==master?"master":"change",
-inp_desc->file_name);
-l= (inp_desc->loc>=inp_desc->limit?inp_desc->limit:inp_desc->loc);
-if(l> inp_desc->buffer){
-for(k= inp_desc->buffer;k<l;k++)
-if(*k=='\t')putc(' ',stderr);
-else putc(*k,stderr);
-putc('\n',stderr);
-for(k= inp_desc->buffer;k<l;k++)
-putc(' ',stderr);
-}
-for(k= l;k<inp_desc->limit;k++)
-putc(*k,stderr);
-putc('\n',stderr);
-}
-
-
-/*:32*/
-#line 595 "./ctie.w"
-
-else putc('\n',stderr);
-fflush(stderr);
-history= troublesome;
-}
-
-/*:31*//*38:*/
-#line 699 "./ctie.w"
-
-#line 256 "./ctie-k.ch"
-void pfatal_error P2C(char*,s,char*,t)
-#line 702 "./ctie.w"
-{
-char*strerr= strerror(errno);
-
-fprintf(stderr,"\n%s%s",s,t);
-if(strerr)fprintf(stderr," (%s)\n",strerr);
-else fprintf(stderr,"\n");
-history= fatal;
-exit(wrap_up());
-}
-
-
-/*:38*/
-#line 94 "./ctie.w"
-
-/*21:*/
-#line 328 "./ctie.w"
-
-#line 143 "./ctie-k.ch"
-boolean get_line P2C(file_index,i,boolean,do_includes)
-#line 331 "./ctie.w"
-{
-register input_description*inp_desc= input_organisation[i];
-register FILE*fp;
-
-if(inp_desc->mode==ignore)return false;
-
-restart:
-if(inp_desc->current_include!=NULL){
-register include_description*inc_desc= inp_desc->current_include;
-
-fp= inc_desc->the_file;
-/*26:*/
-#line 426 "./ctie.w"
-
-{
-register int c;
-register char*k;
-
-if(feof(fp))
-/*27:*/
-#line 452 "./ctie.w"
-
-{
-include_description*temp= inc_desc->parent;
-
-fclose(fp);
-free(inc_desc);
-total_include_files--;
-inp_desc->current_include= temp;
-goto restart;
-}
-
-
-/*:27*/
-#line 432 "./ctie.w"
-
-
-inp_desc->limit= k= inp_desc->buffer;
-while(k<=inp_desc->buffer_end&&(c= getc(fp))!=EOF&&c!='\n')
-if((*(k++)= c)!=' ')inp_desc->limit= k;
-if(k> inp_desc->buffer_end)
-if((c= getc(fp))!=EOF&&c!='\n'){
-ungetc(c,fp);inp_desc->loc= inp_desc->buffer;
-err_print(i,"! Input line too long");
-
-}
-if(c==EOF&&inp_desc->limit==inp_desc->buffer)
-/*27:*/
-#line 452 "./ctie.w"
-
-{
-include_description*temp= inc_desc->parent;
-
-fclose(fp);
-free(inc_desc);
-total_include_files--;
-inp_desc->current_include= temp;
-goto restart;
-}
-
-
-/*:27*/
-#line 444 "./ctie.w"
-
-
-inc_desc->line++;
-}
-
-/*:26*/
-#line 342 "./ctie.w"
-
-}
-else{
-fp= inp_desc->the_file;
-/*22:*/
-#line 366 "./ctie.w"
-
-{
-register int c;
-register char*k;
-
-if(feof(fp))
-/*23:*/
-#line 394 "./ctie.w"
-
-{
-inp_desc->mode= ignore;
-inp_desc->limit= NULL;
-if(inp_desc->type_of_file==master)input_has_ended= true;
-fclose(fp);
-return false;
-}
-
-
-/*:23*/
-#line 372 "./ctie.w"
-
-
-inp_desc->limit= k= inp_desc->buffer;
-while(k<=inp_desc->buffer_end&&(c= getc(fp))!=EOF&&c!='\n')
-if((*(k++)= c)!=' ')inp_desc->limit= k;
-if(k> inp_desc->buffer_end)
-if((c= getc(fp))!=EOF&&c!='\n'){
-ungetc(c,fp);inp_desc->loc= inp_desc->buffer;
-err_print(i,"! Input line too long");
-
-}
-if(c==EOF&&inp_desc->limit==inp_desc->buffer)
-/*23:*/
-#line 394 "./ctie.w"
-
-{
-inp_desc->mode= ignore;
-inp_desc->limit= NULL;
-if(inp_desc->type_of_file==master)input_has_ended= true;
-fclose(fp);
-return false;
-}
-
-
-/*:23*/
-#line 384 "./ctie.w"
-
-
-/*25:*/
-#line 414 "./ctie.w"
-
-inp_desc->line++;
-if(inp_desc->type_of_file==master&&inp_desc->line%100==0){
-if(inp_desc->line%500==0)printf("%ld",inp_desc->line);
-else putchar('.');
-fflush(stdout);
-}
-
-
-/*:25*/
-#line 387 "./ctie.w"
-
-}
-
-
-/*:22*/
-#line 346 "./ctie.w"
-
-}
-
-if(do_includes)
-/*28:*/
-#line 467 "./ctie.w"
-
-{
-inp_desc->loc= inp_desc->buffer;
-*inp_desc->limit= ' ';
-if(*inp_desc->buffer=='@'&&
-(inp_desc->buffer[1]=='i'||inp_desc->buffer[1]=='I')){
-inp_desc->loc= inp_desc->buffer+2;
-*inp_desc->limit= '"';
-while(*inp_desc->loc==' '||*inp_desc->loc=='\t')
-inp_desc->loc++;
-if(inp_desc->loc>=inp_desc->limit){
-err_print(i,"! Include file name not given");
-
-goto restart;
-}
-if(total_include_files>=max_include_files){
-err_print(i,"! Too many nested includes");
-
-goto restart;
-}
-total_include_files++;
-/*29:*/
-#line 507 "./ctie.w"
-
-{
-include_description*new_inc;
-#line 166 "./ctie-k.ch"
-char*file_name_end;
-string fullname;
-char*k;
-#line 514 "./ctie.w"
-
-new_inc= (include_description*)malloc(sizeof(include_description));
-if(new_inc==NULL)
-fatal_error(i,"! No memory for new include descriptor","");
-new_inc->line= 0;
-k= new_inc->file_name;
-file_name_end= k+max_file_name_length-1;
-
-if(*inp_desc->loc=='"'){
-inp_desc->loc++;
-while(*inp_desc->loc!='"'&&k<=file_name_end)
-*k++= *inp_desc->loc++;
-if(inp_desc->loc==inp_desc->limit)
-k= file_name_end+1;
-}else
-while(*inp_desc->loc!=' '&&*inp_desc->loc!='\t'&&
-*inp_desc->loc!='"'&&k<=file_name_end)*k++= *inp_desc->loc++;
-if(k> file_name_end)too_long();
-
-*k= '\0';
-#line 174 "./ctie-k.ch"
-fullname= kpse_find_cweb(new_inc->file_name);
-if(fullname)
-new_inc->the_file= fopen(fullname,"r");
-if(fullname!=NULL&&new_inc->the_file!=NULL){
-free(fullname);
-#line 535 "./ctie.w"
-new_inc->parent= inp_desc->current_include;
-inp_desc->current_include= new_inc;
-goto restart;
-}
-#line 563 "./ctie.w"
-total_include_files--;
-free(new_inc);
-#line 212 "./ctie-k.ch"
-if(fullname){
-free(fullname);
-err_print(i,"! Cannot open include file");
-}else
-err_print(i,"! Cannot find include file");
-#line 566 "./ctie.w"
-
-goto restart;
-}
-
-
-
-/*:29*/
-#line 488 "./ctie.w"
-;
-}
-}
-
-
-/*:28*/
-#line 351 "./ctie.w"
-
-return true;
-}
-
-
-/*:21*//*34:*/
-#line 663 "./ctie.w"
-
-#line 237 "./ctie-k.ch"
-int wrap_up P1H(void)
-#line 665 "./ctie.w"
-{
-/*36:*/
-#line 682 "./ctie.w"
-
-switch(history){
-case spotless:
-printf("\n(No errors were found.)\n");break;
-case troublesome:
-printf("\n(Pardon me, but I think I spotted something wrong.)\n");break;
-case fatal:printf("(That was a fatal error, my friend.)\n");
-}
-
-
-/*:36*/
-#line 666 "./ctie.w"
-;
-if(history> spotless)return 1;
-else return 0;
-}
-
-/*:34*//*44:*/
-#line 791 "./ctie.w"
-
-#line 342 "./ctie-k.ch"
-boolean lines_dont_match P2C(file_index,i,file_index,j)
-#line 794 "./ctie.w"
-{
-register input_description*iptr= input_organisation[i],
-*jptr= input_organisation[j];
-
-if(iptr->limit-iptr->buffer!=jptr->limit-jptr->buffer)
-return true;
-return strncmp(iptr->buffer,jptr->buffer,iptr->limit-iptr->buffer);
-}
-
-
-/*:44*//*45:*/
-#line 808 "./ctie.w"
-
-#line 349 "./ctie-k.ch"
-void init_change_file P1C(file_index,i)
-#line 811 "./ctie.w"
-{
-register input_description*inp_desc= input_organisation[i];
-char ccode;
-
-inp_desc->limit= inp_desc->buffer;
-/*46:*/
-#line 827 "./ctie.w"
-
-while(1){
-if(!get_line(i,false))return;
-if(inp_desc->limit<inp_desc->buffer+2)continue;
-if(inp_desc->buffer[0]!='@')continue;
-ccode= inp_desc->buffer[1];
-if(xisupper(ccode))ccode= tolower(ccode);
-if(ccode=='x')break;
-if(ccode=='y'||ccode=='z'||ccode=='i'){
-inp_desc->loc= inp_desc->buffer+2;
-err_print(i,"! Missing @x in change file");
-
-}
-}
-
-/*:46*/
-#line 816 "./ctie.w"
-
-/*47:*/
-#line 844 "./ctie.w"
-
-do{
-if(!get_line(i,true)){
-err_print(i,"! Change file ended after @x");
-
-return;
-}
-}while(inp_desc->limit==inp_desc->buffer);
-
-
-/*:47*/
-#line 817 "./ctie.w"
-
-inp_desc->dont_match= 0;
-}
-
-
-/*:45*//*48:*/
-#line 857 "./ctie.w"
-
-#line 356 "./ctie-k.ch"
-void put_line P1C(file_index,j)
-#line 860 "./ctie.w"
-{
-char*ptr= input_organisation[j]->buffer;
-char*lmt= input_organisation[j]->limit;
-
-while(ptr<lmt)putc(*ptr++,out_file);
-putc('\n',out_file);
-}
-
-
-/*:48*//*49:*/
-#line 872 "./ctie.w"
-
-#line 363 "./ctie-k.ch"
-boolean e_of_ch_module P1C(file_index,i)
-#line 875 "./ctie.w"
-{
-register input_description*inp_desc= input_organisation[i];
-
-if(inp_desc->limit==NULL){
-err_print(i,"! Change file ended without @z");
-
-return true;
-}else if(inp_desc->limit>=inp_desc->buffer+2)
-if(inp_desc->buffer[0]=='@'&&
-(inp_desc->buffer[1]=='Z'||inp_desc->buffer[1]=='z'))
-return true;
-return false;
-}
-
-
-/*:49*//*50:*/
-#line 893 "./ctie.w"
-
-#line 370 "./ctie-k.ch"
-boolean e_of_ch_preamble P1C(file_index,i)
-#line 896 "./ctie.w"
-{
-register input_description*inp_desc= input_organisation[i];
-
-if(inp_desc->limit>=inp_desc->buffer+2&&inp_desc->buffer[0]=='@')
-if(inp_desc->buffer[1]=='Y'||inp_desc->buffer[1]=='y'){
-if(inp_desc->dont_match> 0){
-inp_desc->loc= inp_desc->buffer+2;
-fprintf(stderr,"\n! Hmm... %d ",inp_desc->dont_match);
-err_print(i,"of the preceding lines failed to match");
-}
-return true;
-}
-return false;
-}
-
-
-
-/*:50*//*61:*/
-#line 1105 "./ctie.w"
-
-#line 376 "./ctie-k.ch"
-void usage_error P1H(void)
-#line 1107 "./ctie.w"
-{
-/*62:*/
-#line 1118 "./ctie.w"
-
-#line 382 "./ctie-k.ch"
-{
-extern KPSEDLL string kpathsea_version_string;
-printf("%s (%s)\n",banner,kpathsea_version_string);
-}
-#line 1120 "./ctie.w"
-printf("%s\n",copyright);
-
-
-/*:62*/
-#line 1108 "./ctie.w"
-;
-fprintf(stderr,"Usage: ctie -[mc] outfile master changefile(s)\n");
-fprintf(stderr,"Type ctie --help for more information\n");
-exit(1);
-}
-
-
-/*:61*/
-#line 95 "./ctie.w"
-
-/*3:*/
-#line 101 "./ctie.w"
-
-#line 32 "./ctie-k.ch"
-int main P2C(int,argc,string*,argv)
-#line 104 "./ctie.w"
-{
-#line 38 "./ctie-k.ch"
-/*5:*/
-#line 84 "./ctie-k.ch"
-
-kpse_set_program_name(argv[0],"ctie");
-
-/*:5*/
-#line 38 "./ctie-k.ch"
-;
-/*19:*/
-#line 300 "./ctie.w"
-
-actual_input= 0;
-out_mode= normal;
-
-/*:19*/
-#line 39 "./ctie-k.ch"
-;
-#line 106 "./ctie.w"
-/*63:*/
-#line 1135 "./ctie.w"
-
-{
-if(argc> max_file_index+5-1)usage_error();
-no_ch= -1;
-while(--argc> 0){
-argv++;
-if(strcmp("-help",*argv)==0||strcmp("--help",*argv)==0)
-/*66:*/
-#line 1202 "./ctie.w"
-
-usage_help();
-
-
-
-/*:66*/
-#line 1142 "./ctie.w"
-;
-if(strcmp("-version",*argv)==0||strcmp("--version",*argv)==0)
-/*67:*/
-#line 1208 "./ctie.w"
-
-{
-print_version_and_exit("CTIE",version_number);
-
-}
-
-
-/*:67*/
-#line 1144 "./ctie.w"
-;
-if(**argv=='-')/*64:*/
-#line 1158 "./ctie.w"
-
-if(prod_chf!=unknown)usage_error();
-else
-switch(*(*argv+1)){
-case'c':case'C':prod_chf= chf;break;
-case'm':case'M':prod_chf= master;break;
-default:usage_error();
-}
-
-
-/*:64*/
-#line 1145 "./ctie.w"
-
-else/*65:*/
-#line 1172 "./ctie.w"
-
-{
-if(no_ch==(-1)){
-out_name= *argv;
-}else{
-register input_description*inp_desc;
-
-inp_desc= (input_description*)malloc(sizeof(input_description));
-if(inp_desc==NULL)
-fatal_error(-1,"! No memory for input descriptor","");
-
-inp_desc->mode= search;
-inp_desc->line= 0;
-inp_desc->type_of_file= chf;
-inp_desc->limit= inp_desc->buffer;
-inp_desc->buffer[0]= ' ';
-inp_desc->loc= inp_desc->buffer+1;
-inp_desc->buffer_end= inp_desc->buffer+buf_size-2;
-inp_desc->file_name= *argv;
-inp_desc->current_include= NULL;
-input_organisation[no_ch]= inp_desc;
-}
-no_ch++;
-}
-
-
-/*:65*/
-#line 1146 "./ctie.w"
-
-}
-if(no_ch<=0||prod_chf==unknown)usage_error();
-}
-
-
-/*:63*/
-#line 106 "./ctie.w"
-
-/*62:*/
-#line 1118 "./ctie.w"
-
-#line 382 "./ctie-k.ch"
-{
-extern KPSEDLL string kpathsea_version_string;
-printf("%s (%s)\n",banner,kpathsea_version_string);
-}
-#line 1120 "./ctie.w"
-printf("%s\n",copyright);
-
-
-/*:62*/
-#line 107 "./ctie.w"
-;
-/*42:*/
-#line 277 "./ctie-k.ch"
-
-{
-string fullname;
-
-fullname= kpse_find_cweb(input_organisation[0]->file_name);
-if(fullname)
-input_organisation[0]->the_file= fopen(fullname,"r");
-
-if(fullname==NULL||input_organisation[0]->the_file==NULL){
-if(fullname){
-pfatal_error("! Cannot open master file ",
-input_organisation[0]->file_name);
-}else{
-fatal_error(-1,"! Cannot find master file ",
-input_organisation[0]->file_name);
-}
-}
-else free(fullname);
-
-
-#line 759 "./ctie.w"
-printf("(%s)\n",input_organisation[0]->file_name);
-input_organisation[0]->type_of_file= master;
-get_line(0,true);
-}
-
-
-/*:42*/
-#line 108 "./ctie.w"
-
-/*43:*/
-#line 313 "./ctie-k.ch"
-
-{
-file_index i;
-string fullname;
-
-i= 1;
-while(i<no_ch){
-fullname= kpse_find_cweb(input_organisation[i]->file_name);
-if(fullname)
-input_organisation[i]->the_file= fopen(fullname,"r");
-
-if(fullname==NULL||input_organisation[i]->the_file==NULL){
-if(fullname){
-pfatal_error("! Cannot open change file ",
-input_organisation[i]->file_name);
-}else{
-fatal_error(-1,"! Cannot find change file ",
-input_organisation[i]->file_name);
-}
-}
-else free(fullname);
-
-
-#line 780 "./ctie.w"
-printf("(%s)\n",input_organisation[i]->file_name);
-init_change_file(i);
-i++;
-}
-}
-
-
-/*:43*/
-#line 109 "./ctie.w"
-
-/*40:*/
-#line 729 "./ctie.w"
-
-{
-out_file= fopen(out_name,"w");
-if(out_file==NULL){
-pfatal_error("! Cannot open/create output file","");
-
-}
-}
-
-
-/*:40*/
-#line 110 "./ctie.w"
-
-/*59:*/
-#line 1074 "./ctie.w"
-
-actual_input= 0;
-input_has_ended= false;
-while(input_has_ended==false||actual_input!=0)
-/*51:*/
-#line 917 "./ctie.w"
-
-{
-file_index test_file;
-
-/*52:*/
-#line 934 "./ctie.w"
-
-{
-register input_description*inp_desc;
-while(actual_input> 0&&e_of_ch_module(actual_input)){
-inp_desc= input_organisation[actual_input];
-if(inp_desc->type_of_file==master){
-
-fatal_error(-1,"! This can't happen: change file is master file","");
-
-}
-inp_desc->mode= search;
-init_change_file(actual_input);
-while((input_organisation[actual_input]->mode!=reading
-&&actual_input> 0))
-actual_input--;
-}
-}
-
-
-/*:52*/
-#line 921 "./ctie.w"
-
-if(input_has_ended&&actual_input==0)break;
-/*53:*/
-#line 960 "./ctie.w"
-
-test_input= none;
-test_file= actual_input;
-while(test_input==none&&test_file<no_ch-1){
-test_file++;
-switch(input_organisation[test_file]->mode){
-case search:
-if(lines_dont_match(actual_input,test_file)==false){
-input_organisation[test_file]->mode= test;
-test_input= test_file;
-}
-break;
-case test:
-if(lines_dont_match(actual_input,test_file)){
-
-input_organisation[test_file]->dont_match++;
-}
-test_input= test_file;
-break;
-case reading:
-break;
-case ignore:
-break;
-}
-}
-
-
-/*:53*/
-#line 923 "./ctie.w"
-
-/*54:*/
-#line 993 "./ctie.w"
-
-if(prod_chf==chf){
-while(1){
-/*55:*/
-#line 1007 "./ctie.w"
-
-if(out_mode==normal){
-if(test_input!=none){
-fprintf(out_file,"@x\n");
-out_mode= pre;
-}else break;
-}
-
-
-/*:55*/
-#line 996 "./ctie.w"
-
-/*56:*/
-#line 1021 "./ctie.w"
-
-if(out_mode==pre){
-if(test_input==none){
-fprintf(out_file,"@y\n");
-out_mode= post;
-}else{
-if(input_organisation[actual_input]->type_of_file==master)
-put_line(actual_input);
-break;
-}
-}
-
-
-/*:56*/
-#line 997 "./ctie.w"
-
-/*57:*/
-#line 1040 "./ctie.w"
-
-if(out_mode==post){
-if(input_organisation[actual_input]->type_of_file==chf){
-if(test_input==none)put_line(actual_input);
-break;
-}else{
-fprintf(out_file,"@z\n\n");
-out_mode= normal;
-}
-}
-
-
-/*:57*/
-#line 998 "./ctie.w"
-
-}
-}else
-if(test_input==none)put_line(actual_input);
-
-
-/*:54*/
-#line 924 "./ctie.w"
-
-/*58:*/
-#line 1055 "./ctie.w"
-
-get_line(actual_input,true);
-if(test_input!=none){
-get_line(test_input,true);
-if(e_of_ch_preamble(test_input)==true){
-get_line(test_input,true);
-input_organisation[test_input]->mode= reading;
-actual_input= test_input;
-test_input= none;
-}
-}
-
-
-/*:58*/
-#line 925 "./ctie.w"
-
-}
-
-
-/*:51*/
-#line 1078 "./ctie.w"
-
-if(out_mode==post)
-fprintf(out_file,"@z\n");
-
-
-/*:59*/
-#line 111 "./ctie.w"
-
-/*60:*/
-#line 1087 "./ctie.w"
-
-{
-file_index i;
-
-for(i= 1;i<no_ch;i++){
-if(input_organisation[i]->mode!=ignore){
-input_organisation[i]->loc= input_organisation[i]->buffer;
-err_print(i,"! Change file entry did not match");
-
-}
-}
-}
-
-
-/*:60*/
-#line 112 "./ctie.w"
-
-exit(wrap_up());
-}
-
-#line 57 "./ctie-k.ch"
-/*:3*/
-#line 96 "./ctie.w"
-
-
-/*:2*//*70:*/
-#line 1237 "./ctie.w"
-
-#line 399 "./ctie-k.ch"
-void usage_help P1H(void)
-#line 1239 "./ctie.w"
-{
-string*message= CTIEHELP;
-
-while(*message){
-fputs(*message,stdout);
-putchar('\n');
-++message;
-}
-putchar('\n');
-exit(0);
-}
-
-
-/*:70*//*71:*/
-#line 1252 "./ctie.w"
-
-#line 416 "./ctie-k.ch"
-void print_version_and_exit P2C(string,name,string,version)
-{
-extern KPSEDLL string kpathsea_version_string;
-printf("%s %s\n",name,version);
-puts(kpathsea_version_string);
-
-puts("Copyright (C) 2002,2003 Julian Gilbey.");
-puts("Kpathsea is copyright (C) 1999 Free Software Foundation, Inc.");
-
-puts("There is NO warranty. This is free software.");
-puts("Redistribution of this software is covered by the terms of");
-puts("both the CTIE copyright and the GNU General Public Licence.");
-puts("For more information about these matters, see the files");
-puts("named COPYING and the CTIE source.");
-puts("Primary authors of CTIE: Julian Gilbey.");
-puts("Kpathsea written by Karl Berry and others.\n");
-
-exit(0);
-}
-#line 1265 "./ctie.w"
-
-
-#line 450 "./ctie-k.ch"
-/*:71*/