summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/ctangleboot.cin
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-09-10 23:03:53 +0000
committerKarl Berry <karl@freefriends.org>2012-09-10 23:03:53 +0000
commitfb3c103f7d672d3d1da2bd1008bcff21ce3b56b6 (patch)
treeaf3619ed6b400905c5d6ec4ac079d8f9488085b8 /Build/source/texk/web2c/ctangleboot.cin
parent43f0488036368084864ff54761346c936f284358 (diff)
#line
git-svn-id: svn://tug.org/texlive/trunk@27644 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/ctangleboot.cin')
-rw-r--r--Build/source/texk/web2c/ctangleboot.cin70
1 files changed, 35 insertions, 35 deletions
diff --git a/Build/source/texk/web2c/ctangleboot.cin b/Build/source/texk/web2c/ctangleboot.cin
index 9998974f58c..8610130b6ee 100644
--- a/Build/source/texk/web2c/ctangleboot.cin
+++ b/Build/source/texk/web2c/ctangleboot.cin
@@ -4,7 +4,7 @@
/*5:*/
#line 35 "cwebdir/common.h"
-#line 93 "cwebdir/ctang-w2c.ch"
+#line 121 "cwebdir/ctang-w2c.ch"
#include <stdio.h>
#include <kpathsea/kpathsea.h>
#line 37 "cwebdir/common.h"
@@ -190,21 +190,21 @@ extern char*byte_ptr;
extern name_pointer hash[];
extern hash_pointer hash_end;
extern hash_pointer h;
-#line 104 "cwebdir/ctang-w2c.ch"
+#line 132 "cwebdir/ctang-w2c.ch"
#include "cwebboot.h"
#line 112 "cwebdir/common.h"
/*:8*//*9:*/
#line 122 "cwebdir/common.h"
-#line 116 "cwebdir/ctang-w2c.ch"
+#line 144 "cwebdir/ctang-w2c.ch"
extern int history;
#line 128 "cwebdir/common.h"
/*:9*//*10:*/
#line 137 "cwebdir/common.h"
-#line 130 "cwebdir/ctang-w2c.ch"
+#line 158 "cwebdir/ctang-w2c.ch"
extern int include_depth;
#line 139 "cwebdir/common.h"
extern FILE*file[];
@@ -216,7 +216,7 @@ extern char scn_file_name[];
extern char file_name[][max_file_name_length];
extern char change_file_name[];
-#line 137 "cwebdir/ctang-w2c.ch"
+#line 165 "cwebdir/ctang-w2c.ch"
extern int line[];
extern int change_line;
#line 150 "cwebdir/common.h"
@@ -368,35 +368,35 @@ extern sixteen_bits section_count;
/*40:*/
#line 533 "cwebdir/ctangle.w"
-#line 239 "cwebdir/ctang-w2c.ch"
+#line 267 "cwebdir/ctang-w2c.ch"
static void phase_two(void);
#line 535 "cwebdir/ctangle.w"
/*:40*//*45:*/
#line 602 "cwebdir/ctangle.w"
-#line 265 "cwebdir/ctang-w2c.ch"
+#line 293 "cwebdir/ctang-w2c.ch"
static void output_defs(void);
#line 604 "cwebdir/ctangle.w"
/*:45*//*47:*/
#line 648 "cwebdir/ctangle.w"
-#line 283 "cwebdir/ctang-w2c.ch"
+#line 311 "cwebdir/ctang-w2c.ch"
static void out_char(eight_bits);
#line 650 "cwebdir/ctangle.w"
/*:47*//*89:*/
#line 1457 "cwebdir/ctangle.w"
-#line 378 "cwebdir/ctang-w2c.ch"
+#line 406 "cwebdir/ctang-w2c.ch"
static void phase_one(void);
#line 1459 "cwebdir/ctangle.w"
/*:89*//*91:*/
#line 1475 "cwebdir/ctangle.w"
-#line 396 "cwebdir/ctang-w2c.ch"
+#line 424 "cwebdir/ctang-w2c.ch"
static void skip_limbo(void);
#line 1477 "cwebdir/ctangle.w"
@@ -485,7 +485,7 @@ return wrap_up();
/*:2*//*20:*/
#line 183 "cwebdir/ctangle.w"
-#line 163 "cwebdir/ctang-w2c.ch"
+#line 191 "cwebdir/ctang-w2c.ch"
int names_match(name_pointer p,const char*first,int l,char t)
#line 188 "cwebdir/ctangle.w"
{
@@ -497,21 +497,21 @@ return!strncmp(first,p->byte_start,l);
#line 198 "cwebdir/ctangle.w"
void
-#line 172 "cwebdir/ctang-w2c.ch"
+#line 200 "cwebdir/ctang-w2c.ch"
init_node(name_pointer node)
#line 202 "cwebdir/ctangle.w"
{
node->equiv= (char*)text_info;
}
void
-#line 178 "cwebdir/ctang-w2c.ch"
+#line 206 "cwebdir/ctang-w2c.ch"
init_p(name_pointer p,char t){}
#line 207 "cwebdir/ctangle.w"
/*:21*//*25:*/
#line 260 "cwebdir/ctangle.w"
-#line 188 "cwebdir/ctang-w2c.ch"
+#line 216 "cwebdir/ctang-w2c.ch"
static void
store_two_bytes(sixteen_bits x)
#line 264 "cwebdir/ctangle.w"
@@ -524,7 +524,7 @@ if(tok_ptr+2> tok_mem_end)overflow("token");
/*:25*//*29:*/
#line 336 "cwebdir/ctangle.w"
-#line 199 "cwebdir/ctang-w2c.ch"
+#line 227 "cwebdir/ctang-w2c.ch"
static void
push_level(name_pointer p)
#line 340 "cwebdir/ctangle.w"
@@ -542,7 +542,7 @@ cur_section= 0;
/*:29*//*30:*/
#line 355 "cwebdir/ctangle.w"
-#line 210 "cwebdir/ctang-w2c.ch"
+#line 238 "cwebdir/ctang-w2c.ch"
static void
pop_level(int flag)
#line 359 "cwebdir/ctangle.w"
@@ -559,7 +559,7 @@ if(stack_ptr> stack)cur_state= *stack_ptr;
/*:30*//*32:*/
#line 391 "cwebdir/ctangle.w"
-#line 220 "cwebdir/ctang-w2c.ch"
+#line 248 "cwebdir/ctang-w2c.ch"
static void
get_output(void)
#line 394 "cwebdir/ctangle.w"
@@ -608,7 +608,7 @@ out_char(section_number);
/*:32*//*36:*/
#line 481 "cwebdir/ctangle.w"
-#line 230 "cwebdir/ctang-w2c.ch"
+#line 258 "cwebdir/ctang-w2c.ch"
static void
flush_buffer(void)
#line 484 "cwebdir/ctangle.w"
@@ -625,7 +625,7 @@ cur_line++;
/*:36*//*41:*/
#line 536 "cwebdir/ctangle.w"
-#line 248 "cwebdir/ctang-w2c.ch"
+#line 276 "cwebdir/ctang-w2c.ch"
static void
phase_two(void){
#line 539 "cwebdir/ctangle.w"
@@ -676,7 +676,7 @@ for(an_output_file= end_output_files;an_output_file> cur_out_file;){
an_output_file--;
sprint_section_name(output_file_name,*an_output_file);
fclose(C_file);
-#line 257 "cwebdir/ctang-w2c.ch"
+#line 285 "cwebdir/ctang-w2c.ch"
C_file= fopen(output_file_name,"wb");
#line 578 "cwebdir/ctangle.w"
if(C_file==0)fatal("! Cannot open output file:",output_file_name);
@@ -702,7 +702,7 @@ if(show_happiness)printf("\nDone.");
/*:41*//*46:*/
#line 605 "cwebdir/ctangle.w"
-#line 274 "cwebdir/ctang-w2c.ch"
+#line 302 "cwebdir/ctang-w2c.ch"
static void
output_defs(void)
#line 608 "cwebdir/ctangle.w"
@@ -745,7 +745,7 @@ pop_level(0);
#line 651 "cwebdir/ctangle.w"
static void
-#line 292 "cwebdir/ctang-w2c.ch"
+#line 320 "cwebdir/ctang-w2c.ch"
out_char(eight_bits cur_char)
#line 655 "cwebdir/ctangle.w"
{
@@ -846,7 +846,7 @@ default:C_putc(cur_char);out_state= normal;break;
/*:48*//*57:*/
#line 813 "cwebdir/ctangle.w"
-#line 301 "cwebdir/ctang-w2c.ch"
+#line 329 "cwebdir/ctang-w2c.ch"
static eight_bits
skip_ahead(void)
#line 816 "cwebdir/ctangle.w"
@@ -866,7 +866,7 @@ if(c!=ignore||*(loc-1)=='>')return(c);
/*:57*//*59:*/
#line 848 "cwebdir/ctangle.w"
-#line 311 "cwebdir/ctang-w2c.ch"
+#line 339 "cwebdir/ctang-w2c.ch"
static int
skip_comment(boolean is_long_comment)
#line 851 "cwebdir/ctangle.w"
@@ -902,7 +902,7 @@ else loc++;
/*:59*//*62:*/
#line 900 "cwebdir/ctangle.w"
-#line 328 "cwebdir/ctang-w2c.ch"
+#line 356 "cwebdir/ctang-w2c.ch"
static eight_bits
get_next(void)
#line 903 "cwebdir/ctangle.w"
@@ -924,7 +924,7 @@ else id_first= cur_file_name;
id_loc= id_first+strlen(id_first);
if(changing)store_two_bytes((sixteen_bits)change_line);
else store_two_bytes((sixteen_bits)cur_line);
-#line 359 "cwebdir/ctang-w2c.ch"
+#line 387 "cwebdir/ctang-w2c.ch"
{int a_l= id_lookup(id_first,id_loc,0)-name_dir;app_repl((a_l/0400)+0200);
app_repl(a_l%0400);}
#line 1234 "cwebdir/ctangle.w"
@@ -1188,7 +1188,7 @@ mistake:/*63:*/
switch(c){
case'+':if(*loc=='+')compress(plus_plus);break;
case'-':if(*loc=='-'){compress(minus_minus);}
-#line 338 "cwebdir/ctang-w2c.ch"
+#line 366 "cwebdir/ctang-w2c.ch"
else if(*loc=='>'){if(*(loc+1)=='*'){loc++;compress(minus_gt_ast);}
else compress(minus_gt);}break;
#line 956 "cwebdir/ctangle.w"
@@ -1218,7 +1218,7 @@ return(c);
/*:62*//*75:*/
#line 1199 "cwebdir/ctangle.w"
-#line 349 "cwebdir/ctang-w2c.ch"
+#line 377 "cwebdir/ctang-w2c.ch"
static void
scan_repl(eight_bits t)
#line 1203 "cwebdir/ctangle.w"
@@ -1233,7 +1233,7 @@ else id_first= cur_file_name;
id_loc= id_first+strlen(id_first);
if(changing)store_two_bytes((sixteen_bits)change_line);
else store_two_bytes((sixteen_bits)cur_line);
-#line 359 "cwebdir/ctang-w2c.ch"
+#line 387 "cwebdir/ctang-w2c.ch"
{int a_l= id_lookup(id_first,id_loc,0)-name_dir;app_repl((a_l/0400)+0200);
app_repl(a_l%0400);}
#line 1234 "cwebdir/ctangle.w"
@@ -1278,7 +1278,7 @@ else id_first= cur_file_name;
id_loc= id_first+strlen(id_first);
if(changing)store_two_bytes((sixteen_bits)change_line);
else store_two_bytes((sixteen_bits)cur_line);
-#line 359 "cwebdir/ctang-w2c.ch"
+#line 387 "cwebdir/ctang-w2c.ch"
{int a_l= id_lookup(id_first,id_loc,0)-name_dir;app_repl((a_l/0400)+0200);
app_repl(a_l%0400);}
#line 1234 "cwebdir/ctangle.w"
@@ -1303,7 +1303,7 @@ else id_first= cur_file_name;
id_loc= id_first+strlen(id_first);
if(changing)store_two_bytes((sixteen_bits)change_line);
else store_two_bytes((sixteen_bits)cur_line);
-#line 359 "cwebdir/ctang-w2c.ch"
+#line 387 "cwebdir/ctang-w2c.ch"
{int a_l= id_lookup(id_first,id_loc,0)-name_dir;app_repl((a_l/0400)+0200);
app_repl(a_l%0400);}
#line 1234 "cwebdir/ctangle.w"
@@ -1409,7 +1409,7 @@ cur_text= text_ptr;(++text_ptr)->tok_start= tok_ptr;
/*:75*//*82:*/
#line 1357 "cwebdir/ctangle.w"
-#line 369 "cwebdir/ctang-w2c.ch"
+#line 397 "cwebdir/ctang-w2c.ch"
static void
scan_section(void)
#line 1360 "cwebdir/ctangle.w"
@@ -1522,7 +1522,7 @@ cur_text->text_link= section_flag;
/*:82*//*90:*/
#line 1460 "cwebdir/ctangle.w"
-#line 387 "cwebdir/ctang-w2c.ch"
+#line 415 "cwebdir/ctang-w2c.ch"
static void
phase_one(void){
#line 1463 "cwebdir/ctangle.w"
@@ -1538,7 +1538,7 @@ phase= 2;
/*:90*//*92:*/
#line 1478 "cwebdir/ctangle.w"
-#line 405 "cwebdir/ctang-w2c.ch"
+#line 433 "cwebdir/ctang-w2c.ch"
static void
skip_limbo(void)
#line 1481 "cwebdir/ctangle.w"
@@ -1599,7 +1599,7 @@ default:err_print("! Double @ should be used in limbo");
#line 1533 "cwebdir/ctangle.w"
void
-#line 414 "cwebdir/ctang-w2c.ch"
+#line 442 "cwebdir/ctang-w2c.ch"
print_stats(void){
#line 1536 "cwebdir/ctangle.w"
printf("\nMemory usage statistics:\n");