/*1:*/
#line 61 "ctangle.w"

/*2:*/
#line 238 "ctangle.ch"

#include <string.h>
#line 80 "ctangle.w"

/*:2*//*6:*/
#line 313 "ctangle.ch"

#include <stdio.h>

#ifdef __TURBOC__
#include <io.h>
#endif

#ifndef _AMIGA 
typedef long int LONG;
typedef char*STRPTR;
#define EXEC_TYPES_H 1 
#endif

#ifdef STRINGARRAY
#undef STRINGARRAY 
#endif
#define get_string(n) AppStrings[n].as_Str

#include "cweb.h"

struct AppString
{
LONG as_ID;
STRPTR as_Str;
};

extern struct AppString AppStrings[];
#line 37 "common.h"

/*:6*//*62:*/
#line 875 "ctangle.w"

#include <ctype.h> 
#include <stdlib.h> 

/*:62*/
#line 62 "ctangle.w"

#define banner get_string(MSG_BANNER_CT1)  \

#define max_bytes 90000 \

#define max_toks 270000
#define max_names 4000 \

#define max_texts 2500
#define hash_size 353
#define longest_name 1000
#define stack_size 50
#define buf_size 100 \

#define ctangle 0
#define cweave 1 \

#define alloc_object(object,size,type)  \
if(!(object= (type*) malloc((size) *sizeof(type) ) ) )  \
fatal("",get_string(MSG_FATAL_CO85) ) ; \

#define and_and 04
#define lt_lt 020
#define gt_gt 021
#define plus_plus 013
#define minus_minus 01
#define minus_gt 031
#define not_eq 032
#define lt_eq 034
#define gt_eq 035
#define eq_eq 036
#define or_or 037
#define dot_dot_dot 016
#define colon_colon 06
#define period_ast 026
#define minus_gt_ast 027 \

#define xisalpha(c) (isalpha(c) &&((eight_bits) c<0200) ) 
#define xisdigit(c) (isdigit(c) &&((eight_bits) c<0200) ) 
#define xisspace(c) (isspace(c) &&((eight_bits) c<0200) ) 
#define xislower(c) (islower(c) &&((eight_bits) c<0200) ) 
#define xisupper(c) (isupper(c) &&((eight_bits) c<0200) ) 
#define xisxdigit(c) (isxdigit(c) &&((eight_bits) c<0200) )  \

#define length(c) (size_t) ((c+1) ->byte_start-(c) ->byte_start) 
#define print_id(c) term_write((c) ->byte_start,length((c) ) ) 
#define llink link
#define rlink dummy.Rlink
#define root name_dir->rlink \

#define chunk_marker 0 \

#define spotless 0
#define harmless_message 1
#define error_message 2
#define fatal_message 3
#define mark_harmless {if(history==spotless) history= harmless_message;}
#define mark_error history= error_message
#define confusion(s) fatal(get_string(MSG_FATAL_CO66) ,s)  \

#define max_file_name_length 256
#define cur_file file[include_depth]
#define cur_file_name file_name[include_depth]
#define web_file_name file_name[0]
#define cur_line line[include_depth] \

#define show_banner flags['b']
#define show_happiness flags['h']
#define show_progress flags['p']
#define indent_param_decl flags['i']
#define send_error_messages flags['m']
#define order_decl_stmt flags['o'] \

#define update_terminal fflush(stdout) 
#define new_line putchar('\n') 
#define putxchar putchar
#define term_write(a,b) fflush(stdout) ,fwrite(a,sizeof(char) ,b,stdout) 
#define C_printf(c,a) fprintf(C_file,c,a) 
#define C_putc(c) putc(c,C_file)  \

#define equiv equiv_or_xref \

#define section_flag max_texts \

#define string 02
#define join 0177
#define output_defs_flag (2*024000-1)  \

#define cur_end cur_state.end_field
#define cur_byte cur_state.byte_field
#define cur_name cur_state.name_field
#define cur_repl cur_state.repl_field
#define cur_section cur_state.section_field \

#define section_number 0201
#define identifier 0202 \

#define normal 0
#define num_or_id 1
#define unbreakable 3
#define verbatim 4 \

#define max_files 256
#define translit_length 10 \

#define ignore 0
#define ord 0302
#define control_text 0303
#define translit_code 0304
#define output_defs_code 0305
#define format_code 0306
#define definition 0307
#define begin_C 0310
#define section_name 0311
#define new_section 0312 \

#define constant 03 \

#define isxalpha(c) ((c) =='_') 
#define ishigh(c) ((unsigned char) (c) >0177)  \
 \

#define compress(c) if(loc++<=limit) return(c)  \

#define macro 0
#define app_repl(c)  \
{if(tok_ptr==tok_mem_end)  \
overflow(get_string(MSG_OVERFLOW_CT26) ) ; \
*tok_ptr++= c;} \

#define free_object(object)  \
if(object) { \
free(object) ; \
object= NULL; \
} \


#line 63 "ctangle.w"

/*5:*/
#line 29 "common.h"

typedef short boolean;
typedef char unsigned eight_bits;
extern boolean program;
#line 282 "ctangle.ch"
extern int phase;

#ifdef __TURBOC__
#define HUGE huge
#else
#define HUGE
#endif

#line 34 "common.h"

#line 297 "ctangle.ch"
/*:5*//*7:*/
#line 57 "common.h"

#line 347 "ctangle.ch"
char*section_text;
char*section_text_end;
#line 60 "common.h"
char*id_first;
char*id_loc;

/*:7*//*8:*/
#line 72 "common.h"

#line 355 "ctangle.ch"
extern char*buffer;
#line 74 "common.h"
extern char*buffer_end;
extern char*loc;
extern char*limit;

/*:8*//*9:*/
#line 87 "common.h"

#line 386 "ctangle.ch"
typedef struct name_info{
char HUGE*byte_start;
struct name_info HUGE*link;
union{
struct name_info HUGE*Rlink;

char Ilk;
}dummy;
void HUGE*equiv_or_xref;
}name_info;
typedef name_info HUGE*name_pointer;
typedef name_pointer*hash_pointer;
extern name_pointer name_dir;
extern name_pointer name_dir_end;
extern name_pointer name_ptr;
extern char HUGE*byte_mem;
extern char HUGE*byte_mem_end;
extern char HUGE*byte_ptr;
#ifdef __TURBOC__
extern void far*allocsafe(unsigned long,unsigned long);
#endif

#line 414 "ctangle.ch"
extern name_pointer*hash;
#line 107 "common.h"
extern hash_pointer hash_end;
extern hash_pointer h;
#line 423 "ctangle.ch"
extern int names_match(name_pointer,char*,int,eight_bits);
extern name_pointer id_lookup(char*,char*,char);

extern name_pointer prefix_lookup(char*,char*);
extern name_pointer section_lookup(char*,char*,int);
extern void init_node(name_pointer);
extern void init_p(name_pointer,eight_bits);
extern void print_prefix_name(name_pointer);
extern void print_section_name(name_pointer);
extern void sprint_section_name(char*,name_pointer);
#line 112 "common.h"

/*:9*//*10:*/
#line 454 "ctangle.ch"

extern history;
extern int wrap_up(void);
extern void err_print(char*);
extern void fatal(char*,char*);
extern void overflow(char*);
#line 128 "common.h"

/*:10*//*11:*/
#line 137 "common.h"

extern include_depth;
#line 482 "ctangle.ch"
extern FILE**file;
extern FILE*change_file;
extern char*C_file_name;
extern char*tex_file_name;
extern char*idx_file_name;
extern char*scn_file_name;
extern char*check_file_name;
extern char**file_name;
extern char*change_file_name;
extern char*use_language;
extern int*line;
#line 149 "common.h"
extern change_line;
extern boolean input_has_ended;
extern boolean changing;
extern boolean web_file_open;
#line 501 "ctangle.ch"
extern boolean get_line(void);
extern void check_complete(void);
extern void reset_input(void);
#line 156 "common.h"

/*:11*//*12:*/
#line 158 "common.h"

typedef unsigned short sixteen_bits;
extern sixteen_bits section_count;
#line 510 "ctangle.ch"
extern boolean*changed_section;
#line 162 "common.h"
extern boolean change_pending;
extern boolean print_where;

#line 520 "ctangle.ch"
/*:12*//*13:*/
#line 170 "common.h"

extern int argc;
extern char**argv;
#line 532 "ctangle.ch"
extern boolean flags[];
#line 174 "common.h"

/*:13*//*14:*/
#line 182 "common.h"

extern FILE*C_file;
extern FILE*tex_file;
extern FILE*idx_file;
#line 539 "ctangle.ch"
extern FILE*scn_file;
extern FILE*check_file;
#line 187 "common.h"
extern FILE*active_file;

/*:14*//*15:*/
#line 191 "common.h"

#line 547 "ctangle.ch"
extern void common_init(void);
extern void print_stats(void);
#line 125 "ctangle.w"

/*:15*/
#line 64 "ctangle.w"

/*16:*/
#line 149 "ctangle.w"

typedef struct{
#line 555 "ctangle.ch"
eight_bits HUGE*tok_start;
#line 152 "ctangle.w"
sixteen_bits text_link;
}text;
typedef text*text_pointer;

/*:16*//*27:*/
#line 293 "ctangle.w"

typedef struct{
#line 667 "ctangle.ch"
eight_bits HUGE*end_field;
eight_bits HUGE*byte_field;
#line 297 "ctangle.w"
name_pointer name_field;
text_pointer repl_field;
sixteen_bits section_field;
}output_state;
typedef output_state*stack_pointer;

/*:27*/
#line 65 "ctangle.w"

/*17:*/
#line 156 "ctangle.w"

#line 563 "ctangle.ch"
text_pointer text_info;
text_pointer text_info_end;
#line 159 "ctangle.w"
text_pointer text_ptr;
#line 573 "ctangle.ch"
eight_bits HUGE*tok_mem;
eight_bits HUGE*tok_mem_end;
eight_bits HUGE*tok_ptr;
#line 163 "ctangle.w"

/*:17*//*23:*/
#line 224 "ctangle.w"

text_pointer last_unnamed;

/*:23*//*28:*/
#line 309 "ctangle.w"

output_state cur_state;

#line 677 "ctangle.ch"
stack_pointer stack;
stack_pointer stack_end;
stack_pointer stack_ptr;
#line 315 "ctangle.w"

/*:28*//*32:*/
#line 381 "ctangle.w"

int cur_val;

/*:32*//*36:*/
#line 467 "ctangle.w"

eight_bits out_state;
boolean protect;

/*:36*//*38:*/
#line 496 "ctangle.w"

#line 745 "ctangle.ch"
name_pointer*output_files;
name_pointer*cur_out_file,*end_output_files,*an_output_file;
char cur_section_name_char;
char*output_file_name;

/*:38*//*45:*/
#line 593 "ctangle.w"

boolean output_defs_seen= 0;

#line 865 "ctangle.ch"
/*:45*//*51:*/
#line 700 "ctangle.w"

#line 911 "ctangle.ch"
char**translit;

/*:51*//*56:*/
#line 776 "ctangle.w"

#line 931 "ctangle.ch"
eight_bits*ccode;

/*:56*//*59:*/
#line 832 "ctangle.w"

boolean comment_continues= 0;

/*:59*//*61:*/
#line 871 "ctangle.w"

name_pointer cur_section_name;
int no_where;

/*:61*//*75:*/
#line 1185 "ctangle.w"

text_pointer cur_text;
eight_bits next_control;

/*:75*//*82:*/
#line 1335 "ctangle.w"

extern sixteen_bits section_count;

/*:82*//*97:*/
#line 1266 "ctangle.ch"

#ifdef __SASC
const char Version[]= "$VER: CTangle 3.3 [p11] ("__DATE__", "__TIME__")\n";
#endif

/*:97*/
#line 66 "ctangle.w"

/*41:*/
#line 777 "ctangle.ch"

static void phase_two(void);

/*:41*//*46:*/
#line 865 "ctangle.ch"

static void output_defs(void);

/*:46*//*48:*/
#line 891 "ctangle.ch"

static void out_char(eight_bits);

/*:48*//*90:*/
#line 1145 "ctangle.ch"

static void phase_one(void);

/*:90*//*92:*/
#line 1161 "ctangle.ch"

static void skip_limbo(void);

/*:92*//*96:*/
#line 1249 "ctangle.ch"

static eight_bits get_next(void);
static eight_bits skip_ahead(void);
static int skip_comment(boolean);
static void flush_buffer(void);
static void get_output(void);
static void pop_level(int);
static void push_level(name_pointer);
static void scan_repl(eight_bits);
static void scan_section(void);
static void store_two_bytes(sixteen_bits);

/*:96*/
#line 67 "ctangle.w"


#line 233 "ctangle.ch"
/*:1*//*3:*/
#line 88 "ctangle.w"

#line 248 "ctangle.ch"
int main(int ac,char**av)
#line 92 "ctangle.w"
{
argc= ac;argv= av;
program= ctangle;
#line 256 "ctangle.ch"
common_init();
/*18:*/
#line 164 "ctangle.w"

#line 582 "ctangle.ch"
alloc_object(section_text,longest_name+1,char);
section_text_end= section_text+longest_name;
alloc_object(text_info,max_texts,text);
text_info_end= text_info+max_texts-1;
#ifdef __TURBOC__
#undef max_toks
#define max_toks 170000
tok_mem= (eight_bits HUGE*)allocsafe(max_toks,sizeof(*tok_mem));
#else
alloc_object(tok_mem,max_toks,eight_bits);
#endif
tok_mem_end= tok_mem+max_toks-1;
text_info->tok_start= tok_ptr= tok_mem;
alloc_object(stack,stack_size+1,output_state);
stack_end= stack+stack_size;

#line 166 "ctangle.w"
text_ptr= text_info+1;text_ptr->tok_start= tok_mem;


/*:18*//*20:*/
#line 174 "ctangle.w"

#line 604 "ctangle.ch"
name_dir->equiv= (void HUGE*)text_info;
#line 176 "ctangle.w"

/*:20*//*24:*/
#line 227 "ctangle.w"
last_unnamed= text_info;text_info->text_link= 0;

/*:24*//*39:*/
#line 755 "ctangle.ch"

alloc_object(output_files,max_files,name_pointer);
alloc_object(output_file_name,longest_name,char);
cur_out_file= end_output_files= output_files+max_files;
#line 508 "ctangle.w"

/*:39*//*52:*/
#line 913 "ctangle.ch"

{
int i;
alloc_object(translit,128,char*);
for(i= 0;i<128;i++)
alloc_object(translit[i],translit_length,char);
for(i= 0;i<128;i++)
sprintf(translit[i],"X%02X",(unsigned)(128+i));
}
#line 708 "ctangle.w"

/*:52*//*57:*/
#line 933 "ctangle.ch"
{
int c;
alloc_object(ccode,256,eight_bits);
#line 781 "ctangle.w"
for(c= 0;c<256;c++)ccode[c]= ignore;
ccode[' ']= ccode['\t']= ccode['\n']= ccode['\v']= ccode['\r']= ccode['\f']
= ccode['*']= new_section;
ccode['@']= '@';ccode['=']= string;
ccode['d']= ccode['D']= definition;
ccode['f']= ccode['F']= ccode['s']= ccode['S']= format_code;
ccode['c']= ccode['C']= ccode['p']= ccode['P']= begin_C;
ccode['^']= ccode[':']= ccode['.']= ccode['t']= ccode['T']= 
ccode['q']= ccode['Q']= control_text;
ccode['h']= ccode['H']= output_defs_code;
ccode['l']= ccode['L']= translit_code;
ccode['&']= join;
ccode['<']= ccode['(']= section_name;
ccode['\'']= ord;
}

/*:57*//*71:*/
#line 1106 "ctangle.w"
section_text[0]= ' ';

/*:71*/
#line 257 "ctangle.ch"
;
#line 97 "ctangle.w"
if(show_banner)printf(banner);
phase_one();
phase_two();
return wrap_up();
}

/*:3*//*21:*/
#line 180 "ctangle.w"

#line 614 "ctangle.ch"
int names_match(
name_pointer p,
char*first,
int l,
eight_bits dummy)
#line 185 "ctangle.w"
{
if(length(p)!=l)return 0;
return!strncmp(first,p->byte_start,l);
}

/*:21*//*22:*/
#line 195 "ctangle.w"

#line 627 "ctangle.ch"
void init_node(name_pointer node)
#line 199 "ctangle.w"
{
#line 634 "ctangle.ch"
node->equiv= (void HUGE*)text_info;
#line 201 "ctangle.w"
}
#line 642 "ctangle.ch"
void init_p(name_pointer dummy1,eight_bits dummy2)
{}
#line 204 "ctangle.w"

/*:22*//*26:*/
#line 257 "ctangle.w"

#line 652 "ctangle.ch"
static void store_two_bytes(sixteen_bits x)
#line 261 "ctangle.w"
{
#line 659 "ctangle.ch"
if(tok_ptr+2>tok_mem_end)overflow(get_string(MSG_OVERFLOW_CT26));
#line 263 "ctangle.w"
*tok_ptr++= x>>8;
*tok_ptr++= x&0377;
}

/*:26*//*30:*/
#line 333 "ctangle.w"

#line 690 "ctangle.ch"
static void push_level(name_pointer p)
{
if(stack_ptr==stack_end)overflow(get_string(MSG_OVERFLOW_CT30));
#line 339 "ctangle.w"
*stack_ptr= cur_state;
stack_ptr++;
if(p!=NULL){
cur_name= p;cur_repl= (text_pointer)p->equiv;
cur_byte= cur_repl->tok_start;cur_end= (cur_repl+1)->tok_start;
cur_section= 0;
}
}

/*:30*//*31:*/
#line 352 "ctangle.w"

#line 701 "ctangle.ch"
static void pop_level(int flag)
#line 356 "ctangle.w"
{
if(flag&&cur_repl->text_link<section_flag){
cur_repl= cur_repl->text_link+text_info;
cur_byte= cur_repl->tok_start;cur_end= (cur_repl+1)->tok_start;
return;
}
stack_ptr--;
if(stack_ptr>stack)cur_state= *stack_ptr;
}

/*:31*//*33:*/
#line 388 "ctangle.w"

#line 709 "ctangle.ch"
static void get_output(void)
#line 391 "ctangle.w"
{
sixteen_bits a;
restart:if(stack_ptr==stack)return;
if(cur_byte==cur_end){
cur_val= -((int)cur_section);
pop_level(1);
if(cur_val==0)goto restart;
out_char(section_number);return;
}
a= *cur_byte++;
if(out_state==verbatim&&a!=string&&a!=constant&&a!='\n')
C_putc(a);
else if(a<0200)out_char(a);
else{
a= (a-0200)*0400+*cur_byte++;
switch(a/024000){
case 0:cur_val= a;out_char(identifier);break;
case 1:if(a==output_defs_flag)output_defs();
else/*34:*/
#line 420 "ctangle.w"

{
a-= 024000;
#line 718 "ctangle.ch"
if((a+name_dir)->equiv!=(void HUGE*)text_info)push_level(a+name_dir);
else if(a!=0){
printf(get_string(MSG_ERROR_CT34));
#line 426 "ctangle.w"
print_section_name(a+name_dir);err_print(">");

}
goto restart;
}

/*:34*/
#line 409 "ctangle.w"
;
break;
default:cur_val= a-050000;if(cur_val>0)cur_section= cur_val;
out_char(section_number);
}
}
}

/*:33*//*37:*/
#line 475 "ctangle.w"

#line 728 "ctangle.ch"
static void flush_buffer(void)
#line 478 "ctangle.w"
{
C_putc('\n');
if(cur_line%100==0&&show_progress){
printf(".");
if(cur_line%500==0)printf("%d",cur_line);
update_terminal;
}
cur_line++;
}

/*:37*//*42:*/
#line 780 "ctangle.ch"

static void phase_two(void){
#line 533 "ctangle.w"
web_file_open= 0;
cur_line= 1;
/*29:*/
#line 322 "ctangle.w"

stack_ptr= stack+1;cur_name= name_dir;cur_repl= text_info->text_link+text_info;
cur_byte= cur_repl->tok_start;cur_end= (cur_repl+1)->tok_start;cur_section= 0;

/*:29*/
#line 535 "ctangle.w"
;
/*44:*/
#line 589 "ctangle.w"

if(!output_defs_seen)
output_defs();

/*:44*/
#line 536 "ctangle.w"
;
if(text_info->text_link==0&&cur_out_file==end_output_files){
#line 788 "ctangle.ch"
printf(get_string(MSG_WARNING_CT42));mark_harmless;
#line 539 "ctangle.w"

}
else{
if(cur_out_file==end_output_files){
if(show_progress)
#line 795 "ctangle.ch"
printf(get_string(MSG_PROGRESS_CT42_1),C_file_name);
#line 545 "ctangle.w"
}
else{
if(show_progress){
#line 802 "ctangle.ch"
printf(get_string(MSG_PROGRESS_CT42_2));
#line 549 "ctangle.w"

printf(" (%s)",C_file_name);
update_terminal;
}
if(text_info->text_link==0)goto writeloop;
}
while(stack_ptr>stack)get_output();
flush_buffer();
writeloop:/*43:*/
#line 833 "ctangle.ch"

fclose(C_file);C_file= NULL;
/*98:*/
#line 1285 "ctangle.ch"

if(C_file= fopen(C_file_name,"r")){
char*x,*y;
int x_size,y_size;

if(!(check_file= fopen(check_file_name,"r")))
fatal(get_string(MSG_FATAL_CO78),check_file_name);

alloc_object(x,BUFSIZ,char);
alloc_object(y,BUFSIZ,char);

/*99:*/
#line 1311 "ctangle.ch"

do{
x_size= fread(x,1,BUFSIZ,C_file);
y_size= fread(y,1,BUFSIZ,check_file);
}while((x_size==y_size)&&!memcmp(x,y,x_size)&&
!feof(C_file)&&!feof(check_file));

/*:99*/
#line 1296 "ctangle.ch"


fclose(C_file);C_file= NULL;
fclose(check_file);check_file= NULL;

/*100:*/
#line 1321 "ctangle.ch"

if((x_size!=y_size)||memcmp(x,y,x_size)){
remove(C_file_name);
rename(check_file_name,C_file_name);
}
else
remove(check_file_name);

/*:100*/
#line 1301 "ctangle.ch"


free_object(y);
free_object(x);
}
else
rename(check_file_name,C_file_name);

/*:98*/
#line 835 "ctangle.ch"

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);
C_file= fopen(check_file_name,"w");
if(C_file==0)fatal(get_string(MSG_FATAL_CO78),check_file_name);

printf("\n(%s)",output_file_name);update_terminal;
cur_line= 1;
stack_ptr= stack+1;
cur_name= (*an_output_file);
cur_repl= (text_pointer)cur_name->equiv;
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;
/*101:*/
#line 1329 "ctangle.ch"

if(C_file= fopen(output_file_name,"r")){
char*x,*y;
int x_size,y_size;

if(!(check_file= fopen(check_file_name,"r")))
fatal(get_string(MSG_FATAL_CO78),check_file_name);

alloc_object(x,BUFSIZ,char);
alloc_object(y,BUFSIZ,char);

/*99:*/
#line 1311 "ctangle.ch"

do{
x_size= fread(x,1,BUFSIZ,C_file);
y_size= fread(y,1,BUFSIZ,check_file);
}while((x_size==y_size)&&!memcmp(x,y,x_size)&&
!feof(C_file)&&!feof(check_file));

/*:99*/
#line 1340 "ctangle.ch"


fclose(C_file);C_file= NULL;
fclose(check_file);check_file= NULL;

/*102:*/
#line 1355 "ctangle.ch"

if((x_size!=y_size)||memcmp(x,y,x_size)){
remove(output_file_name);
rename(check_file_name,output_file_name);
}
else
remove(check_file_name);

/*:102*/
#line 1345 "ctangle.ch"


free_object(y);
free_object(x);
}
else
rename(check_file_name,output_file_name);

/*:101*/
#line 851 "ctangle.ch"

}
check_file_name= NULL;
#line 584 "ctangle.w"

/*:43*/
#line 557 "ctangle.w"
;
#line 809 "ctangle.ch"
if(show_happiness)printf(get_string(MSG_PROGRESS_CT42_3));
#line 559 "ctangle.w"
}
}

/*:42*//*47:*/
#line 868 "ctangle.ch"

static void output_defs(void)
#line 602 "ctangle.w"
{
sixteen_bits a;
push_level(NULL);
for(cur_text= text_info+1;cur_text<text_ptr;cur_text++)
if(cur_text->text_link==0){
cur_byte= cur_text->tok_start;
cur_end= (cur_text+1)->tok_start;
C_printf("%s","#define ");
out_state= normal;
protect= 1;
while(cur_byte<cur_end){
a= *cur_byte++;
if(cur_byte==cur_end&&a=='\n')break;
if(out_state==verbatim&&a!=string&&a!=constant&&a!='\n')
C_putc(a);

else if(a<0200)out_char(a);
else{
a= (a-0200)*0400+*cur_byte++;
if(a<024000){
cur_val= a;out_char(identifier);
}
#line 876 "ctangle.ch"
else if(a<050000){confusion(get_string(MSG_CONFUSION_CT47));}
#line 625 "ctangle.w"
else{
cur_val= a-050000;cur_section= cur_val;out_char(section_number);
}

}
}
protect= 0;
flush_buffer();
}
pop_level(0);
}

/*:47*//*49:*/
#line 894 "ctangle.ch"

static void out_char(eight_bits cur_char)
{
char HUGE*j;
char HUGE*k;
#line 651 "ctangle.w"
restart:
switch(cur_char){
case'\n':if(protect)C_putc(' ');
if(protect||out_state==verbatim)C_putc('\\');
flush_buffer();if(out_state!=verbatim)out_state= normal;break;
/*53:*/
#line 709 "ctangle.w"

case identifier:
if(out_state==num_or_id)C_putc(' ');
j= (cur_val+name_dir)->byte_start;
k= (cur_val+name_dir+1)->byte_start;
while(j<k){
if((unsigned char)(*j)<0200)C_putc(*j);

else C_printf("%s",translit[(unsigned char)(*j)-0200]);
j++;
}
out_state= num_or_id;break;

/*:53*/
#line 656 "ctangle.w"
;
/*54:*/
#line 722 "ctangle.w"

case section_number:
if(cur_val>0)C_printf("/*%d:*/",cur_val);
else if(cur_val<0)C_printf("/*:%d*/",-cur_val);
else if(protect){
cur_byte+= 4;
cur_char= '\n';
goto restart;
}else{
sixteen_bits a;
a= 0400**cur_byte++;
a+= *cur_byte++;
C_printf("\n#line %d \"",a);

cur_val= *cur_byte++;
cur_val= 0400*(cur_val-0200)+*cur_byte++;
for(j= (cur_val+name_dir)->byte_start,k= (cur_val+name_dir+1)->byte_start;
j<k;j++)C_putc(*j);
C_printf("%s","\"\n");
}
break;

/*:54*/
#line 657 "ctangle.w"
;
/*50:*/
#line 671 "ctangle.w"

case plus_plus:C_putc('+');C_putc('+');out_state= normal;break;
case minus_minus:C_putc('-');C_putc('-');out_state= normal;break;
case minus_gt:C_putc('-');C_putc('>');out_state= normal;break;
case gt_gt:C_putc('>');C_putc('>');out_state= normal;break;
case eq_eq:C_putc('=');C_putc('=');out_state= normal;break;
case lt_lt:C_putc('<');C_putc('<');out_state= normal;break;
case gt_eq:C_putc('>');C_putc('=');out_state= normal;break;
case lt_eq:C_putc('<');C_putc('=');out_state= normal;break;
case not_eq:C_putc('!');C_putc('=');out_state= normal;break;
case and_and:C_putc('&');C_putc('&');out_state= normal;break;
case or_or:C_putc('|');C_putc('|');out_state= normal;break;
case dot_dot_dot:C_putc('.');C_putc('.');C_putc('.');out_state= normal;
break;
case colon_colon:C_putc(':');C_putc(':');out_state= normal;break;
case period_ast:C_putc('.');C_putc('*');out_state= normal;break;
case minus_gt_ast:C_putc('-');C_putc('>');C_putc('*');out_state= normal;
break;

/*:50*/
#line 658 "ctangle.w"
;
case'=':C_putc('=');C_putc(' ');out_state= normal;break;
case join:out_state= unbreakable;break;
case constant:if(out_state==verbatim){
out_state= num_or_id;break;
}
if(out_state==num_or_id)C_putc(' ');out_state= verbatim;break;
case string:if(out_state==verbatim)out_state= normal;
else out_state= verbatim;break;
default:C_putc(cur_char);out_state= normal;break;
}
}

/*:49*//*58:*/
#line 800 "ctangle.w"

#line 943 "ctangle.ch"
static eight_bits skip_ahead(void)
#line 803 "ctangle.w"
{
eight_bits c;
while(1){
if(loc>limit&&(get_line()==0))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);
}
}
}

/*:58*//*60:*/
#line 835 "ctangle.w"

#line 951 "ctangle.ch"
static int skip_comment(boolean is_long_comment)
#line 838 "ctangle.w"
{
char c;
while(1){
if(loc>limit){
if(is_long_comment){
if(get_line())return(comment_continues= 1);
else{
#line 958 "ctangle.ch"
err_print(get_string(MSG_ERROR_CT60_1));
#line 846 "ctangle.w"

return(comment_continues= 0);
}
}
else return(comment_continues= 0);
}
c= *(loc++);
if(is_long_comment&&c=='*'&&*loc=='/'){
loc++;return(comment_continues= 0);
}
if(c=='@'){
if(ccode[(eight_bits)*loc]==new_section){
#line 965 "ctangle.ch"
err_print(get_string(MSG_ERROR_CT60_2));loc--;
#line 859 "ctangle.w"

return(comment_continues= 0);
}
else loc++;
}
}
}

/*:60*//*63:*/
#line 886 "ctangle.w"

#line 973 "ctangle.ch"
static eight_bits get_next(void)
#line 889 "ctangle.w"
{
static int preprocessing= 0;
eight_bits c;
while(1){
if(loc>limit){
if(preprocessing&&*(limit-1)!='\\')preprocessing= 0;
if(get_line()==0)return(new_section);
else if(print_where&&!no_where){
print_where= 0;
/*77:*/
#line 1215 "ctangle.w"

store_two_bytes(0150000);
if(changing)id_first= change_file_name;
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);
{int a= id_lookup(id_first,id_loc,0)-name_dir;app_repl((a/0400)+0200);
app_repl(a%0400);}

/*:77*/
#line 898 "ctangle.w"
;
}
else return('\n');
}
c= *loc;
if(comment_continues||(c=='/'&&(*(loc+1)=='*'||*(loc+1)=='/'))){
skip_comment(comment_continues||*(loc+1)=='*');

if(comment_continues)return('\n');
else continue;
}
loc++;
if(xisdigit(c)||c=='\\'||c=='.')/*66:*/
#line 964 "ctangle.w"
{
id_first= loc-1;
if(*id_first=='.'&&!xisdigit(*loc))goto mistake;
if(*id_first=='\\')while(xisdigit(*loc))loc++;
else{
if(*id_first=='0'){
if(*loc=='x'||*loc=='X'){
loc++;while(xisxdigit(*loc))loc++;goto found;
}
}
while(xisdigit(*loc))loc++;
if(*loc=='.'){
loc++;
while(xisdigit(*loc))loc++;
}
if(*loc=='e'||*loc=='E'){
if(*++loc=='+'||*loc=='-')loc++;
while(xisdigit(*loc))loc++;
}
}
found:while(*loc=='u'||*loc=='U'||*loc=='l'||*loc=='L'
||*loc=='f'||*loc=='F')loc++;
id_loc= loc;
return(constant);
}

/*:66*/
#line 910 "ctangle.w"

else if(c=='\''||c=='"'||(c=='L'&&(*loc=='\''||*loc=='"')))
/*67:*/
#line 995 "ctangle.w"
{
char delim= c;
id_first= section_text+1;
id_loc= section_text;*++id_loc= delim;
if(delim=='L'){
delim= *loc++;*++id_loc= delim;
}
while(1){
if(loc>=limit){
if(*(limit-1)!='\\'){
#line 980 "ctangle.ch"
err_print(get_string(MSG_ERROR_CT67_1));loc= limit;break;
#line 1006 "ctangle.w"

}
if(get_line()==0){
#line 987 "ctangle.ch"
err_print(get_string(MSG_ERROR_CT67_2));loc= buffer;break;
#line 1010 "ctangle.w"

}
else if(++id_loc<=section_text_end)*id_loc= '\n';

}
if((c= *loc++)==delim){
if(++id_loc<=section_text_end)*id_loc= c;
break;
}
if(c=='\\'){
if(loc>=limit)continue;
if(++id_loc<=section_text_end)*id_loc= '\\';
c= *loc++;
}
if(++id_loc<=section_text_end)*id_loc= c;
}
if(id_loc>=section_text_end){
#line 994 "ctangle.ch"
printf(get_string(MSG_ERROR_CT67_3));
#line 1028 "ctangle.w"

term_write(section_text+1,25);
err_print("...");
}
id_loc++;
return(string);
}

/*:67*/
#line 912 "ctangle.w"

else if(isalpha(c)||isxalpha(c)||ishigh(c))
/*65:*/
#line 958 "ctangle.w"
{
id_first= --loc;
while(isalpha(*++loc)||isdigit(*loc)||isxalpha(*loc)||ishigh(*loc));
id_loc= loc;return(identifier);
}

/*:65*/
#line 914 "ctangle.w"

else if(c=='@')/*68:*/
#line 1039 "ctangle.w"
{
c= ccode[(eight_bits)*loc++];
switch(c){
case ignore:continue;
case output_defs_code:output_defs_seen= 1;return(c);
#line 1001 "ctangle.ch"
case translit_code:err_print(get_string(MSG_ERROR_CT68_1));continue;
#line 1045 "ctangle.w"

case control_text:while((c= skip_ahead())=='@');

if(*(loc-1)!='>')
#line 1008 "ctangle.ch"
err_print(get_string(MSG_ERROR_CT68_2));
#line 1050 "ctangle.w"

continue;
case section_name:
cur_section_name_char= *(loc-1);
/*70:*/
#line 1088 "ctangle.w"
{
char*k;
/*72:*/
#line 1108 "ctangle.w"

k= section_text;
while(1){
if(loc>limit&&get_line()==0){
#line 1029 "ctangle.ch"
err_print(get_string(MSG_ERROR_CT72_1));
#line 1113 "ctangle.w"

loc= buffer+1;break;
}
c= *loc;
/*73:*/
#line 1132 "ctangle.w"

if(c=='@'){
c= *(loc+1);
if(c=='>'){
loc+= 2;break;
}
if(ccode[(eight_bits)c]==new_section){
#line 1043 "ctangle.ch"
err_print(get_string(MSG_ERROR_CT73_1));break;
#line 1140 "ctangle.w"

}
if(ccode[(eight_bits)c]==section_name){
#line 1050 "ctangle.ch"
err_print(get_string(MSG_ERROR_CT73_2));break;
#line 1144 "ctangle.w"

}
*(++k)= '@';loc++;
}

/*:73*/
#line 1117 "ctangle.w"
;
loc++;if(k<section_text_end)k++;
if(xisspace(c)){
c= ' ';if(*(k-1)==' ')k--;
}
*k= c;
}
if(k>=section_text_end){
#line 1036 "ctangle.ch"
printf(get_string(MSG_ERROR_CT72_2));
#line 1126 "ctangle.w"

term_write(section_text+1,25);
printf("...");mark_harmless;
}
if(*k==' '&&k>section_text)k--;

/*:72*/
#line 1090 "ctangle.w"
;
if(k-section_text>3&&strncmp(k-2,"...",3)==0)
cur_section_name= section_lookup(section_text+1,k-3,1);
else cur_section_name= section_lookup(section_text+1,k,0);
if(cur_section_name_char=='(')
/*40:*/
#line 510 "ctangle.w"

{
for(an_output_file= cur_out_file;
an_output_file<end_output_files;an_output_file++)
if(*an_output_file==cur_section_name)break;
if(an_output_file==end_output_files){
if(cur_out_file>output_files)
*--cur_out_file= cur_section_name;
else{
#line 765 "ctangle.ch"
overflow(get_string(MSG_OVERFLOW_CT40));
#line 520 "ctangle.w"
}
}
}

/*:40*/
#line 1096 "ctangle.w"
;
return(section_name);
}

/*:70*/
#line 1054 "ctangle.w"
;
case string:/*74:*/
#line 1154 "ctangle.w"
{
id_first= loc++;*(limit+1)= '@';*(limit+2)= '>';
while(*loc!='@'||*(loc+1)!='>')loc++;
#line 1057 "ctangle.ch"
if(loc>=limit)err_print(get_string(MSG_ERROR_CT74));
#line 1158 "ctangle.w"

id_loc= loc;loc+= 2;
return(string);
}

/*:74*/
#line 1055 "ctangle.w"
;
case ord:/*69:*/
#line 1067 "ctangle.w"

id_first= loc;
if(*loc=='\\'){
if(*++loc=='\'')loc++;
}
while(*loc!='\''){
if(*loc=='@'){
if(*(loc+1)!='@')
#line 1015 "ctangle.ch"
err_print(get_string(MSG_ERROR_CT69));
#line 1076 "ctangle.w"

else loc++;
}
loc++;
if(loc>limit){
#line 1022 "ctangle.ch"
err_print(get_string(MSG_ERROR_CT67_1));loc= limit-1;break;
#line 1082 "ctangle.w"

}
}
loc++;
return(ord);

/*:69*/
#line 1056 "ctangle.w"
;
default:return(c);
}
}

/*:68*/
#line 915 "ctangle.w"

else if(xisspace(c)){
if(!preprocessing||loc>limit)continue;

else return(' ');
}
else if(c=='#'&&loc==buffer+1)preprocessing= 1;
mistake:/*64:*/
#line 936 "ctangle.w"

switch(c){
case'+':if(*loc=='+')compress(plus_plus);break;
case'-':if(*loc=='-'){compress(minus_minus);}
else if(*loc=='>')if(*(loc+1)=='*'){loc++;compress(minus_gt_ast);}
else compress(minus_gt);break;
case'.':if(*loc=='*'){compress(period_ast);}
else if(*loc=='.'&&*(loc+1)=='.'){
loc++;compress(dot_dot_dot);
}
break;
case':':if(*loc==':')compress(colon_colon);break;
case'=':if(*loc=='=')compress(eq_eq);break;
case'>':if(*loc=='='){compress(gt_eq);}
else if(*loc=='>')compress(gt_gt);break;
case'<':if(*loc=='='){compress(lt_eq);}
else if(*loc=='<')compress(lt_lt);break;
case'&':if(*loc=='&')compress(and_and);break;
case'|':if(*loc=='|')compress(or_or);break;
case'!':if(*loc=='=')compress(not_eq);break;
}

/*:64*/
#line 922 "ctangle.w"

return(c);
}
}

/*:63*//*76:*/
#line 1189 "ctangle.w"

#line 1076 "ctangle.ch"
static void scan_repl(eight_bits t)
#line 1193 "ctangle.w"
{
sixteen_bits a;
if(t==section_name){/*77:*/
#line 1215 "ctangle.w"

store_two_bytes(0150000);
if(changing)id_first= change_file_name;
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);
{int a= id_lookup(id_first,id_loc,0)-name_dir;app_repl((a/0400)+0200);
app_repl(a%0400);}

/*:77*/
#line 1195 "ctangle.w"
;}
while(1)switch(a= get_next()){
/*78:*/
#line 1225 "ctangle.w"

case identifier:a= id_lookup(id_first,id_loc,0)-name_dir;
app_repl((a/0400)+0200);
app_repl(a%0400);break;
case section_name:if(t!=section_name)goto done;
else{
/*79:*/
#line 1253 "ctangle.w"
{
char*try_loc= loc;
while(*try_loc==' '&&try_loc<limit)try_loc++;
if(*try_loc=='+'&&try_loc<limit)try_loc++;
while(*try_loc==' '&&try_loc<limit)try_loc++;
#line 1097 "ctangle.ch"
if(*try_loc=='=')err_print(get_string(MSG_ERROR_CT79));
#line 1259 "ctangle.w"



}

/*:79*/
#line 1231 "ctangle.w"
;
a= cur_section_name-name_dir;
app_repl((a/0400)+0250);
app_repl(a%0400);
/*77:*/
#line 1215 "ctangle.w"

store_two_bytes(0150000);
if(changing)id_first= change_file_name;
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);
{int a= id_lookup(id_first,id_loc,0)-name_dir;app_repl((a/0400)+0200);
app_repl(a%0400);}

/*:77*/
#line 1235 "ctangle.w"
;break;
}
case output_defs_code:
a= output_defs_flag;
app_repl((a/0400)+0200);
app_repl(a%0400);
/*77:*/
#line 1215 "ctangle.w"

store_two_bytes(0150000);
if(changing)id_first= change_file_name;
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);
{int a= id_lookup(id_first,id_loc,0)-name_dir;app_repl((a/0400)+0200);
app_repl(a%0400);}

/*:77*/
#line 1241 "ctangle.w"
;break;
case constant:case string:
/*80:*/
#line 1264 "ctangle.w"

app_repl(a);
while(id_first<id_loc){
if(*id_first=='@'){
if(*(id_first+1)=='@')id_first++;
#line 1104 "ctangle.ch"
else err_print(get_string(MSG_ERROR_CT80));
#line 1270 "ctangle.w"

}
app_repl(*id_first++);
}
app_repl(a);break;

/*:80*/
#line 1243 "ctangle.w"
;
case ord:
/*81:*/
#line 1280 "ctangle.w"
{
int c= (eight_bits)*id_first;
if(c=='\\'){
c= *++id_first;
if(c>='0'&&c<='7'){
c-= '0';
if(*(id_first+1)>='0'&&*(id_first+1)<='7'){
c= 8*c+*(++id_first)-'0';
if(*(id_first+1)>='0'&&*(id_first+1)<='7'&&c<32)
c= 8*c+*(++id_first)-'0';
}
}
else switch(c){
case't':c= '\t';break;
case'n':c= '\n';break;
case'b':c= '\b';break;
case'f':c= '\f';break;
case'v':c= '\v';break;
case'r':c= '\r';break;
case'a':c= '\7';break;
case'?':c= '?';break;
case'x':
if(xisdigit(*(id_first+1)))c= *(++id_first)-'0';
else if(xisxdigit(*(id_first+1))){
++id_first;
c= toupper(*id_first)-'A'+10;
}
if(xisdigit(*(id_first+1)))c= 16*c+*(++id_first)-'0';
else if(xisxdigit(*(id_first+1))){
++id_first;
c= 16*c+toupper(*id_first)-'A'+10;
}
break;
case'\\':c= '\\';break;
case'\'':c= '\'';break;
case'\"':c= '\"';break;
#line 1111 "ctangle.ch"
default:err_print(get_string(MSG_ERROR_CT81));
#line 1317 "ctangle.w"

}
}

app_repl(constant);
if(c>=100)app_repl('0'+c/100);
if(c>=10)app_repl('0'+(c/10)%10);
app_repl('0'+c%10);
app_repl(constant);
}
break;

/*:81*/
#line 1245 "ctangle.w"
;
case definition:case format_code:case begin_C:if(t!=section_name)goto done;
else{
#line 1090 "ctangle.ch"
err_print(get_string(MSG_ERROR_CT78));continue;
#line 1249 "ctangle.w"

}
case new_section:goto done;

/*:78*/
#line 1200 "ctangle.w"

case')':app_repl(a);
if(t==macro)app_repl(' ');
break;
default:app_repl(a);
}
done:next_control= (eight_bits)a;
#line 1083 "ctangle.ch"
if(text_ptr>text_info_end)overflow(get_string(MSG_OVERFLOW_CT76));
#line 1208 "ctangle.w"
cur_text= text_ptr;(++text_ptr)->tok_start= tok_ptr;
}

/*:76*//*83:*/
#line 1342 "ctangle.w"

#line 1119 "ctangle.ch"
static void scan_section(void)
#line 1345 "ctangle.w"
{
name_pointer p;
text_pointer q;
sixteen_bits a;
section_count++;no_where= 1;
if(*(loc-1)=='*'&&show_progress){
printf("*%d",section_count);update_terminal;
}
next_control= 0;
while(1){
/*84:*/
#line 1381 "ctangle.w"

while(next_control<definition)

if((next_control= skip_ahead())==section_name){
loc-= 2;next_control= get_next();
}

/*:84*/
#line 1356 "ctangle.w"
;
if(next_control==definition){
/*85:*/
#line 1388 "ctangle.w"
{
while((next_control= get_next())=='\n');
if(next_control!=identifier){
#line 1126 "ctangle.ch"
err_print(get_string(MSG_ERROR_CT85));
#line 1392 "ctangle.w"

continue;
}
app_repl(((a= id_lookup(id_first,id_loc,0)-name_dir)/0400)+0200);

app_repl(a%0400);
if(*loc!='('){
app_repl(string);app_repl(' ');app_repl(string);
}
scan_repl(macro);
cur_text->text_link= 0;
}

/*:85*/
#line 1358 "ctangle.w"

continue;
}
if(next_control==begin_C){
p= name_dir;break;
}
if(next_control==section_name){
p= cur_section_name;
/*86:*/
#line 1413 "ctangle.w"

while((next_control= get_next())=='+');
if(next_control!='='&&next_control!=eq_eq)
continue;

/*:86*/
#line 1366 "ctangle.w"
;
break;
}
return;
}
no_where= print_where= 0;
/*87:*/
#line 1418 "ctangle.w"

/*88:*/
#line 1423 "ctangle.w"

store_two_bytes((sixteen_bits)(0150000+section_count));


/*:88*/
#line 1419 "ctangle.w"
;
scan_repl(section_name);
/*89:*/
#line 1427 "ctangle.w"

if(p==name_dir||p==0){
(last_unnamed)->text_link= cur_text-text_info;last_unnamed= cur_text;
}
#line 1133 "ctangle.ch"
else if(p->equiv==(void HUGE*)text_info)p->equiv= (void HUGE*)cur_text;
#line 1432 "ctangle.w"

else{
q= (text_pointer)p->equiv;
while(q->text_link<section_flag)
q= q->text_link+text_info;
q->text_link= cur_text-text_info;
}
cur_text->text_link= section_flag;


#line 1145 "ctangle.ch"
/*:89*/
#line 1421 "ctangle.w"
;

/*:87*/
#line 1372 "ctangle.w"
;
}

/*:83*//*91:*/
#line 1148 "ctangle.ch"

static void phase_one(void){
#line 1448 "ctangle.w"
phase= 1;
section_count= 0;
reset_input();
skip_limbo();
while(!input_has_ended)scan_section();
check_complete();
phase= 2;
}

/*:91*//*93:*/
#line 1164 "ctangle.ch"

static void skip_limbo(void)
#line 1466 "ctangle.w"
{
char c;
while(1){
if(loc>limit&&get_line()==0)return;
*(limit+1)= '@';
while(*loc!='@')loc++;
if(loc++<=limit){
c= *loc++;
if(ccode[(eight_bits)c]==new_section)break;
switch(ccode[(eight_bits)c]){
case translit_code:/*94:*/
#line 1492 "ctangle.w"

while(xisspace(*loc)&&loc<limit)loc++;
loc+= 3;
if(loc>limit||!xisxdigit(*(loc-3))||!xisxdigit(*(loc-2))
||(*(loc-3)>='0'&&*(loc-3)<='7')||!xisspace(*(loc-1)))
#line 1186 "ctangle.ch"
err_print(get_string(MSG_ERROR_CT94_1));
#line 1498 "ctangle.w"

else{
unsigned i;
char*beg;
sscanf(loc-3,"%x",&i);
while(xisspace(*loc)&&loc<limit)loc++;
beg= loc;
while(loc<limit&&(xisalpha(*loc)||xisdigit(*loc)||*loc=='_'))loc++;
if(loc-beg>=translit_length)
#line 1193 "ctangle.ch"
err_print(get_string(MSG_ERROR_CT94_2));
#line 1508 "ctangle.w"

else{
#line 1200 "ctangle.ch"
strncpy(translit[i-0200],beg,(size_t)(loc-beg));
#line 1511 "ctangle.w"
translit[i-0200][loc-beg]= '\0';
}
}

#line 1222 "ctangle.ch"
/*:94*/
#line 1476 "ctangle.w"
;break;
case format_code:case'@':break;
case control_text:if(c=='q'||c=='Q'){
while((c= skip_ahead())=='@');
if(*(loc-1)!='>')
#line 1172 "ctangle.ch"
err_print(get_string(MSG_ERROR_CT68_2));
#line 1482 "ctangle.w"

break;
}
#line 1179 "ctangle.ch"
default:err_print(get_string(MSG_ERROR_CT93));
#line 1486 "ctangle.w"

}
}
}
}

/*:93*//*95:*/
#line 1227 "ctangle.ch"

void print_stats(void){
printf(get_string(MSG_STATS_CT95_1));
printf(get_string(MSG_STATS_CT95_2),
(long)(name_ptr-name_dir),(long)max_names);
printf(get_string(MSG_STATS_CT95_3),
(long)(text_ptr-text_info),(long)max_texts);
printf(get_string(MSG_STATS_CT95_4),
(long)(byte_ptr-byte_mem),(long)max_bytes);
printf(get_string(MSG_STATS_CT95_5),
(long)(tok_ptr-tok_mem),(long)max_toks);
}
#line 1531 "ctangle.w"

#line 1245 "ctangle.ch"
/*:95*/