summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/ctangleboot.cin
diff options
context:
space:
mode:
authorAndreas Scherer <andreas_tex@freenet.de>2021-02-19 12:34:28 +0000
committerAndreas Scherer <andreas_tex@freenet.de>2021-02-19 12:34:28 +0000
commit301b1d4268858508a0a144e685087f125aab5dc5 (patch)
tree82d3968b38d76fc1e97207ddf255ee199f5f7246 /Build/source/texk/web2c/ctangleboot.cin
parent6a10f6706019d969e3de5568e6016a2c98f014d0 (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.cin91
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){