diff options
Diffstat (limited to 'Build')
41 files changed, 399 insertions, 379 deletions
diff --git a/Build/source/texk/web2c/ChangeLog b/Build/source/texk/web2c/ChangeLog index b474718ba3b..03e20277436 100644 --- a/Build/source/texk/web2c/ChangeLog +++ b/Build/source/texk/web2c/ChangeLog @@ -1,3 +1,8 @@ +2021-02-20 Andreas Scherer <https://ascherer.github.io> + + * ctangleboot.cin, + * cwebboot.cin: CWEB release 4.1. + 2021-02-19 Andreas Scherer <https://ascherer.github.io> * ctangleboot.cin, diff --git a/Build/source/texk/web2c/ctangleboot.cin b/Build/source/texk/web2c/ctangleboot.cin index 0013e74be5f..bb7a8621820 100644 --- a/Build/source/texk/web2c/ctangleboot.cin +++ b/Build/source/texk/web2c/ctangleboot.cin @@ -25,7 +25,7 @@ /*:4*/ #line 67 "cwebdir/ctangle.w" -#define banner "This is CTANGLE, Version 4.0" \ +#define banner "This is CTANGLE, Version 4.1" \ \ #define _(S) gettext(S) \ @@ -148,7 +148,7 @@ #define ishigh(c) ((eight_bits) (c) > 0177) \ \ -#define compress(c) if(loc++<=limit) return(c) \ +#define compress(c) if(loc++<=limit) return c \ #define macro 0 #define app_repl(c) {if(tok_ptr==tok_mem_end) overflow(_("token") ) ;*tok_ptr++= c;} \ @@ -263,12 +263,12 @@ extern FILE*scn_file; extern FILE*active_file; extern FILE*check_file; -/*:15*//*116:*/ +/*:15*//*115:*/ #line 473 "cwebdir/ctang-w2c.ch" extern char cb_banner[]; -/*:116*/ +/*:115*/ #line 69 "cwebdir/ctangle.w" /*19:*/ @@ -370,12 +370,7 @@ boolean no_where; text_pointer cur_text; eight_bits next_control; -/*:82*//*90:*/ -#line 1348 "cwebdir/ctangle.w" - -extern sixteen_bits section_count; - -/*:90*/ +/*:82*/ #line 71 "cwebdir/ctangle.w" /*8:*/ @@ -461,22 +456,22 @@ static eight_bits get_next(void); static void scan_repl(eight_bits); -/*:83*//*91:*/ -#line 1355 "cwebdir/ctangle.w" +/*:83*//*90:*/ +#line 1348 "cwebdir/ctangle.w" static void scan_section(void); -/*:91*//*99:*/ -#line 1458 "cwebdir/ctangle.w" +/*:90*//*98:*/ +#line 1455 "cwebdir/ctangle.w" static void phase_one(void); -/*:99*//*101:*/ -#line 1476 "cwebdir/ctangle.w" +/*:98*//*100:*/ +#line 1473 "cwebdir/ctangle.w" static void skip_limbo(void); -/*:101*/ +/*:100*/ #line 72 "cwebdir/ctangle.w" @@ -542,12 +537,12 @@ ccode['\'']= ord; #line 1108 "cwebdir/ctangle.w" section_text[0]= ' '; -/*:78*//*117:*/ +/*:78*//*116:*/ #line 476 "cwebdir/ctang-w2c.ch" strncpy(cb_banner,banner,max_banner-1); -/*:117*/ +/*:116*/ #line 88 "cwebdir/ctangle.w" common_init(); @@ -752,11 +747,11 @@ writeloop:/*50:*/ #line 130 "cwebdir/ctang-w2c.ch" fclose(C_file);C_file= NULL; -/*106:*/ +/*105:*/ #line 356 "cwebdir/ctang-w2c.ch" if((C_file= fopen(C_file_name,"r"))!=NULL){ -/*107:*/ +/*106:*/ #line 363 "cwebdir/ctang-w2c.ch" char x[BUFSIZ],y[BUFSIZ]; @@ -766,7 +761,7 @@ if((check_file= fopen(check_file_name,"r"))==NULL) fatal(_("! Cannot open output file "),check_file_name); -if(temporary_output)/*108:*/ +if(temporary_output)/*107:*/ #line 378 "cwebdir/ctang-w2c.ch" do{ @@ -776,17 +771,17 @@ comparison= (x_size==y_size); if(comparison)comparison= !memcmp(x,y,x_size); }while(comparison&&!feof(C_file)&&!feof(check_file)); -/*:108*/ +/*:107*/ #line 371 "cwebdir/ctang-w2c.ch" fclose(C_file);C_file= NULL; fclose(check_file);check_file= NULL; -/*:107*/ +/*:106*/ #line 358 "cwebdir/ctang-w2c.ch" -/*109:*/ +/*108:*/ #line 389 "cwebdir/ctang-w2c.ch" if(comparison) @@ -796,13 +791,13 @@ remove(C_file_name); rename(check_file_name,C_file_name); } -/*:109*/ +/*:108*/ #line 359 "cwebdir/ctang-w2c.ch" }else rename(check_file_name,C_file_name); -/*:106*/ +/*:105*/ #line 132 "cwebdir/ctang-w2c.ch" for(an_output_file= end_output_files;an_output_file> cur_out_file;){ @@ -823,14 +818,14 @@ cur_byte= cur_repl->tok_start; cur_end= (cur_repl+1)->tok_start; while(stack_ptr> stack)get_output(); flush_buffer();fclose(C_file);C_file= NULL; -/*110:*/ +/*109:*/ #line 402 "cwebdir/ctang-w2c.ch" if(0==strcmp("/dev/stdout",output_file_name)) -/*112:*/ +/*111:*/ #line 429 "cwebdir/ctang-w2c.ch" { -/*115:*/ +/*114:*/ #line 460 "cwebdir/ctang-w2c.ch" char in_buf[BUFSIZ+1]; @@ -839,7 +834,7 @@ if((check_file= fopen(check_file_name,"r"))==NULL) fatal(_("! Cannot open output file "),check_file_name); -/*:115*/ +/*:114*/ #line 430 "cwebdir/ctang-w2c.ch" do{ @@ -848,7 +843,7 @@ in_buf[in_size]= '\0'; fprintf(stdout,"%s",in_buf); }while(!feof(check_file)); fclose(check_file);check_file= NULL; -/*111:*/ +/*110:*/ #line 419 "cwebdir/ctang-w2c.ch" if(comparison) @@ -858,19 +853,19 @@ remove(output_file_name); rename(check_file_name,output_file_name); } -/*:111*/ +/*:110*/ #line 437 "cwebdir/ctang-w2c.ch" } -/*:112*/ +/*:111*/ #line 404 "cwebdir/ctang-w2c.ch" else if(0==strcmp("/dev/stderr",output_file_name)) -/*113:*/ +/*112:*/ #line 442 "cwebdir/ctang-w2c.ch" { -/*115:*/ +/*114:*/ #line 460 "cwebdir/ctang-w2c.ch" char in_buf[BUFSIZ+1]; @@ -879,7 +874,7 @@ if((check_file= fopen(check_file_name,"r"))==NULL) fatal(_("! Cannot open output file "),check_file_name); -/*:115*/ +/*:114*/ #line 443 "cwebdir/ctang-w2c.ch" do{ @@ -888,7 +883,7 @@ in_buf[in_size]= '\0'; fprintf(stderr,"%s",in_buf); }while(!feof(check_file)); fclose(check_file);check_file= NULL; -/*111:*/ +/*110:*/ #line 419 "cwebdir/ctang-w2c.ch" if(comparison) @@ -898,20 +893,20 @@ remove(output_file_name); rename(check_file_name,output_file_name); } -/*:111*/ +/*:110*/ #line 450 "cwebdir/ctang-w2c.ch" } -/*:113*/ +/*:112*/ #line 406 "cwebdir/ctang-w2c.ch" else if(0==strcmp("/dev/null",output_file_name)) -/*114:*/ +/*113:*/ #line 455 "cwebdir/ctang-w2c.ch" { int comparison= true; -/*111:*/ +/*110:*/ #line 419 "cwebdir/ctang-w2c.ch" if(comparison) @@ -921,17 +916,17 @@ remove(output_file_name); rename(check_file_name,output_file_name); } -/*:111*/ +/*:110*/ #line 457 "cwebdir/ctang-w2c.ch" } -/*:114*/ +/*:113*/ #line 408 "cwebdir/ctang-w2c.ch" else{ if((C_file= fopen(output_file_name,"r"))!=NULL){ -/*107:*/ +/*106:*/ #line 363 "cwebdir/ctang-w2c.ch" char x[BUFSIZ],y[BUFSIZ]; @@ -941,7 +936,7 @@ if((check_file= fopen(check_file_name,"r"))==NULL) fatal(_("! Cannot open output file "),check_file_name); -if(temporary_output)/*108:*/ +if(temporary_output)/*107:*/ #line 378 "cwebdir/ctang-w2c.ch" do{ @@ -951,17 +946,17 @@ comparison= (x_size==y_size); if(comparison)comparison= !memcmp(x,y,x_size); }while(comparison&&!feof(C_file)&&!feof(check_file)); -/*:108*/ +/*:107*/ #line 371 "cwebdir/ctang-w2c.ch" fclose(C_file);C_file= NULL; fclose(check_file);check_file= NULL; -/*:107*/ +/*:106*/ #line 411 "cwebdir/ctang-w2c.ch" -/*111:*/ +/*110:*/ #line 419 "cwebdir/ctang-w2c.ch" if(comparison) @@ -971,14 +966,14 @@ remove(output_file_name); rename(check_file_name,output_file_name); } -/*:111*/ +/*:110*/ #line 412 "cwebdir/ctang-w2c.ch" }else rename(check_file_name,output_file_name); } -/*:110*/ +/*:109*/ #line 151 "cwebdir/ctang-w2c.ch" } @@ -1148,12 +1143,12 @@ skip_ahead(void) { eight_bits c; while(true){ -if(loc> limit&&(get_line()==false))return(new_section); +if(loc> limit&&(get_line()==false))return new_section; *(limit+1)= '@'; while(*loc!='@')loc++; if(loc<=limit){ loc++;c= ccode[(eight_bits)*loc];loc++; -if(c!=ignore||*(loc-1)=='>')return(c); +if(c!=ignore||*(loc-1)=='>')return c; } } } @@ -1168,20 +1163,20 @@ char c; while(true){ if(loc> limit){ if(is_long_comment){ -if(get_line())return(comment_continues= true); +if(get_line())return comment_continues= true; else{ #line 165 "cwebdir/ctang-w2c.ch" err_print(_("! Input ended in mid-comment")); #line 848 "cwebdir/ctangle.w" -return(comment_continues= false); +return comment_continues= false; } } -else return(comment_continues= false); +else return comment_continues= false; } c= *(loc++); if(is_long_comment&&c=='*'&&*loc=='/'){ -loc++;return(comment_continues= false); +loc++;return comment_continues= false; } if(c=='@'){ if(ccode[(eight_bits)*loc]==new_section){ @@ -1189,7 +1184,7 @@ if(ccode[(eight_bits)*loc]==new_section){ err_print(_("! Section name ended in mid-comment"));loc--; #line 861 "cwebdir/ctangle.w" -return(comment_continues= false); +return comment_continues= false; } else loc++; } @@ -1207,7 +1202,7 @@ eight_bits c; while(true){ if(loc> limit){ if(preprocessing&&*(limit-1)!='\\')preprocessing= 0; -if(get_line()==false)return(new_section); +if(get_line()==false)return new_section; else if(print_where&&!no_where){ print_where= false; /*85:*/ @@ -1229,13 +1224,13 @@ app_repl(a_l%0400);} #line 900 "cwebdir/ctangle.w" } -else return('\n'); +else return'\n'; } c= *loc; if(comment_continues||(c=='/'&&(*(loc+1)=='*'||*(loc+1)=='/'))){ skip_comment(comment_continues||*(loc+1)=='*'); -if(comment_continues)return('\n'); +if(comment_continues)return'\n'; else continue; } loc++; @@ -1261,7 +1256,7 @@ while(xisdigit(*loc))loc++; found:while(*loc=='u'||*loc=='U'||*loc=='l'||*loc=='L' ||*loc=='f'||*loc=='F')loc++; id_loc= loc; -return(constant); +return constant; } /*:73*/ @@ -1317,7 +1312,7 @@ term_write(section_text+1,25); err_print("..."); } id_loc++; -return(string); +return string; } /*:74*/ @@ -1330,7 +1325,7 @@ else if(isalpha(c)||isxalpha(c)||ishigh(c)) id_first= --loc; while(isalpha((eight_bits)*++loc)||isdigit((eight_bits)*loc) ||isxalpha((eight_bits)*loc)||ishigh((eight_bits)*loc)); -id_loc= loc;return(identifier); +id_loc= loc;return identifier; } /*:72*/ @@ -1443,7 +1438,7 @@ overflow(_("output files")); /*:47*/ #line 1098 "cwebdir/ctangle.w" -return(section_name); +return section_name; } /*:77*/ @@ -1459,7 +1454,7 @@ if(loc>=limit)err_print(_("! Verbatim string didn't end")); #line 1160 "cwebdir/ctangle.w" id_loc= loc;loc+= 2; -return(string); +return string; } /*:81*/ @@ -1490,12 +1485,12 @@ err_print(_("! String didn't end"));loc= limit-1;break; } } loc++; -return(ord); +return ord; /*:76*/ #line 1058 "cwebdir/ctangle.w" -default:return(c); +default:return c; } } @@ -1505,7 +1500,7 @@ default:return(c); else if(xisspace(c)){ if(!preprocessing||loc> limit)continue; -else return(' '); +else return' '; } else if(c=='#'&&loc==buffer+1)preprocessing= 1; mistake:/*71:*/ @@ -1535,7 +1530,7 @@ case'!':if(*loc=='=')compress(non_eq);break; /*:71*/ #line 926 "cwebdir/ctangle.w" -return(c); +return c; } } @@ -1744,8 +1739,8 @@ if(text_ptr> text_info_end)overflow(_("text")); cur_text= text_ptr;(++text_ptr)->tok_start= tok_ptr; } -/*:84*//*92:*/ -#line 1358 "cwebdir/ctangle.w" +/*:84*//*91:*/ +#line 1355 "cwebdir/ctangle.w" static void scan_section(void) @@ -1759,8 +1754,8 @@ printf("*%d",section_count);update_terminal; } next_control= 0; while(true){ -/*93:*/ -#line 1397 "cwebdir/ctangle.w" +/*92:*/ +#line 1394 "cwebdir/ctangle.w" while(next_control<definition) @@ -1768,18 +1763,18 @@ if((next_control= skip_ahead())==section_name){ loc-= 2;next_control= get_next(); } -/*:93*/ -#line 1372 "cwebdir/ctangle.w" +/*:92*/ +#line 1369 "cwebdir/ctangle.w" if(next_control==definition){ -/*94:*/ -#line 1404 "cwebdir/ctangle.w" +/*93:*/ +#line 1401 "cwebdir/ctangle.w" { while((next_control= get_next())=='\n'); if(next_control!=identifier){ #line 291 "cwebdir/ctang-w2c.ch" err_print(_("! Definition flushed, must start with identifier")); -#line 1408 "cwebdir/ctangle.w" +#line 1405 "cwebdir/ctangle.w" continue; } @@ -1793,8 +1788,8 @@ scan_repl(macro); cur_text->text_link= macro; } -/*:94*/ -#line 1374 "cwebdir/ctangle.w" +/*:93*/ +#line 1371 "cwebdir/ctangle.w" continue; } @@ -1803,36 +1798,36 @@ p= name_dir;break; } if(next_control==section_name){ p= cur_section_name; -/*95:*/ -#line 1429 "cwebdir/ctangle.w" +/*94:*/ +#line 1426 "cwebdir/ctangle.w" while((next_control= get_next())=='+'); if(next_control!='='&&next_control!=eq_eq) continue; -/*:95*/ -#line 1382 "cwebdir/ctangle.w" +/*:94*/ +#line 1379 "cwebdir/ctangle.w" break; } return; } no_where= print_where= false; -/*96:*/ -#line 1434 "cwebdir/ctangle.w" +/*95:*/ +#line 1431 "cwebdir/ctangle.w" -/*97:*/ -#line 1439 "cwebdir/ctangle.w" +/*96:*/ +#line 1436 "cwebdir/ctangle.w" store_two_bytes((sixteen_bits)(0150000+section_count)); -/*:97*/ -#line 1435 "cwebdir/ctangle.w" +/*:96*/ +#line 1432 "cwebdir/ctangle.w" scan_repl(section_name); -/*98:*/ -#line 1443 "cwebdir/ctangle.w" +/*97:*/ +#line 1440 "cwebdir/ctangle.w" if(p==name_dir||p==0){ (last_unnamed)->text_link= cur_text-text_info;last_unnamed= cur_text; @@ -1848,17 +1843,17 @@ q->text_link= cur_text-text_info; cur_text->text_link= section_flag; -/*:98*/ -#line 1437 "cwebdir/ctangle.w" +/*:97*/ +#line 1434 "cwebdir/ctangle.w" -/*:96*/ -#line 1388 "cwebdir/ctangle.w" +/*:95*/ +#line 1385 "cwebdir/ctangle.w" } -/*:92*//*100:*/ -#line 1461 "cwebdir/ctangle.w" +/*:91*//*99:*/ +#line 1458 "cwebdir/ctangle.w" static void phase_one(void){ @@ -1871,8 +1866,8 @@ check_complete(); phase= 2; } -/*:100*//*102:*/ -#line 1479 "cwebdir/ctangle.w" +/*:99*//*101:*/ +#line 1476 "cwebdir/ctangle.w" static void skip_limbo(void) @@ -1886,8 +1881,8 @@ if(loc++<=limit){ c= *loc++; if(ccode[(eight_bits)c]==new_section)break; switch(ccode[(eight_bits)c]){ -case translit_code:/*103:*/ -#line 1508 "cwebdir/ctangle.w" +case translit_code:/*102:*/ +#line 1505 "cwebdir/ctangle.w" while(xisspace(*loc)&&loc<limit)loc++; loc+= 3; @@ -1895,7 +1890,7 @@ if(loc> limit||!xisxdigit(*(loc-3))||!xisxdigit(*(loc-2)) ||(*(loc-3)>='0'&&*(loc-3)<='7')||!xisspace(*(loc-1))) #line 309 "cwebdir/ctang-w2c.ch" err_print(_("! Improper hex number following @l")); -#line 1514 "cwebdir/ctangle.w" +#line 1511 "cwebdir/ctangle.w" else{ unsigned int i; @@ -1907,7 +1902,7 @@ while(loc<limit&&(xisalpha(*loc)||xisdigit(*loc)||*loc=='_'))loc++; if(loc-beg>=translit_length) #line 315 "cwebdir/ctang-w2c.ch" err_print(_("! Replacement string in @l too long")); -#line 1524 "cwebdir/ctangle.w" +#line 1521 "cwebdir/ctangle.w" else{ strncpy(translit[i-0200],beg,(size_t)(loc-beg)); @@ -1915,8 +1910,8 @@ translit[i-0200][loc-beg]= '\0'; } } -/*:103*/ -#line 1492 "cwebdir/ctangle.w" +/*:102*/ +#line 1489 "cwebdir/ctangle.w" break; case format_code:case'@':break; case control_text:if(c=='q'||c=='Q'){ @@ -1924,21 +1919,21 @@ while((c= skip_ahead())=='@'); if(*(loc-1)!='>') #line 297 "cwebdir/ctang-w2c.ch" err_print(_("! Double @ should be used in control text")); -#line 1498 "cwebdir/ctangle.w" +#line 1495 "cwebdir/ctangle.w" break; } #line 303 "cwebdir/ctang-w2c.ch" default:err_print(_("! Double @ should be used in limbo")); -#line 1502 "cwebdir/ctangle.w" +#line 1499 "cwebdir/ctangle.w" } } } } -/*:102*//*104:*/ -#line 1534 "cwebdir/ctangle.w" +/*:101*//*103:*/ +#line 1531 "cwebdir/ctangle.w" void print_stats(void){ @@ -1951,9 +1946,9 @@ printf(_("%ld replacement texts (out of %ld)\n"), printf(_("%ld bytes (out of %ld)\n"), (ptrdiff_t)(byte_ptr-byte_mem),(long)max_bytes); printf(_("%ld tokens (out of %ld)\n"), -#line 1545 "cwebdir/ctangle.w" +#line 1542 "cwebdir/ctangle.w" (ptrdiff_t)(tok_ptr-tok_mem),(long)max_toks); } #line 341 "cwebdir/ctang-w2c.ch" -/*:104*/ +/*:103*/ diff --git a/Build/source/texk/web2c/cwebboot.cin b/Build/source/texk/web2c/cwebboot.cin index e087125b6b4..ad331384198 100644 --- a/Build/source/texk/web2c/cwebboot.cin +++ b/Build/source/texk/web2c/cwebboot.cin @@ -603,7 +603,7 @@ FILE*fp) { register int c= EOF; register char*k; -if(feof(fp))return(false); +if(feof(fp))return false; limit= k= buffer; while(k<=buffer_end&&(c= getc(fp))!=EOF&&c!='\n') #line 92 "cwebdir/comm-w2c.ch" @@ -616,9 +616,9 @@ ungetc(c,fp);loc= buffer;err_print(_("! Input line too long")); #line 175 "cwebdir/common.w" } -if(c==EOF&&limit==buffer)return(false); +if(c==EOF&&limit==buffer)return false; -return(true); +return true; } /*:24*//*28:*/ @@ -1007,7 +1007,7 @@ init_p(p,t); /*:51*/ #line 656 "cwebdir/common.w" -return(p); +return p; } /*:48*//*52:*/ diff --git a/Build/source/texk/web2c/cwebdir/ChangeLog b/Build/source/texk/web2c/cwebdir/ChangeLog index fd6eb739c15..62332f87863 100644 --- a/Build/source/texk/web2c/cwebdir/ChangeLog +++ b/Build/source/texk/web2c/cwebdir/ChangeLog @@ -1,3 +1,29 @@ +2021-02-20 Andreas Scherer <https://ascherer.github.io> + + * Makefile, + * comm-{mac,ql,vms,w32}.ch, + * comm-w2c.ch, + * comm-w2c.h, + * common.c, + * common.h, + * common.w, + * ctang-{bs,pc,ql,vms,w32}.ch, + * ctang-w2c.ch, + * ctangle.c, + * ctangle.w, + * ctwill-mini.ch, + * ctwill-w2c.ch, + * cweav-{bs,pc,ql,vms,w32}.ch, + * cweav-man.ch, + * cweav-w2c.ch, + * cweave.w, + * cwebmac.tex, + * cwebman-w2c.ch, + * cwebman.tex, + * po/{cweb,cweb-tl}.pot, + * po/de/{cweb,cweb-tl}.po, + * po/it/cweb.po: CWEB 4.1 and CWEBbin 2021. + 2021-02-19 Andreas Scherer <https://ascherer.github.io> * comm-bs.ch, diff --git a/Build/source/texk/web2c/cwebdir/Makefile b/Build/source/texk/web2c/cwebdir/Makefile index f8f30afefb4..63dbd3db343 100644 --- a/Build/source/texk/web2c/cwebdir/Makefile +++ b/Build/source/texk/web2c/cwebdir/Makefile @@ -1,6 +1,6 @@ # This file is part of CWEB. # It is distributed WITHOUT ANY WARRANTY, express or implied. -# Version 4.0 --- February 2021 +# Version 4.1 --- February 2021 # Copyright (C) 1987,1990,1993,2000 Silvio Levy and Donald E. Knuth diff --git a/Build/source/texk/web2c/cwebdir/comm-mac.ch b/Build/source/texk/web2c/cwebdir/comm-mac.ch index e3c601c47bf..8af008e70a2 100644 --- a/Build/source/texk/web2c/cwebdir/comm-mac.ch +++ b/Build/source/texk/web2c/cwebdir/comm-mac.ch @@ -4,9 +4,9 @@ No changes to CTANGLE or CWEAVE are needed. (Contributed 13 Oct 2000 by AndPio@aol.com; slightly edited by Don Knuth) @x in limbo, change the title page document to specify Mac version - \centerline{(Version 4.0)} + \centerline{(Version 4.1)} @y - \centerline{(Version 4.0 for MacOS)} + \centerline{(Version 4.1 for MacOS)} @z @x sections 23/24: Make input_ln accept \n, \r, \n\r, or \r\n as line endings @@ -23,7 +23,7 @@ FILE *fp@t\2\2@>) /* what file to read from */ { register int c=EOF; /* character read; initialized so some compilers won't complain */ register char *k; /* where next character goes */ - if (feof(fp)) return(false); /* we have hit end-of-file */ + if (feof(fp)) return false; /* we have hit end-of-file */ limit = k = buffer; /* beginning of buffer */ while (k<=buffer_end && (c=getc(fp)) != EOF && c!='\n') if ((*(k++) = c) != ' ') limit = k; @@ -32,9 +32,9 @@ FILE *fp@t\2\2@>) /* what file to read from */ ungetc(c,fp); loc=buffer; err_print("! Input line too long"); @.Input line too long@> } - if (c==EOF && limit==buffer) return(false); /* there was nothing after + if (c==EOF && limit==buffer) return false; /* there was nothing after the last newline */ - return(true); + return true; } @y @ In the unlikely event that your standard I/O library does not @@ -54,21 +54,21 @@ FILE *fp@t\2\2@>) /* what file to read from */ { register int c=EOF; /* character read; initialized so some compilers won't complain */ register char *k; /* where next character goes */ - if (feof(fp)) return(false); /* we have hit end-of-file */ + if (feof(fp)) return false; /* we have hit end-of-file */ limit = k = buffer; /* beginning of buffer */ while (true) { c = getc(fp); - if (c==EOF) return (limit!=buffer); /* |false|, if there was nothing after + if (c==EOF) return limit!=buffer; /* |false|, if there was nothing after the last newline */ else if (c=='\n' || c=='\r') { /* we have hit end-of-line */ int d = getc(fp); if (c+d!='\n'+'\r') /* no combination |"\n\r"| or |"\r\n"| */ ungetc(d,fp); - return (true); + return true; } else if (k>buffer_end) { ungetc(c,fp); loc=buffer; err_print("! Input line too long"); - return (true); + return true; @.Input line too long@> } else diff --git a/Build/source/texk/web2c/cwebdir/comm-ql.ch b/Build/source/texk/web2c/cwebdir/comm-ql.ch index e8525783895..f12bd125d67 100644 --- a/Build/source/texk/web2c/cwebdir/comm-ql.ch +++ b/Build/source/texk/web2c/cwebdir/comm-ql.ch @@ -10,24 +10,24 @@ ex <dev_>cc;'-v -h -c -=500000 -DCWEBINPUTS=flp2_ common_c' @x \def\v{\char'174} % vertical (|) in typewriter font -\def\title{Common code for CTANGLE and CWEAVE (Version 4.0)} +\def\title{Common code for CTANGLE and CWEAVE (Version 4.1)} \def\topofcontents{\null\vfill \centerline{\titlefont Common code for {\ttitlefont CTANGLE} and {\ttitlefont CWEAVE}} \vskip 15pt - \centerline{(Version 4.0)} + \centerline{(Version 4.1)} \vfill} \def\botofcontents{\vfill \noindent @y \def\v{\char'174} % vertical (|) in typewriter font -\def\title{Common code for CTANGLE and CWEAVE (QL Version 4.0)} +\def\title{Common code for CTANGLE and CWEAVE (QL Version 4.1)} \def\topofcontents{\null\vfill \centerline{\titlefont Common code for {\ttitlefont CTANGLE} and {\ttitlefont CWEAVE}} \vskip 15pt - \centerline{(Version 4.0)} + \centerline{(Version 4.1)} \vfill} \def\botofcontents{\vfill \noindent diff --git a/Build/source/texk/web2c/cwebdir/comm-vms.ch b/Build/source/texk/web2c/cwebdir/comm-vms.ch index cf6d6198486..caf8ecef795 100644 --- a/Build/source/texk/web2c/cwebdir/comm-vms.ch +++ b/Build/source/texk/web2c/cwebdir/comm-vms.ch @@ -45,8 +45,8 @@ print |"%SYSTEM-F-ABORT, abort"|, if |history > harmless_message|. @z @x section 68 (1987 BL) (01-FEB-1992 ST) (11-JAN-1993 DEK) - if (history > harmless_message) return(1); - else return(0); + if (history > harmless_message) return EXIT_FAILURE; + else return EXIT_SUCCESS; @y /* VAX/VMS and UNIX have different error status conventions. diff --git a/Build/source/texk/web2c/cwebdir/comm-w2c.ch b/Build/source/texk/web2c/cwebdir/comm-w2c.ch index a300203de1f..34856c03e86 100644 --- a/Build/source/texk/web2c/cwebdir/comm-w2c.ch +++ b/Build/source/texk/web2c/cwebdir/comm-w2c.ch @@ -17,16 +17,16 @@ @q Please send comments, suggestions, etc. to tex-k@@tug.org. @> @x -\def\title{Common code for CTANGLE and CWEAVE (Version 4.0)} +\def\title{Common code for CTANGLE and CWEAVE (Version 4.1)} @y \def\Kpathsea/{{\mc KPATHSEA\spacefactor1000}} \ifacro\sanitizecommand\Kpathsea{KPATHSEA}\fi -\def\title{Common code for CTANGLE and CWEAVE (4.0 [\TeX~Live])} +\def\title{Common code for CTANGLE and CWEAVE (4.1 [\TeX~Live])} @z @x - \centerline{(Version 4.0)} + \centerline{(Version 4.1)} @y - \centerline{(Version 4.0 [\TeX~Live])} + \centerline{(Version 4.1 [\TeX~Live])} @z @x @@ -390,8 +390,8 @@ can be made sensitive to these conditions. @z @x - if (history > harmless_message) return(1); - else return(0); + if (history > harmless_message) return EXIT_FAILURE; + else return EXIT_SUCCESS; @y switch(history) { case harmless_message: return RETURN_WARN; diff --git a/Build/source/texk/web2c/cwebdir/comm-w2c.h b/Build/source/texk/web2c/cwebdir/comm-w2c.h index 7c21ba1bc21..0adfa44977f 100644 --- a/Build/source/texk/web2c/cwebdir/comm-w2c.h +++ b/Build/source/texk/web2c/cwebdir/comm-w2c.h @@ -2,7 +2,7 @@ % This program by Silvio Levy and Donald E. Knuth % is based on a program by Knuth. % It is distributed WITHOUT ANY WARRANTY, express or implied. -% Version 4.0 --- February 2021 (works also with later versions) +% Version 4.1 --- February 2021 (works also with later versions) % Copyright (C) 1987,1990,1993 Silvio Levy and Donald E. Knuth diff --git a/Build/source/texk/web2c/cwebdir/common.c b/Build/source/texk/web2c/cwebdir/common.c index 37c467ae3b5..49b40d04664 100644 --- a/Build/source/texk/web2c/cwebdir/common.c +++ b/Build/source/texk/web2c/cwebdir/common.c @@ -459,7 +459,7 @@ FILE*fp) { register int c= EOF; register char*k; -if(feof(fp))return(false); +if(feof(fp))return false; limit= k= buffer; while(k<=buffer_end&&(c= getc(fp))!=EOF&&c!='\n') if((*(k++)= c)!=' ')limit= k; @@ -468,9 +468,9 @@ if((c= getc(fp))!=EOF&&c!='\n'){ ungetc(c,fp);loc= buffer;err_print("! Input line too long"); } -if(c==EOF&&limit==buffer)return(false); +if(c==EOF&&limit==buffer)return false; -return(true); +return true; } /*:24*//*28:*/ @@ -829,7 +829,7 @@ init_p(p,t); /*:51*/ #line 656 "common.w" -return(p); +return p; } /*:48*//*52:*/ @@ -1146,8 +1146,8 @@ case fatal_message:puts("(That was a fatal error, my friend.)"); /*:69*/ #line 1084 "common.w" -if(history> harmless_message)return(1); -else return(0); +if(history> harmless_message)return EXIT_FAILURE; +else return EXIT_SUCCESS; } /*:68*//*70:*/ diff --git a/Build/source/texk/web2c/cwebdir/common.h b/Build/source/texk/web2c/cwebdir/common.h index 3e0d07d77db..40896f808aa 100644 --- a/Build/source/texk/web2c/cwebdir/common.h +++ b/Build/source/texk/web2c/cwebdir/common.h @@ -2,7 +2,7 @@ % This program by Silvio Levy and Donald E. Knuth % is based on a program by Knuth. % It is distributed WITHOUT ANY WARRANTY, express or implied. -% Version 4.0 --- February 2021 (works also with later versions) +% Version 4.1 --- February 2021 (works also with later versions) % Copyright (C) 1987,1990,1993 Silvio Levy and Donald E. Knuth diff --git a/Build/source/texk/web2c/cwebdir/common.w b/Build/source/texk/web2c/cwebdir/common.w index e23a3d857b9..377a796126e 100644 --- a/Build/source/texk/web2c/cwebdir/common.w +++ b/Build/source/texk/web2c/cwebdir/common.w @@ -2,7 +2,7 @@ % This program by Silvio Levy and Donald E. Knuth % is based on a program by Knuth. % It is distributed WITHOUT ANY WARRANTY, express or implied. -% Version 4.0 --- February 2021 +% Version 4.1 --- February 2021 % Copyright (C) 1987,1990,1993,2000 Silvio Levy and Donald E. Knuth @@ -22,12 +22,12 @@ \def\v{\char'174} % vertical (|) in typewriter font -\def\title{Common code for CTANGLE and CWEAVE (Version 4.0)} +\def\title{Common code for CTANGLE and CWEAVE (Version 4.1)} \def\topofcontents{\null\vfill \centerline{\titlefont Common code for {\ttitlefont CTANGLE} and {\ttitlefont CWEAVE}} \vskip 15pt - \centerline{(Version 4.0)} + \centerline{(Version 4.1)} \vfill} \def\botofcontents{\vfill \noindent @@ -165,7 +165,7 @@ FILE *fp@t\2\2@>) /* what file to read from */ { register int c=EOF; /* character read; initialized so some compilers won't complain */ register char *k; /* where next character goes */ - if (feof(fp)) return(false); /* we have hit end-of-file */ + if (feof(fp)) return false; /* we have hit end-of-file */ limit = k = buffer; /* beginning of buffer */ while (k<=buffer_end && (c=getc(fp)) != EOF && c!='\n') if ((*(k++) = c) != ' ') limit = k; @@ -174,9 +174,9 @@ FILE *fp@t\2\2@>) /* what file to read from */ ungetc(c,fp); loc=buffer; err_print("! Input line too long"); @.Input line too long@> } - if (c==EOF && limit==buffer) return(false); /* there was nothing after + if (c==EOF && limit==buffer) return false; /* there was nothing after the last newline */ - return(true); + return true; } @ Now comes the problem of deciding which file to read from next. @@ -654,7 +654,7 @@ char t@t\2\2@>) /* the |ilk|; used by \.{CWEAVE} only */ @<Compute the hash code |h|@>@; @<Compute the name location |p|@>@; if (p==name_ptr) @<Enter a new name into the table at position |p|@>@; - return(p); + return p; } @ A simple hash code is used: If the sequence of @@ -1082,8 +1082,8 @@ int wrap_up(void) { if (show_stats) print_stats(); /* print statistics about memory usage */ @<Print the job |history|@>@; - if (history > harmless_message) return(1); - else return(0); + if (history > harmless_message) return EXIT_FAILURE; + else return EXIT_SUCCESS; } @ @<Print the job |history|@>= diff --git a/Build/source/texk/web2c/cwebdir/ctang-bs.ch b/Build/source/texk/web2c/cwebdir/ctang-bs.ch index bbe1bcc8cc8..22310b8e70c 100644 --- a/Build/source/texk/web2c/cwebdir/ctang-bs.ch +++ b/Build/source/texk/web2c/cwebdir/ctang-bs.ch @@ -17,12 +17,12 @@ by using "huge" pointers. The ``banner line'' defined here should be changed whenever \.{CTANGLE} is modified. -@d banner "This is CTANGLE (Version 4.0)" +@d banner "This is CTANGLE (Version 4.1)" @y The ``banner line'' defined here should be changed whenever \.{CTANGLE} is modified. -@d banner "This is CTANGLE (Version 4.0pc/big)" +@d banner "This is CTANGLE (Version 4.1pc/big)" @z diff --git a/Build/source/texk/web2c/cwebdir/ctang-pc.ch b/Build/source/texk/web2c/cwebdir/ctang-pc.ch index a22a165be9e..686a2b0e6af 100644 --- a/Build/source/texk/web2c/cwebdir/ctang-pc.ch +++ b/Build/source/texk/web2c/cwebdir/ctang-pc.ch @@ -9,9 +9,9 @@ that allows >64K arrays. If you need lots of bytes and toks, try the alternate change files with -bs suffix instead of -pc. @x section 1 -@d banner "This is CTANGLE (Version 4.0)" +@d banner "This is CTANGLE (Version 4.1)" @y -@d banner "This is CTANGLE (Version 4.0pc)" +@d banner "This is CTANGLE (Version 4.1pc)" @z @x section 4 @d max_bytes 1000000 /* the number of bytes in identifiers, diff --git a/Build/source/texk/web2c/cwebdir/ctang-ql.ch b/Build/source/texk/web2c/cwebdir/ctang-ql.ch index d6cd1ee5e57..df4ca82a6f5 100644 --- a/Build/source/texk/web2c/cwebdir/ctang-ql.ch +++ b/Build/source/texk/web2c/cwebdir/ctang-ql.ch @@ -7,15 +7,15 @@ ex <dev_>cc;"-v -h -c -=500000 ctangle_c" @x -\def\title{CTANGLE (Version 4.0)} +\def\title{CTANGLE (Version 4.1)} @y -\def\title{CTANGLE (QL Version 4.0)} +\def\title{CTANGLE (QL Version 4.1)} @z @x section 1 -@d banner "This is CTANGLE (Version 4.0)" +@d banner "This is CTANGLE (Version 4.1)" @y -@d banner "This is CTANGLE (QL Version 4.0)" +@d banner "This is CTANGLE (QL Version 4.1)" @z @x diff --git a/Build/source/texk/web2c/cwebdir/ctang-vms.ch b/Build/source/texk/web2c/cwebdir/ctang-vms.ch index a4940e60e23..87acb6eb742 100644 --- a/Build/source/texk/web2c/cwebdir/ctang-vms.ch +++ b/Build/source/texk/web2c/cwebdir/ctang-vms.ch @@ -10,9 +10,9 @@ created: (these changes not necessary for initial bootstrapping) @x section 1 (01-FEB-1992 ST) -@d banner "This is CTANGLE (Version 4.0)" +@d banner "This is CTANGLE (Version 4.1)" @y -@d banner "This is CTANGLE (VAX/VMS Version 4.0)" +@d banner "This is CTANGLE (VAX/VMS Version 4.1)" @z @x section 3 (01-FEB-1992 ST) diff --git a/Build/source/texk/web2c/cwebdir/ctang-w2c.ch b/Build/source/texk/web2c/cwebdir/ctang-w2c.ch index f814b343351..d7677e4028c 100644 --- a/Build/source/texk/web2c/cwebdir/ctang-w2c.ch +++ b/Build/source/texk/web2c/cwebdir/ctang-w2c.ch @@ -17,15 +17,15 @@ @q Please send comments, suggestions, etc. to tex-k@@tug.org. @> @x -\def\title{CTANGLE (Version 4.0)} +\def\title{CTANGLE (Version 4.1)} @y -\def\title{CTANGLE (Version 4.0 [\TeX~Live])} +\def\title{CTANGLE (Version 4.1 [\TeX~Live])} @z @x - \centerline{(Version 4.0)} + \centerline{(Version 4.1)} @y - \centerline{(Version 4.0 [\TeX~Live])} + \centerline{(Version 4.1 [\TeX~Live])} @z @x @@ -41,9 +41,9 @@ @z @x -@d banner "This is CTANGLE (Version 4.0)" +@d banner "This is CTANGLE (Version 4.1)" @y -@d banner "This is CTANGLE, Version 4.0" +@d banner "This is CTANGLE, Version 4.1" /* will be extended by the \TeX~Live |versionstring| */ @z @@ -343,7 +343,7 @@ features that have been created by numerous contributors over the course of a quarter century. Care has been taken to keep the original section numbering intact, so this new -material should nicely integrate with the original ``\&{105.~Index}.'' +material should nicely integrate with the original ``\&{104.~Index}.'' @* Output file update. Most \CEE/ projects are controlled by a \.{Makefile} that automatically takes care of the temporal dependecies diff --git a/Build/source/texk/web2c/cwebdir/ctang-w32.ch b/Build/source/texk/web2c/cwebdir/ctang-w32.ch index 01b22a3d662..896d0863274 100644 --- a/Build/source/texk/web2c/cwebdir/ctang-w32.ch +++ b/Build/source/texk/web2c/cwebdir/ctang-w32.ch @@ -4,9 +4,9 @@ This is the change file for CWEB's CTANGLE under Win32 Changes necessary for compiling with Borland C/C++ @x section 1 -@d banner "This is CTANGLE (Version 4.0)" +@d banner "This is CTANGLE (Version 4.1)" @y -@d banner "This is CTANGLE (Version 4.0win32)" +@d banner "This is CTANGLE (Version 4.1win32)" @z @x diff --git a/Build/source/texk/web2c/cwebdir/ctangle.c b/Build/source/texk/web2c/cwebdir/ctangle.c index de0a05a39c6..200d61a92b7 100644 --- a/Build/source/texk/web2c/cwebdir/ctangle.c +++ b/Build/source/texk/web2c/cwebdir/ctangle.c @@ -15,7 +15,7 @@ /*:4*/ #line 67 "ctangle.w" -#define banner "This is CTANGLE (Version 4.0)" \ +#define banner "This is CTANGLE (Version 4.1)" \ #define ctangle false #define cweave true \ @@ -137,7 +137,7 @@ #define ishigh(c) ((eight_bits) (c) > 0177) \ \ -#define compress(c) if(loc++<=limit) return(c) \ +#define compress(c) if(loc++<=limit) return c \ #define macro 0 #define app_repl(c) {if(tok_ptr==tok_mem_end) overflow("token") ;*tok_ptr++= c;} \ @@ -346,12 +346,7 @@ boolean no_where; text_pointer cur_text; eight_bits next_control; -/*:82*//*90:*/ -#line 1348 "ctangle.w" - -extern sixteen_bits section_count; - -/*:90*/ +/*:82*/ #line 71 "ctangle.w" /*8:*/ @@ -436,22 +431,22 @@ static eight_bits get_next(void); static void scan_repl(eight_bits); -/*:83*//*91:*/ -#line 1355 "ctangle.w" +/*:83*//*90:*/ +#line 1348 "ctangle.w" static void scan_section(void); -/*:91*//*99:*/ -#line 1458 "ctangle.w" +/*:90*//*98:*/ +#line 1455 "ctangle.w" static void phase_one(void); -/*:99*//*101:*/ -#line 1476 "ctangle.w" +/*:98*//*100:*/ +#line 1473 "ctangle.w" static void skip_limbo(void); -/*:101*/ +/*:100*/ #line 72 "ctangle.w" @@ -884,12 +879,12 @@ skip_ahead(void) { eight_bits c; while(true){ -if(loc> limit&&(get_line()==false))return(new_section); +if(loc> limit&&(get_line()==false))return new_section; *(limit+1)= '@'; while(*loc!='@')loc++; if(loc<=limit){ loc++;c= ccode[(eight_bits)*loc];loc++; -if(c!=ignore||*(loc-1)=='>')return(c); +if(c!=ignore||*(loc-1)=='>')return c; } } } @@ -904,24 +899,24 @@ char c; while(true){ if(loc> limit){ if(is_long_comment){ -if(get_line())return(comment_continues= true); +if(get_line())return comment_continues= true; else{ err_print("! Input ended in mid-comment"); -return(comment_continues= false); +return comment_continues= false; } } -else return(comment_continues= false); +else return comment_continues= false; } c= *(loc++); if(is_long_comment&&c=='*'&&*loc=='/'){ -loc++;return(comment_continues= false); +loc++;return comment_continues= false; } if(c=='@'){ if(ccode[(eight_bits)*loc]==new_section){ err_print("! Section name ended in mid-comment");loc--; -return(comment_continues= false); +return comment_continues= false; } else loc++; } @@ -939,7 +934,7 @@ eight_bits c; while(true){ if(loc> limit){ if(preprocessing&&*(limit-1)!='\\')preprocessing= 0; -if(get_line()==false)return(new_section); +if(get_line()==false)return new_section; else if(print_where&&!no_where){ print_where= false; /*85:*/ @@ -961,13 +956,13 @@ app_repl(a_l%0400);} #line 900 "ctangle.w" } -else return('\n'); +else return'\n'; } c= *loc; if(comment_continues||(c=='/'&&(*(loc+1)=='*'||*(loc+1)=='/'))){ skip_comment(comment_continues||*(loc+1)=='*'); -if(comment_continues)return('\n'); +if(comment_continues)return'\n'; else continue; } loc++; @@ -993,7 +988,7 @@ while(xisdigit(*loc))loc++; found:while(*loc=='u'||*loc=='U'||*loc=='l'||*loc=='L' ||*loc=='f'||*loc=='F')loc++; id_loc= loc; -return(constant); +return constant; } /*:73*/ @@ -1043,7 +1038,7 @@ term_write(section_text+1,25); err_print("..."); } id_loc++; -return(string); +return string; } /*:74*/ @@ -1056,7 +1051,7 @@ else if(isalpha(c)||isxalpha(c)||ishigh(c)) id_first= --loc; while(isalpha((eight_bits)*++loc)||isdigit((eight_bits)*loc) ||isxalpha((eight_bits)*loc)||ishigh((eight_bits)*loc)); -id_loc= loc;return(identifier); +id_loc= loc;return identifier; } /*:72*/ @@ -1155,7 +1150,7 @@ overflow("output files"); /*:47*/ #line 1098 "ctangle.w" -return(section_name); +return section_name; } /*:77*/ @@ -1169,7 +1164,7 @@ while(*loc!='@'||*(loc+1)!='>')loc++; if(loc>=limit)err_print("! Verbatim string didn't end"); id_loc= loc;loc+= 2; -return(string); +return string; } /*:81*/ @@ -1196,12 +1191,12 @@ err_print("! String didn't end");loc= limit-1;break; } } loc++; -return(ord); +return ord; /*:76*/ #line 1058 "ctangle.w" -default:return(c); +default:return c; } } @@ -1211,7 +1206,7 @@ default:return(c); else if(xisspace(c)){ if(!preprocessing||loc> limit)continue; -else return(' '); +else return' '; } else if(c=='#'&&loc==buffer+1)preprocessing= 1; mistake:/*71:*/ @@ -1241,7 +1236,7 @@ case'!':if(*loc=='=')compress(non_eq);break; /*:71*/ #line 926 "ctangle.w" -return(c); +return c; } } @@ -1438,8 +1433,8 @@ if(text_ptr> text_info_end)overflow("text"); cur_text= text_ptr;(++text_ptr)->tok_start= tok_ptr; } -/*:84*//*92:*/ -#line 1358 "ctangle.w" +/*:84*//*91:*/ +#line 1355 "ctangle.w" static void scan_section(void) @@ -1453,8 +1448,8 @@ printf("*%d",section_count);update_terminal; } next_control= 0; while(true){ -/*93:*/ -#line 1397 "ctangle.w" +/*92:*/ +#line 1394 "ctangle.w" while(next_control<definition) @@ -1462,12 +1457,12 @@ if((next_control= skip_ahead())==section_name){ loc-= 2;next_control= get_next(); } -/*:93*/ -#line 1372 "ctangle.w" +/*:92*/ +#line 1369 "ctangle.w" if(next_control==definition){ -/*94:*/ -#line 1404 "ctangle.w" +/*93:*/ +#line 1401 "ctangle.w" { while((next_control= get_next())=='\n'); if(next_control!=identifier){ @@ -1485,8 +1480,8 @@ scan_repl(macro); cur_text->text_link= macro; } -/*:94*/ -#line 1374 "ctangle.w" +/*:93*/ +#line 1371 "ctangle.w" continue; } @@ -1495,36 +1490,36 @@ p= name_dir;break; } if(next_control==section_name){ p= cur_section_name; -/*95:*/ -#line 1429 "ctangle.w" +/*94:*/ +#line 1426 "ctangle.w" while((next_control= get_next())=='+'); if(next_control!='='&&next_control!=eq_eq) continue; -/*:95*/ -#line 1382 "ctangle.w" +/*:94*/ +#line 1379 "ctangle.w" break; } return; } no_where= print_where= false; -/*96:*/ -#line 1434 "ctangle.w" +/*95:*/ +#line 1431 "ctangle.w" -/*97:*/ -#line 1439 "ctangle.w" +/*96:*/ +#line 1436 "ctangle.w" store_two_bytes((sixteen_bits)(0150000+section_count)); -/*:97*/ -#line 1435 "ctangle.w" +/*:96*/ +#line 1432 "ctangle.w" scan_repl(section_name); -/*98:*/ -#line 1443 "ctangle.w" +/*97:*/ +#line 1440 "ctangle.w" if(p==name_dir||p==0){ (last_unnamed)->text_link= cur_text-text_info;last_unnamed= cur_text; @@ -1540,17 +1535,17 @@ q->text_link= cur_text-text_info; cur_text->text_link= section_flag; -/*:98*/ -#line 1437 "ctangle.w" +/*:97*/ +#line 1434 "ctangle.w" -/*:96*/ -#line 1388 "ctangle.w" +/*:95*/ +#line 1385 "ctangle.w" } -/*:92*//*100:*/ -#line 1461 "ctangle.w" +/*:91*//*99:*/ +#line 1458 "ctangle.w" static void phase_one(void){ @@ -1563,8 +1558,8 @@ check_complete(); phase= 2; } -/*:100*//*102:*/ -#line 1479 "ctangle.w" +/*:99*//*101:*/ +#line 1476 "ctangle.w" static void skip_limbo(void) @@ -1578,8 +1573,8 @@ if(loc++<=limit){ c= *loc++; if(ccode[(eight_bits)c]==new_section)break; switch(ccode[(eight_bits)c]){ -case translit_code:/*103:*/ -#line 1508 "ctangle.w" +case translit_code:/*102:*/ +#line 1505 "ctangle.w" while(xisspace(*loc)&&loc<limit)loc++; loc+= 3; @@ -1603,8 +1598,8 @@ translit[i-0200][loc-beg]= '\0'; } } -/*:103*/ -#line 1492 "ctangle.w" +/*:102*/ +#line 1489 "ctangle.w" break; case format_code:case'@':break; case control_text:if(c=='q'||c=='Q'){ @@ -1621,8 +1616,8 @@ default:err_print("! Double @ should be used in limbo"); } } -/*:102*//*104:*/ -#line 1534 "ctangle.w" +/*:101*//*103:*/ +#line 1531 "ctangle.w" void print_stats(void){ @@ -1637,4 +1632,4 @@ printf("%ld tokens (out of %ld)\n", (ptrdiff_t)(tok_ptr-tok_mem),(long)max_toks); } -/*:104*/ +/*:103*/ diff --git a/Build/source/texk/web2c/cwebdir/ctangle.w b/Build/source/texk/web2c/cwebdir/ctangle.w index 64477a5c935..3e717fbda2f 100644 --- a/Build/source/texk/web2c/cwebdir/ctangle.w +++ b/Build/source/texk/web2c/cwebdir/ctangle.w @@ -2,7 +2,7 @@ % This program by Silvio Levy and Donald E. Knuth % is based on a program by Knuth. % It is distributed WITHOUT ANY WARRANTY, express or implied. -% Version 4.0 --- February 2021 +% Version 4.1 --- February 2021 % Copyright (C) 1987,1990,1993,2000 Silvio Levy and Donald E. Knuth @@ -27,11 +27,11 @@ \mathchardef\RA="3221 % right arrow \mathchardef\BA="3224 % double arrow -\def\title{CTANGLE (Version 4.0)} +\def\title{CTANGLE (Version 4.1)} \def\topofcontents{\null\vfill \centerline{\titlefont The {\ttitlefont CTANGLE} processor} \vskip 15pt - \centerline{(Version 4.0)} + \centerline{(Version 4.1)} \vfill} \def\botofcontents{\vfill \noindent @@ -61,7 +61,7 @@ Joachim Schrod, Lee Wittenberg, and others who have contributed improvements. The ``banner line'' defined here should be changed whenever \.{CTANGLE} is modified. -@d banner "This is CTANGLE (Version 4.0)" +@d banner "This is CTANGLE (Version 4.1)" @c @<Include files@>@/ @@ -805,12 +805,12 @@ skip_ahead(void) /* skip to next control code */ { eight_bits c; /* control code found */ while (true) { - if (loc>limit && (get_line()==false)) return(new_section); + if (loc>limit && (get_line()==false)) return new_section; *(limit+1)='@@'; while (*loc!='@@') loc++; if (loc<=limit) { loc++; c=ccode[(eight_bits)*loc]; loc++; - if (c!=ignore || *(loc-1)=='>') return(c); + if (c!=ignore || *(loc-1)=='>') return c; } } } @@ -842,24 +842,24 @@ boolean is_long_comment@t\2\2@>) while (true) { if (loc>limit) { if (is_long_comment) { - if(get_line()) return(comment_continues=true); + if(get_line()) return comment_continues=true; else{ err_print("! Input ended in mid-comment"); @.Input ended in mid-comment@> - return(comment_continues=false); + return comment_continues=false; } } - else return(comment_continues=false); + else return comment_continues=false; } c=*(loc++); if (is_long_comment && c=='*' && *loc=='/') { - loc++; return(comment_continues=false); + loc++; return comment_continues=false; } if (c=='@@') { if (ccode[(eight_bits)*loc]==new_section) { err_print("! Section name ended in mid-comment"); loc--; @.Section name ended in mid-comment@> - return(comment_continues=false); + return comment_continues=false; } else loc++; } @@ -894,18 +894,18 @@ get_next(void) /* produces the next input token */ while (true) { if (loc>limit) { if (preprocessing && *(limit-1)!='\\') preprocessing=0; - if (get_line()==false) return(new_section); + if (get_line()==false) return new_section; else if (print_where && !no_where) { print_where=false; @<Insert the line number into |tok_mem|@>@; } - else return ('\n'); + else return '\n'; } c=*loc; if (comment_continues || (c=='/' && (*(loc+1)=='*' || *(loc+1)=='/'))) { skip_comment(comment_continues||*(loc+1)=='*'); /* scan to end of comment or newline */ - if (comment_continues) return('\n'); + if (comment_continues) return '\n'; else continue; } loc++; @@ -920,11 +920,11 @@ get_next(void) /* produces the next input token */ else if (xisspace(c)) { if (!preprocessing || loc>limit) continue; /* we don't want a blank after a final backslash */ - else return(' '); /* ignore spaces and tabs, unless preprocessing */ + else return ' '; /* ignore spaces and tabs, unless preprocessing */ } else if (c=='#' && loc==buffer+1) preprocessing=1; mistake: @<Compress two-symbol operator@>@; - return(c); + return c; } } @@ -935,7 +935,7 @@ combinations \.{...}, \.{::}, \.{.*} and \.{->*}. The compound assignment operators (e.g., \.{+=}) are treated as separate tokens. -@d compress(c) if (loc++<=limit) return(c) +@d compress(c) if (loc++<=limit) return c @<Compress tw...@>= switch(c) { @@ -963,7 +963,7 @@ switch(c) { id_first=--loc; while (isalpha((eight_bits)*++loc) || isdigit((eight_bits)*loc) @| || isxalpha((eight_bits)*loc) || ishigh((eight_bits)*loc)); - id_loc=loc; return(identifier); + id_loc=loc; return identifier; } @ @<Get a constant@>= { @@ -986,7 +986,7 @@ switch(c) { found: while (*loc=='u' || *loc=='U' || *loc=='l' || *loc=='L' || *loc=='f' || *loc=='F') loc++; id_loc=loc; - return(constant); + return constant; } @ \CEE/ strings and character constants, delimited by double and single @@ -1033,7 +1033,7 @@ convention, but do not allow the string to be longer than |longest_name|. err_print("..."); } id_loc++; - return(string); + return string; } @ After an \.{@@} sign has been scanned, the next character tells us @@ -1056,7 +1056,7 @@ whether there is more work to do. @<Scan the section name and make |cur_section_name| point to it@>@; case string: @<Scan a verbatim string@>@; case ord: @<Scan an ASCII constant@>@; - default: return(c); + default: return c; } } @@ -1085,7 +1085,7 @@ thus, \.{@@'\\nopq'} gives the same result as \.{@@'\\n'}. } } loc++; - return(ord); + return ord; @ @<Scan the section name...@>= { char *k; /* pointer into |section_text| */ @@ -1096,7 +1096,7 @@ thus, \.{@@'\\nopq'} gives the same result as \.{@@'\\n'}. if (cur_section_name_char=='(') @<If it's not there, add |cur_section_name| to the output file stack, or complain we're out of room@>@; - return(section_name); + return section_name; } @ Section names are placed into the |section_text| array with consecutive spaces, @@ -1159,7 +1159,7 @@ buffer. We also set |loc| to the position just after the ending delimiter. if (loc>=limit) err_print("! Verbatim string didn't end"); @.Verbatim string didn't end@> id_loc=loc; loc+=2; - return(string); + return string; } @* Scanning a macro definition. @@ -1345,17 +1345,14 @@ sensed in the input, and it proceeds until the end of that section. It uses |section_count| to keep track of the current section number; with luck, \.{CWEAVE} and \.{CTANGLE} will both assign the same numbers to sections. -@<Global...@>= -extern sixteen_bits section_count; /* the current section number */ +@<Predecl...@>= +static void scan_section(void);@/ @ The body of |scan_section| is a loop where we look for control codes that are significant to \.{CTANGLE}: those that delimit a definition, the \CEE/ part of a module, or a new module. -@<Predecl...@>= -static void scan_section(void);@/ - -@ @c +@c static void scan_section(void) { diff --git a/Build/source/texk/web2c/cwebdir/ctwill-mini.ch b/Build/source/texk/web2c/cwebdir/ctwill-mini.ch index 410f270491b..5f6788aa9f9 100644 --- a/Build/source/texk/web2c/cwebdir/ctwill-mini.ch +++ b/Build/source/texk/web2c/cwebdir/ctwill-mini.ch @@ -14,7 +14,7 @@ Section 1. @z @x -@d banner "This is CTWILL, Version 4.0" +@d banner "This is CTWILL, Version 4.1" @y \bigskip {\font\itt=cmitt10 \font\bit=cmbxti10 @@ -35,7 +35,7 @@ be even more ``off'' from {\itt cweave.w}. Care has been taken to give a faithful overall rendering of {\itt CTWILL}'s code, though. \hfill ---Enjoy!\bigskip} -@d banner "This is CTWILL, Version 4.0" +@d banner "This is CTWILL, Version 4.1" @z Section 2. diff --git a/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch b/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch index 0849495bd85..4008555140e 100644 --- a/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch +++ b/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch @@ -34,9 +34,9 @@ @z @x -\def\title{CWEAVE (Version 4.0)} +\def\title{CWEAVE (Version 4.1)} @y -\def\title{CTWILL (Version 4.0 [\TeX~Live])} +\def\title{CTWILL (Version 4.1 [\TeX~Live])} @z @x @@ -46,9 +46,9 @@ @z @x - \centerline{(Version 4.0)} + \centerline{(Version 4.1)} @y - \centerline{(Version 4.0 [\TeX~Live])} + \centerline{(Version 4.1 [\TeX~Live])} @z @x @@ -75,7 +75,7 @@ Crusius, and others who have contributed improvements. The ``banner line'' defined here should be changed whenever \.{CWEAVE} is modified. -@d banner "This is CWEAVE (Version 4.0)" +@d banner "This is CWEAVE (Version 4.1)" @y This is the \.{CTWILL} program by D. E. Knuth, based on \.{CWEAVE} by Silvio Levy and D.~E. Knuth. It is also based on @@ -94,7 +94,7 @@ reprinted in {\sl Digital Typography\/} (1999), 225--245. The ``banner line'' defined here should be changed whenever \.{CTWILL} is modified. The version number parallels the corresponding version of \.{CWEAVE}. -@d banner "This is CTWILL, Version 4.0" +@d banner "This is CTWILL, Version 4.1" /* will be extended by the \TeX~Live |versionstring| */ @z diff --git a/Build/source/texk/web2c/cwebdir/cweav-bs.ch b/Build/source/texk/web2c/cwebdir/cweav-bs.ch index f6fa97175f6..723208d6c7f 100644 --- a/Build/source/texk/web2c/cwebdir/cweav-bs.ch +++ b/Build/source/texk/web2c/cwebdir/cweav-bs.ch @@ -20,12 +20,12 @@ This file contributed by Barry Schwartz, trashman@crud.mn.org, 28 Jun 94. The ``banner line'' defined here should be changed whenever \.{CWEAVE} is modified. -@d banner "This is CWEAVE (Version 4.0)" +@d banner "This is CWEAVE (Version 4.1)" @y The ``banner line'' defined here should be changed whenever \.{CWEAVE} is modified. -@d banner "This is CWEAVE (Version 4.0pc/big)" +@d banner "This is CWEAVE (Version 4.1pc/big)" @z diff --git a/Build/source/texk/web2c/cwebdir/cweav-man.ch b/Build/source/texk/web2c/cwebdir/cweav-man.ch index b72360944a2..83b14c9007e 100644 --- a/Build/source/texk/web2c/cwebdir/cweav-man.ch +++ b/Build/source/texk/web2c/cwebdir/cweav-man.ch @@ -16,7 +16,7 @@ under the terms of a permission notice identical to this one. } @y \def\botofcontents{\vfill\titlefalse} -\def\contentspagenumber{111} +\def\contentspagenumber{110} \def\title{APPENDIX F: CWEAVE} \let\K=\leftarrow @z diff --git a/Build/source/texk/web2c/cwebdir/cweav-pc.ch b/Build/source/texk/web2c/cwebdir/cweav-pc.ch index 64508e23697..2619998cc35 100644 --- a/Build/source/texk/web2c/cwebdir/cweav-pc.ch +++ b/Build/source/texk/web2c/cwebdir/cweav-pc.ch @@ -11,9 +11,9 @@ that allows >64K arrays. (If you need lots more bytes, try the alternate change files that have -bs in their name instead of -pc.) @x section 1 -@d banner "This is CWEAVE (Version 4.0)" +@d banner "This is CWEAVE (Version 4.1)" @y -@d banner "This is CWEAVE (Version 4.0pc)" +@d banner "This is CWEAVE (Version 4.1pc)" @z @x section 4 diff --git a/Build/source/texk/web2c/cwebdir/cweav-ql.ch b/Build/source/texk/web2c/cwebdir/cweav-ql.ch index b61e570c2c9..28227aff889 100644 --- a/Build/source/texk/web2c/cwebdir/cweav-ql.ch +++ b/Build/source/texk/web2c/cwebdir/cweav-ql.ch @@ -7,15 +7,15 @@ ex <dev_>cc;"-v -h -c =500000 cweave_c" @x -\def\title{CWEAVE (Version 4.0)} +\def\title{CWEAVE (Version 4.1)} @y -\def\title{CWEAVE (QL Version 4.0)} +\def\title{CWEAVE (QL Version 4.1)} @z @x section 1 -@d banner "This is CWEAVE (Version 4.0)" +@d banner "This is CWEAVE (Version 4.1)" @y -@d banner "This is CWEAVE (QL Version 4.0)" +@d banner "This is CWEAVE (QL Version 4.1)" @z @x diff --git a/Build/source/texk/web2c/cwebdir/cweav-vms.ch b/Build/source/texk/web2c/cwebdir/cweav-vms.ch index 8f0535917d1..ea3501460bb 100644 --- a/Build/source/texk/web2c/cwebdir/cweav-vms.ch +++ b/Build/source/texk/web2c/cwebdir/cweav-vms.ch @@ -13,9 +13,9 @@ modified: (also modified by Don Knuth to keep version numbers uptodate) @x section 1 (01-FEB-1992 ST) -@d banner "This is CWEAVE (Version 4.0)" +@d banner "This is CWEAVE (Version 4.1)" @y -@d banner "This is CWEAVE (VAX/VMS Version 4.0)" +@d banner "This is CWEAVE (VAX/VMS Version 4.1)" @z @x section 3 (01-FEB-1992 ST) diff --git a/Build/source/texk/web2c/cwebdir/cweav-w2c.ch b/Build/source/texk/web2c/cwebdir/cweav-w2c.ch index 4ff1c15f3f0..79ff089b8ce 100644 --- a/Build/source/texk/web2c/cwebdir/cweav-w2c.ch +++ b/Build/source/texk/web2c/cwebdir/cweav-w2c.ch @@ -17,15 +17,15 @@ @q Please send comments, suggestions, etc. to tex-k@@tug.org. @> @x -\def\title{CWEAVE (Version 4.0)} +\def\title{CWEAVE (Version 4.1)} @y -\def\title{CWEAVE (Version 4.0 [\TeX~Live])} +\def\title{CWEAVE (Version 4.1 [\TeX~Live])} @z @x - \centerline{(Version 4.0)} + \centerline{(Version 4.1)} @y - \centerline{(Version 4.0 [\TeX~Live])} + \centerline{(Version 4.1 [\TeX~Live])} @z @x @@ -41,9 +41,9 @@ @z @x -@d banner "This is CWEAVE (Version 4.0)" +@d banner "This is CWEAVE (Version 4.1)" @y -@d banner "This is CWEAVE, Version 4.0" +@d banner "This is CWEAVE, Version 4.1" /* will be extended by the \TeX~Live |versionstring| */ @z diff --git a/Build/source/texk/web2c/cwebdir/cweav-w32.ch b/Build/source/texk/web2c/cwebdir/cweav-w32.ch index c993cb39f4a..575387bb1a1 100644 --- a/Build/source/texk/web2c/cwebdir/cweav-w32.ch +++ b/Build/source/texk/web2c/cwebdir/cweav-w32.ch @@ -2,9 +2,9 @@ This is the change file for CWEB's CWEAVE under Win32 (Contributed by Fabrice Popineau, February 2002) @x section 1 -@d banner "This is CWEAVE (Version 4.0)" +@d banner "This is CWEAVE (Version 4.1)" @y -@d banner "This is CWEAVE (Version 4.0win32)" +@d banner "This is CWEAVE (Version 4.1win32)" @z @x diff --git a/Build/source/texk/web2c/cwebdir/cweave.w b/Build/source/texk/web2c/cwebdir/cweave.w index aed597b138c..8be353088c0 100644 --- a/Build/source/texk/web2c/cwebdir/cweave.w +++ b/Build/source/texk/web2c/cwebdir/cweave.w @@ -2,7 +2,7 @@ % This program by Silvio Levy and Donald E. Knuth % is based on a program by Knuth. % It is distributed WITHOUT ANY WARRANTY, express or implied. -% Version 4.0 --- February 2021 +% Version 4.1 --- February 2021 % Copyright (C) 1987,1990,1993,2000 Silvio Levy and Donald E. Knuth @@ -32,11 +32,11 @@ \def\skipxTeX{\\{skip\_\TEX/}} \def\copyxTeX{\\{copy\_\TEX/}} -\def\title{CWEAVE (Version 4.0)} +\def\title{CWEAVE (Version 4.1)} \def\topofcontents{\null\vfill \centerline{\titlefont The {\ttitlefont CWEAVE} processor} \vskip 15pt - \centerline{(Version 4.0)} + \centerline{(Version 4.1)} \vfill} \def\botofcontents{\vfill \noindent @@ -67,7 +67,7 @@ Crusius, and others who have contributed improvements. The ``banner line'' defined here should be changed whenever \.{CWEAVE} is modified. -@d banner "This is CWEAVE (Version 4.0)" +@d banner "This is CWEAVE (Version 4.1)" @c @<Include files@>@/ @h @@ -618,11 +618,11 @@ static eight_bits skip_TeX(void) /* skip past pure \TEX/ code */ { while (true) { - if (loc>limit && get_line()==false) return(new_section); + if (loc>limit && get_line()==false) return new_section; *(limit+1)='@@'; while (*loc!='@@' && *loc!='|') loc++; - if (*loc++ =='|') return('|'); - if (loc<=limit) return(ccode[(eight_bits)*(loc++)]); + if (*loc++ =='|') return '|'; + if (loc<=limit) return ccode[(eight_bits)*(loc++)]; } } @@ -690,7 +690,7 @@ get_next(void) /* produces the next input token */ eight_bits c; /* the current character */ while (true) { @<Check if we're at the end of a preprocessor command@>@; - if (loc>limit && get_line()==false) return(new_section); + if (loc>limit && get_line()==false) return new_section; c=*(loc++); if (xisdigit(c) || c=='.') @<Get a constant@>@; else if (c=='\'' || c=='"'@| @@ -704,7 +704,7 @@ get_next(void) /* produces the next input token */ else if (xisspace(c)) continue; /* ignore spaces and tabs */ if (c=='#' && loc==buffer+1) @<Raise preprocessor flag@>@; mistake: @<Compress two-symbol operator@>@; - return(c); + return c; } } @@ -727,7 +727,7 @@ boolean preprocessing=false; /* are we scanning a preprocessor command? */ @ @<Raise prep...@>= { preprocessing=true; @<Check if next token is |include|@>@; - return (left_preproc); + return left_preproc; } @ An additional complication is the freakish use of \.< and \.> to delimit @@ -747,10 +747,10 @@ the last character was a \.\\. @<Check if we're at...@>= while (loc==limit-1 && preprocessing && *loc=='\\') - if (get_line()==false) return(new_section); /* still in preprocessor mode */ + if (get_line()==false) return new_section; /* still in preprocessor mode */ if (loc>=limit && preprocessing) { preprocessing=sharp_include_line=false; - return(right_preproc); + return right_preproc; } @ The following code assigns values to the combinations \.{++}, @@ -760,7 +760,7 @@ combinations \.{...}, \.{::}, \.{.*} and \.{->*}. The compound assignment operators (e.g., \.{+=}) are treated as separate tokens. -@d compress(c) if (loc++<=limit) return(c) +@d compress(c) if (loc++<=limit) return c @<Compress tw...@>= switch(c) { @@ -790,7 +790,7 @@ switch(c) { id_first=--loc; while (isalpha((eight_bits)*++loc) || isdigit((eight_bits)*loc) @| || isxalpha((eight_bits)*loc) || ishigh((eight_bits)*loc)); - id_loc=loc; return(identifier); + id_loc=loc; return identifier; } @ Different conventions are followed by \TEX/ and \CEE/ to express octal @@ -826,7 +826,7 @@ are pointers into the array |section_text|, not into |buffer|. || *loc=='f' || *loc=='F') { *id_loc++='$'; *id_loc++=toupper((eight_bits)*loc); loc++; } - return(constant); + return constant; } @ \CEE/ strings and character constants, delimited by double and single @@ -873,7 +873,7 @@ convention, but do not allow the string to be longer than |longest_name|. printf("..."); mark_error; } id_loc++; - return(string); + return string; } @ After an \.{@@} sign has been scanned, the next character tells us @@ -887,12 +887,12 @@ whether there is more work to do. case underline: xref_switch=def_flag; continue; case trace: tracing=c-'0'; continue; case xref_roman: case xref_wildcard: case xref_typewriter: case noop: - case TeX_string: c=ccode[(eight_bits)c]; skip_restricted(); return(c); + case TeX_string: c=ccode[(eight_bits)c]; skip_restricted(); return c; case section_name: @<Scan the section name and make |cur_section| point to it@>@; case verbatim: @<Scan a verbatim string@>@; case ord: @<Get a string@>@; - default: return(ccode[(eight_bits)c]); + default: return ccode[(eight_bits)c]; } } @@ -906,7 +906,7 @@ because the section name might (for example) follow \&{int}. if (k-section_text>3 && strncmp(k-2,"...",3)==0) cur_section=section_lookup(section_text+1,k-3,1); /* 1 indicates a prefix */ else cur_section=section_lookup(section_text+1,k,0); - xref_switch=0; return(section_name); + xref_switch=0; return section_name; } @ Section names are placed into the |section_text| array with consecutive spaces, @@ -994,7 +994,7 @@ buffer. We also set |loc| to the position just after the ending delimiter. if (loc>=limit) err_print("! Verbatim string didn't end"); @.Verbatim string didn't end@> id_loc=loc; loc+=2; - return (verbatim); + return verbatim; } @** Phase one processing. @@ -1527,14 +1527,14 @@ copy_TeX(void) { char c; /* current character being copied */ while (true) { - if (loc>limit && (finish_line(), get_line()==false)) return(new_section); + if (loc>limit && (finish_line(), get_line()==false)) return new_section; *(limit+1)='@@'; while ((c=*(loc++))!='|' && c!='@@') { out(c); if (out_ptr==out_buf+1 && (xisspace(c))) out_ptr--; } - if (c=='|') return('|'); - if (loc<=limit) return(ccode[(eight_bits)*(loc++)]); + if (c=='|') return '|'; + if (loc<=limit) return ccode[(eight_bits)*(loc++)]; } } @@ -1572,7 +1572,7 @@ int bal@t\2\2@>) /* brace balance */ } } c=*(loc++); - if (c=='|') return(bal); + if (c=='|') return bal; if (is_long_comment) @<Check for end of comment@>@; if (phase==2) { if (ishigh(c)) app_tok(quoted_char); @@ -1615,7 +1615,7 @@ enough right braces to keep \TEX/ happy. @<Clear |bal|...@>= if (phase==2) while (bal-- >0) app_tok('}'); -return(0); +return 0; @** Parsing. The most intricate part of \.{CWEAVE} is its mechanism for converting @@ -3175,7 +3175,7 @@ where appropriate. if (j->mathness / 4 == yes_math) app('$'); if (tok_ptr+6>tok_mem_end) overflow("token"); } - freeze_text; return(text_ptr-1); + freeze_text; return text_ptr-1; } @ @<If semi-tracing, show the irreducible scraps@>= @@ -3494,7 +3494,7 @@ C_translate(void) p=translate(); /* make the translation */ if (scrap_ptr>max_scr_ptr) max_scr_ptr=scrap_ptr; scrap_ptr=scrap_base-1; scrap_base=save_base; /* scrap the scraps */ - return(p); + return p; } @ The |outer_parse| routine is to |C_parse| as |outer_xref| @@ -3679,16 +3679,16 @@ get_output(void) /* returns the next token of output */ if (a>=0400) { cur_name=a % id_flag + name_dir; switch (a / id_flag) { - case 2: return(res_word); /* |a==res_flag+cur_name| */ - case 3: return(section_code); /* |a==section_flag+cur_name| */ + case 2: return res_word ; /* |a==res_flag+cur_name| */ + case 3: return section_code ; /* |a==section_flag+cur_name| */ case 4: push_level(a % id_flag + tok_start); goto restart; /* |a==tok_flag+cur_name| */ case 5: push_level(a % id_flag + tok_start); cur_mode=inner; goto restart; /* |a==inner_tok_flag+cur_name| */ - default: return(identifier); /* |a==id_flag+cur_name| */ + default: return identifier; /* |a==id_flag+cur_name| */ } } - return((eight_bits)a); + return (eight_bits)a; } @ The real work associated with token output is done by |make_output|. diff --git a/Build/source/texk/web2c/cwebdir/cwebmac.tex b/Build/source/texk/web2c/cwebdir/cwebmac.tex index 228de239bf9..8b49cab3c67 100644 --- a/Build/source/texk/web2c/cwebdir/cwebmac.tex +++ b/Build/source/texk/web2c/cwebdir/cwebmac.tex @@ -1,8 +1,8 @@ % standard macros for CWEB listings (in addition to plain.tex) -% Version 4.0 --- February 2021 +% Version 4.1 --- February 2021 \ifx\renewenvironment\undefined\else\endinput\fi % LaTeX will use other macros -\xdef\fmtversion{\fmtversion+CWEB4.0} -\chardef\cwebversion=4 \chardef\cwebrevision=0 +\xdef\fmtversion{\fmtversion+CWEB4.1} +\chardef\cwebversion=4 \chardef\cwebrevision=1 \newif\ifpdf \ifx\pdf+\pdftrue\fi % Uncomment the following line if you want PDF goodies to be the default @@ -14,7 +14,7 @@ %\else \pdftextrue \pdfoutput=1 \input pdfcolor \let\setcolor\pdfsetcolor \fi\fi \else \pdftextrue \pdfoutput=1 % changed in 3.69 \def\Black{\pdfliteral{0 g 0 G}} % use rgb colors for direct PDF output too - \def\Blue{\pdfliteral{0 0 1 rg 0 0 1 RG}} + \def\Blue{\pdfliteral{\pdflinkcolor\space rg \pdflinkcolor\space RG}} \fi\fi \newif\ifacro \ifpdf\acrotrue\fi \ifpdftex\acrotrue\fi @@ -282,12 +282,10 @@ \def\stsec{\rightskip=0pt % get out of C mode (cf. \B) \sfcode`;=1500 \pretolerance 200 \hyphenpenalty 50 \exhyphenpenalty 50 \noindent{\let\*=\lapstar\bf\secstar.\quad}% - \ifpdftex\smash{\raise\baselineskip\hbox to0pt{% -% \let\*=\empty\pdfdest num \secstar fith}} % bad space in versions < 3.68 - \let\*=\empty\pdfdest num \secstar fith}}% changed in version 3.68 - \else\ifpdf\smash{\raise\baselineskip\hbox to0pt{% - \let\*=\empty\special{% - pdf: dest (\romannumeral\secstar) [ @thispage /FitH @ypos ]}}}\fi\fi} + \ifacro \smash{\raise\baselineskip\hbox to0pt{\let\*=\empty + \ifpdftex \pdfdest num \secstar fith% + \else \special{pdf: dest (\romannumeral\secstar) + [ @thispage /FitH @ypos ]}\fi}}\fi} \let\startsection=\stsec \def\defin#1{\global\advance\ind by 2 \1\&{#1 } } % begin `define' or `format' \def\A{\note{See also section}} % xref for doubly defined section name diff --git a/Build/source/texk/web2c/cwebdir/cwebman-w2c.ch b/Build/source/texk/web2c/cwebdir/cwebman-w2c.ch index 3f8a3ff9335..491cb64c82d 100644 --- a/Build/source/texk/web2c/cwebdir/cwebman-w2c.ch +++ b/Build/source/texk/web2c/cwebdir/cwebman-w2c.ch @@ -93,17 +93,17 @@ @z @x -\def\runninghead{{\tentt CWEB} USER MANUAL (VERSION 4.0)} +\def\runninghead{{\tentt CWEB} USER MANUAL (VERSION 4.1)} @y \def\Kpathsea/{{\mc KPATHSEA\spacefactor1000}} -\def\runninghead{{\tentt CWEB} USER MANUAL (4.0 [\TeX~Live])} +\def\runninghead{{\tentt CWEB} USER MANUAL (4.1 [\TeX~Live])} @z @x -\vskip 18pt\centerline{(Version 4.0 --- February 2021)} +\vskip 18pt\centerline{(Version 4.1 --- February 2021)} @y -\vskip 18pt\centerline{(Version 4.0 --- February 2021)% -\footnote*{This document describes the extended \.{CWEB} (4.0 [\TeX~Live]).}} +\vskip 18pt\centerline{(Version 4.1 --- February 2021)% +\footnote*{This document describes the extended \.{CWEB} (4.1 [\TeX~Live]).}} @z @x @@ -303,9 +303,9 @@ And here's what the same excerpt looks like when typeset. @z @x - \.{ { }\\vskip 15pt \\centerline\{(Version 4.0)\}{ }\\vfill\}}\cr}$$ + \.{ { }\\vskip 15pt \\centerline\{(Version 4.1)\}{ }\\vfill\}}\cr}$$ @y - \.{ { }\\vskip 15pt \\centerline\{(Version 4.0)\}{ }\\vfill\}}\cr}$$ + \.{ { }\\vskip 15pt \\centerline\{(Version 4.1)\}{ }\\vfill\}}\cr}$$ @z @x diff --git a/Build/source/texk/web2c/cwebdir/cwebman.tex b/Build/source/texk/web2c/cwebdir/cwebman.tex index 3cf075b883e..fd7f16446c9 100644 --- a/Build/source/texk/web2c/cwebdir/cwebman.tex +++ b/Build/source/texk/web2c/cwebdir/cwebman.tex @@ -36,7 +36,7 @@ \def\lheader{\mainfont\the\pageno\hfill\sc\runninghead\hfill} \def\rheader{\hfill\sc\runninghead\hfill\mainfont\the\pageno} -\def\runninghead{{\tentt CWEB} USER MANUAL (VERSION 4.0)} +\def\runninghead{{\tentt CWEB} USER MANUAL (VERSION 4.1)} % This verbatim mode assumes that ! marks are !! in the text being copied. \def\verbatim{\begingroup @@ -50,7 +50,7 @@ \null\vfill \centerline{\titlefont The {\ttitlefont CWEB} System of Structured Documentation} -\vskip 18pt\centerline{(Version 4.0 --- February 2021)} +\vskip 18pt\centerline{(Version 4.1 --- February 2021)} \vskip 24pt \centerline{\authorfont Donald E. Knuth and Silvio Levy} \vfill @@ -1591,7 +1591,7 @@ $$\lpile{\.{\\def\\topofcontents\{\\null\\vfill}\cr \.{ { }\\titlefalse \% include headline on the contents page}\cr \.{ { }\\def\\rheader\{\\mainfont The \{\\tt CWEAVE\}{ }processor\\hfil\}}\cr \.{ { }\\centerline\{\\titlefont The \{\\ttitlefont CWEAVE\}{ }processor\}}\cr - \.{ { }\\vskip 15pt \\centerline\{(Version 4.0)\}{ }\\vfill\}}\cr}$$ + \.{ { }\\vskip 15pt \\centerline\{(Version 4.1)\}{ }\\vfill\}}\cr}$$ Redefining \.{\\rheader}, which is the headline for right-hand pages, suffices in this case to put the desired information at the top of the contents page. diff --git a/Build/source/texk/web2c/cwebdir/po/cweb-tl.pot b/Build/source/texk/web2c/cwebdir/po/cweb-tl.pot index 21d2b91c078..e46869ad565 100644 --- a/Build/source/texk/web2c/cwebdir/po/cweb-tl.pot +++ b/Build/source/texk/web2c/cwebdir/po/cweb-tl.pot @@ -30,15 +30,15 @@ msgid "%s: Need one to three file arguments.\n" msgstr "" #: ctang-texlive.ch:39 -msgid "This is CTANGLE, Version 4.0" +msgid "This is CTANGLE, Version 4.1" msgstr "" #: ctwill-texlive.ch:39 -msgid "This is CTWILL, Version 4.0" +msgid "This is CTWILL, Version 4.1" msgstr "" #: cweav-texlive.ch:39 -msgid "This is CWEAVE, Version 4.0" +msgid "This is CWEAVE, Version 4.1" msgstr "" #: comm-texlive.ch:512 diff --git a/Build/source/texk/web2c/cwebdir/po/cweb.pot b/Build/source/texk/web2c/cwebdir/po/cweb.pot index 812dbf3f72e..2d7023d3efd 100644 --- a/Build/source/texk/web2c/cwebdir/po/cweb.pot +++ b/Build/source/texk/web2c/cwebdir/po/cweb.pot @@ -523,15 +523,15 @@ msgid "Sorting:" msgstr "" #: ctang-i18n.ch:17 -msgid "This is CTANGLE (Version 4.0 [CWEBbin 2021])" +msgid "This is CTANGLE (Version 4.1 [CWEBbin 2021])" msgstr "" #: cweav-twill.ch:61 -msgid "This is CTWILL (Version 4.0 [CWEBbin 2021])" +msgid "This is CTWILL (Version 4.1 [CWEBbin 2021])" msgstr "" #: cweav-i18n.ch:17 cweav-twill.ch:42 -msgid "This is CWEAVE (Version 4.0 [CWEBbin 2021])" +msgid "This is CWEAVE (Version 4.1 [CWEBbin 2021])" msgstr "" #: cweav-i18n.ch:301 cweav-i18n.ch:309 diff --git a/Build/source/texk/web2c/cwebdir/po/de/cweb-tl.po b/Build/source/texk/web2c/cwebdir/po/de/cweb-tl.po index 25324153f30..c71367d504b 100644 --- a/Build/source/texk/web2c/cwebdir/po/de/cweb-tl.po +++ b/Build/source/texk/web2c/cwebdir/po/de/cweb-tl.po @@ -32,16 +32,16 @@ msgid "%s: Need one to three file arguments.\n" msgstr "%s: Benötige ein bis drei Dateiargumente.\n" #: ctang-texlive.ch:39 -msgid "This is CTANGLE, Version 4.0" -msgstr "Dies ist CTANGLE, Version 4.0" +msgid "This is CTANGLE, Version 4.1" +msgstr "Dies ist CTANGLE, Version 4.1" #: ctwill-texlive.ch:39 -msgid "This is CTWILL, Version 4.0" -msgstr "Dies ist CTWILL, Version 4.0" +msgid "This is CTWILL, Version 4.1" +msgstr "Dies ist CTWILL, Version 4.1" #: cweav-texlive.ch:39 -msgid "This is CWEAVE, Version 4.0" -msgstr "Dies ist CWEAVE, Version 4.0" +msgid "This is CWEAVE, Version 4.1" +msgstr "Dies ist CWEAVE, Version 4.1" #: comm-texlive.ch:512 #, c-format diff --git a/Build/source/texk/web2c/cwebdir/po/de/cweb.po b/Build/source/texk/web2c/cwebdir/po/de/cweb.po index d421cbf8a81..d51f6cc7877 100644 --- a/Build/source/texk/web2c/cwebdir/po/de/cweb.po +++ b/Build/source/texk/web2c/cwebdir/po/de/cweb.po @@ -603,16 +603,16 @@ msgid "Sorting:" msgstr "Sortieren:" #: ctang-i18n.ch:17 -msgid "This is CTANGLE (Version 4.0 [CWEBbin 2021])" -msgstr "Dies ist CTANGLE (Version 4.0 [CWEBbin 2021])" +msgid "This is CTANGLE (Version 4.1 [CWEBbin 2021])" +msgstr "Dies ist CTANGLE (Version 4.1 [CWEBbin 2021])" #: cweav-twill.ch:61 -msgid "This is CTWILL (Version 4.0 [CWEBbin 2021])" -msgstr "Dies ist CTWILL (Version 4.0 [CWEBbin 2021])" +msgid "This is CTWILL (Version 4.1 [CWEBbin 2021])" +msgstr "Dies ist CTWILL (Version 4.1 [CWEBbin 2021])" #: cweav-i18n.ch:17 cweav-twill.ch:42 -msgid "This is CWEAVE (Version 4.0 [CWEBbin 2021])" -msgstr "Dies ist CWEAVE (Version 4.0 [CWEBbin 2021])" +msgid "This is CWEAVE (Version 4.1 [CWEBbin 2021])" +msgstr "Dies ist CWEAVE (Version 4.1 [CWEBbin 2021])" #: cweav-i18n.ch:301 cweav-i18n.ch:309 msgid "buffer" diff --git a/Build/source/texk/web2c/cwebdir/po/it/cweb.po b/Build/source/texk/web2c/cwebdir/po/it/cweb.po index defb988831f..235de34a0b4 100644 --- a/Build/source/texk/web2c/cwebdir/po/it/cweb.po +++ b/Build/source/texk/web2c/cwebdir/po/it/cweb.po @@ -598,16 +598,16 @@ msgid "Sorting:" msgstr "Ordinamento:" #: ctang-i18n.ch:17 -msgid "This is CTANGLE (Version 4.0 [CWEBbin 2021])" -msgstr "Questo è CTANGLE (Versione 4.0 [CWEBbin 2021])" +msgid "This is CTANGLE (Version 4.1 [CWEBbin 2021])" +msgstr "Questo è CTANGLE (Versione 4.1 [CWEBbin 2021])" #: cweav-i18n.ch:17 -msgid "This is CWEAVE (Version 4.0 [CWEBbin 2021])" -msgstr "Questo è CWEAVE (Versione 4.0 [CWEBbin 2021])" +msgid "This is CWEAVE (Version 4.1 [CWEBbin 2021])" +msgstr "Questo è CWEAVE (Versione 4.1 [CWEBbin 2021])" #: cweav-twill.ch:68 -msgid "This is CTWILL (Version 4.0 [CWEBbin 2021])" -msgstr "Questo è CTWILL (Versione 4.0 [CWEBbin 2021])" +msgid "This is CTWILL (Version 4.1 [CWEBbin 2021])" +msgstr "Questo è CTWILL (Versione 4.1 [CWEBbin 2021])" #: cweav-i18n.ch:301 cweav-i18n.ch:309 msgid "buffer" diff --git a/Build/source/texk/web2c/man/ChangeLog b/Build/source/texk/web2c/man/ChangeLog index da98dd9e45b..de0705e7092 100644 --- a/Build/source/texk/web2c/man/ChangeLog +++ b/Build/source/texk/web2c/man/ChangeLog @@ -1,3 +1,7 @@ +2021-02-20 Andreas Scherer <https://ascherer.github.io> + + * ctwill.man: CWEB 4.1 release. + 2020-09-23 Andreas Scherer <https://ascherer.github.io> * ctwill.man, diff --git a/Build/source/texk/web2c/man/ctwill.man b/Build/source/texk/web2c/man/ctwill.man index 5efb9c7026e..f56d7394817 100644 --- a/Build/source/texk/web2c/man/ctwill.man +++ b/Build/source/texk/web2c/man/ctwill.man @@ -106,7 +106,7 @@ The present incarnation of \f[B]ctwill\f[R] and its utilities tries hard to be a drop-in replacement for the original package. There are, however, a few differences worth noting: .IP \[bu] 2 -This version is based on the most recent version of CWEB (4.0). +This version is based on the most recent version of CWEB (4.1). .IP \[bu] 2 In TeX\ Live the utility programs are prefixed with \f[B]ctwill-\f[R] and the macro files with \f[B]ct\f[R] for technical reasons. |