summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/ctangleboot.cin
diff options
context:
space:
mode:
authorAndreas Scherer <andreas_tex@freenet.de>2023-11-18 23:31:31 +0000
committerAndreas Scherer <andreas_tex@freenet.de>2023-11-18 23:31:31 +0000
commit2a9df9dfa26bbb66de871acbd6d1de85394f44ee (patch)
treec1467518b14a4c00ab4fc202bc806c6c78f7b2ee /Build/source/texk/web2c/ctangleboot.cin
parent26d6f3fd916b1baebe24ab80e72212299d4f42fd (diff)
[CWEB] Use zero-initialisation.
This trick works, because 'ignore' and 'NULL' are in fact '0'. git-svn-id: svn://tug.org/texlive/trunk@68894 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/ctangleboot.cin')
-rw-r--r--Build/source/texk/web2c/ctangleboot.cin197
1 files changed, 97 insertions, 100 deletions
diff --git a/Build/source/texk/web2c/ctangleboot.cin b/Build/source/texk/web2c/ctangleboot.cin
index dbd0d74cb26..39ceae9d14f 100644
--- a/Build/source/texk/web2c/ctangleboot.cin
+++ b/Build/source/texk/web2c/ctangleboot.cin
@@ -367,21 +367,21 @@ static char translit[0200][translit_length];
/*:57*//*62:*/
#line 770 "cwebdir/ctangle.w"
-static eight_bits ccode[256];
+static eight_bits ccode[256]= {ignore};
/*:62*//*66:*/
-#line 830 "cwebdir/ctangle.w"
+#line 827 "cwebdir/ctangle.w"
static boolean comment_continues= false;
/*:66*//*68:*/
-#line 867 "cwebdir/ctangle.w"
+#line 864 "cwebdir/ctangle.w"
static name_pointer cur_section_name;
static boolean no_where;
/*:68*//*82:*/
-#line 1185 "cwebdir/ctangle.w"
+#line 1182 "cwebdir/ctangle.w"
static text_pointer cur_text;
static eight_bits next_control;
@@ -450,29 +450,29 @@ static void output_defs(void);
static void out_char(eight_bits);
/*:49*//*65:*/
-#line 810 "cwebdir/ctangle.w"
+#line 807 "cwebdir/ctangle.w"
static eight_bits skip_ahead(void);
static boolean skip_comment(boolean);
/*:65*//*70:*/
-#line 918 "cwebdir/ctangle.w"
+#line 915 "cwebdir/ctangle.w"
static eight_bits get_next(void);
/*:70*//*84:*/
-#line 1211 "cwebdir/ctangle.w"
+#line 1208 "cwebdir/ctangle.w"
static void scan_repl(eight_bits);
/*:84*//*91:*/
-#line 1402 "cwebdir/ctangle.w"
+#line 1399 "cwebdir/ctangle.w"
static void scan_section(void);
/*:91*//*99:*/
-#line 1479 "cwebdir/ctangle.w"
+#line 1476 "cwebdir/ctangle.w"
static void phase_one(void);
/*:99*//*101:*/
-#line 1512 "cwebdir/ctangle.w"
+#line 1509 "cwebdir/ctangle.w"
static void skip_limbo(void);
/*:101*/
@@ -520,10 +520,7 @@ snprintf(translit[i],translit_length,"X%02X",(unsigned int)(0200+i));
#line 166 "cwebdir/ctang-w2c.ch"
/*:58*//*63:*/
#line 773 "cwebdir/ctangle.w"
-{
-int c;
-for(c= 0;c<256;c++)ccode[c]= ignore;
-}
+
ccode[' ']= ccode['\t']= ccode['\n']= ccode['\v']= ccode['\r']= ccode['\f']
= ccode['*']= new_section;
ccode['@']= (eight_bits)'@';ccode['=']= string;
@@ -539,7 +536,7 @@ ccode['<']= ccode['(']= section_name;
ccode['\'']= ord;
/*:63*//*78:*/
-#line 1106 "cwebdir/ctangle.w"
+#line 1103 "cwebdir/ctangle.w"
section_text[0]= ' ';
/*:78*//*117:*/
@@ -1183,7 +1180,7 @@ default:C_putc(cur_char);out_state= normal;break;
}
/*:55*//*64:*/
-#line 794 "cwebdir/ctangle.w"
+#line 791 "cwebdir/ctangle.w"
static eight_bits
skip_ahead(void)
@@ -1201,7 +1198,7 @@ if(c!=ignore||*(loc-1)=='>')return c;
}
/*:64*//*67:*/
-#line 833 "cwebdir/ctangle.w"
+#line 830 "cwebdir/ctangle.w"
static boolean skip_comment(
boolean is_long_comment)
@@ -1214,7 +1211,7 @@ if(get_line())return comment_continues= true;
else{
#line 215 "cwebdir/ctang-w2c.ch"
err_print(_("! Input ended in mid-comment"));
-#line 844 "cwebdir/ctangle.w"
+#line 841 "cwebdir/ctangle.w"
return comment_continues= false;
}
@@ -1229,7 +1226,7 @@ if(c=='@'){
if(ccode[(eight_bits)*loc]==new_section){
#line 221 "cwebdir/ctang-w2c.ch"
err_print(_("! Section name ended in mid-comment"));loc--;
-#line 857 "cwebdir/ctangle.w"
+#line 854 "cwebdir/ctangle.w"
return comment_continues= false;
}
@@ -1239,7 +1236,7 @@ else loc++;
}
/*:67*//*69:*/
-#line 874 "cwebdir/ctangle.w"
+#line 871 "cwebdir/ctangle.w"
static eight_bits
get_next(void)
@@ -1254,7 +1251,7 @@ else if(print_where&&!no_where){
sixteen_bits a;
print_where= false;
/*85:*/
-#line 1221 "cwebdir/ctangle.w"
+#line 1218 "cwebdir/ctangle.w"
{
store_two_bytes(0150000);
@@ -1270,7 +1267,7 @@ store_id(a);
}
/*:85*/
-#line 887 "cwebdir/ctangle.w"
+#line 884 "cwebdir/ctangle.w"
}
else return(eight_bits)'\n';
@@ -1283,7 +1280,7 @@ else continue;
}
loc++;
if(xisdigit(c)||c=='.')/*73:*/
-#line 959 "cwebdir/ctangle.w"
+#line 956 "cwebdir/ctangle.w"
{
boolean hex_flag= false;
id_first= loc-1;
@@ -1317,13 +1314,13 @@ return constant;
}
/*:73*/
-#line 898 "cwebdir/ctangle.w"
+#line 895 "cwebdir/ctangle.w"
else if(c=='\''||c=='"'
||((c=='L'||c=='u'||c=='U')&&(*loc=='\''||*loc=='"'))
||((c=='u'&&*loc=='8')&&(*(loc+1)=='\''||*(loc+1)=='"')))
/*74:*/
-#line 996 "cwebdir/ctangle.w"
+#line 993 "cwebdir/ctangle.w"
{
char delim= (char)c;
id_first= section_text+1;
@@ -1337,13 +1334,13 @@ if(loc>=limit){
if(*(limit-1)!='\\'){
#line 227 "cwebdir/ctang-w2c.ch"
err_print(_("! String didn't end"));loc= limit;break;
-#line 1008 "cwebdir/ctangle.w"
+#line 1005 "cwebdir/ctangle.w"
}
if(get_line()==false){
#line 233 "cwebdir/ctang-w2c.ch"
err_print(_("! Input ended in middle of string"));loc= buffer;break;
-#line 1012 "cwebdir/ctangle.w"
+#line 1009 "cwebdir/ctangle.w"
}
else if(++id_loc<=section_text_end)*id_loc= '\n';
@@ -1363,7 +1360,7 @@ if(++id_loc<=section_text_end)*id_loc= (char)c;
if(id_loc>=section_text_end){
#line 239 "cwebdir/ctang-w2c.ch"
printf("%s",_("\n! String too long: "));
-#line 1030 "cwebdir/ctangle.w"
+#line 1027 "cwebdir/ctangle.w"
term_write(section_text+1,25);
err_print("...");
@@ -1373,11 +1370,11 @@ return string;
}
/*:74*/
-#line 902 "cwebdir/ctangle.w"
+#line 899 "cwebdir/ctangle.w"
else if(isalpha((int)c)||isxalpha(c)||ishigh(c))
/*72:*/
-#line 950 "cwebdir/ctangle.w"
+#line 947 "cwebdir/ctangle.w"
{
id_first= --loc;
do
@@ -1388,45 +1385,45 @@ id_loc= loc;return identifier;
}
/*:72*/
-#line 904 "cwebdir/ctangle.w"
+#line 901 "cwebdir/ctangle.w"
else if(c=='@')/*75:*/
-#line 1041 "cwebdir/ctangle.w"
+#line 1038 "cwebdir/ctangle.w"
switch(c= ccode[(eight_bits)*loc++]){
case ignore:continue;
#line 245 "cwebdir/ctang-w2c.ch"
case translit_code:err_print(_("! Use @l in limbo only"));continue;
-#line 1045 "cwebdir/ctangle.w"
+#line 1042 "cwebdir/ctangle.w"
case control_text:while((c= skip_ahead())=='@');
if(*(loc-1)!='>')
#line 251 "cwebdir/ctang-w2c.ch"
err_print(_("! Double @ should be used in control text"));
-#line 1050 "cwebdir/ctangle.w"
+#line 1047 "cwebdir/ctangle.w"
continue;
case section_name:
cur_section_name_char= *(loc-1);
/*77:*/
-#line 1086 "cwebdir/ctangle.w"
+#line 1083 "cwebdir/ctangle.w"
{
char*k= section_text;
/*79:*/
-#line 1108 "cwebdir/ctangle.w"
+#line 1105 "cwebdir/ctangle.w"
while(true){
if(loc> limit&&get_line()==false){
#line 269 "cwebdir/ctang-w2c.ch"
err_print(_("! Input ended in section name"));
-#line 1112 "cwebdir/ctangle.w"
+#line 1109 "cwebdir/ctangle.w"
loc= buffer+1;break;
}
c= (eight_bits)*loc;
/*80:*/
-#line 1131 "cwebdir/ctangle.w"
+#line 1128 "cwebdir/ctangle.w"
if(c=='@'){
c= (eight_bits)*(loc+1);
@@ -1436,20 +1433,20 @@ loc+= 2;break;
if(ccode[(eight_bits)c]==new_section){
#line 281 "cwebdir/ctang-w2c.ch"
err_print(_("! Section name didn't end"));break;
-#line 1139 "cwebdir/ctangle.w"
+#line 1136 "cwebdir/ctangle.w"
}
if(ccode[(eight_bits)c]==section_name){
#line 287 "cwebdir/ctang-w2c.ch"
err_print(_("! Nesting of section names not allowed"));break;
-#line 1143 "cwebdir/ctangle.w"
+#line 1140 "cwebdir/ctangle.w"
}
*(++k)= '@';loc++;
}
/*:80*/
-#line 1116 "cwebdir/ctangle.w"
+#line 1113 "cwebdir/ctangle.w"
loc++;if(k<section_text_end)k++;
if(xisspace(c)){
@@ -1460,7 +1457,7 @@ c= (eight_bits)' ';if(*(k-1)==' ')k--;
if(k>=section_text_end){
#line 275 "cwebdir/ctang-w2c.ch"
printf("%s",_("\n! Section name too long: "));
-#line 1125 "cwebdir/ctangle.w"
+#line 1122 "cwebdir/ctangle.w"
term_write(section_text+1,25);
printf("...");mark_harmless();
@@ -1468,7 +1465,7 @@ printf("...");mark_harmless();
if(*k==' '&&k> section_text)k--;
/*:79*/
-#line 1088 "cwebdir/ctangle.w"
+#line 1085 "cwebdir/ctangle.w"
if(k-section_text> 3&&strncmp(k-2,"...",3)==0)
cur_section_name= section_lookup(section_text+1,k-3,true);
@@ -1493,31 +1490,31 @@ else overflow(_("output files"));
}
/*:47*/
-#line 1096 "cwebdir/ctangle.w"
+#line 1093 "cwebdir/ctangle.w"
return section_name;
}
/*:77*/
-#line 1054 "cwebdir/ctangle.w"
+#line 1051 "cwebdir/ctangle.w"
case string:/*81:*/
-#line 1153 "cwebdir/ctangle.w"
+#line 1150 "cwebdir/ctangle.w"
id_first= loc++;*(limit+1)= '@';*(limit+2)= '>';
while(*loc!='@'||*(loc+1)!='>')loc++;
#line 293 "cwebdir/ctang-w2c.ch"
if(loc>=limit)err_print(_("! Verbatim string didn't end"));
-#line 1157 "cwebdir/ctangle.w"
+#line 1154 "cwebdir/ctangle.w"
id_loc= loc;loc+= 2;
return string;
/*:81*/
-#line 1055 "cwebdir/ctangle.w"
+#line 1052 "cwebdir/ctangle.w"
case ord:/*76:*/
-#line 1066 "cwebdir/ctangle.w"
+#line 1063 "cwebdir/ctangle.w"
id_first= loc;
if(*loc=='\\')
@@ -1527,7 +1524,7 @@ if(*loc=='@'){
if(*(loc+1)!='@')
#line 257 "cwebdir/ctang-w2c.ch"
err_print(_("! Double @ should be used in ASCII constant"));
-#line 1074 "cwebdir/ctangle.w"
+#line 1071 "cwebdir/ctangle.w"
else loc++;
}
@@ -1535,7 +1532,7 @@ loc++;
if(loc> limit){
#line 263 "cwebdir/ctang-w2c.ch"
err_print(_("! String didn't end"));loc= limit-1;break;
-#line 1080 "cwebdir/ctangle.w"
+#line 1077 "cwebdir/ctangle.w"
}
}
@@ -1543,13 +1540,13 @@ loc++;
return ord;
/*:76*/
-#line 1056 "cwebdir/ctangle.w"
+#line 1053 "cwebdir/ctangle.w"
default:return c;
}
/*:75*/
-#line 905 "cwebdir/ctangle.w"
+#line 902 "cwebdir/ctangle.w"
else if(xisspace(c)){
if(!preprocessing||loc> limit)continue;
@@ -1559,7 +1556,7 @@ else return(eight_bits)' ';
}
else if(c=='#'&&loc==buffer+1)preprocessing= true;
mistake:/*71:*/
-#line 927 "cwebdir/ctangle.w"
+#line 924 "cwebdir/ctangle.w"
switch(c){
case'+':if(*loc=='+')compress(plus_plus);break;
@@ -1584,14 +1581,14 @@ case'!':if(*loc=='=')compress(non_eq);break;
}
/*:71*/
-#line 913 "cwebdir/ctangle.w"
+#line 910 "cwebdir/ctangle.w"
return c;
}
}
/*:69*//*83:*/
-#line 1189 "cwebdir/ctangle.w"
+#line 1186 "cwebdir/ctangle.w"
static void
scan_repl(
@@ -1599,7 +1596,7 @@ eight_bits t)
{
sixteen_bits a;
if(t==section_name)/*85:*/
-#line 1221 "cwebdir/ctangle.w"
+#line 1218 "cwebdir/ctangle.w"
{
store_two_bytes(0150000);
@@ -1615,11 +1612,11 @@ store_id(a);
}
/*:85*/
-#line 1195 "cwebdir/ctangle.w"
+#line 1192 "cwebdir/ctangle.w"
while(true)switch(a= get_next()){
/*86:*/
-#line 1235 "cwebdir/ctangle.w"
+#line 1232 "cwebdir/ctangle.w"
case identifier:store_id(a);
if(*buffer=='#'&&(
@@ -1632,7 +1629,7 @@ break;
case section_name:if(t!=section_name)goto done;
else{
/*87:*/
-#line 1276 "cwebdir/ctangle.w"
+#line 1273 "cwebdir/ctangle.w"
{
char*try_loc= loc;
while(*try_loc==' '&&try_loc<limit)try_loc++;
@@ -1640,20 +1637,20 @@ if(*try_loc=='+'&&try_loc<limit)try_loc++;
while(*try_loc==' '&&try_loc<limit)try_loc++;
#line 329 "cwebdir/ctang-w2c.ch"
if(*try_loc=='=')err_print(_("! Missing `@ ' before a named section"));
-#line 1282 "cwebdir/ctangle.w"
+#line 1279 "cwebdir/ctangle.w"
}
/*:87*/
-#line 1246 "cwebdir/ctangle.w"
+#line 1243 "cwebdir/ctangle.w"
a= cur_section_name-name_dir;
app_repl((a/0400)+0250);
app_repl(a%0400);
/*85:*/
-#line 1221 "cwebdir/ctangle.w"
+#line 1218 "cwebdir/ctangle.w"
{
store_two_bytes(0150000);
@@ -1669,13 +1666,13 @@ store_id(a);
}
/*:85*/
-#line 1250 "cwebdir/ctangle.w"
+#line 1247 "cwebdir/ctangle.w"
}
break;
#line 317 "cwebdir/ctang-w2c.ch"
case output_defs_code:if(t!=section_name)err_print(_("! Misplaced @h"));
-#line 1254 "cwebdir/ctangle.w"
+#line 1251 "cwebdir/ctangle.w"
else{
output_defs_seen= true;
@@ -1683,7 +1680,7 @@ a= output_defs_flag;
app_repl((a/0400)+0200);
app_repl(a%0400);
/*85:*/
-#line 1221 "cwebdir/ctangle.w"
+#line 1218 "cwebdir/ctangle.w"
{
store_two_bytes(0150000);
@@ -1699,13 +1696,13 @@ store_id(a);
}
/*:85*/
-#line 1260 "cwebdir/ctangle.w"
+#line 1257 "cwebdir/ctangle.w"
}
break;
case constant:case string:
/*88:*/
-#line 1293 "cwebdir/ctangle.w"
+#line 1290 "cwebdir/ctangle.w"
app_repl(a);
while(id_first<id_loc){
@@ -1713,7 +1710,7 @@ if(*id_first=='@'){
if(*(id_first+1)=='@')id_first++;
#line 335 "cwebdir/ctang-w2c.ch"
else err_print(_("! Double @ should be used in string"));
-#line 1299 "cwebdir/ctangle.w"
+#line 1296 "cwebdir/ctangle.w"
}
else if(a==constant&&*id_first=='\''&&!keep_digit_separators)
@@ -1723,12 +1720,12 @@ app_repl(*id_first++);
app_repl(a);
/*:88*/
-#line 1264 "cwebdir/ctangle.w"
+#line 1261 "cwebdir/ctangle.w"
break;
case ord:
/*89:*/
-#line 1311 "cwebdir/ctangle.w"
+#line 1308 "cwebdir/ctangle.w"
{
int c= (int)((eight_bits)*id_first);
if(c=='\\'){
@@ -1767,7 +1764,7 @@ case'\'':c= '\'';break;
case'\"':c= '\"';break;
#line 341 "cwebdir/ctang-w2c.ch"
default:err_print(_("! Unrecognized escape sequence"));
-#line 1348 "cwebdir/ctangle.w"
+#line 1345 "cwebdir/ctangle.w"
}
}
@@ -1780,20 +1777,20 @@ app_repl(constant);
}
/*:89*/
-#line 1267 "cwebdir/ctangle.w"
+#line 1264 "cwebdir/ctangle.w"
break;
case definition:case format_code:case begin_C:if(t!=section_name)goto done;
else{
#line 323 "cwebdir/ctang-w2c.ch"
err_print(_("! @d, @f and @c are ignored in C text"));continue;
-#line 1272 "cwebdir/ctangle.w"
+#line 1269 "cwebdir/ctangle.w"
}
case new_section:goto done;
/*:86*/
-#line 1200 "cwebdir/ctangle.w"
+#line 1197 "cwebdir/ctangle.w"
case')':app_repl(a);
if(t==macro)app_repl(' ');
@@ -1803,12 +1800,12 @@ default:app_repl(a);
done:next_control= (eight_bits)a;
#line 311 "cwebdir/ctang-w2c.ch"
if(text_ptr> text_info_end)overflow(_("text"));
-#line 1208 "cwebdir/ctangle.w"
+#line 1205 "cwebdir/ctangle.w"
cur_text= text_ptr;(++text_ptr)->tok_start= tok_ptr;
}
/*:83*//*90:*/
-#line 1369 "cwebdir/ctangle.w"
+#line 1366 "cwebdir/ctangle.w"
static void
scan_section(void)
@@ -1823,7 +1820,7 @@ printf("*%d",(int)section_count);update_terminal();
next_control= ignore;
while(true){
/*92:*/
-#line 1410 "cwebdir/ctangle.w"
+#line 1407 "cwebdir/ctangle.w"
while(next_control<definition)
@@ -1832,17 +1829,17 @@ loc-= 2;next_control= get_next();
}
/*:92*/
-#line 1383 "cwebdir/ctangle.w"
+#line 1380 "cwebdir/ctangle.w"
if(next_control==definition){
/*93:*/
-#line 1417 "cwebdir/ctangle.w"
+#line 1414 "cwebdir/ctangle.w"
while((next_control= get_next())=='\n');
if(next_control!=identifier){
#line 347 "cwebdir/ctang-w2c.ch"
err_print(_("! Definition flushed, must start with identifier"));
-#line 1421 "cwebdir/ctangle.w"
+#line 1418 "cwebdir/ctangle.w"
continue;
}
@@ -1854,7 +1851,7 @@ scan_repl(macro);
cur_text->text_link= macro;
/*:93*/
-#line 1385 "cwebdir/ctangle.w"
+#line 1382 "cwebdir/ctangle.w"
continue;
}
@@ -1864,14 +1861,14 @@ p= name_dir;break;
if(next_control==section_name){
p= cur_section_name;
/*94:*/
-#line 1439 "cwebdir/ctangle.w"
+#line 1436 "cwebdir/ctangle.w"
while((next_control= get_next())=='+');
if(next_control!='='&&next_control!=eq_eq)
continue;
/*:94*/
-#line 1393 "cwebdir/ctangle.w"
+#line 1390 "cwebdir/ctangle.w"
break;
}
@@ -1879,20 +1876,20 @@ return;
}
no_where= print_where= false;
/*95:*/
-#line 1444 "cwebdir/ctangle.w"
+#line 1441 "cwebdir/ctangle.w"
/*96:*/
-#line 1449 "cwebdir/ctangle.w"
+#line 1446 "cwebdir/ctangle.w"
store_two_bytes((sixteen_bits)(0150000+section_count));
/*:96*/
-#line 1445 "cwebdir/ctangle.w"
+#line 1442 "cwebdir/ctangle.w"
scan_repl(section_name);
/*97:*/
-#line 1453 "cwebdir/ctangle.w"
+#line 1450 "cwebdir/ctangle.w"
if(p==name_dir||p==NULL){
last_unnamed->text_link= cur_text-text_info;last_unnamed= cur_text;
@@ -1909,16 +1906,16 @@ cur_text->text_link= section_flag;
/*:97*/
-#line 1447 "cwebdir/ctangle.w"
+#line 1444 "cwebdir/ctangle.w"
/*:95*/
-#line 1399 "cwebdir/ctangle.w"
+#line 1396 "cwebdir/ctangle.w"
}
/*:90*//*98:*/
-#line 1468 "cwebdir/ctangle.w"
+#line 1465 "cwebdir/ctangle.w"
static void
phase_one(void){
@@ -1931,7 +1928,7 @@ check_complete();
}
/*:98*//*100:*/
-#line 1484 "cwebdir/ctangle.w"
+#line 1481 "cwebdir/ctangle.w"
static void
skip_limbo(void)
@@ -1945,7 +1942,7 @@ char c= *loc++;
switch(ccode[(eight_bits)c]){
case new_section:return;
case translit_code:/*102:*/
-#line 1514 "cwebdir/ctangle.w"
+#line 1511 "cwebdir/ctangle.w"
while(xisspace(*loc)&&loc<limit)loc++;
loc+= 3;
@@ -1953,7 +1950,7 @@ if(loc> limit||!xisxdigit(*(loc-3))||!xisxdigit(*(loc-2))
||(*(loc-3)>='0'&&*(loc-3)<='7')||!xisspace(*(loc-1)))
#line 367 "cwebdir/ctang-w2c.ch"
err_print(_("! Improper hex number following @l"));
-#line 1520 "cwebdir/ctangle.w"
+#line 1517 "cwebdir/ctangle.w"
else{
unsigned int i;
@@ -1965,7 +1962,7 @@ while(loc<limit&&(xisalpha(*loc)||xisdigit(*loc)||isxalpha(*loc)))loc++;
if(loc-beg>=translit_length)
#line 373 "cwebdir/ctang-w2c.ch"
err_print(_("! Replacement string in @l too long"));
-#line 1530 "cwebdir/ctangle.w"
+#line 1527 "cwebdir/ctangle.w"
else{
strncpy(translit[i-0200],beg,(size_t)(loc-beg));
@@ -1974,7 +1971,7 @@ translit[i-0200][loc-beg]= '\0';
}
/*:102*/
-#line 1496 "cwebdir/ctangle.w"
+#line 1493 "cwebdir/ctangle.w"
break;
case format_code:case'@':break;
case control_text:if(c=='q'||c=='Q'){
@@ -1982,13 +1979,13 @@ while((c= (char)skip_ahead())=='@');
if(*(loc-1)!='>')
#line 353 "cwebdir/ctang-w2c.ch"
err_print(_("! Double @ should be used in control text"));
-#line 1502 "cwebdir/ctangle.w"
+#line 1499 "cwebdir/ctangle.w"
break;
#line 360 "cwebdir/ctang-w2c.ch"
}/* otherwise fall through */
default:err_print(_("! Double @ should be used in limbo"));
-#line 1506 "cwebdir/ctangle.w"
+#line 1503 "cwebdir/ctangle.w"
}
}
@@ -1996,7 +1993,7 @@ default:err_print(_("! Double @ should be used in limbo"));
}
/*:100*//*103:*/
-#line 1540 "cwebdir/ctangle.w"
+#line 1537 "cwebdir/ctangle.w"
void
print_stats(void){
@@ -2009,7 +2006,7 @@ printf(_("%td replacement texts (out of %ld)\n"),
printf(_("%td bytes (out of %ld)\n"),
(ptrdiff_t)(byte_ptr-byte_mem),(long)max_bytes);
printf(_("%td tokens (out of %ld)\n"),
-#line 1551 "cwebdir/ctangle.w"
+#line 1548 "cwebdir/ctangle.w"
(ptrdiff_t)(tok_ptr-tok_mem),(long)max_toks);
}