diff options
author | Andreas Scherer <andreas_tex@freenet.de> | 2021-02-19 12:34:28 +0000 |
---|---|---|
committer | Andreas Scherer <andreas_tex@freenet.de> | 2021-02-19 12:34:28 +0000 |
commit | 301b1d4268858508a0a144e685087f125aab5dc5 (patch) | |
tree | 82d3968b38d76fc1e97207ddf255ee199f5f7246 /Build/source/texk/web2c/ctangleboot.cin | |
parent | 6a10f6706019d969e3de5568e6016a2c98f014d0 (diff) |
[CWEB] Replace 'boolean' values upstream.
git-svn-id: svn://tug.org/texlive/trunk@57795 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/ctangleboot.cin')
-rw-r--r-- | Build/source/texk/web2c/ctangleboot.cin | 91 |
1 files changed, 45 insertions, 46 deletions
diff --git a/Build/source/texk/web2c/ctangleboot.cin b/Build/source/texk/web2c/ctangleboot.cin index ab4c1663511..0013e74be5f 100644 --- a/Build/source/texk/web2c/ctangleboot.cin +++ b/Build/source/texk/web2c/ctangleboot.cin @@ -58,8 +58,7 @@ #define llink link #define rlink dummy.Rlink #define root name_dir->rlink \ - -#define chunk_marker 0 \ + \ #define spotless 0 #define harmless_message 1 @@ -188,7 +187,7 @@ extern char*loc; extern char*limit; /*:6*//*7:*/ -#line 120 "cwebdir/comm-w2c.h" +#line 119 "cwebdir/comm-w2c.h" typedef struct name_info{ char*byte_start; @@ -213,12 +212,12 @@ extern hash_pointer hash_end; extern hash_pointer h; /*:7*//*9:*/ -#line 164 "cwebdir/comm-w2c.h" +#line 163 "cwebdir/comm-w2c.h" extern int history; /*:9*//*11:*/ -#line 184 "cwebdir/comm-w2c.h" +#line 183 "cwebdir/comm-w2c.h" extern int include_depth; extern FILE*file[]; @@ -239,7 +238,7 @@ extern boolean changing; extern boolean web_file_open; /*:11*//*13:*/ -#line 209 "cwebdir/comm-w2c.h" +#line 208 "cwebdir/comm-w2c.h" extern sixteen_bits section_count; extern boolean changed_section[]; @@ -247,7 +246,7 @@ extern boolean change_pending; extern boolean print_where; /*:13*//*14:*/ -#line 223 "cwebdir/comm-w2c.h" +#line 222 "cwebdir/comm-w2c.h" extern int argc; extern char**argv; @@ -255,7 +254,7 @@ extern boolean flags[]; extern const char*use_language; /*:14*//*15:*/ -#line 236 "cwebdir/comm-w2c.h" +#line 235 "cwebdir/comm-w2c.h" extern FILE*C_file; extern FILE*tex_file; @@ -342,7 +341,7 @@ char output_file_name[longest_name+1]; /*:45*//*52:*/ #line 586 "cwebdir/ctangle.w" -boolean output_defs_seen= 0; +boolean output_defs_seen= false; /*:52*//*57:*/ #line 695 "cwebdir/ctangle.w" @@ -357,13 +356,13 @@ eight_bits ccode[256]; /*:62*//*66:*/ #line 834 "cwebdir/ctangle.w" -boolean comment_continues= 0; +boolean comment_continues= false; /*:66*//*68:*/ #line 873 "cwebdir/ctangle.w" name_pointer cur_section_name; -int no_where; +boolean no_where; /*:68*//*82:*/ #line 1187 "cwebdir/ctangle.w" @@ -380,7 +379,7 @@ extern sixteen_bits section_count; #line 71 "cwebdir/ctangle.w" /*8:*/ -#line 143 "cwebdir/comm-w2c.h" +#line 142 "cwebdir/comm-w2c.h" extern boolean names_match(name_pointer,const char*,size_t,eight_bits); extern name_pointer id_lookup(const char*,const char*,char); @@ -393,7 +392,7 @@ extern void print_section_name(name_pointer); extern void sprint_section_name(char*,name_pointer); /*:8*//*10:*/ -#line 167 "cwebdir/comm-w2c.h" +#line 166 "cwebdir/comm-w2c.h" extern int wrap_up(void); extern void err_print(const char*); @@ -401,14 +400,14 @@ extern void fatal(const char*,const char*); extern void overflow(const char*); /*:10*//*12:*/ -#line 203 "cwebdir/comm-w2c.h" +#line 202 "cwebdir/comm-w2c.h" extern boolean get_line(void); extern void check_complete(void); extern void reset_input(void); /*:12*//*16:*/ -#line 245 "cwebdir/comm-w2c.h" +#line 244 "cwebdir/comm-w2c.h" extern void common_init(void); extern void print_stats(void); @@ -423,7 +422,7 @@ static void store_two_bytes(sixteen_bits); #line 310 "cwebdir/ctangle.w" static void push_level(name_pointer); -static void pop_level(int); +static void pop_level(boolean); /*:34*//*38:*/ #line 369 "cwebdir/ctangle.w" @@ -569,7 +568,7 @@ const char*first, size_t l, eight_bits t) {(void)t; -if(length(p)!=l)return 0; +if(length(p)!=l)return false; return!strncmp(first,p->byte_start,l); } @@ -623,7 +622,7 @@ cur_section= 0; static void pop_level( -int flag) +boolean flag) { if(flag&&cur_repl->text_link<section_flag){ cur_repl= cur_repl->text_link+text_info; @@ -644,7 +643,7 @@ sixteen_bits a; restart:if(stack_ptr==stack)return; if(cur_byte==cur_end){ cur_val= -((int)cur_section); -pop_level(1); +pop_level(true); if(cur_val==0)goto restart; out_char(section_number);return; } @@ -703,7 +702,7 @@ cur_line++; static void phase_two(void){ -web_file_open= 0; +web_file_open= false; cur_line= 1; /*33:*/ #line 299 "cwebdir/ctangle.w" @@ -1012,7 +1011,7 @@ cur_byte= cur_text->tok_start; cur_end= (cur_text+1)->tok_start; C_printf("%s","#define "); out_state= normal; -protect= 1; +protect= true; while(cur_byte<cur_end){ a= *cur_byte++; if(cur_byte==cur_end&&a=='\n')break; @@ -1034,10 +1033,10 @@ cur_val= a-050000;cur_section= cur_val;out_char(section_number); } } -protect= 0; +protect= false; flush_buffer(); } -pop_level(0); +pop_level(false); } /*:54*//*55:*/ @@ -1148,8 +1147,8 @@ static eight_bits skip_ahead(void) { eight_bits c; -while(1){ -if(loc> limit&&(get_line()==0))return(new_section); +while(true){ +if(loc> limit&&(get_line()==false))return(new_section); *(limit+1)= '@'; while(*loc!='@')loc++; if(loc<=limit){ @@ -1166,23 +1165,23 @@ static boolean skip_comment( boolean is_long_comment) { char c; -while(1){ +while(true){ if(loc> limit){ if(is_long_comment){ -if(get_line())return(comment_continues= 1); +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= 0); +return(comment_continues= false); } } -else return(comment_continues= 0); +else return(comment_continues= false); } c= *(loc++); if(is_long_comment&&c=='*'&&*loc=='/'){ -loc++;return(comment_continues= 0); +loc++;return(comment_continues= false); } if(c=='@'){ if(ccode[(eight_bits)*loc]==new_section){ @@ -1190,7 +1189,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= 0); +return(comment_continues= false); } else loc++; } @@ -1205,12 +1204,12 @@ get_next(void) { static int preprocessing= 0; eight_bits c; -while(1){ +while(true){ if(loc> limit){ if(preprocessing&&*(limit-1)!='\\')preprocessing= 0; -if(get_line()==0)return(new_section); +if(get_line()==false)return(new_section); else if(print_where&&!no_where){ -print_where= 0; +print_where= false; /*85:*/ #line 1220 "cwebdir/ctangle.w" @@ -1281,7 +1280,7 @@ if(delim=='L'||delim=='u'||delim=='U'){ if(delim=='u'&&*loc=='8'){*++id_loc= *loc++;} delim= *loc++;*++id_loc= delim; } -while(1){ +while(true){ if(loc>=limit){ if(*(limit-1)!='\\'){ #line 177 "cwebdir/ctang-w2c.ch" @@ -1289,7 +1288,7 @@ err_print(_("! String didn't end"));loc= limit;break; #line 1009 "cwebdir/ctangle.w" } -if(get_line()==0){ +if(get_line()==false){ #line 183 "cwebdir/ctang-w2c.ch" err_print(_("! Input ended in middle of string"));loc= buffer;break; #line 1013 "cwebdir/ctangle.w" @@ -1365,8 +1364,8 @@ char*k; #line 1110 "cwebdir/ctangle.w" k= section_text; -while(1){ -if(loc> limit&&get_line()==0){ +while(true){ +if(loc> limit&&get_line()==false){ #line 219 "cwebdir/ctang-w2c.ch" err_print(_("! Input ended in section name")); #line 1115 "cwebdir/ctangle.w" @@ -1566,7 +1565,7 @@ app_repl(a_l%0400);} /*:85*/ #line 1200 "cwebdir/ctangle.w" } -while(1)switch(a= get_next()){ +while(true)switch(a= get_next()){ /*86:*/ #line 1233 "cwebdir/ctangle.w" @@ -1620,7 +1619,7 @@ case output_defs_code:if(t!=section_name)err_print(_("! Misplaced @h")); #line 1246 "cwebdir/ctangle.w" else{ -output_defs_seen= 1; +output_defs_seen= true; a= output_defs_flag; app_repl((a/0400)+0200); app_repl(a%0400); @@ -1754,12 +1753,12 @@ scan_section(void) name_pointer p; text_pointer q; sixteen_bits a; -section_count++;no_where= 1; +section_count++;no_where= true; if(*(loc-1)=='*'&&show_progress){ printf("*%d",section_count);update_terminal; } next_control= 0; -while(1){ +while(true){ /*93:*/ #line 1397 "cwebdir/ctangle.w" @@ -1791,7 +1790,7 @@ if(*loc!='('){ app_repl(string);app_repl(' ');app_repl(string); } scan_repl(macro); -cur_text->text_link= 0; +cur_text->text_link= macro; } /*:94*/ @@ -1818,7 +1817,7 @@ break; } return; } -no_where= print_where= 0; +no_where= print_where= false; /*96:*/ #line 1434 "cwebdir/ctangle.w" @@ -1879,8 +1878,8 @@ static void skip_limbo(void) { char c; -while(1){ -if(loc> limit&&get_line()==0)return; +while(true){ +if(loc> limit&&get_line()==false)return; *(limit+1)= '@'; while(*loc!='@')loc++; if(loc++<=limit){ |