From aa3e111e5d4398b9a787c9ca452aba79700e706c Mon Sep 17 00:00:00 2001 From: Andreas Scherer Date: Sun, 7 Jun 2020 17:59:46 +0000 Subject: [CWEB] Add date to table-of-contents page. git-svn-id: svn://tug.org/texlive/trunk@55465 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/ctangleboot.cin | 236 ++++++++++++++++---------------- 1 file changed, 118 insertions(+), 118 deletions(-) (limited to 'Build/source/texk/web2c/ctangleboot.cin') diff --git a/Build/source/texk/web2c/ctangleboot.cin b/Build/source/texk/web2c/ctangleboot.cin index 57f51f416f2..f1c6e7ba140 100644 --- a/Build/source/texk/web2c/ctangleboot.cin +++ b/Build/source/texk/web2c/ctangleboot.cin @@ -2,7 +2,7 @@ #line 64 "cwebdir/ctangle.w" /*2:*/ -#line 60 "cwebdir/ctang-w2c.ch" +#line 73 "cwebdir/ctang-w2c.ch" #include #line 83 "cwebdir/ctangle.w" @@ -290,7 +290,7 @@ extern void cb_show_banner(void); #line 128 "cwebdir/ctangle.w" /*:15*//*108:*/ -#line 886 "cwebdir/ctang-w2c.ch" +#line 899 "cwebdir/ctang-w2c.ch" extern char cb_banner[]; @@ -407,40 +407,40 @@ extern sixteen_bits section_count; /*41:*/ #line 533 "cwebdir/ctangle.w" -#line 251 "cwebdir/ctang-w2c.ch" +#line 264 "cwebdir/ctang-w2c.ch" static void phase_two(void); #line 535 "cwebdir/ctangle.w" /*:41*//*46:*/ #line 602 "cwebdir/ctangle.w" -#line 338 "cwebdir/ctang-w2c.ch" +#line 351 "cwebdir/ctang-w2c.ch" static void output_defs(void); #line 604 "cwebdir/ctangle.w" /*:46*//*48:*/ #line 648 "cwebdir/ctangle.w" -#line 358 "cwebdir/ctang-w2c.ch" +#line 371 "cwebdir/ctang-w2c.ch" static void out_char(eight_bits); #line 650 "cwebdir/ctangle.w" /*:48*//*90:*/ #line 1460 "cwebdir/ctangle.w" -#line 654 "cwebdir/ctang-w2c.ch" +#line 667 "cwebdir/ctang-w2c.ch" static void phase_one(void); #line 1462 "cwebdir/ctangle.w" /*:90*//*92:*/ #line 1478 "cwebdir/ctangle.w" -#line 668 "cwebdir/ctang-w2c.ch" +#line 681 "cwebdir/ctang-w2c.ch" static void skip_limbo(void); #line 1480 "cwebdir/ctangle.w" /*:92*//*97:*/ -#line 755 "cwebdir/ctang-w2c.ch" +#line 768 "cwebdir/ctang-w2c.ch" static eight_bits get_next(void); static eight_bits skip_ahead(void); @@ -457,11 +457,11 @@ static void store_two_bytes(sixteen_bits); #line 70 "cwebdir/ctangle.w" -#line 55 "cwebdir/ctang-w2c.ch" +#line 68 "cwebdir/ctang-w2c.ch" /*:1*//*3:*/ #line 91 "cwebdir/ctangle.w" -#line 69 "cwebdir/ctang-w2c.ch" +#line 82 "cwebdir/ctang-w2c.ch" int main( int ac, char**av) @@ -479,7 +479,7 @@ text_ptr= text_info+1;text_ptr->tok_start= tok_mem; /*:18*//*20:*/ #line 177 "cwebdir/ctangle.w" -#line 130 "cwebdir/ctang-w2c.ch" +#line 143 "cwebdir/ctang-w2c.ch" init_node(name_dir); #line 179 "cwebdir/ctangle.w" @@ -525,7 +525,7 @@ ccode['\'']= ord; section_text[0]= ' '; /*:71*//*109:*/ -#line 889 "cwebdir/ctang-w2c.ch" +#line 902 "cwebdir/ctang-w2c.ch" strncpy(cb_banner,banner,max_banner-1); @@ -533,7 +533,7 @@ strncpy(cb_banner,banner,max_banner-1); #line 98 "cwebdir/ctangle.w" ; common_init(); -#line 77 "cwebdir/ctang-w2c.ch" +#line 90 "cwebdir/ctang-w2c.ch" if(show_banner)cb_show_banner(); #line 101 "cwebdir/ctangle.w" phase_one(); @@ -544,7 +544,7 @@ return wrap_up(); /*:3*//*21:*/ #line 183 "cwebdir/ctangle.w" -#line 140 "cwebdir/ctang-w2c.ch" +#line 153 "cwebdir/ctang-w2c.ch" boolean names_match( name_pointer p, const char*first, @@ -559,17 +559,17 @@ return!strncmp(first,p->byte_start,l); /*:21*//*22:*/ #line 198 "cwebdir/ctangle.w" -#line 153 "cwebdir/ctang-w2c.ch" +#line 166 "cwebdir/ctang-w2c.ch" void init_node( name_pointer node) #line 202 "cwebdir/ctangle.w" { -#line 161 "cwebdir/ctang-w2c.ch" +#line 174 "cwebdir/ctang-w2c.ch" node->equiv= (void*)text_info; #line 204 "cwebdir/ctangle.w" } -#line 168 "cwebdir/ctang-w2c.ch" +#line 181 "cwebdir/ctang-w2c.ch" void init_p(name_pointer p,eight_bits t){(void)p;(void)t;} #line 207 "cwebdir/ctangle.w" @@ -577,13 +577,13 @@ init_p(name_pointer p,eight_bits t){(void)p;(void)t;} /*:22*//*26:*/ #line 260 "cwebdir/ctangle.w" -#line 177 "cwebdir/ctang-w2c.ch" +#line 190 "cwebdir/ctang-w2c.ch" static void store_two_bytes( sixteen_bits x) #line 264 "cwebdir/ctangle.w" { -#line 185 "cwebdir/ctang-w2c.ch" +#line 198 "cwebdir/ctang-w2c.ch" if(tok_ptr+2> tok_mem_end)overflow(_("token")); #line 266 "cwebdir/ctangle.w" *tok_ptr++= x>>8; @@ -593,13 +593,13 @@ if(tok_ptr+2> tok_mem_end)overflow(_("token")); /*:26*//*30:*/ #line 336 "cwebdir/ctangle.w" -#line 193 "cwebdir/ctang-w2c.ch" +#line 206 "cwebdir/ctang-w2c.ch" static void push_level( name_pointer p) #line 340 "cwebdir/ctangle.w" { -#line 201 "cwebdir/ctang-w2c.ch" +#line 214 "cwebdir/ctang-w2c.ch" if(stack_ptr==stack_end)overflow(_("stack")); #line 342 "cwebdir/ctangle.w" *stack_ptr= cur_state; @@ -614,7 +614,7 @@ cur_section= 0; /*:30*//*31:*/ #line 355 "cwebdir/ctangle.w" -#line 209 "cwebdir/ctang-w2c.ch" +#line 222 "cwebdir/ctang-w2c.ch" static void pop_level( int flag) @@ -632,7 +632,7 @@ if(stack_ptr> stack)cur_state= *stack_ptr; /*:31*//*33:*/ #line 391 "cwebdir/ctangle.w" -#line 218 "cwebdir/ctang-w2c.ch" +#line 231 "cwebdir/ctang-w2c.ch" static void get_output(void) #line 394 "cwebdir/ctangle.w" @@ -659,11 +659,11 @@ else/*34:*/ { a-= 024000; -#line 225 "cwebdir/ctang-w2c.ch" +#line 238 "cwebdir/ctang-w2c.ch" if((a+name_dir)->equiv!=(void*)text_info)push_level(a+name_dir); #line 427 "cwebdir/ctangle.w" else if(a!=0){ -#line 231 "cwebdir/ctang-w2c.ch" +#line 244 "cwebdir/ctang-w2c.ch" fputs(_("\n! Not present: <"),stdout); #line 429 "cwebdir/ctangle.w" print_section_name(a+name_dir);err_print(">"); @@ -685,7 +685,7 @@ out_char(section_number); /*:33*//*37:*/ #line 481 "cwebdir/ctangle.w" -#line 238 "cwebdir/ctang-w2c.ch" +#line 251 "cwebdir/ctang-w2c.ch" static void flush_buffer(void) #line 484 "cwebdir/ctangle.w" @@ -702,7 +702,7 @@ cur_line++; /*:37*//*42:*/ #line 536 "cwebdir/ctangle.w" -#line 258 "cwebdir/ctang-w2c.ch" +#line 271 "cwebdir/ctang-w2c.ch" static void phase_two(void){ #line 539 "cwebdir/ctangle.w" @@ -727,7 +727,7 @@ output_defs(); #line 542 "cwebdir/ctangle.w" ; if(text_info->text_link==0&&cur_out_file==end_output_files){ -#line 265 "cwebdir/ctang-w2c.ch" +#line 278 "cwebdir/ctang-w2c.ch" fputs(_("\n! No program text was specified."),stdout);mark_harmless; #line 545 "cwebdir/ctangle.w" @@ -735,13 +735,13 @@ fputs(_("\n! No program text was specified."),stdout);mark_harmless; else{ if(cur_out_file==end_output_files){ if(show_progress) -#line 271 "cwebdir/ctang-w2c.ch" +#line 284 "cwebdir/ctang-w2c.ch" printf(_("\nWriting the output file (%s):"),C_file_name); #line 551 "cwebdir/ctangle.w" } else{ if(show_progress){ -#line 277 "cwebdir/ctang-w2c.ch" +#line 290 "cwebdir/ctang-w2c.ch" fputs(_("\nWriting the output files:"),stdout); #line 555 "cwebdir/ctangle.w" @@ -753,15 +753,15 @@ if(text_info->text_link==0)goto writeloop; while(stack_ptr> stack)get_output(); flush_buffer(); writeloop:/*43:*/ -#line 309 "cwebdir/ctang-w2c.ch" +#line 322 "cwebdir/ctang-w2c.ch" fclose(C_file);C_file= NULL; /*98:*/ -#line 775 "cwebdir/ctang-w2c.ch" +#line 788 "cwebdir/ctang-w2c.ch" if((C_file= fopen(C_file_name,"r"))!=NULL){ /*99:*/ -#line 782 "cwebdir/ctang-w2c.ch" +#line 795 "cwebdir/ctang-w2c.ch" char x[BUFSIZ],y[BUFSIZ]; int x_size,y_size,comparison= false; @@ -771,7 +771,7 @@ fatal(_("! Cannot open output file "),check_file_name); if(temporary_output)/*100:*/ -#line 797 "cwebdir/ctang-w2c.ch" +#line 810 "cwebdir/ctang-w2c.ch" do{ x_size= fread(x,1,BUFSIZ,C_file); @@ -781,17 +781,17 @@ if(comparison)comparison= !memcmp(x,y,x_size); }while(comparison&&!feof(C_file)&&!feof(check_file)); /*:100*/ -#line 790 "cwebdir/ctang-w2c.ch" +#line 803 "cwebdir/ctang-w2c.ch" fclose(C_file);C_file= NULL; fclose(check_file);check_file= NULL; /*:99*/ -#line 777 "cwebdir/ctang-w2c.ch" +#line 790 "cwebdir/ctang-w2c.ch" /*101:*/ -#line 808 "cwebdir/ctang-w2c.ch" +#line 821 "cwebdir/ctang-w2c.ch" if(comparison) remove(check_file_name); @@ -801,13 +801,13 @@ rename(check_file_name,C_file_name); } /*:101*/ -#line 778 "cwebdir/ctang-w2c.ch" +#line 791 "cwebdir/ctang-w2c.ch" }else rename(check_file_name,C_file_name); /*:98*/ -#line 311 "cwebdir/ctang-w2c.ch" +#line 324 "cwebdir/ctang-w2c.ch" for(an_output_file= end_output_files;an_output_file> cur_out_file;){ an_output_file--; @@ -828,14 +828,14 @@ cur_end= (cur_repl+1)->tok_start; while(stack_ptr> stack)get_output(); flush_buffer();fclose(C_file);C_file= NULL; /*102:*/ -#line 821 "cwebdir/ctang-w2c.ch" +#line 834 "cwebdir/ctang-w2c.ch" if(0==strcmp("/dev/stdout",output_file_name)) /*104:*/ -#line 846 "cwebdir/ctang-w2c.ch" +#line 859 "cwebdir/ctang-w2c.ch" { /*107:*/ -#line 873 "cwebdir/ctang-w2c.ch" +#line 886 "cwebdir/ctang-w2c.ch" char in_buf[BUFSIZ+1]; int in_size,comparison= true; @@ -844,7 +844,7 @@ fatal("! Cannot open output file ",check_file_name); /*:107*/ -#line 847 "cwebdir/ctang-w2c.ch" +#line 860 "cwebdir/ctang-w2c.ch" do{ in_size= fread(in_buf,1,BUFSIZ,check_file); @@ -853,7 +853,7 @@ fprintf(stdout,"%s",in_buf); }while(!feof(check_file)); fclose(check_file);check_file= NULL; /*103:*/ -#line 838 "cwebdir/ctang-w2c.ch" +#line 851 "cwebdir/ctang-w2c.ch" if(comparison) remove(check_file_name); @@ -863,19 +863,19 @@ rename(check_file_name,output_file_name); } /*:103*/ -#line 854 "cwebdir/ctang-w2c.ch" +#line 867 "cwebdir/ctang-w2c.ch" } /*:104*/ -#line 823 "cwebdir/ctang-w2c.ch" +#line 836 "cwebdir/ctang-w2c.ch" else if(0==strcmp("/dev/stderr",output_file_name)) /*105:*/ -#line 857 "cwebdir/ctang-w2c.ch" +#line 870 "cwebdir/ctang-w2c.ch" { /*107:*/ -#line 873 "cwebdir/ctang-w2c.ch" +#line 886 "cwebdir/ctang-w2c.ch" char in_buf[BUFSIZ+1]; int in_size,comparison= true; @@ -884,7 +884,7 @@ fatal("! Cannot open output file ",check_file_name); /*:107*/ -#line 858 "cwebdir/ctang-w2c.ch" +#line 871 "cwebdir/ctang-w2c.ch" do{ in_size= fread(in_buf,1,BUFSIZ,check_file); @@ -893,7 +893,7 @@ fprintf(stderr,"%s",in_buf); }while(!feof(check_file)); fclose(check_file);check_file= NULL; /*103:*/ -#line 838 "cwebdir/ctang-w2c.ch" +#line 851 "cwebdir/ctang-w2c.ch" if(comparison) remove(check_file_name); @@ -903,20 +903,20 @@ rename(check_file_name,output_file_name); } /*:103*/ -#line 865 "cwebdir/ctang-w2c.ch" +#line 878 "cwebdir/ctang-w2c.ch" } /*:105*/ -#line 825 "cwebdir/ctang-w2c.ch" +#line 838 "cwebdir/ctang-w2c.ch" else if(0==strcmp("/dev/null",output_file_name)) /*106:*/ -#line 868 "cwebdir/ctang-w2c.ch" +#line 881 "cwebdir/ctang-w2c.ch" { int comparison= true; /*103:*/ -#line 838 "cwebdir/ctang-w2c.ch" +#line 851 "cwebdir/ctang-w2c.ch" if(comparison) remove(check_file_name); @@ -926,17 +926,17 @@ rename(check_file_name,output_file_name); } /*:103*/ -#line 870 "cwebdir/ctang-w2c.ch" +#line 883 "cwebdir/ctang-w2c.ch" } /*:106*/ -#line 827 "cwebdir/ctang-w2c.ch" +#line 840 "cwebdir/ctang-w2c.ch" else{ if((C_file= fopen(output_file_name,"r"))!=NULL){ /*99:*/ -#line 782 "cwebdir/ctang-w2c.ch" +#line 795 "cwebdir/ctang-w2c.ch" char x[BUFSIZ],y[BUFSIZ]; int x_size,y_size,comparison= false; @@ -946,7 +946,7 @@ fatal(_("! Cannot open output file "),check_file_name); if(temporary_output)/*100:*/ -#line 797 "cwebdir/ctang-w2c.ch" +#line 810 "cwebdir/ctang-w2c.ch" do{ x_size= fread(x,1,BUFSIZ,C_file); @@ -956,17 +956,17 @@ if(comparison)comparison= !memcmp(x,y,x_size); }while(comparison&&!feof(C_file)&&!feof(check_file)); /*:100*/ -#line 790 "cwebdir/ctang-w2c.ch" +#line 803 "cwebdir/ctang-w2c.ch" fclose(C_file);C_file= NULL; fclose(check_file);check_file= NULL; /*:99*/ -#line 830 "cwebdir/ctang-w2c.ch" +#line 843 "cwebdir/ctang-w2c.ch" /*103:*/ -#line 838 "cwebdir/ctang-w2c.ch" +#line 851 "cwebdir/ctang-w2c.ch" if(comparison) remove(check_file_name); @@ -976,14 +976,14 @@ rename(check_file_name,output_file_name); } /*:103*/ -#line 831 "cwebdir/ctang-w2c.ch" +#line 844 "cwebdir/ctang-w2c.ch" }else rename(check_file_name,output_file_name); } /*:102*/ -#line 330 "cwebdir/ctang-w2c.ch" +#line 343 "cwebdir/ctang-w2c.ch" } strcpy(check_file_name,""); @@ -992,7 +992,7 @@ strcpy(check_file_name,""); /*:43*/ #line 563 "cwebdir/ctangle.w" ; -#line 283 "cwebdir/ctang-w2c.ch" +#line 296 "cwebdir/ctang-w2c.ch" if(show_happiness){ if(show_progress)new_line; fputs(_("Done."),stdout); @@ -1004,7 +1004,7 @@ fputs(_("Done."),stdout); /*:42*//*47:*/ #line 605 "cwebdir/ctangle.w" -#line 345 "cwebdir/ctang-w2c.ch" +#line 358 "cwebdir/ctang-w2c.ch" static void output_defs(void) #line 608 "cwebdir/ctangle.w" @@ -1030,7 +1030,7 @@ a= (a-0200)*0400+*cur_byte++; if(a<024000){ cur_val= a;out_char(identifier); } -#line 352 "cwebdir/ctang-w2c.ch" +#line 365 "cwebdir/ctang-w2c.ch" else if(a<050000){confusion(_("macro defs have strange char"));} #line 631 "cwebdir/ctangle.w" else{ @@ -1048,7 +1048,7 @@ pop_level(0); /*:47*//*49:*/ #line 651 "cwebdir/ctangle.w" -#line 366 "cwebdir/ctang-w2c.ch" +#line 379 "cwebdir/ctang-w2c.ch" static void out_char( eight_bits cur_char) @@ -1109,7 +1109,7 @@ break; #line 663 "cwebdir/ctangle.w" ; /*50:*/ -#line 391 "cwebdir/ctang-w2c.ch" +#line 404 "cwebdir/ctang-w2c.ch" case plus_plus:C_putc('+');C_putc('+');out_state= normal;break; case minus_minus:C_putc('-');C_putc('-');out_state= normal;break; @@ -1149,11 +1149,11 @@ default:C_putc(cur_char);out_state= normal;break; } } -#line 391 "cwebdir/ctang-w2c.ch" +#line 404 "cwebdir/ctang-w2c.ch" /*:49*//*58:*/ #line 813 "cwebdir/ctangle.w" -#line 415 "cwebdir/ctang-w2c.ch" +#line 428 "cwebdir/ctang-w2c.ch" static eight_bits skip_ahead(void) #line 816 "cwebdir/ctangle.w" @@ -1173,7 +1173,7 @@ if(c!=ignore||*(loc-1)=='>')return(c); /*:58*//*60:*/ #line 848 "cwebdir/ctangle.w" -#line 423 "cwebdir/ctang-w2c.ch" +#line 436 "cwebdir/ctang-w2c.ch" static boolean skip_comment( boolean is_long_comment) #line 851 "cwebdir/ctangle.w" @@ -1184,7 +1184,7 @@ if(loc> limit){ if(is_long_comment){ if(get_line())return(comment_continues= 1); else{ -#line 430 "cwebdir/ctang-w2c.ch" +#line 443 "cwebdir/ctang-w2c.ch" err_print(_("! Input ended in mid-comment")); #line 859 "cwebdir/ctangle.w" @@ -1199,7 +1199,7 @@ loc++;return(comment_continues= 0); } if(c=='@'){ if(ccode[(eight_bits)*loc]==new_section){ -#line 436 "cwebdir/ctang-w2c.ch" +#line 449 "cwebdir/ctang-w2c.ch" err_print(_("! Section name ended in mid-comment"));loc--; #line 872 "cwebdir/ctangle.w" @@ -1213,7 +1213,7 @@ else loc++; /*:60*//*63:*/ #line 900 "cwebdir/ctangle.w" -#line 443 "cwebdir/ctang-w2c.ch" +#line 456 "cwebdir/ctang-w2c.ch" static eight_bits get_next(void) #line 903 "cwebdir/ctangle.w" @@ -1238,7 +1238,7 @@ id_first= cur_file_name; store_two_bytes((sixteen_bits)cur_line); } id_loc= id_first+strlen(id_first); -#line 585 "cwebdir/ctang-w2c.ch" +#line 598 "cwebdir/ctang-w2c.ch" {int a_l= id_lookup(id_first,id_loc,0)-name_dir;app_repl((a_l/0400)+0200); app_repl(a_l%0400);} #line 1237 "cwebdir/ctangle.w" @@ -1285,7 +1285,7 @@ return(constant); /*:66*/ #line 924 "cwebdir/ctangle.w" -#line 450 "cwebdir/ctang-w2c.ch" +#line 463 "cwebdir/ctang-w2c.ch" else if(c=='\''||c=='"' ||((c=='L'||c=='u'||c=='U')&&(*loc=='\''||*loc=='"')) ||((c=='u'&&*loc=='8')&&(*(loc+1)=='\''||*(loc+1)=='"'))) @@ -1296,7 +1296,7 @@ else if(c=='\''||c=='"' char delim= c; id_first= section_text+1; id_loc= section_text;*++id_loc= delim; -#line 481 "cwebdir/ctang-w2c.ch" +#line 494 "cwebdir/ctang-w2c.ch" if(delim=='L'||delim=='u'||delim=='U'){ if(delim=='u'&&*loc=='8'){*++id_loc= *loc++;} delim= *loc++;*++id_loc= delim; @@ -1305,13 +1305,13 @@ delim= *loc++;*++id_loc= delim; while(1){ if(loc>=limit){ if(*(limit-1)!='\\'){ -#line 490 "cwebdir/ctang-w2c.ch" +#line 503 "cwebdir/ctang-w2c.ch" err_print(_("! String didn't end"));loc= limit;break; #line 1017 "cwebdir/ctangle.w" } if(get_line()==0){ -#line 496 "cwebdir/ctang-w2c.ch" +#line 509 "cwebdir/ctang-w2c.ch" err_print(_("! Input ended in middle of string"));loc= buffer;break; #line 1021 "cwebdir/ctangle.w" @@ -1331,7 +1331,7 @@ c= *loc++; if(++id_loc<=section_text_end)*id_loc= c; } if(id_loc>=section_text_end){ -#line 502 "cwebdir/ctang-w2c.ch" +#line 515 "cwebdir/ctang-w2c.ch" fputs(_("\n! String too long: "),stdout); #line 1039 "cwebdir/ctangle.w" @@ -1350,7 +1350,7 @@ else if(isalpha(c)||isxalpha(c)||ishigh(c)) #line 972 "cwebdir/ctangle.w" { id_first= --loc; -#line 472 "cwebdir/ctang-w2c.ch" +#line 485 "cwebdir/ctang-w2c.ch" while(isalpha((eight_bits)*++loc)||isdigit((eight_bits)*loc) ||isxalpha((eight_bits)*loc)||ishigh((eight_bits)*loc)); #line 975 "cwebdir/ctangle.w" @@ -1366,14 +1366,14 @@ else if(c=='@')/*68:*/ c= ccode[(eight_bits)*loc++]; switch(c){ case ignore:continue; -#line 508 "cwebdir/ctang-w2c.ch" +#line 521 "cwebdir/ctang-w2c.ch" case translit_code:err_print(_("! Use @l in limbo only"));continue; #line 1055 "cwebdir/ctangle.w" case control_text:while((c= skip_ahead())=='@'); if(*(loc-1)!='>') -#line 514 "cwebdir/ctang-w2c.ch" +#line 527 "cwebdir/ctang-w2c.ch" err_print(_("! Double @ should be used in control text")); #line 1060 "cwebdir/ctangle.w" @@ -1390,7 +1390,7 @@ char*k; k= section_text; while(1){ if(loc> limit&&get_line()==0){ -#line 532 "cwebdir/ctang-w2c.ch" +#line 545 "cwebdir/ctang-w2c.ch" err_print(_("! Input ended in section name")); #line 1123 "cwebdir/ctangle.w" @@ -1406,13 +1406,13 @@ if(c=='>'){ loc+= 2;break; } if(ccode[(eight_bits)c]==new_section){ -#line 544 "cwebdir/ctang-w2c.ch" +#line 557 "cwebdir/ctang-w2c.ch" err_print(_("! Section name didn't end"));break; #line 1150 "cwebdir/ctangle.w" } if(ccode[(eight_bits)c]==section_name){ -#line 550 "cwebdir/ctang-w2c.ch" +#line 563 "cwebdir/ctang-w2c.ch" err_print(_("! Nesting of section names not allowed"));break; #line 1154 "cwebdir/ctangle.w" @@ -1430,7 +1430,7 @@ c= ' ';if(*(k-1)==' ')k--; *k= c; } if(k>=section_text_end){ -#line 538 "cwebdir/ctang-w2c.ch" +#line 551 "cwebdir/ctang-w2c.ch" fputs(_("\n! Section name too long: "),stdout); #line 1136 "cwebdir/ctangle.w" @@ -1457,7 +1457,7 @@ if(an_output_file==end_output_files){ if(cur_out_file> output_files) *--cur_out_file= cur_section_name; else{ -#line 245 "cwebdir/ctang-w2c.ch" +#line 258 "cwebdir/ctang-w2c.ch" overflow(_("output files")); #line 526 "cwebdir/ctangle.w" } @@ -1478,7 +1478,7 @@ case string:/*74:*/ { id_first= loc++;*(limit+1)= '@';*(limit+2)= '>'; while(*loc!='@'||*(loc+1)!='>')loc++; -#line 556 "cwebdir/ctang-w2c.ch" +#line 569 "cwebdir/ctang-w2c.ch" if(loc>=limit)err_print(_("! Verbatim string didn't end")); #line 1168 "cwebdir/ctangle.w" @@ -1499,7 +1499,7 @@ if(*++loc=='\'')loc++; while(*loc!='\''){ if(*loc=='@'){ if(*(loc+1)!='@') -#line 520 "cwebdir/ctang-w2c.ch" +#line 533 "cwebdir/ctang-w2c.ch" err_print(_("! Double @ should be used in ASCII constant")); #line 1086 "cwebdir/ctangle.w" @@ -1507,7 +1507,7 @@ else loc++; } loc++; if(loc> limit){ -#line 526 "cwebdir/ctang-w2c.ch" +#line 539 "cwebdir/ctang-w2c.ch" err_print(_("! String didn't end"));loc= limit-1;break; #line 1092 "cwebdir/ctangle.w" @@ -1538,7 +1538,7 @@ mistake:/*64:*/ switch(c){ case'+':if(*loc=='+')compress(plus_plus);break; case'-':if(*loc=='-'){compress(minus_minus);} -#line 459 "cwebdir/ctang-w2c.ch" +#line 472 "cwebdir/ctang-w2c.ch" else{if(*loc=='>'){if(*(loc+1)=='*'){loc++;compress(minus_gt_ast);} else compress(minus_gt);}}break; #line 956 "cwebdir/ctangle.w" @@ -1555,7 +1555,7 @@ case'<':if(*loc=='='){compress(lt_eq);} else if(*loc=='<')compress(lt_lt);break; case'&':if(*loc=='&')compress(and_and);break; case'|':if(*loc=='|')compress(or_or);break; -#line 466 "cwebdir/ctang-w2c.ch" +#line 479 "cwebdir/ctang-w2c.ch" case'!':if(*loc=='=')compress(non_eq);break; #line 970 "cwebdir/ctangle.w" } @@ -1570,7 +1570,7 @@ return(c); /*:63*//*76:*/ #line 1199 "cwebdir/ctangle.w" -#line 570 "cwebdir/ctang-w2c.ch" +#line 583 "cwebdir/ctang-w2c.ch" static void scan_repl( eight_bits t) @@ -1589,7 +1589,7 @@ id_first= cur_file_name; store_two_bytes((sixteen_bits)cur_line); } id_loc= id_first+strlen(id_first); -#line 585 "cwebdir/ctang-w2c.ch" +#line 598 "cwebdir/ctang-w2c.ch" {int a_l= id_lookup(id_first,id_loc,0)-name_dir;app_repl((a_l/0400)+0200); app_repl(a_l%0400);} #line 1237 "cwebdir/ctangle.w" @@ -1613,7 +1613,7 @@ char*try_loc= loc; while(*try_loc==' '&&try_loc text_info_end)overflow(_("text")); #line 1218 "cwebdir/ctangle.w" cur_text= text_ptr;(++text_ptr)->tok_start= tok_ptr; @@ -1787,7 +1787,7 @@ cur_text= text_ptr;(++text_ptr)->tok_start= tok_ptr; /*:76*//*83:*/ #line 1360 "cwebdir/ctangle.w" -#line 635 "cwebdir/ctang-w2c.ch" +#line 648 "cwebdir/ctang-w2c.ch" static void scan_section(void) #line 1363 "cwebdir/ctangle.w" @@ -1819,7 +1819,7 @@ if(next_control==definition){ { while((next_control= get_next())=='\n'); if(next_control!=identifier){ -#line 642 "cwebdir/ctang-w2c.ch" +#line 655 "cwebdir/ctang-w2c.ch" err_print(_("! Definition flushed, must start with identifier")); #line 1410 "cwebdir/ctangle.w" @@ -1879,7 +1879,7 @@ scan_repl(section_name); if(p==name_dir||p==0){ (last_unnamed)->text_link= cur_text-text_info;last_unnamed= cur_text; } -#line 648 "cwebdir/ctang-w2c.ch" +#line 661 "cwebdir/ctang-w2c.ch" else if(p->equiv==(void*)text_info)p->equiv= (void*)cur_text; #line 1450 "cwebdir/ctangle.w" @@ -1904,7 +1904,7 @@ cur_text->text_link= section_flag; /*:83*//*91:*/ #line 1463 "cwebdir/ctangle.w" -#line 661 "cwebdir/ctang-w2c.ch" +#line 674 "cwebdir/ctang-w2c.ch" static void phase_one(void){ #line 1466 "cwebdir/ctangle.w" @@ -1920,7 +1920,7 @@ phase= 2; /*:91*//*93:*/ #line 1481 "cwebdir/ctangle.w" -#line 675 "cwebdir/ctang-w2c.ch" +#line 688 "cwebdir/ctang-w2c.ch" static void skip_limbo(void) #line 1484 "cwebdir/ctangle.w" @@ -1941,7 +1941,7 @@ while(xisspace(*loc)&&loc limit||!xisxdigit(*(loc-3))||!xisxdigit(*(loc-2)) ||(*(loc-3)>='0'&&*(loc-3)<='7')||!xisspace(*(loc-1))) -#line 694 "cwebdir/ctang-w2c.ch" +#line 707 "cwebdir/ctang-w2c.ch" err_print(_("! Improper hex number following @l")); #line 1516 "cwebdir/ctangle.w" @@ -1953,12 +1953,12 @@ while(xisspace(*loc)&&loc=translit_length) -#line 700 "cwebdir/ctang-w2c.ch" +#line 713 "cwebdir/ctang-w2c.ch" err_print(_("! Replacement string in @l too long")); #line 1526 "cwebdir/ctangle.w" else{ -#line 706 "cwebdir/ctang-w2c.ch" +#line 719 "cwebdir/ctang-w2c.ch" strncpy(translit[i-0200],beg,(size_t)(loc-beg)); #line 1529 "cwebdir/ctangle.w" translit[i-0200][loc-beg]= '\0'; @@ -1972,13 +1972,13 @@ case format_code:case'@':break; case control_text:if(c=='q'||c=='Q'){ while((c= skip_ahead())=='@'); if(*(loc-1)!='>') -#line 682 "cwebdir/ctang-w2c.ch" +#line 695 "cwebdir/ctang-w2c.ch" err_print(_("! Double @ should be used in control text")); #line 1500 "cwebdir/ctangle.w" break; } -#line 688 "cwebdir/ctang-w2c.ch" +#line 701 "cwebdir/ctang-w2c.ch" default:err_print(_("! Double @ should be used in limbo")); #line 1504 "cwebdir/ctangle.w" @@ -1990,10 +1990,10 @@ default:err_print(_("! Double @ should be used in limbo")); /*:93*//*95:*/ #line 1536 "cwebdir/ctangle.w" -#line 713 "cwebdir/ctang-w2c.ch" +#line 726 "cwebdir/ctang-w2c.ch" void print_stats(void){ -#line 727 "cwebdir/ctang-w2c.ch" +#line 740 "cwebdir/ctang-w2c.ch" puts(_("\nMemory usage statistics:")); printf(_("%ld names (out of %ld)\n"), (long)(name_ptr-name_dir),(long)max_names); @@ -2006,5 +2006,5 @@ printf(_("%ld tokens (out of %ld)\n"), (long)(tok_ptr-tok_mem),(long)max_toks); } -#line 740 "cwebdir/ctang-w2c.ch" +#line 753 "cwebdir/ctang-w2c.ch" /*:95*/ -- cgit v1.2.3