/*1:*/
#line 66 "cweave.w"
/*6:*/
#line 38 "common.h"

#include <stdio.h>

/*:6*//*38:*/
#line 644 "cweave.w"

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

/*:38*/
#line 66 "cweave.w"

#define banner "This is CWEAVE (Version 3.4) modified by Werner Lemberg (V1.5)\n" \

#define max_bytes 225000 \

#define max_names 10000 \

#define max_sections 2000
#define hash_size 353
#define buf_size 400
#define longest_name 1000
#define long_buf_size (buf_size+longest_name) 
#define line_length 100 \

#define max_refs 20000
#define max_toks 65000 \

#define max_texts 10200 \

#define max_scraps 65000
#define stack_size 10000 \

#define ctangle 0
#define cweave 1 \

#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) (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("! This can't happen: ",s)  \

#define max_file_name_length 60
#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_progress flags['p']
#define show_happiness flags['h'] \

#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 ilk dummy.dummy1.Ilk
#define func_flag dummy.dummy1.Func_flag
#define normal 0
#define roman 1
#define wildcard 2
#define typewriter 3
#define abnormal(a) (a->ilk>typewriter) 
#define custom 4
#define unindexed(a) (a->ilk>custom) 
#define quoted 5
#define else_like 26
#define public_like 40
#define operator_like 41
#define new_like 42
#define catch_like 43
#define for_like 45
#define do_like 46
#define if_like 47
#define raw_rpar 48
#define raw_unorbin 49
#define const_like 50
#define raw_int 51
#define int_like 52
#define case_like 53
#define sizeof_like 54
#define struct_like 55
#define typedef_like 56
#define define_like 57 \

#define file_flag (3*cite_flag) 
#define def_flag (2*cite_flag) 
#define cite_flag 10240
#define xref equiv_or_xref \

#define append_xref(c) if(xref_ptr==xmem_end) overflow("cross-reference") ; \
else(++xref_ptr) ->num= c;
#define no_xref (flags['x']==0) 
#define make_xrefs flags['x']
#define is_tiny(p) ((p+1) ->byte_start==(p) ->byte_start+1)  \

#define ignore 00
#define verbatim 02
#define begin_short_comment 03
#define begin_comment '\t'
#define underline '\n'
#define noop 0177
#define xref_roman 0203
#define xref_wildcard 0204
#define xref_typewriter 0205
#define TeX_string 0206
#define ord 0207
#define join 0210
#define thin_space 0211
#define math_break 0212
#define line_break 0213
#define big_line_break 0214
#define no_line_break 0215
#define pseudo_semi 0216
#define macro_arg_open 0220
#define macro_arg_close 0221
#define trace 0222
#define translit_code 0223
#define output_defs_code 0224
#define format_code 0225
#define definition 0226
#define begin_C 0227
#define section_name 0230
#define new_section 0231
#define pseudo_lbrace 022
#define pseudo_rbrace 023 \

#define constant 0200
#define string 0201
#define identifier 0202 \

#define isxalpha(c) ((c) =='_'||(c) =='$')  \

#define ishigh(c) ((eight_bits) (c) >0177)  \
 \

#define left_preproc ord
#define right_preproc 0217
#define preproc_space '\b'
#define numb_numb '\f' \

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

#define c_line_write(c) fflush(active_file) ,fwrite(out_buf+1,sizeof(char) ,c,active_file) 
#define tex_putc(c) putc(c,active_file) 
#define tex_new_line putc('\n',active_file) 
#define tex_printf(c) fprintf(active_file,c)  \

#define app_tok(c) {if(tok_ptr+2>tok_mem_end) overflow("token") ;*(tok_ptr++) = c;} \

#define exp 1
#define unop 2
#define binop 3
#define unorbinop 4 \

#define cast 5
#define question 6
#define lbrace 7
#define rbrace 8
#define decl_head 9
#define comma 10
#define lpar 11
#define rpar 12
#define prelangle 13
#define prerangle 14
#define langle 15
#define colcol 18
#define base 19
#define decl 20
#define struct_head 21
#define stmt 23
#define function 24
#define fn_decl 25
#define semi 27
#define colon 28
#define tag 29 \

#define if_head 30
#define else_head 31
#define if_clause 32
#define lproc 35
#define rproc 36
#define insert 37
#define section_scrap 38
#define dead 39
#define begin_arg 58
#define end_arg 59
#define label 60
#define do_head 61
#define pp_space 62 \

#define math_rel 0206
#define big_cancel 0210
#define cancel 0211
#define indent 0212
#define outdent 0213
#define opt 0214
#define backup 0215
#define break_space 0216
#define force 0217
#define big_force 0220
#define preproc_line 0221 \

#define quoted_char 0222 \

#define end_translation 0223
#define inserted 0224 \

#define trans trans_plus.Trans \

#define id_flag 10240
#define res_flag 2*id_flag
#define section_flag 3*id_flag
#define tok_flag 4*id_flag
#define inner_tok_flag 5*id_flag \

#define no_math 2
#define yes_math 1
#define maybe_math 0
#define big_app2(a) big_app1(a) ;big_app1(a+1) 
#define big_app3(a) big_app2(a) ;big_app1(a+2) 
#define big_app4(a) big_app3(a) ;big_app1(a+3) 
#define app(a) *(tok_ptr++) = a
#define app1(a) *(tok_ptr++) = tok_flag+(int) ((a) ->trans-tok_start)  \

#define cat1 (pp+1) ->cat
#define cat2 (pp+2) ->cat
#define cat3 (pp+3) ->cat
#define lhs_not_simple (pp->cat!=semi&&pp->cat!=raw_int&&pp->cat!=raw_unorbin \
&&pp->cat!=raw_rpar&&pp->cat!=const_like)  \

#define no_ident_found 0 \

#define force_lines flags['f']
#define freeze_text *(++text_ptr) = tok_ptr \

#define safe_tok_incr 20
#define safe_text_incr 10
#define safe_scrap_incr 10 \

#define app_scrap(c,b) { \
(++scrap_ptr) ->cat= (c) ;scrap_ptr->trans= text_ptr; \
scrap_ptr->mathness= 5*(b) ; \
freeze_text; \
} \

#define alternative flags['a']
#define func_index flags['i'] \
 \

#define inner 0
#define outer 1 \

#define cur_end cur_state.end_field
#define cur_tok cur_state.tok_field
#define cur_mode cur_state.mode_field
#define init_stack stack_ptr= stack;cur_mode= outer \

#define res_word 0201
#define section_code 0200 \

#define save_position save_line= out_line;save_place= out_ptr
#define emit_space_if_needed if(save_line!=out_line||save_place!=out_ptr)  \
out_str("\\Y") ; \
space_checked= 1 \
 \

#define depth cat
#define head trans_plus.Head
#define sort_pointer scrap_pointer
#define sort_ptr scrap_ptr
#define max_sorts max_scraps \

#define infinity 255 \


#line 67 "cweave.w"

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

typedef short boolean;
typedef char unsigned eight_bits;
extern boolean program;
extern int phase;

/*:5*//*7:*/
#line 60 "common.h"

char section_text[longest_name+1];
char*section_text_end= section_text+longest_name;
char*id_first;
char*id_loc;

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

extern char buffer[];
extern char*buffer_end;
extern char*loc;
extern char*limit;

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

typedef struct name_info{
char*byte_start;
struct name_info*link;
union{
struct name_info*Rlink;

struct{
char Ilk;
boolean Func_flag;
}dummy1;
}dummy;
char*equiv_or_xref;
}name_info;
typedef name_info*name_pointer;
typedef name_pointer*hash_pointer;
extern char byte_mem[];
extern char*byte_mem_end;
extern name_info name_dir[];
extern name_pointer name_dir_end;
extern name_pointer name_ptr;
extern char*byte_ptr;
extern name_pointer hash[];
extern hash_pointer hash_end;
extern hash_pointer h;
extern name_pointer id_lookup();
extern name_pointer section_lookup();
extern void print_section_name(),sprint_section_name();

/*:9*//*10:*/
#line 128 "common.h"

extern history;
extern err_print();
extern wrap_up();
extern void fatal();
extern void overflow();

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

extern include_depth;
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 file_name[][max_file_name_length];

extern char change_file_name[];
extern line[];
extern change_line;
extern boolean input_has_ended;
extern boolean changing;
extern boolean web_file_open;
extern reset_input();
extern get_line();
extern check_complete();

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

typedef unsigned short sixteen_bits;
extern sixteen_bits section_count;
extern boolean changed_section[];
extern boolean change_pending;
extern boolean print_where;

/*:12*//*13:*/
#line 176 "common.h"

extern int argc;
extern char**argv;
extern boolean flags[];

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

extern FILE*C_file;
extern FILE*tex_file;
extern FILE*idx_file;
extern FILE*scn_file;
extern FILE*active_file;

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

extern void common_init();



#line 140 "cweave.w"

/*:15*/
#line 68 "cweave.w"

/*18:*/
#line 222 "cweave.w"

typedef struct xref_info{
sixteen_bits num;
struct xref_info*xlink;
}xref_info;
typedef xref_info*xref_pointer;

/*:18*//*24:*/
#line 332 "cweave.w"

typedef sixteen_bits token;
typedef token*token_pointer;
typedef token_pointer*text_pointer;

/*:24*//*103:*/
#line 2012 "cweave.w"

typedef struct{
eight_bits cat;
eight_bits mathness;
union{
text_pointer Trans;
/*231:*/
#line 4257 "cweave.w"

name_pointer Head;

/*:231*/
#line 2018 "cweave.w"

}trans_plus;
}scrap;
typedef scrap*scrap_pointer;

/*:103*//*185:*/
#line 3412 "cweave.w"
typedef int mode;
typedef struct{
token_pointer end_field;
token_pointer tok_field;
boolean mode_field;
}output_state;
typedef output_state*stack_pointer;

/*:185*/
#line 69 "cweave.w"

/*17:*/
#line 197 "cweave.w"

boolean change_exists;

/*:17*//*19:*/
#line 229 "cweave.w"

xref_info xmem[max_refs];
xref_pointer xmem_end= xmem+max_refs-1;
xref_pointer xref_ptr;
sixteen_bits xref_switch,section_xref_switch;

/*:19*//*25:*/
#line 342 "cweave.w"

token tok_mem[max_toks];
token_pointer tok_mem_end= tok_mem+max_toks-1;
token_pointer tok_start[max_texts];
token_pointer tok_ptr;
text_pointer text_ptr;
text_pointer tok_start_end= tok_start+max_texts-1;
token_pointer max_tok_ptr;
text_pointer max_text_ptr;

/*:25*//*31:*/
#line 521 "cweave.w"

eight_bits ccode[256];

/*:31*//*37:*/
#line 640 "cweave.w"

name_pointer cur_section;
char cur_section_char;

/*:37*//*41:*/
#line 214 "cweave.ch"

boolean preprocessing= 0;
int define_pos= 0;

#line 695 "cweave.w"

/*:41*//*43:*/
#line 706 "cweave.w"

boolean sharp_include_line= 0;

/*:43*//*58:*/
#line 980 "cweave.w"

eight_bits next_control;

/*:58*//*68:*/
#line 1136 "cweave.w"

name_pointer lhs,rhs;

/*:68*//*73:*/
#line 1219 "cweave.w"

xref_pointer cur_xref;
boolean an_output;

/*:73*//*77:*/
#line 1261 "cweave.w"

char out_buf[line_length+1];
char*out_ptr;
char*out_buf_end= out_buf+line_length;
#line 268 "cweave.ch"
int out_line;

boolean in_math= 0;
boolean escape= 0;
int math_brace_count= 0;
#line 1266 "cweave.w"

/*:77*//*97:*/
#line 1670 "cweave.w"

char cat_name[256][12];
eight_bits cat_index;

/*:97*//*104:*/
#line 2025 "cweave.w"

scrap scrap_info[max_scraps];
scrap_pointer scrap_info_end= scrap_info+max_scraps-1;
scrap_pointer pp;
scrap_pointer scrap_base;
scrap_pointer scrap_ptr;
scrap_pointer lo_ptr;
scrap_pointer hi_ptr;
scrap_pointer max_scr_ptr;

/*:104*//*108:*/
#line 2184 "cweave.w"

int cur_mathness,init_mathness;

/*:108*//*167:*/
#line 2962 "cweave.w"

int tracing;

/*:167*//*186:*/
#line 3425 "cweave.w"

output_state cur_state;
output_state stack[stack_size];
stack_pointer stack_ptr;
stack_pointer stack_end= stack+stack_size-1;
stack_pointer max_stack_ptr;

/*:186*//*190:*/
#line 3475 "cweave.w"

name_pointer cur_name;

/*:190*//*206:*/
#line 3831 "cweave.w"

int save_line;
char*save_place;
int sec_depth;
boolean space_checked;
boolean format_visible;
boolean doing_format= 0;
boolean group_found= 0;

/*:206*//*215:*/
#line 4014 "cweave.w"

name_pointer this_section;

/*:215*//*226:*/
#line 4198 "cweave.w"

sixteen_bits k_section;

/*:226*//*228:*/
#line 4224 "cweave.w"

name_pointer bucket[256];
name_pointer next_name;
name_pointer blink[max_names];

/*:228*//*232:*/
#line 4267 "cweave.w"

eight_bits cur_depth;
char*cur_byte;
sixteen_bits cur_val;
sort_pointer max_sort_ptr;

/*:232*//*234:*/
#line 4279 "cweave.w"

eight_bits collate[102+128];


/*:234*//*243:*/
#line 4432 "cweave.w"

xref_pointer next_xref,this_xref;


/*:243*/
#line 70 "cweave.w"

/*2:*/
#line 78 "cweave.w"

extern int strlen();
extern int strcmp();
extern char*strcpy();
extern int strncmp();
extern char*strncpy();

/*:2*//*34:*/
#line 562 "cweave.w"

void skip_limbo();

/*:34*//*39:*/
#line 655 "cweave.w"

eight_bits get_next();

/*:39*//*55:*/
#line 933 "cweave.w"

void skip_restricted();

/*:55*//*59:*/
#line 986 "cweave.w"

void phase_one();

/*:59*//*62:*/
#line 1038 "cweave.w"

void C_xref();

/*:62*//*64:*/
#line 1066 "cweave.w"

void outer_xref();

/*:64*//*74:*/
#line 1227 "cweave.w"

void section_check();

/*:74*//*83:*/
#line 1363 "cweave.w"

void break_out();

/*:83*//*91:*/
#line 1506 "cweave.w"

int copy_comment();

/*:91*//*114:*/
#line 2388 "cweave.w"

void underline_xref();

/*:114*//*180:*/
#line 3289 "cweave.w"

void app_cur_id();

/*:180*//*193:*/
#line 3544 "cweave.w"

void make_output();

/*:193*//*204:*/
#line 3804 "cweave.w"

void phase_two();

/*:204*//*211:*/
#line 3927 "cweave.w"

void finish_C();

/*:211*//*220:*/
#line 4098 "cweave.w"

void footnote();

/*:220*//*224:*/
#line 4147 "cweave.w"

void phase_three();

/*:224*//*236:*/
#line 4327 "cweave.w"

void unbucket();

/*:236*//*245:*/
#line 4447 "cweave.w"

void section_print();

/*:245*/
#line 71 "cweave.w"


/*:1*//*3:*/
#line 93 "cweave.w"

int main(ac,av)
int ac;
char**av;
{
argc= ac;argv= av;
program= cweave;
make_xrefs= force_lines= 1;
common_init();
/*20:*/
#line 243 "cweave.w"

xref_ptr= xmem;name_dir->xref= (char*)xmem;xref_switch= 0;section_xref_switch= 0;
xmem->num= 0;

/*:20*//*26:*/
#line 352 "cweave.w"

tok_ptr= tok_mem+1;text_ptr= tok_start+1;tok_start[0]= tok_mem+1;
tok_start[1]= tok_mem+1;
max_tok_ptr= tok_mem+1;max_text_ptr= tok_start+1;

/*:26*//*32:*/
#line 524 "cweave.w"

{int c;for(c= 0;c<256;c++)ccode[c]= 0;}
ccode[' ']= ccode['\t']= ccode['\n']= ccode['\v']= ccode['\r']= ccode['\f']
= ccode['*']= new_section;
ccode['@']= '@';
ccode['=']= verbatim;
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['t']= ccode['T']= TeX_string;
ccode['l']= ccode['L']= translit_code;
ccode['q']= ccode['Q']= noop;
ccode['h']= ccode['H']= output_defs_code;
ccode['&']= join;ccode['<']= ccode['(']= section_name;
ccode['!']= underline;ccode['^']= xref_roman;
ccode[':']= xref_wildcard;ccode['.']= xref_typewriter;ccode[',']= thin_space;
ccode['|']= math_break;ccode['/']= line_break;ccode['#']= big_line_break;
#line 117 "cweave.ch"
ccode['+']= no_line_break;ccode[';']= pseudo_semi;
ccode['{']= pseudo_lbrace;ccode['}']= pseudo_rbrace;
ccode['[']= macro_arg_open;ccode[']']= macro_arg_close;
#line 543 "cweave.w"
ccode['\'']= ord;
/*33:*/
#line 550 "cweave.w"

ccode['0']= ccode['1']= ccode['2']= trace;

/*:33*/
#line 544 "cweave.w"


/*:32*//*52:*/
#line 888 "cweave.w"
section_text[0]= ' ';

/*:52*//*80:*/
#line 1330 "cweave.w"

#line 281 "cweave.ch"
out_ptr= out_buf+1;out_line= 1;active_file= tex_file;
if(alternative){
*out_ptr= 'a';
tex_printf("\\input cwebmac");
}else{
*out_ptr= 'c';
tex_printf("\\input cwebma");
}
#line 1333 "cweave.w"

/*:80*//*82:*/
#line 1356 "cweave.w"

out_buf[0]= '\\';

/*:82*//*98:*/
#line 1674 "cweave.w"

for(cat_index= 0;cat_index<255;cat_index++)
strcpy(cat_name[cat_index],"UNKNOWN");
strcpy(cat_name[exp],"exp");
strcpy(cat_name[unop],"unop");
strcpy(cat_name[binop],"binop");
strcpy(cat_name[unorbinop],"unorbinop");
strcpy(cat_name[cast],"cast");
strcpy(cat_name[question],"?");
strcpy(cat_name[lbrace],"{");
strcpy(cat_name[rbrace],"}");
strcpy(cat_name[decl_head],"decl_head");
strcpy(cat_name[comma],",");
strcpy(cat_name[lpar],"(");
strcpy(cat_name[rpar],")");
strcpy(cat_name[prelangle],"<");
strcpy(cat_name[prerangle],">");
strcpy(cat_name[langle],"\\<");
strcpy(cat_name[colcol],"::");
strcpy(cat_name[base],"\\:");
strcpy(cat_name[decl],"decl");
strcpy(cat_name[struct_head],"struct_head");
strcpy(cat_name[stmt],"stmt");
strcpy(cat_name[function],"function");
strcpy(cat_name[fn_decl],"fn_decl");
strcpy(cat_name[else_like],"else_like");
strcpy(cat_name[semi],";");
strcpy(cat_name[colon],":");
strcpy(cat_name[tag],"tag");
strcpy(cat_name[if_head],"if_head");
strcpy(cat_name[else_head],"else_head");
strcpy(cat_name[if_clause],"if()");
strcpy(cat_name[lproc],"#{");
strcpy(cat_name[rproc],"#}");
strcpy(cat_name[insert],"insert");
strcpy(cat_name[section_scrap],"section");
strcpy(cat_name[dead],"@d");
strcpy(cat_name[public_like],"public");
strcpy(cat_name[operator_like],"operator");
strcpy(cat_name[new_like],"new");
strcpy(cat_name[catch_like],"catch");
strcpy(cat_name[for_like],"for");
strcpy(cat_name[do_like],"do");
strcpy(cat_name[if_like],"if");
strcpy(cat_name[raw_rpar],")?");
strcpy(cat_name[raw_unorbin],"unorbinop?");
strcpy(cat_name[const_like],"const");
strcpy(cat_name[raw_int],"raw");
strcpy(cat_name[int_like],"int");
strcpy(cat_name[case_like],"case");
strcpy(cat_name[sizeof_like],"sizeof");
strcpy(cat_name[struct_like],"struct");
strcpy(cat_name[typedef_like],"typedef");
strcpy(cat_name[define_like],"define");
strcpy(cat_name[begin_arg],"@[");
#line 362 "cweave.ch"
strcpy(cat_name[end_arg],"@]");
strcpy(cat_name[label],"label");
strcpy(cat_name[do_head],"do_head");
strcpy(cat_name[pp_space],"#_");
#line 1730 "cweave.w"
strcpy(cat_name[0],"zero");

/*:98*//*105:*/
#line 2035 "cweave.w"

scrap_base= scrap_info+1;
max_scr_ptr= scrap_ptr= scrap_info;

/*:105*//*187:*/
#line 3432 "cweave.w"

max_stack_ptr= stack;

/*:187*//*233:*/
#line 4273 "cweave.w"

max_sort_ptr= scrap_info;

/*:233*//*235:*/
#line 4292 "cweave.w"

collate[0]= 0;
strcpy(collate+1," \1\2\3\4\5\6\7\10\11\12\13\14\15\16\17");

strcpy(collate+17,"\20\21\22\23\24\25\26\27\30\31\32\33\34\35\36\37");

strcpy(collate+33,"!\42#$%&'()*+,-./:;<=>?@[\\]^`{|}~_");

strcpy(collate+65,"abcdefghijklmnopqrstuvwxyz0123456789");

strcpy(collate+101,"\200\201\202\203\204\205\206\207\210\211\212\213\214\215\216\217");

strcpy(collate+117,"\220\221\222\223\224\225\226\227\230\231\232\233\234\235\236\237");

strcpy(collate+133,"\240\241\242\243\244\245\246\247\250\251\252\253\254\255\256\257");

strcpy(collate+149,"\260\261\262\263\264\265\266\267\270\271\272\273\274\275\276\277");

strcpy(collate+165,"\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317");

strcpy(collate+181,"\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337");

strcpy(collate+197,"\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357");

strcpy(collate+213,"\360\361\362\363\364\365\366\367\370\371\372\373\374\375\376\377");


/*:235*/
#line 102 "cweave.w"
;
if(show_banner)printf(banner);
/*28:*/
#line 392 "cweave.w"

id_lookup("asm",NULL,sizeof_like);
id_lookup("auto",NULL,int_like);
id_lookup("break",NULL,case_like);
id_lookup("case",NULL,case_like);
id_lookup("catch",NULL,catch_like);
id_lookup("char",NULL,raw_int);
id_lookup("class",NULL,struct_like);
id_lookup("clock_t",NULL,raw_int);
id_lookup("const",NULL,const_like);
id_lookup("continue",NULL,case_like);
id_lookup("default",NULL,case_like);
id_lookup("define",NULL,define_like);
id_lookup("defined",NULL,sizeof_like);
id_lookup("delete",NULL,sizeof_like);
id_lookup("div_t",NULL,raw_int);
id_lookup("do",NULL,do_like);
id_lookup("double",NULL,raw_int);
id_lookup("elif",NULL,if_like);
id_lookup("else",NULL,else_like);
id_lookup("endif",NULL,if_like);
id_lookup("enum",NULL,struct_like);
id_lookup("error",NULL,if_like);
id_lookup("extern",NULL,int_like);
id_lookup("FILE",NULL,raw_int);
id_lookup("float",NULL,raw_int);
id_lookup("for",NULL,for_like);
id_lookup("fpos_t",NULL,raw_int);
id_lookup("friend",NULL,int_like);
id_lookup("goto",NULL,case_like);
id_lookup("if",NULL,if_like);
id_lookup("ifdef",NULL,if_like);
id_lookup("ifndef",NULL,if_like);
id_lookup("include",NULL,if_like);
id_lookup("inline",NULL,int_like);
id_lookup("int",NULL,raw_int);
id_lookup("jmp_buf",NULL,raw_int);
id_lookup("ldiv_t",NULL,raw_int);
id_lookup("line",NULL,if_like);
id_lookup("long",NULL,raw_int);
id_lookup("new",NULL,new_like);
id_lookup("NULL",NULL,quoted);
id_lookup("offsetof",NULL,sizeof_like);
id_lookup("operator",NULL,operator_like);
id_lookup("pragma",NULL,if_like);
id_lookup("private",NULL,public_like);
id_lookup("protected",NULL,public_like);
id_lookup("ptrdiff_t",NULL,raw_int);
id_lookup("public",NULL,public_like);
id_lookup("register",NULL,int_like);
id_lookup("return",NULL,case_like);
id_lookup("short",NULL,raw_int);
id_lookup("sig_atomic_t",NULL,raw_int);
id_lookup("signed",NULL,raw_int);
id_lookup("size_t",NULL,raw_int);
id_lookup("sizeof",NULL,sizeof_like);
id_lookup("static",NULL,int_like);
id_lookup("struct",NULL,struct_like);
id_lookup("switch",NULL,for_like);
id_lookup("template",NULL,int_like);
id_lookup("TeX",NULL,custom);
id_lookup("this",NULL,quoted);
id_lookup("throw",NULL,case_like);
id_lookup("time_t",NULL,raw_int);
id_lookup("try",NULL,else_like);
id_lookup("typedef",NULL,typedef_like);
id_lookup("undef",NULL,if_like);
id_lookup("union",NULL,struct_like);
id_lookup("unsigned",NULL,raw_int);
id_lookup("va_dcl",NULL,decl);
id_lookup("va_list",NULL,raw_int);
id_lookup("virtual",NULL,int_like);
id_lookup("void",NULL,raw_int);
id_lookup("volatile",NULL,const_like);
id_lookup("wchar_t",NULL,raw_int);
id_lookup("while",NULL,for_like);

/*:28*/
#line 104 "cweave.w"
;
phase_one();
phase_two();
phase_three();
return wrap_up();
}

/*:3*//*21:*/
#line 262 "cweave.w"

void
new_xref(p)
name_pointer p;
{
xref_pointer q;
sixteen_bits m,n;
if(no_xref)return;
if((unindexed(p)||is_tiny(p))&&xref_switch==0)return;
m= section_count+xref_switch;xref_switch= 0;q= (xref_pointer)p->xref;
if(q!=xmem){
n= q->num;
if(n==m||n==m+def_flag)return;
else if(m==n+def_flag){
q->num= m;return;
}
}
append_xref(m);xref_ptr->xlink= q;p->xref= (char*)xref_ptr;
}

/*:21*//*22:*/
#line 293 "cweave.w"

void
new_section_xref(p)
name_pointer p;
{
xref_pointer q,r;
q= (xref_pointer)p->xref;r= xmem;
if(q>xmem)
while(q->num>section_xref_switch){r= q;q= q->xlink;}
if(r->num==section_count+section_xref_switch)
return;
append_xref(section_count+section_xref_switch);
xref_ptr->xlink= q;section_xref_switch= 0;
if(r==xmem)p->xref= (char*)xref_ptr;
else r->xlink= xref_ptr;
}

/*:22*//*23:*/
#line 313 "cweave.w"

void
set_file_flag(p)
name_pointer p;
{
xref_pointer q;
q= (xref_pointer)p->xref;
if(q->num==file_flag)return;
append_xref(file_flag);
xref_ptr->xlink= q;
p->xref= (char*)xref_ptr;
}

/*:23*//*27:*/
#line 358 "cweave.w"

int names_match(p,first,l,t)
name_pointer p;
char*first;
int l;
eight_bits t;
{
if(length(p)!=l)return 0;
if(p->ilk!=t&&!(t==normal&&abnormal(p)))return 0;
return!strncmp(first,p->byte_start,l);
}

void
init_p(p,t)
name_pointer p;
eight_bits t;
{
p->ilk= t;p->xref= (char*)xmem;
}

void
init_node(p)
name_pointer p;
{
p->xref= (char*)xmem;
}

/*:27*//*35:*/
#line 565 "cweave.w"

void
skip_limbo(){
while(1){
if(loc>limit&&get_line()==0)return;
*(limit+1)= '@';
while(*loc!='@')loc++;
if(loc++<=limit){int c= ccode[(eight_bits)*loc++];
if(c==new_section)return;
if(c==noop)skip_restricted();
else if(c==format_code)/*71:*/
#line 1180 "cweave.w"

{
if(get_next()!=identifier)
err_print("! Missing left identifier of @s");

else{
lhs= id_lookup(id_first,id_loc,normal);
if(get_next()!=identifier)
err_print("! Missing right identifier of @s");

else{
rhs= id_lookup(id_first,id_loc,normal);
lhs->ilk= rhs->ilk;
}
}
}

/*:71*/
#line 575 "cweave.w"
;
}
}
}

/*:35*//*36:*/
#line 587 "cweave.w"

unsigned
skip_TeX()
{
while(1){
if(loc>limit&&get_line()==0)return(new_section);
*(limit+1)= '@';
while(*loc!='@'&&*loc!='|')loc++;
if(*loc++=='|')return('|');
if(loc<=limit)return(ccode[(eight_bits)*(loc++)]);
}
}

/*:36*//*40:*/
#line 658 "cweave.w"

#line 155 "cweave.ch"
eight_bits
get_next()
{eight_bits c;
int blank_count= 0;

if(loc<limit&&preprocessing&&(define_pos==2||define_pos==4)&&
xisspace(*loc)){
define_pos= 5;
return(preproc_space);
}

while(1){
/*45:*/
#line 717 "cweave.w"

while(loc==limit-1&&preprocessing&&*loc=='\\')
if(get_line()==0)return(new_section);
#line 228 "cweave.ch"
if(loc>=limit&&preprocessing){
preprocessing= sharp_include_line= define_pos= 0;
return(right_preproc);
}
#line 724 "cweave.w"

/*:45*/
#line 167 "cweave.ch"
;
if(loc>limit&&get_line()==0)return(new_section);

if(loc==buffer){
blank_count= 0;
while((*loc==' '||*loc=='\t')&&loc<limit){
blank_count++;loc++;
}
}

c= *(loc++);
if(xisdigit(c)||c=='\\'||c=='.')/*48:*/
#line 775 "cweave.w"
{
id_first= id_loc= section_text+1;
if(*(loc-1)=='\\'){*id_loc++= '~';
while(xisdigit(*loc))*id_loc++= *loc++;}
else if(*(loc-1)=='0'){
if(*loc=='x'||*loc=='X'){*id_loc++= '^';loc++;
while(xisxdigit(*loc))*id_loc++= *loc++;}
else if(xisdigit(*loc)){*id_loc++= '~';
while(xisdigit(*loc))*id_loc++= *loc++;}
else goto dec;
}
else{
if(*(loc-1)=='.'&&!xisdigit(*loc))goto mistake;
dec:*id_loc++= *(loc-1);
while(xisdigit(*loc)||*loc=='.')*id_loc++= *loc++;
if(*loc=='e'||*loc=='E'){
*id_loc++= '_';loc++;
if(*loc=='+'||*loc=='-')*id_loc++= *loc++;
while(xisdigit(*loc))*id_loc++= *loc++;
}
}
while(*loc=='u'||*loc=='U'||*loc=='l'||*loc=='L'
||*loc=='f'||*loc=='F'){
*id_loc++= '$';*id_loc++= toupper(*loc);loc++;
}
return(constant);
}

/*:48*/
#line 178 "cweave.ch"

else if(c=='\''||c=='"'||(c=='L'&&(*loc=='\''||*loc=='"'))
||(c=='<'&&sharp_include_line==1))
/*49:*/
#line 808 "cweave.w"
{
char delim= c;
id_first= section_text+1;
id_loc= section_text;
if(delim=='\''&&*(loc-2)=='@'){*++id_loc= '@';*++id_loc= '@';}
*++id_loc= delim;
if(delim=='L'){
delim= *loc++;*++id_loc= delim;
}
if(delim=='<')delim= '>';
while(1){
if(loc>=limit){
if(*(limit-1)!='\\'){
err_print("! String didn't end");loc= limit;break;

}
if(get_line()==0){
err_print("! Input ended in middle of string");loc= buffer;break;

}
}
if((c= *loc++)==delim){
if(++id_loc<=section_text_end)*id_loc= c;
break;
}
if(c=='\\')if(loc>=limit)continue;
else 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){
printf("\n! String too long: ");

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

/*:49*/
#line 181 "cweave.ch"

else if(xisalpha(c)||isxalpha(c)||ishigh(c))
/*47:*/
#line 758 "cweave.w"
{
#line 250 "cweave.ch"
id_first= --loc;

if(preprocessing){
if(define_pos==1)
define_pos= 2;
else if(strncmp(loc,"define",6)==0&&xisspace(*(loc+6)))
define_pos= 1;
}

while(isalpha(*++loc)||isdigit(*loc)||isxalpha(*loc)||ishigh(*loc));
id_loc= loc;return(identifier);
#line 762 "cweave.w"
}

/*:47*/
#line 183 "cweave.ch"

else if(c=='@')/*50:*/
#line 852 "cweave.w"
{
c= *loc++;
switch(ccode[(eight_bits)c]){
case translit_code:err_print("! Use @l in limbo only");continue;

case underline:xref_switch= def_flag;continue;
case trace:tracing= c-'0';continue;
case xref_roman:case xref_wildcard:case xref_typewriter:
case noop:case TeX_string:c= ccode[c];skip_restricted();return(c);
case section_name:
/*51:*/
#line 872 "cweave.w"
{
char*k;
cur_section_char= *(loc-1);
/*53:*/
#line 890 "cweave.w"

k= section_text;
while(1){
if(loc>limit&&get_line()==0){
err_print("! Input ended in section name");

loc= buffer+1;break;
}
c= *loc;
/*54:*/
#line 914 "cweave.w"

if(c=='@'){
c= *(loc+1);
if(c=='>'){
loc+= 2;break;
}
if(ccode[(eight_bits)c]==new_section){
err_print("! Section name didn't end");break;

}
if(c!='@'){
err_print("! Control codes are forbidden in section name");break;

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

/*:54*/
#line 899 "cweave.w"
;
loc++;if(k<section_text_end)k++;
if(xisspace(c)){
c= ' ';if(*(k-1)==' ')k--;
}
*k= c;
}
if(k>=section_text_end){
printf("\n! Section name too long: ");

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

/*:53*/
#line 875 "cweave.w"
;
if(k-section_text>3&&strncmp(k-2,"...",3)==0)
cur_section= section_lookup(section_text+1,k-3,1);
else cur_section= section_lookup(section_text+1,k,0);
xref_switch= 0;return(section_name);
}

/*:51*/
#line 862 "cweave.w"
;
case verbatim:/*57:*/
#line 961 "cweave.w"
{
id_first= loc++;*(limit+1)= '@';*(limit+2)= '>';
while(*loc!='@'||*(loc+1)!='>')loc++;
if(loc>=limit)err_print("! Verbatim string didn't end");

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

/*:57*/
#line 863 "cweave.w"
;
case ord:/*49:*/
#line 808 "cweave.w"
{
char delim= c;
id_first= section_text+1;
id_loc= section_text;
if(delim=='\''&&*(loc-2)=='@'){*++id_loc= '@';*++id_loc= '@';}
*++id_loc= delim;
if(delim=='L'){
delim= *loc++;*++id_loc= delim;
}
if(delim=='<')delim= '>';
while(1){
if(loc>=limit){
if(*(limit-1)!='\\'){
err_print("! String didn't end");loc= limit;break;

}
if(get_line()==0){
err_print("! Input ended in middle of string");loc= buffer;break;

}
}
if((c= *loc++)==delim){
if(++id_loc<=section_text_end)*id_loc= c;
break;
}
if(c=='\\')if(loc>=limit)continue;
else 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){
printf("\n! String too long: ");

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

/*:49*/
#line 864 "cweave.w"
;
default:return(ccode[(eight_bits)c]);
}
}

/*:50*/
#line 184 "cweave.ch"

else if(xisspace(c))continue;
if(c=='#'&&loc==buffer+1+blank_count&&!preprocessing)
/*42:*/
#line 696 "cweave.w"
{
preprocessing= 1;
/*44:*/
#line 709 "cweave.w"

while(loc<=buffer_end-7&&xisspace(*loc))loc++;
if(loc<=buffer_end-6&&strncmp(loc,"include",7)==0)sharp_include_line= 1;

/*:44*/
#line 698 "cweave.w"
;
return(left_preproc);
}

/*:42*/
#line 187 "cweave.ch"
;
mistake:/*46:*/
#line 734 "cweave.w"

switch(c){
case'/':if(*loc=='*'){compress(begin_comment);}
else if(*loc=='/')compress(begin_short_comment);break;
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;
#line 239 "cweave.ch"
case'!':if(*loc=='=')compress(not_eq);break;
case'#':if(*loc=='#')compress(numb_numb);break;
#line 756 "cweave.w"
}

/*:46*/
#line 188 "cweave.ch"

if(preprocessing){
if(c=='('&&define_pos==2&&!xisspace(*(loc-2)))
define_pos= 3;
else if(c==')'&&define_pos==3)
define_pos= 4;
}
return(c);
}
}
#line 679 "cweave.w"

/*:40*//*56:*/
#line 936 "cweave.w"

void
skip_restricted()
{
id_first= loc;*(limit+1)= '@';
false_alarm:
while(*loc!='@')loc++;
id_loc= loc;
if(loc++>limit){
err_print("! Control text didn't end");loc= limit;

}
else{
if(*loc=='@'&&loc<=limit){loc++;goto false_alarm;}
if(*loc++!='>')
err_print("! Control codes are forbidden in control text");

}
}

/*:56*//*60:*/
#line 989 "cweave.w"

void
phase_one(){
phase= 1;reset_input();section_count= 0;
skip_limbo();change_exists= 0;
while(!input_has_ended)
/*61:*/
#line 1002 "cweave.w"

{
if(++section_count==max_sections)overflow("section number");
changed_section[section_count]= changing;

if(*(loc-1)=='*'&&show_progress){
printf("*%d",section_count);
update_terminal;
}
/*66:*/
#line 1093 "cweave.w"

while(1){
switch(next_control= skip_TeX()){
case translit_code:err_print("! Use @l in limbo only");continue;

case underline:xref_switch= def_flag;continue;
case trace:tracing= *(loc-1)-'0';continue;
case'|':C_xref(section_name);break;
case xref_roman:case xref_wildcard:case xref_typewriter:
case noop:case section_name:
loc-= 2;next_control= get_next();
if(next_control>=xref_roman&&next_control<=xref_typewriter){
/*67:*/
#line 1113 "cweave.w"

{
char*src= id_first,*dst= id_first;
while(src<id_loc){
if(*src=='@')src++;
*dst++= *src++;
}
id_loc= dst;
while(dst<src)*dst++= ' ';
}

/*:67*/
#line 1105 "cweave.w"

new_xref(id_lookup(id_first,id_loc,next_control-identifier));
}
break;
}
if(next_control>=format_code)break;
}

/*:66*/
#line 1011 "cweave.w"
;
/*69:*/
#line 1141 "cweave.w"

while(next_control<=definition){
if(next_control==definition){
xref_switch= def_flag;
next_control= get_next();
}else/*70:*/
#line 1155 "cweave.w"
{
next_control= get_next();
if(next_control==identifier){
lhs= id_lookup(id_first,id_loc,normal);lhs->ilk= normal;
if(xref_switch)new_xref(lhs);
next_control= get_next();
if(next_control==identifier){
rhs= id_lookup(id_first,id_loc,normal);
lhs->ilk= rhs->ilk;
if(unindexed(lhs)){
xref_pointer q,r= NULL;
for(q= (xref_pointer)lhs->xref;q>xmem;q= q->xlink)
if(q->num<def_flag)
if(r)r->xlink= q->xlink;
else lhs->xref= (char*)q->xlink;
else r= q;
}
next_control= get_next();
}
}
}

/*:70*/
#line 1146 "cweave.w"
;
outer_xref();
}

/*:69*/
#line 1012 "cweave.w"
;
/*72:*/
#line 1200 "cweave.w"

if(next_control<=section_name){
if(next_control==begin_C)section_xref_switch= 0;
else{
section_xref_switch= def_flag;
if(cur_section_char=='('&&cur_section!=name_dir)
set_file_flag(cur_section);
}
do{
if(next_control==section_name&&cur_section!=name_dir)
new_section_xref(cur_section);
next_control= get_next();outer_xref();
}while(next_control<=section_name);
}

/*:72*/
#line 1013 "cweave.w"
;
if(changed_section[section_count])change_exists= 1;
}

/*:61*/
#line 995 "cweave.w"
;
changed_section[section_count]= change_exists;

phase= 2;
/*76:*/
#line 1253 "cweave.w"
section_check(root)

/*:76*/
#line 999 "cweave.w"
;
}

/*:60*//*63:*/
#line 1041 "cweave.w"

void
C_xref(spec_ctrl)
eight_bits spec_ctrl;
{
name_pointer p;
while(next_control<format_code||next_control==spec_ctrl){
if(next_control>=identifier&&next_control<=xref_typewriter){
if(next_control>identifier)/*67:*/
#line 1113 "cweave.w"

{
char*src= id_first,*dst= id_first;
while(src<id_loc){
if(*src=='@')src++;
*dst++= *src++;
}
id_loc= dst;
while(dst<src)*dst++= ' ';
}

/*:67*/
#line 1049 "cweave.w"

p= id_lookup(id_first,id_loc,next_control-identifier);new_xref(p);
}
if(next_control==section_name){
section_xref_switch= cite_flag;
new_section_xref(cur_section);
}
next_control= get_next();
if(next_control=='|'||next_control==begin_comment||
next_control==begin_short_comment)return;
}
}

/*:63*//*65:*/
#line 1069 "cweave.w"

void
outer_xref()
{
int bal;
while(next_control<format_code)
if(next_control!=begin_comment&&next_control!=begin_short_comment)
C_xref(ignore);
else{
boolean is_long_comment= (next_control==begin_comment);
bal= copy_comment(is_long_comment,1);next_control= '|';
while(bal>0){
C_xref(section_name);
if(next_control=='|')bal= copy_comment(is_long_comment,bal);
else bal= 0;
}
}
}

/*:65*//*75:*/
#line 1230 "cweave.w"

void
section_check(p)
name_pointer p;
{
if(p){
section_check(p->llink);
cur_xref= (xref_pointer)p->xref;
if(cur_xref->num==file_flag){an_output= 1;cur_xref= cur_xref->xlink;}
else an_output= 0;
if(cur_xref->num<def_flag){
printf("\n! Never defined: <");print_section_name(p);putchar('>');mark_harmless;

}
while(cur_xref->num>=cite_flag)cur_xref= cur_xref->xlink;
if(cur_xref==xmem&&!an_output){
printf("\n! Never used: <");print_section_name(p);putchar('>');mark_harmless;

}
section_check(p->rlink);
}
}

/*:75*//*78:*/
#line 1283 "cweave.w"

void
flush_buffer(b,per_cent,carryover)
char*b;
boolean per_cent,carryover;
{
char*j;j= b;
if(!per_cent)
while(j>out_buf&&*j==' ')j--;
c_line_write(j-out_buf);
if(per_cent)tex_putc('%');
tex_new_line;out_line++;
if(carryover)
while(j>out_buf)
if(*j--=='%'&&(j==out_buf||*j!='\\')){
*b--= '%';break;
}
if(b<out_ptr)strncpy(out_buf+1,b+1,out_ptr-b);
out_ptr-= b-out_buf;
}

/*:78*//*79:*/
#line 1312 "cweave.w"

void
finish_line()
{
char*k;
if(out_ptr>out_buf)flush_buffer(out_ptr,0,0);
else{
for(k= buffer;k<=limit;k++)
if(!(xisspace(*k)))return;
flush_buffer(out_buf,0,0);
}
}

/*:79*//*81:*/
#line 298 "cweave.ch"

void
out(c)
char c;
{
if(out_ptr>=out_buf_end)
break_out();

if(!escape){
if(in_math){
if(c=='{')
math_brace_count++;
else if(c=='}'){
math_brace_count--;
if(math_brace_count<0){
math_brace_count= 0;
return;
}
}
}
if(c=='$'){
while(math_brace_count>0){
*(++out_ptr)= '}';
math_brace_count--;
}
in_math= 1-in_math;
}
}

if(c=='\\'&&!escape)
escape= 1;
else
escape= 0;

*(++out_ptr)= c;
return;
}
#line 1345 "cweave.w"
void
out_str(s)
char*s;
{
while(*s)out(*s++);
}

/*:81*//*84:*/
#line 1366 "cweave.w"

void
break_out()
{
char*k= out_ptr;
while(1){
if(k==out_buf)/*85:*/
#line 1387 "cweave.w"

{
printf("\n! Line had to be broken (output l. %d):\n",out_line);

term_write(out_buf+1,out_ptr-out_buf-1);
new_line;mark_harmless;
flush_buffer(out_ptr-1,1,1);return;
}

/*:85*/
#line 1372 "cweave.w"
;
if(*k==' '){
flush_buffer(k,0,1);return;
}
if(*(k--)=='\\'&&*k!='\\'){
flush_buffer(k,1,1);return;
}
}
}

/*:84*//*86:*/
#line 1401 "cweave.w"

void
out_section(n)
sixteen_bits n;
{
char s[6];
sprintf(s,"%d",n);out_str(s);
if(changed_section[n])out_str("\\*");

}

/*:86*//*87:*/
#line 1415 "cweave.w"

void
out_name(p)
name_pointer p;
{
char*k,*k_end= (p+1)->byte_start;
out('{');
for(k= p->byte_start;k<k_end;k++){
if(isxalpha(*k))out('\\');
out(*k);
}
out('}');
}

/*:87*//*88:*/
#line 1442 "cweave.w"

void
copy_limbo()
{
char c;
while(1){
if(loc>limit&&(finish_line(),get_line()==0))return;
*(limit+1)= '@';
while(*loc!='@')out(*(loc++));
if(loc++<=limit){
c= *loc++;
if(ccode[(eight_bits)c]==new_section)break;
switch(ccode[(eight_bits)c]){
case translit_code:out_str("\\ATL");break;

case'@':out('@');break;
case noop:skip_restricted();break;
case format_code:if(get_next()==identifier)get_next();
if(loc>=limit)get_line();
break;
default:err_print("! Double @ should be used in limbo");

out('@');
}
}
}
}

/*:88*//*90:*/
#line 1477 "cweave.w"

eight_bits
copy_TeX()
{
char c;
while(1){
if(loc>limit&&(finish_line(),get_line()==0))return(new_section);
*(limit+1)= '@';
while((c= *(loc++))!='|'&&c!='@'){
out(c);
if(out_ptr==out_buf+1&&(xisspace(c)))out_ptr--;
}
if(c=='|')return('|');
if(loc<=limit)return(ccode[(eight_bits)*(loc++)]);
}
}

/*:90*//*92:*/
#line 1509 "cweave.w"

int copy_comment(is_long_comment,bal)
boolean is_long_comment;
int bal;
{
char c;
while(1){
if(loc>limit){
if(is_long_comment){
if(get_line()==0){
err_print("! Input ended in mid-comment");

loc= buffer+1;goto done;
}
}
else{
if(bal>1)err_print("! Missing } in comment");

goto done;
}
}
c= *(loc++);
if(c=='|')return(bal);
if(is_long_comment)/*93:*/
#line 1550 "cweave.w"

if(c=='*'&&*loc=='/'){
loc++;
if(bal>1)err_print("! Missing } in comment");

goto done;
}

/*:93*/
#line 1532 "cweave.w"
;
if(phase==2){
if(ishigh(c))app_tok(quoted_char);
app_tok(c);
}
/*94:*/
#line 1558 "cweave.w"

if(c=='@'){
if(*(loc++)!='@'){
err_print("! Illegal use of @ in comment");

loc-= 2;if(phase==2)*(tok_ptr-1)= ' ';goto done;
}
}
else if(c=='\\'&&*loc!='@')
if(phase==2)app_tok(*(loc++))else loc++;

/*:94*/
#line 1537 "cweave.w"
;
if(c=='{')bal++;
else if(c=='}'){
if(bal>1)bal--;
else{err_print("! Extra } in comment");

if(phase==2)tok_ptr--;
}
}
}
done:/*95:*/
#line 1572 "cweave.w"

if(phase==2)while(bal-->0)app_tok('}');
return(0);

/*:95*/
#line 1547 "cweave.w"
;
}

/*:92*//*99:*/
#line 1734 "cweave.w"

void
print_cat(c)
eight_bits c;
{
printf(cat_name[c]);
}

/*:99*//*106:*/
#line 2062 "cweave.w"

void
print_text(p)
text_pointer p;
{
token_pointer j;
sixteen_bits r;
if(p>=text_ptr)printf("BAD");
else for(j= *p;j<*(p+1);j++){
r= *j%id_flag;
switch(*j/id_flag){
case 1:printf("\\\\{");print_id((name_dir+r));printf("}");
break;
case 2:printf("\\&{");print_id((name_dir+r));printf("}");
break;
case 3:printf("<");print_section_name((name_dir+r));printf(">");
break;
case 4:printf("[[%d]]",r);break;
case 5:printf("|[[%d]]|",r);break;
default:/*107:*/
#line 2087 "cweave.w"

switch(r){
case math_rel:printf("\\mathrel{");break;
case big_cancel:printf("[ccancel]");break;
case cancel:printf("[cancel]");break;
case indent:printf("[indent]");break;
case outdent:printf("[outdent]");break;
case backup:printf("[backup]");break;
case opt:printf("[opt]");break;
case break_space:printf("[break]");break;
case force:printf("[force]");break;
case big_force:printf("[fforce]");break;
case preproc_line:printf("[preproc]");break;
case quoted_char:j++;printf("[%o]",(unsigned)*j);break;
case end_translation:printf("[quit]");break;
case inserted:printf("[inserted]");break;
default:putxchar(r);
}

/*:107*/
#line 2081 "cweave.w"
;
}
}
fflush(stdout);
}

/*:106*//*109:*/
#line 2187 "cweave.w"

void
app_str(s)
char*s;
{
while(*s)app_tok(*(s++));
}

void
big_app(a)
token a;
{
if(a==' '||(a>=big_cancel&&a<=big_force)){
if(cur_mathness==maybe_math)init_mathness= no_math;
else if(cur_mathness==yes_math)app_str("{}$");
cur_mathness= no_math;
}
else{
if(cur_mathness==maybe_math)init_mathness= yes_math;
else if(cur_mathness==no_math)app_str("${}");
cur_mathness= yes_math;
}
app(a);
}

void
big_app1(a)
scrap_pointer a;
{
switch(a->mathness%4){
case(no_math):
if(cur_mathness==maybe_math)init_mathness= no_math;
else if(cur_mathness==yes_math)app_str("{}$");
cur_mathness= a->mathness/4;
break;
case(yes_math):
if(cur_mathness==maybe_math)init_mathness= yes_math;
else if(cur_mathness==no_math)app_str("${}");
cur_mathness= a->mathness/4;
break;
case(maybe_math):break;
}
app(tok_flag+(int)((a)->trans-tok_start));
}

/*:109*//*111:*/
#line 2312 "cweave.w"

token_pointer
find_first_ident(p)
text_pointer p;
{
token_pointer q;
token_pointer j;
sixteen_bits r;
if(p>=text_ptr)confusion("find_first_ident");
for(j= *p;j<*(p+1);j++){
r= *j%id_flag;
switch(*j/id_flag){
case 1:case 2:return j;
case 4:case 5:
if((q= find_first_ident(tok_start+r))!=no_ident_found)
return q;
default:;
if(*j==inserted)return no_ident_found;
}
}
return no_ident_found;
}

/*:111*//*112:*/
#line 2339 "cweave.w"

#line 421 "cweave.ch"
void
make_reserved(p,cat)
scrap_pointer p;
eight_bits cat;
{
sixteen_bits tok_value;
token_pointer tok_loc;
if((tok_loc= find_first_ident(p->trans))==no_ident_found)
return;
tok_value= *tok_loc;
for(;p<=scrap_ptr;p==lo_ptr?p= hi_ptr:p++){
if(p->cat==exp||p->cat==int_like||p->cat==const_like){
if(**(p->trans)==tok_value){
p->cat= cat;
**(p->trans)= tok_value%id_flag+res_flag;
}
}
}
(name_dir+(sixteen_bits)(tok_value%id_flag))->ilk= cat;
*tok_loc= tok_value%id_flag+res_flag;
}
#line 2360 "cweave.w"

/*:112*//*113:*/
#line 2370 "cweave.w"

void
make_underlined(p)

scrap_pointer p;
{
token_pointer tok_loc;
if((tok_loc= find_first_ident(p->trans))==no_ident_found)
return;
xref_switch= def_flag;
underline_xref(*tok_loc%id_flag+name_dir);
}

/*:113*//*115:*/
#line 2391 "cweave.w"

void
underline_xref(p)
name_pointer p;
{
xref_pointer q= (xref_pointer)p->xref;
xref_pointer r;
sixteen_bits m;
sixteen_bits n;
if(no_xref)return;
m= section_count+xref_switch;
while(q!=xmem){
n= q->num;
if(n==m)return;
else if(m==n+def_flag){
q->num= m;return;
}
else if(n>=def_flag&&n<m)break;
q= q->xlink;
}
/*116:*/
#line 2421 "cweave.w"

append_xref(0);
xref_ptr->xlink= (xref_pointer)p->xref;r= xref_ptr;
p->xref= (char*)xref_ptr;
while(r->xlink!=q){r->num= r->xlink->num;r= r->xlink;}
r->num= m;

/*:116*/
#line 2411 "cweave.w"
;
}

/*:115*//*162:*/
#line 2868 "cweave.w"

void
reduce(j,k,c,d,n)
scrap_pointer j;
eight_bits c;
short k,d,n;
{
scrap_pointer i,i1;
j->cat= c;j->trans= text_ptr;
j->mathness= 4*cur_mathness+init_mathness;
freeze_text;
if(k>1){
for(i= j+k,i1= j+1;i<=lo_ptr;i++,i1++){
i1->cat= i->cat;i1->trans= i->trans;
i1->mathness= i->mathness;
}
lo_ptr= lo_ptr-k+1;
}
/*163:*/
#line 2891 "cweave.w"

if(pp+d>=scrap_base)pp= pp+d;
else pp= scrap_base;

/*:163*/
#line 2886 "cweave.w"
;
/*168:*/
#line 2965 "cweave.w"

{scrap_pointer k;
#line 806 "cweave.ch"
if(tracing==2){
printf("\n%3d:",n);
#line 2969 "cweave.w"
for(k= scrap_base;k<=lo_ptr;k++){
if(k==pp)putxchar('*');else putxchar(' ');
if(k->mathness%4==yes_math)putchar('+');
else if(k->mathness%4==no_math)putchar('-');
print_cat(k->cat);
if(k->mathness/4==yes_math)putchar('+');
else if(k->mathness/4==no_math)putchar('-');
}
if(hi_ptr<=scrap_ptr)printf("...");
}
}

/*:168*/
#line 2887 "cweave.w"
;
pp--;
}

/*:162*//*164:*/
#line 2898 "cweave.w"

void
squash(j,k,c,d,n)
scrap_pointer j;
eight_bits c;
short k,d,n;
{
scrap_pointer i;
if(k==1){
j->cat= c;/*163:*/
#line 2891 "cweave.w"

if(pp+d>=scrap_base)pp= pp+d;
else pp= scrap_base;

/*:163*/
#line 2907 "cweave.w"
;
/*168:*/
#line 2965 "cweave.w"

{scrap_pointer k;
#line 806 "cweave.ch"
if(tracing==2){
printf("\n%3d:",n);
#line 2969 "cweave.w"
for(k= scrap_base;k<=lo_ptr;k++){
if(k==pp)putxchar('*');else putxchar(' ');
if(k->mathness%4==yes_math)putchar('+');
else if(k->mathness%4==no_math)putchar('-');
print_cat(k->cat);
if(k->mathness/4==yes_math)putchar('+');
else if(k->mathness/4==no_math)putchar('-');
}
if(hi_ptr<=scrap_ptr)printf("...");
}
}

/*:168*/
#line 2908 "cweave.w"
;
pp--;
return;
}
for(i= j;i<j+k;i++)big_app1(i);
reduce(j,k,c,d,n);
}

/*:164*//*169:*/
#line 2994 "cweave.w"

text_pointer
translate()
{
scrap_pointer i,
j;
pp= scrap_base;lo_ptr= pp-1;hi_ptr= pp;
/*172:*/
#line 3033 "cweave.w"

if(tracing==2){
printf("\nTracing after l. %d:\n",cur_line);mark_harmless;

if(loc>buffer+50){
printf("...");
term_write(loc-51,51);
}
else term_write(buffer,loc-buffer);
}

/*:172*/
#line 3001 "cweave.w"
;
/*165:*/
#line 2929 "cweave.w"

while(1){
/*166:*/
#line 2948 "cweave.w"

if(lo_ptr<pp+3){
while(hi_ptr<=scrap_ptr&&lo_ptr!=pp+3){
(++lo_ptr)->cat= hi_ptr->cat;lo_ptr->mathness= (hi_ptr)->mathness;
lo_ptr->trans= (hi_ptr++)->trans;
}
for(i= lo_ptr+1;i<=pp+3;i++)i->cat= 0;
}

/*:166*/
#line 2931 "cweave.w"
;
if(tok_ptr+safe_tok_incr>tok_mem_end){
if(tok_ptr>max_tok_ptr)max_tok_ptr= tok_ptr;
overflow("token");
}
if(text_ptr+safe_text_incr>tok_start_end){
if(text_ptr>max_text_ptr)max_text_ptr= text_ptr;
overflow("text");
}
if(pp>lo_ptr)break;
init_mathness= cur_mathness= maybe_math;
/*110:*/
#line 2243 "cweave.w"
{
if(cat1==end_arg&&lhs_not_simple)
if(pp->cat==begin_arg)squash(pp,2,exp,-2,110);
else squash(pp,2,end_arg,-1,111);
else if(cat1==insert)squash(pp,2,pp->cat,-2,0);
else if(cat2==insert)squash(pp+1,2,(pp+1)->cat,-1,0);
else if(cat3==insert)squash(pp+2,2,(pp+2)->cat,0,0);
else
switch(pp->cat){
case exp:/*117:*/
#line 2433 "cweave.w"

if(cat1==lbrace||cat1==int_like||cat1==decl){
make_underlined(pp);big_app1(pp);big_app(indent);app(indent);
reduce(pp,1,fn_decl,0,1);
}
else if(cat1==unop)squash(pp,2,exp,-2,2);
else if((cat1==binop||cat1==unorbinop)&&cat2==exp)
squash(pp,3,exp,-2,3);
else if(cat1==comma&&cat2==exp){
big_app2(pp);
app(opt);app('9');big_app1(pp+2);reduce(pp,3,exp,-2,4);
}
else if(cat1==exp||cat1==cast)squash(pp,2,exp,-2,5);
else if(cat1==semi)squash(pp,2,stmt,-1,6);
else if(cat1==colon){
#line 449 "cweave.ch"
make_underlined(pp);
if(alternative)
squash(pp,2,label,0,7);
else
squash(pp,2,tag,0,7);
#line 2449 "cweave.w"
}
else if(cat1==base){
if(cat2==int_like&&cat3==comma){
big_app1(pp+1);big_app(' ');big_app2(pp+2);
app(opt);app('9');reduce(pp+1,3,base,0,8);
}
else if(cat2==int_like&&cat3==lbrace){
big_app1(pp);big_app(' ');big_app1(pp+1);big_app(' ');big_app1(pp+2);
reduce(pp,3,exp,-1,9);
}
}
else if(cat1==rbrace)squash(pp,1,stmt,-1,10);

/*:117*/
#line 2252 "cweave.w"
;break;
case lpar:/*118:*/
#line 2462 "cweave.w"

if((cat1==exp||cat1==unorbinop)&&cat2==rpar)squash(pp,3,exp,-2,11);
else if(cat1==rpar){
big_app1(pp);app('\\');app(',');big_app1(pp+1);

reduce(pp,2,exp,-2,12);
}
else if(cat1==decl_head||cat1==int_like||cat1==exp){
if(cat2==rpar)squash(pp,3,cast,-2,13);
else if(cat2==comma){
big_app3(pp);app(opt);app('9');reduce(pp,3,lpar,0,14);
}
}
else if(cat1==stmt||cat1==decl){
big_app2(pp);big_app(' ');reduce(pp,2,lpar,0,15);
}

/*:118*/
#line 2253 "cweave.w"
;break;
case question:/*119:*/
#line 2479 "cweave.w"

if(cat1==exp&&cat2==colon)squash(pp,3,binop,-2,16);

/*:119*/
#line 2254 "cweave.w"
;break;
case unop:/*120:*/
#line 2482 "cweave.w"

if(cat1==exp||cat1==int_like)squash(pp,2,cat1,-2,17);

/*:120*/
#line 2255 "cweave.w"
;break;
case unorbinop:/*121:*/
#line 2485 "cweave.w"

if(cat1==exp||cat1==int_like){
big_app('{');big_app1(pp);big_app('}');big_app1(pp+1);
reduce(pp,2,cat1,-2,18);
}
else if(cat1==binop){
big_app(math_rel);big_app1(pp);big_app('{');big_app1(pp+1);big_app('}');
big_app('}');reduce(pp,2,binop,-1,19);
}

/*:121*/
#line 2256 "cweave.w"
;break;
case binop:/*122:*/
#line 2495 "cweave.w"

if(cat1==binop){
big_app(math_rel);big_app('{');big_app1(pp);big_app('}');
big_app('{');big_app1(pp+1);big_app('}');
big_app('}');reduce(pp,2,binop,-1,20);
}

/*:122*/
#line 2257 "cweave.w"
;break;
case cast:/*123:*/
#line 2502 "cweave.w"

if(cat1==exp){
big_app1(pp);big_app(' ');big_app1(pp+1);reduce(pp,2,exp,-2,21);
}
else if(cat1==semi)squash(pp,1,exp,-2,22);

/*:123*/
#line 2258 "cweave.w"
;break;
case sizeof_like:/*124:*/
#line 2508 "cweave.w"

if(cat1==cast)squash(pp,2,exp,-2,23);
else if(cat1==exp){
big_app1(pp);big_app(' ');big_app1(pp+1);reduce(pp,2,exp,-2,24);
}

/*:124*/
#line 2259 "cweave.w"
;break;
case int_like:/*125:*/
#line 2514 "cweave.w"

if(cat1==int_like||cat1==struct_like){
big_app1(pp);big_app(' ');big_app1(pp+1);reduce(pp,2,cat1,-2,25);
}
else if(cat1==exp&&(cat2==raw_int||cat2==struct_like))
squash(pp,2,int_like,-2,26);
else if(cat1==exp||cat1==unorbinop||cat1==semi){
big_app1(pp);
if(cat1!=semi)big_app(' ');
reduce(pp,1,decl_head,-1,27);
}
else if(cat1==colon){
big_app1(pp);big_app(' ');reduce(pp,1,decl_head,0,28);
}
else if(cat1==prelangle)squash(pp+1,1,langle,1,29);
else if(cat1==colcol&&(cat2==exp||cat2==int_like))squash(pp,3,cat2,-2,30);
else if(cat1==cast){
if(cat2==lbrace){
big_app2(pp);big_app(indent);big_app(indent);
reduce(pp,2,fn_decl,1,31);
}
#line 462 "cweave.ch"
else squash(pp,2,int_like,-2,32);
}
else if(cat1==binop&&cat2==exp)squash(pp,3,int_like,-2,117);
#line 2537 "cweave.w"

/*:125*/
#line 2260 "cweave.w"
;break;
case decl_head:/*126:*/
#line 2538 "cweave.w"

if(cat1==comma){
big_app2(pp);big_app(' ');reduce(pp,2,decl_head,-1,33);
}
else if(cat1==unorbinop){
big_app1(pp);big_app('{');big_app1(pp+1);big_app('}');
reduce(pp,2,decl_head,-1,34);
}
else if(cat1==exp&&cat2!=lpar&&cat2!=exp){
make_underlined(pp+1);squash(pp,2,decl_head,-1,35);
}
else if((cat1==binop||cat1==colon)&&cat2==exp&&(cat3==comma||
cat3==semi||cat3==rpar))
squash(pp,3,decl_head,-1,36);
else if(cat1==cast)squash(pp,2,decl_head,-1,37);
else if(cat1==lbrace||(cat1==int_like&&cat2!=colcol)||cat1==decl){
big_app1(pp);big_app(indent);app(indent);reduce(pp,1,fn_decl,0,38);
}
else if(cat1==semi)squash(pp,2,decl,-1,39);

/*:126*/
#line 2261 "cweave.w"
;break;
case decl:/*127:*/
#line 2558 "cweave.w"

if(cat1==decl){
big_app1(pp);big_app(force);big_app1(pp+1);
reduce(pp,2,decl,-1,40);
}
else if(cat1==stmt||cat1==function){
big_app1(pp);big_app(big_force);
big_app1(pp+1);reduce(pp,2,cat1,-1,41);
}

/*:127*/
#line 2262 "cweave.w"
;break;
case typedef_like:/*128:*/
#line 2568 "cweave.w"

#line 479 "cweave.ch"
if(cat1==decl_head){
if((cat2==exp&&cat3!=lpar&&cat3!=exp)||cat2==int_like){
make_underlined(pp+2);make_reserved(pp+2,raw_int);
big_app2(pp+1);reduce(pp+1,2,decl_head,0,42);
}
else if(cat2==semi){
big_app1(pp);big_app(' ');big_app2(pp+1);reduce(pp,3,decl,-1,43);
}
}
else if(cat1==exp&&!preprocessing&&cat2!=lpar){
make_reserved(pp+1,raw_int);
squash(pp+1,1,raw_int,-2,116);
}
#line 2577 "cweave.w"

/*:128*/
#line 2263 "cweave.w"
;break;
case struct_like:/*129:*/
#line 2578 "cweave.w"

#line 515 "cweave.ch"
if(cat1==lbrace){
if(alternative){
big_app1(pp);big_app(indent);big_app(force);big_app(backup);
big_app1(pp+1);reduce(pp,2,struct_head,0,44);
}else{
big_app1(pp);big_app(' ');big_app1(pp+1);
reduce(pp,2,struct_head,0,44);
}
}
else if(cat1==exp||cat1==int_like){
if(cat2==lbrace||cat2==semi){
make_underlined(pp+1);make_reserved(pp+1,raw_int);
big_app1(pp);big_app(' ');big_app1(pp+1);
if(cat2==semi)reduce(pp,2,decl_head,-1,45);
else{
if(alternative){
big_app(indent);big_app(force);big_app(backup);big_app1(pp+2);
reduce(pp,3,struct_head,0,46);
}else{
big_app(' ');big_app1(pp+2);reduce(pp,3,struct_head,0,46);
}
}
}
else if(cat2==colon)squash(pp+2,1,base,-1,47);
else if(!(cat2==base||cat2==raw_int||
cat2==int_like||cat2==const_like)){
big_app1(pp);big_app(' ');big_app1(pp+1);reduce(pp,2,int_like,-2,48);
}
}
#line 2596 "cweave.w"

/*:129*/
#line 2264 "cweave.w"
;break;
case struct_head:/*130:*/
#line 2597 "cweave.w"

if((cat1==decl||cat1==stmt||cat1==function)&&cat2==rbrace){
#line 553 "cweave.ch"
if(alternative){
big_app1(pp);big_app1(pp+1);
big_app(force);big_app(backup);big_app1(pp+2);big_app(' ');
big_app(outdent);reduce(pp,3,int_like,-2,49);
}else{
big_app1(pp);big_app(indent);big_app(force);big_app1(pp+1);
big_app(outdent);big_app(force);big_app1(pp+2);
reduce(pp,3,int_like,-2,49);
}
#line 2602 "cweave.w"
}
else if(cat1==rbrace){
big_app1(pp);app_str("\\,");big_app1(pp+1);

reduce(pp,2,int_like,-2,50);
}

/*:130*/
#line 2265 "cweave.w"
;break;
case fn_decl:/*131:*/
#line 2609 "cweave.w"

if(cat1==decl){
big_app1(pp);big_app(force);big_app1(pp+1);reduce(pp,2,fn_decl,0,51);
}
else if(cat1==stmt){
big_app1(pp);app(outdent);app(outdent);big_app(force);
big_app1(pp+1);reduce(pp,2,function,-1,52);
}

/*:131*/
#line 2266 "cweave.w"
;break;
case function:/*132:*/
#line 2618 "cweave.w"

if(cat1==function||cat1==decl||cat1==stmt){
big_app1(pp);big_app(big_force);big_app1(pp+1);reduce(pp,2,cat1,-1,53);
}

/*:132*/
#line 2267 "cweave.w"
;break;
case lbrace:/*133:*/
#line 2623 "cweave.w"

if(cat1==rbrace){
big_app1(pp);app('\\');app(',');big_app1(pp+1);

reduce(pp,2,stmt,-1,54);
}
else if((cat1==stmt||cat1==decl||cat1==function)&&cat2==rbrace){
#line 571 "cweave.ch"
if(alternative){
big_app(indent);big_app(force);big_app(backup);big_app1(pp);
app(noop);big_app(cancel);big_app1(pp+1);big_app(force);big_app(backup);
big_app1(pp+2);big_app(outdent);big_app(force);reduce(pp,3,stmt,-2,55);
}else{
big_app(force);big_app1(pp);big_app(indent);big_app(force);
big_app1(pp+1);big_app(force);big_app(backup);big_app1(pp+2);
big_app(outdent);big_app(force);reduce(pp,3,stmt,-1,55);
}
#line 2633 "cweave.w"
}
else if(cat1==exp){
if(cat2==rbrace)squash(pp,3,exp,-2,56);
else if(cat2==comma&&cat3==rbrace)squash(pp,4,exp,-2,56);
}

/*:133*/
#line 2268 "cweave.w"
;break;
case do_like:/*140:*/
#line 2689 "cweave.w"

#line 669 "cweave.ch"
if(alternative){
if(cat1==lbrace)squash(pp,1,do_head,0,114);
else if(cat1==stmt&&cat2==else_like&&cat3==semi){
big_app(force);big_app1(pp);big_app(indent);big_app(force);
big_app1(pp+1);big_app(cancel);app(noop);
big_app(break_space);big_app2(pp+2);big_app(outdent);big_app(force);
reduce(pp,4,stmt,-1,69);
}
}else{
if(cat1==stmt&&cat2==else_like&&cat3==semi){
big_app1(pp);big_app(break_space);app(noop);big_app(cancel);
big_app1(pp+1);big_app(cancel);app(noop);big_app(break_space);
big_app2(pp+2);reduce(pp,4,stmt,-1,69);
}
}
#line 2695 "cweave.w"

/*:140*/
#line 2269 "cweave.w"
;break;
case if_like:/*134:*/
#line 2639 "cweave.w"

if(cat1==exp){
big_app1(pp);big_app(' ');big_app1(pp+1);reduce(pp,2,if_clause,0,57);
}

/*:134*/
#line 2270 "cweave.w"
;break;
case for_like:/*135:*/
#line 2644 "cweave.w"

if(cat1==exp){
big_app1(pp);big_app(' ');big_app1(pp+1);reduce(pp,2,else_like,-2,58);
}

/*:135*/
#line 2271 "cweave.w"
;break;
case else_like:/*136:*/
#line 2649 "cweave.w"

if(cat1==lbrace)squash(pp,1,else_head,0,59);
else if(cat1==stmt){
#line 589 "cweave.ch"
if(alternative){
big_app(force);big_app1(pp);big_app(indent);big_app(force);
big_app1(pp+1);big_app(outdent);big_app(force);
reduce(pp,2,stmt,-1,60);
}else{
big_app(force);big_app1(pp);big_app(indent);big_app(break_space);
big_app1(pp+1);big_app(outdent);big_app(force);
reduce(pp,2,stmt,-1,60);
}
#line 2655 "cweave.w"
}

/*:136*/
#line 2272 "cweave.w"
;break;
case if_clause:/*138:*/
#line 2664 "cweave.w"

if(cat1==lbrace)squash(pp,1,if_head,0,62);
else if(cat1==stmt){
if(cat2==else_like){
#line 627 "cweave.ch"
if(alternative){
big_app(force);big_app1(pp);big_app(indent);big_app(force);
big_app1(pp+1);big_app(outdent);big_app(force);big_app1(pp+2);
}else{
big_app(force);big_app1(pp);big_app(indent);big_app(break_space);
big_app1(pp+1);big_app(outdent);big_app(force);big_app1(pp+2);
}
if(cat3==if_like){
big_app(' ');big_app1(pp+3);reduce(pp,4,if_like,0,63);
}else reduce(pp,3,else_like,0,64);
#line 2673 "cweave.w"
}
else squash(pp,1,else_like,0,65);
}

/*:138*/
#line 2273 "cweave.w"
;break;
case if_head:/*139:*/
#line 2677 "cweave.w"

if(cat1==stmt||cat1==exp){
if(cat2==else_like){
#line 648 "cweave.ch"
if(alternative){
big_app(force);big_app1(pp);big_app(break_space);
big_app1(pp+1);big_app(force);big_app1(pp+2);
}else{
big_app(force);big_app1(pp);big_app(break_space);app(noop);
big_app(cancel);big_app1(pp+1);big_app(force);big_app1(pp+2);
}
if(cat3==if_like){
big_app(' ');big_app1(pp+3);reduce(pp,4,if_like,0,66);
}else reduce(pp,3,else_like,0,67);
#line 2685 "cweave.w"
}
else squash(pp,1,else_head,0,68);
}

/*:139*/
#line 2274 "cweave.w"
;break;
case else_head:/*137:*/
#line 2657 "cweave.w"

if(cat1==stmt||cat1==exp){
#line 607 "cweave.ch"
if(alternative){
big_app(force);big_app1(pp);big_app(break_space);
big_app1(pp+1);big_app(force);
reduce(pp,2,stmt,-1,61);
}else{
big_app(force);big_app1(pp);big_app(break_space);app(noop);
big_app(cancel);big_app1(pp+1);big_app(force);
reduce(pp,2,stmt,-1,61);
}
#line 2662 "cweave.w"
}

/*:137*/
#line 2275 "cweave.w"
;break;
case case_like:/*141:*/
#line 2696 "cweave.w"

#line 692 "cweave.ch"
if(cat1==semi)squash(pp,2,stmt,-3,70);
else if(cat1==colon)squash(pp,2,tag,-2,71);
#line 2699 "cweave.w"
else if(cat1==exp){
if(cat2==semi){
big_app1(pp);big_app(' ');big_app1(pp+1);big_app1(pp+2);
reduce(pp,3,stmt,-1,72);
}
else if(cat2==colon){
big_app1(pp);big_app(' ');big_app1(pp+1);big_app1(pp+2);
#line 701 "cweave.ch"
reduce(pp,3,tag,-2,73);
#line 2707 "cweave.w"
}
}

/*:141*/
#line 2276 "cweave.w"
;break;
case stmt:/*143:*/
#line 2723 "cweave.w"

if(cat1==stmt||cat1==decl||cat1==function){
big_app1(pp);
if(cat1==function)big_app(big_force);
else if(cat1==decl)big_app(big_force);
else if(force_lines)big_app(force);
else big_app(break_space);
big_app1(pp+1);reduce(pp,2,cat1,-1,76);
}

/*:143*/
#line 2277 "cweave.w"
;break;
case tag:/*142:*/
#line 2710 "cweave.w"

#line 715 "cweave.ch"
if(alternative){
if(cat1==tag){
big_app1(pp);big_app(force);big_app1(pp+1);reduce(pp,2,tag,-1,74);
}
else if((cat1==stmt||cat1==decl||cat1==function)&&
(cat2==rbrace||cat2==tag)){
big_app(force);big_app1(pp);big_app(indent);big_app(force);
big_app1(pp+1);big_app(outdent);reduce(pp,2,cat1,-1,75);
}
}else{
if(cat1==tag){
big_app1(pp);big_app(break_space);big_app1(pp+1);reduce(pp,2,tag,-1,74);
}
else if(cat1==stmt||cat1==decl||cat1==function){
big_app(force);big_app(backup);big_app1(pp);big_app(break_space);
big_app1(pp+1);reduce(pp,2,cat1,-1,75);
}
}
#line 2718 "cweave.w"

/*:142*/
#line 2278 "cweave.w"
;break;
case semi:/*144:*/
#line 2733 "cweave.w"

big_app(' ');big_app1(pp);reduce(pp,1,stmt,-1,77);

/*:144*/
#line 2279 "cweave.w"
;break;
case lproc:/*145:*/
#line 2736 "cweave.w"

if(cat1==define_like)make_underlined(pp+2);
if(cat1==else_like||cat1==if_like||cat1==define_like)
squash(pp,2,lproc,0,78);
else if(cat1==rproc){
app(inserted);big_app2(pp);reduce(pp,2,insert,-1,79);
#line 750 "cweave.ch"
}else if((cat1==exp||cat1==function||cat1==int_like)&&cat2==rproc){
app(inserted);big_app1(pp);big_app(' ');big_app2(pp+1);
reduce(pp,3,insert,-1,80);
}else if((cat1==exp||cat1==int_like||cat1==const_like)&&
cat2==pp_space){
if(cat3==int_like||cat3==const_like||cat3==raw_int)
make_reserved(pp+1,(pp+3)->cat);
big_app1(pp);big_app(' ');big_app1(pp+1);app_str(" \\5");

reduce(pp,3,lproc,-1,119);
}else if(cat1==exp&&cat2==exp&&cat3==pp_space){
big_app1(pp);big_app(' ');big_app2(pp+1);app_str(" \\5");
reduce(pp,4,lproc,-1,120);
}
#line 2753 "cweave.w"

/*:145*/
#line 2280 "cweave.w"
;break;
case section_scrap:/*146:*/
#line 2754 "cweave.w"

if(cat1==semi){
big_app2(pp);big_app(force);reduce(pp,2,stmt,-2,81);
}
else squash(pp,1,exp,-2,82);

/*:146*/
#line 2281 "cweave.w"
;break;
case insert:/*147:*/
#line 2760 "cweave.w"

if(cat1)
squash(pp,2,cat1,0,83);

/*:147*/
#line 2282 "cweave.w"
;break;
case prelangle:/*148:*/
#line 2764 "cweave.w"

init_mathness= cur_mathness= yes_math;
app('<');reduce(pp,1,binop,-2,84);

/*:148*/
#line 2283 "cweave.w"
;break;
case prerangle:/*149:*/
#line 2768 "cweave.w"

init_mathness= cur_mathness= yes_math;
app('>');reduce(pp,1,binop,-2,85);

/*:149*/
#line 2284 "cweave.w"
;break;
case langle:/*150:*/
#line 2772 "cweave.w"

if(cat1==exp&&cat2==prerangle)squash(pp,3,cast,-1,86);
else if(cat1==prerangle){
big_app1(pp);app('\\');app(',');big_app1(pp+1);

reduce(pp,2,cast,-1,87);
}
else if(cat1==decl_head||cat1==int_like){
if(cat2==prerangle)squash(pp,3,cast,-1,88);
else if(cat2==comma){
big_app3(pp);app(opt);app('9');reduce(pp,3,langle,0,89);
}
}

/*:150*/
#line 2285 "cweave.w"
;break;
case public_like:/*151:*/
#line 2786 "cweave.w"

#line 771 "cweave.ch"
if(cat1==colon)squash(pp,2,tag,-2,90);
#line 2788 "cweave.w"
else squash(pp,1,int_like,-2,91);

/*:151*/
#line 2286 "cweave.w"
;break;
case colcol:/*152:*/
#line 2790 "cweave.w"

if(cat1==exp||cat1==int_like)squash(pp,2,cat1,-2,92);

/*:152*/
#line 2287 "cweave.w"
;break;
case new_like:/*153:*/
#line 2793 "cweave.w"

if(cat1==exp||(cat1==raw_int&&cat2!=prelangle&&cat2!=langle)){
big_app1(pp);big_app(' ');big_app1(pp+1);reduce(pp,2,new_like,0,93);
}
else if(cat1==raw_unorbin||cat1==colcol)
squash(pp,2,new_like,0,94);
else if(cat1==cast)squash(pp,2,exp,-2,95);
else if(cat1!=lpar&&cat1!=raw_int&&cat1!=struct_like)
squash(pp,1,exp,-2,96);

/*:153*/
#line 2288 "cweave.w"
;break;
case operator_like:/*154:*/
#line 2803 "cweave.w"

#line 786 "cweave.ch"
if(cat1==binop||cat1==unop||cat1==unorbinop||cat1==raw_unorbin){
if(cat2==binop)break;
big_app1(pp);big_app('{');big_app1(pp+1);big_app('}');
reduce(pp,2,exp,-2,97);
}
else if(cat1==new_like||cat1==sizeof_like){
big_app1(pp);big_app(' ');big_app1(pp+1);reduce(pp,2,exp,-2,98);
}
else if(cat1==raw_int||cat1==int_like||cat1==const_like){
big_app1(pp);big_app(' ');big_app1(pp+1);
reduce(pp,2,operator_like,-2,118);
}
#line 2812 "cweave.w"
else squash(pp,1,new_like,0,99);

/*:154*/
#line 2289 "cweave.w"
;break;
case catch_like:/*155:*/
#line 2814 "cweave.w"

if(cat1==cast||cat1==exp){
big_app2(pp);big_app(indent);big_app(indent);
reduce(pp,2,fn_decl,0,100);
}

/*:155*/
#line 2290 "cweave.w"
;break;
case base:/*156:*/
#line 2820 "cweave.w"

if(cat1==public_like&&cat2==exp){
if(cat3==comma){
big_app2(pp);big_app(' ');big_app2(pp+2);
reduce(pp,4,base,0,101);
}else{
big_app1(pp+1);big_app(' ');big_app1(pp+2);
reduce(pp+1,2,int_like,-1,102);
}
}

/*:156*/
#line 2291 "cweave.w"
;break;
case raw_rpar:/*157:*/
#line 2831 "cweave.w"

if(cat1==const_like&&
(cat2==semi||cat2==lbrace||cat2==comma||cat2==binop
||cat2==const_like)){
big_app1(pp);big_app(' ');
big_app1(pp+1);reduce(pp,2,raw_rpar,0,103);
}else squash(pp,1,rpar,-3,104);

/*:157*/
#line 2292 "cweave.w"
;break;
case raw_unorbin:/*158:*/
#line 2839 "cweave.w"

if(cat1==const_like){
big_app2(pp);app_str("\\ ");reduce(pp,2,raw_unorbin,0,105);

}else squash(pp,1,unorbinop,-2,106);

/*:158*/
#line 2293 "cweave.w"
;break;
case const_like:/*159:*/
#line 2845 "cweave.w"

squash(pp,1,int_like,-2,107);

/*:159*/
#line 2294 "cweave.w"
;break;
#line 392 "cweave.ch"
case raw_int:/*160:*/
#line 2848 "cweave.w"

if(cat1==lpar)squash(pp,1,exp,-2,108);
else squash(pp,1,int_like,-3,109);

/*:160*/
#line 392 "cweave.ch"
;break;
case label:/*249:*/
#line 1075 "cweave.ch"

if(cat1==label){
big_app1(pp);big_app(force);big_app1(pp+1);reduce(pp,2,label,-1,112);
}
else if(cat1==stmt||cat1==decl||cat1==function){
big_app(cancel);app(noop);
big_app(outdent);big_app(outdent);big_app(force);
big_app1(pp);big_app(indent);big_app(indent);big_app(force);
big_app1(pp+1);reduce(pp,2,cat1,-1,113);
}

/*:249*/
#line 393 "cweave.ch"
;break;
case do_head:/*250:*/
#line 1086 "cweave.ch"

if(cat1==stmt&&cat2==else_like&&cat3==semi){
big_app1(pp);big_app(break_space);big_app1(pp+1);big_app(cancel);
app(noop);big_app(break_space);big_app2(pp+2);reduce(pp,4,stmt,-1,115);
}

/*:250*/
#line 394 "cweave.ch"
;break;
#line 2296 "cweave.w"
}
pp++;
}

/*:110*/
#line 2942 "cweave.w"
;
}

/*:165*/
#line 3002 "cweave.w"
;
/*170:*/
#line 3011 "cweave.w"
{
/*171:*/
#line 3023 "cweave.w"

if(lo_ptr>scrap_base&&tracing==1){
printf("\nIrreducible scrap sequence in section %d:",section_count);

mark_harmless;
for(j= scrap_base;j<=lo_ptr;j++){
printf(" ");print_cat(j->cat);
}
}

/*:171*/
#line 3012 "cweave.w"
;
for(j= scrap_base;j<=lo_ptr;j++){
if(j!=scrap_base)app(' ');
if(j->mathness%4==yes_math)app('$');
app1(j);
if(j->mathness/4==yes_math)app('$');
if(tok_ptr+6>tok_mem_end)overflow("token");
}
freeze_text;return(text_ptr-1);
}

/*:170*/
#line 3003 "cweave.w"
;
}

/*:169*//*173:*/
#line 3059 "cweave.w"

void
C_parse(spec_ctrl)
eight_bits spec_ctrl;
{
int count;
while(next_control<format_code||next_control==spec_ctrl){
/*175:*/
#line 821 "cweave.ch"

/*176:*/
#line 3156 "cweave.w"

if(scrap_ptr+safe_scrap_incr>scrap_info_end||
tok_ptr+safe_tok_incr>tok_mem_end||
text_ptr+safe_text_incr>tok_start_end){
if(scrap_ptr>max_scr_ptr)max_scr_ptr= scrap_ptr;
if(tok_ptr>max_tok_ptr)max_tok_ptr= tok_ptr;
if(text_ptr>max_text_ptr)max_text_ptr= text_ptr;
overflow("scrap/token/text");
}

/*:176*/
#line 822 "cweave.ch"
;
#line 3084 "cweave.w"
switch(next_control){
case section_name:
app(section_flag+(int)(cur_section-name_dir));
app_scrap(section_scrap,maybe_math);
app_scrap(exp,yes_math);break;
case string:case constant:case verbatim:/*178:*/
#line 3211 "cweave.w"

count= -1;
if(next_control==constant)app_str("\\T{");

else if(next_control==string){
count= 20;app_str("\\.{");
}

else app_str("\\vb{");

while(id_first<id_loc){
if(count==0){
app_str("}\\)\\.{");count= 20;

}

if((eight_bits)(*id_first)>0177){
app_tok(quoted_char);
app_tok((eight_bits)(*id_first++));
}
else{
switch(*id_first){
case' ':case'\\':case'#':case'%':case'$':case'^':
case'{':case'}':case'~':case'&':case'_':app('\\');break;



#line 913 "cweave.ch"



#line 3241 "cweave.w"





case'@':if(*(id_first+1)=='@')id_first++;
else err_print("! Double @ should be used in strings");

}
app_tok(*id_first++);
}
count--;
}
app('}');
app_scrap(exp,maybe_math);

/*:178*/
#line 3089 "cweave.w"
;
break;
case identifier:app_cur_id(1);break;
case TeX_string:/*179:*/
#line 3272 "cweave.w"

app_str("\\hbox{");

while(id_first<id_loc)
if((eight_bits)(*id_first)>0177){
app_tok(quoted_char);
app_tok((eight_bits)(*id_first++));
}
else{
if(*id_first=='@')id_first++;
app_tok(*id_first++);
}
app('}');

/*:179*/
#line 3092 "cweave.w"
;break;
case'/':case'.':
app(next_control);app_scrap(binop,yes_math);break;
case'<':app_str("\\langle");app_scrap(prelangle,yes_math);break;

case'>':app_str("\\rangle");app_scrap(prerangle,yes_math);break;

case'=':app_str("\\K");app_scrap(binop,yes_math);break;

case'|':app_str("\\OR");app_scrap(binop,yes_math);break;

case'^':app_str("\\XOR");app_scrap(binop,yes_math);break;

case'%':app_str("\\MOD");app_scrap(binop,yes_math);break;

case'!':app_str("\\R");app_scrap(unop,yes_math);break;

case'~':app_str("\\CM");app_scrap(unop,yes_math);break;

case'+':case'-':app(next_control);app_scrap(unorbinop,yes_math);break;
case'*':app(next_control);app_scrap(raw_unorbin,yes_math);break;
case'&':app_str("\\AND");app_scrap(raw_unorbin,yes_math);break;

case'?':app_str("\\?");app_scrap(question,yes_math);break;

case'#':app_str("\\#");app_scrap(unorbinop,yes_math);break;

case ignore:case xref_roman:case xref_wildcard:
case xref_typewriter:case noop:break;
#line 835 "cweave.ch"
case'(':if(func_index)
if(*(tok_ptr-1)>=id_flag&&*(tok_ptr-1)<res_flag)

(name_dir+*(tok_ptr-1)%10240)->func_flag= 1;
case'[':app(next_control);app_scrap(lpar,maybe_math);break;
case')':case']':app(next_control);app_scrap(raw_rpar,maybe_math);break;
case'{':if(alternative)
app_str("\\LBR");
else
app_str("\\{");
app_scrap(lbrace,yes_math);break;

case'}':if(alternative)
app_str("\\RBR");
else
app_str("\\}");
app_scrap(rbrace,yes_math);break;

#line 3127 "cweave.w"
case',':app(',');app_scrap(comma,yes_math);break;
case';':app(';');app_scrap(semi,maybe_math);break;
case':':app(':');app_scrap(colon,maybe_math);break;
/*177:*/
#line 3170 "cweave.w"

case not_eq:app_str("\\I");app_scrap(binop,yes_math);break;

case lt_eq:app_str("\\Z");app_scrap(binop,yes_math);break;

case gt_eq:app_str("\\G");app_scrap(binop,yes_math);break;

case eq_eq:app_str("\\E");app_scrap(binop,yes_math);break;

case and_and:app_str("\\W");app_scrap(binop,yes_math);break;

case or_or:app_str("\\V");app_scrap(binop,yes_math);break;

case plus_plus:app_str("\\PP");app_scrap(unop,yes_math);break;

case minus_minus:app_str("\\MM");app_scrap(unop,yes_math);break;

case minus_gt:app_str("\\MG");app_scrap(binop,yes_math);break;

case gt_gt:app_str("\\GG");app_scrap(binop,yes_math);break;

case lt_lt:app_str("\\LL");app_scrap(binop,yes_math);break;

case dot_dot_dot:app_str("\\,\\ldots\\,");app_scrap(exp,yes_math);break;


case colon_colon:app_str("\\DC");app_scrap(colcol,maybe_math);break;

case period_ast:app_str("\\PA");app_scrap(binop,yes_math);break;

#line 900 "cweave.ch"
case minus_gt_ast:app_str("\\MGA");app_scrap(binop,yes_math);break;

case numb_numb:app_str("\\NN");app_scrap(binop,yes_math);break;

#line 3202 "cweave.w"

/*:177*/
#line 3130 "cweave.w"

case thin_space:app_str("\\,");app_scrap(insert,maybe_math);break;

case math_break:app(opt);app_str("0");
app_scrap(insert,maybe_math);break;
case line_break:app(force);app_scrap(insert,no_math);break;
#line 863 "cweave.ch"
case left_preproc:app(force);app(preproc_line);
app_str("\\#");app_scrap(lproc,no_math);break;

case preproc_space:app(' ');app_scrap(pp_space,maybe_math);break;
case right_preproc:app(force);app_scrap(rproc,no_math);break;
#line 3140 "cweave.w"
case big_line_break:app(big_force);app_scrap(insert,no_math);break;
case no_line_break:app(big_cancel);app(noop);app(break_space);
app(noop);app(big_cancel);
app_scrap(insert,no_math);break;
#line 875 "cweave.ch"
case pseudo_semi:app_scrap(semi,maybe_math);break;
case pseudo_lbrace:app_str("\\phantom{");
if(alternative)
app_str("\\LBR");
else
app_str("\\{");
app_str("}");
app_scrap(lbrace,yes_math);
break;
case pseudo_rbrace:app_str("\\phantom{");
if(alternative)
app_str("\\RBR");
else
app_str("\\}");
app_str("}");
app_scrap(rbrace,yes_math);
break;
#line 3145 "cweave.w"
case macro_arg_open:app_scrap(begin_arg,maybe_math);break;
case macro_arg_close:app_scrap(end_arg,maybe_math);break;
case join:app_str("\\J");app_scrap(insert,no_math);break;

case output_defs_code:app(force);app_str("\\ATH");app(force);
app_scrap(insert,no_math);break;

default:app(inserted);app(next_control);
app_scrap(insert,maybe_math);break;
}

/*:175*/
#line 3066 "cweave.w"
;
next_control= get_next();
if(next_control=='|'||next_control==begin_comment||
next_control==begin_short_comment)return;
}
}

/*:173*//*181:*/
#line 3292 "cweave.w"

void
app_cur_id(scrapping)
boolean scrapping;
{
name_pointer p= id_lookup(id_first,id_loc,normal);
if(p->ilk<=quoted){
app(id_flag+(int)(p-name_dir));
if(scrapping)app_scrap(exp,p->ilk>=custom?yes_math:maybe_math);

}else{
app(res_flag+(int)(p-name_dir));
if(scrapping)app_scrap(p->ilk,maybe_math);
}
}

/*:181*//*182:*/
#line 3313 "cweave.w"

text_pointer
C_translate()
{
text_pointer p;
scrap_pointer save_base;
save_base= scrap_base;scrap_base= scrap_ptr+1;
C_parse(section_name);
if(next_control!='|')err_print("! Missing '|' after C text");

app_tok(cancel);app_scrap(insert,maybe_math);

p= translate();
if(scrap_ptr>max_scr_ptr)max_scr_ptr= scrap_ptr;
scrap_ptr= scrap_base-1;scrap_base= save_base;
return(p);
}

/*:182*//*183:*/
#line 3335 "cweave.w"

void
outer_parse()
{
int bal;
text_pointer p,q;
while(next_control<format_code)
if(next_control!=begin_comment&&next_control!=begin_short_comment)
C_parse(ignore);
else{
boolean is_long_comment= (next_control==begin_comment);
/*176:*/
#line 3156 "cweave.w"

if(scrap_ptr+safe_scrap_incr>scrap_info_end||
tok_ptr+safe_tok_incr>tok_mem_end||
text_ptr+safe_text_incr>tok_start_end){
if(scrap_ptr>max_scr_ptr)max_scr_ptr= scrap_ptr;
if(tok_ptr>max_tok_ptr)max_tok_ptr= tok_ptr;
if(text_ptr>max_text_ptr)max_text_ptr= text_ptr;
overflow("scrap/token/text");
}

/*:176*/
#line 3346 "cweave.w"
;
app(cancel);app(inserted);
if(is_long_comment)app_str("\\C{");

else app_str("\\SHC{");

bal= copy_comment(is_long_comment,1);next_control= ignore;
while(bal>0){
p= text_ptr;freeze_text;q= C_translate();

app(tok_flag+(int)(p-tok_start));
app_str("\\PB{");app(inner_tok_flag+(int)(q-tok_start));app_tok('}');

if(next_control=='|'){
bal= copy_comment(is_long_comment,bal);
next_control= ignore;
}
else bal= 0;
}
app(force);app_scrap(insert,no_math);

}
}

/*:183*//*188:*/
#line 3439 "cweave.w"

void
push_level(p)
text_pointer p;
{
if(stack_ptr==stack_end)overflow("stack");
if(stack_ptr>stack){
stack_ptr->end_field= cur_end;
stack_ptr->tok_field= cur_tok;
stack_ptr->mode_field= cur_mode;
}
stack_ptr++;
if(stack_ptr>max_stack_ptr)max_stack_ptr= stack_ptr;
cur_tok= *p;cur_end= *(p+1);
}

/*:188*//*189:*/
#line 3459 "cweave.w"

void
pop_level()
{
cur_end= (--stack_ptr)->end_field;
cur_tok= stack_ptr->tok_field;cur_mode= stack_ptr->mode_field;
}

/*:189*//*191:*/
#line 3481 "cweave.w"

eight_bits
get_output()
{
sixteen_bits a;
restart:while(cur_tok==cur_end)pop_level();
a= *(cur_tok++);
if(a>=0400){
cur_name= a%id_flag+name_dir;
switch(a/id_flag){
case 2:return(res_word);
case 3:return(section_code);
case 4:push_level(a%id_flag+tok_start);goto restart;

case 5:push_level(a%id_flag+tok_start);cur_mode= inner;goto restart;

default:return(identifier);
}
}
return(a);
}

/*:191*//*192:*/
#line 3523 "cweave.w"

void
output_C()
{
token_pointer save_tok_ptr;
text_pointer save_text_ptr;
sixteen_bits save_next_control;
text_pointer p;
save_tok_ptr= tok_ptr;save_text_ptr= text_ptr;
save_next_control= next_control;next_control= ignore;p= C_translate();
app(inner_tok_flag+(int)(p-tok_start));
out_str("\\PB{");make_output();out('}');

if(text_ptr>max_text_ptr)max_text_ptr= text_ptr;
if(tok_ptr>max_tok_ptr)max_tok_ptr= tok_ptr;
text_ptr= save_text_ptr;tok_ptr= save_tok_ptr;
next_control= save_next_control;
}

/*:192*//*194:*/
#line 3547 "cweave.w"

void
make_output()
{
eight_bits a,
b;
int c;
char scratch[longest_name];
char*k,*k_limit;
char*j;
char*p;
char delim;
char*save_loc,*save_limit;
name_pointer cur_section_name;
boolean save_mode;
app(end_translation);
freeze_text;push_level(text_ptr-1);
while(1){
a= get_output();
reswitch:switch(a){
case end_translation:return;
case identifier:case res_word:/*195:*/
#line 3597 "cweave.w"

out('\\');
if(a==identifier){
if(cur_name->ilk>=custom&&cur_name->ilk<=quoted&&!doing_format){
for(p= cur_name->byte_start;p<(cur_name+1)->byte_start;p++)
out(isxalpha(*p)?'x':*p);
break;
#line 923 "cweave.ch"
}else if(is_tiny(cur_name))out('|');
#line 3605 "cweave.w"

else{delim= '.';
for(p= cur_name->byte_start;p<(cur_name+1)->byte_start;p++)
if(xislower(*p)){
delim= '\\';break;
}
out(delim);
}


}
#line 931 "cweave.ch"
else out('&');
#line 3617 "cweave.w"

if(is_tiny(cur_name)){
if(isxalpha((cur_name->byte_start)[0]))
out('\\');
out((cur_name->byte_start)[0]);
}
else out_name(cur_name);

/*:195*/
#line 3568 "cweave.w"
;break;
case section_code:/*199:*/
#line 3695 "cweave.w"
{
out_str("\\X");

cur_xref= (xref_pointer)cur_name->xref;
if(cur_xref->num==file_flag){an_output= 1;cur_xref= cur_xref->xlink;}
else an_output= 0;
if(cur_xref->num>=def_flag){
out_section(cur_xref->num-def_flag);
if(phase==3){
cur_xref= cur_xref->xlink;
while(cur_xref->num>=def_flag){
out_str(", ");
out_section(cur_xref->num-def_flag);
cur_xref= cur_xref->xlink;
}
}
}
else out('0');
out(':');
if(an_output)out_str("\\.{");

/*200:*/
#line 3721 "cweave.w"

sprint_section_name(scratch,cur_name);
k= scratch;
k_limit= scratch+strlen(scratch);
cur_section_name= cur_name;
while(k<k_limit){
b= *(k++);
if(b=='@')/*201:*/
#line 3756 "cweave.w"

if(*k++!='@'){
printf("\n! Illegal control code in section name: <");

print_section_name(cur_section_name);printf("> ");mark_error;
}

/*:201*/
#line 3728 "cweave.w"
;
if(an_output)
switch(b){
case' ':case'\\':case'#':case'%':case'$':case'^':
case'{':case'}':case'~':case'&':case'_':
out('\\');



#line 949 "cweave.ch"



#line 3740 "cweave.w"





default:out(b);
}
#line 959 "cweave.ch"
else if(b!='|')out(b);
#line 3748 "cweave.w"
else{
/*202:*/
#line 3769 "cweave.w"

j= limit+1;*j= '|';delim= 0;
while(1){
if(k>=k_limit){
printf("\n! C text in section name didn't end: <");

print_section_name(cur_section_name);printf("> ");mark_error;break;
}
b= *(k++);
if(b=='@'||(b=='\\'&&delim!=0))
/*203:*/
#line 3792 "cweave.w"
{
if(j>buffer+long_buf_size-4)overflow("buffer");
*(++j)= b;*(++j)= *(k++);
}

/*:203*/
#line 3779 "cweave.w"

else{
if(b=='\''||b=='"')
if(delim==0)delim= b;
else if(delim==b)delim= 0;
if(b!='|'||delim!=0){
if(j>buffer+long_buf_size-3)overflow("buffer");
*(++j)= b;
}
else break;
}
}

/*:202*/
#line 3749 "cweave.w"
;
save_loc= loc;save_limit= limit;loc= limit+2;limit= j+1;
*limit= '|';output_C();
loc= save_loc;limit= save_limit;
}
}

/*:200*/
#line 3716 "cweave.w"
;
if(an_output)out_str(" }");
out_str("\\X");
}

/*:199*/
#line 3569 "cweave.w"
;break;
case math_rel:out_str("\\MRL{");

case noop:case inserted:break;
case cancel:case big_cancel:c= 0;b= a;
while(1){
a= get_output();
if(a==inserted)continue;
if((a<indent&&!(b==big_cancel&&a==' '))||a>big_force)break;
if(a==indent)c++;else if(a==outdent)c--;
else if(a==opt)a= get_output();
}
/*198:*/
#line 3682 "cweave.w"

for(;c>0;c--)out_str("\\1");

for(;c<0;c++)out_str("\\2");


/*:198*/
#line 3581 "cweave.w"
;
goto reswitch;
case indent:case outdent:case opt:case backup:case break_space:
case force:case big_force:case preproc_line:/*196:*/
#line 3628 "cweave.w"

if(a<break_space||a==preproc_line){
if(cur_mode==outer){
out('\\');out(a-cancel+'0');





if(a==opt){
b= get_output();
#line 939 "cweave.ch"
if(b!='0'||force_lines==0)out(b);
#line 3640 "cweave.w"
else out_str("{-1}");
}
}else if(a==opt)b= get_output();
}
else/*197:*/
#line 3652 "cweave.w"
{
b= a;save_mode= cur_mode;c= 0;
while(1){
a= get_output();
if(a==inserted)continue;
if(a==cancel||a==big_cancel){
/*198:*/
#line 3682 "cweave.w"

for(;c>0;c--)out_str("\\1");

for(;c<0;c++)out_str("\\2");


/*:198*/
#line 3658 "cweave.w"
;
goto reswitch;
}
if((a!=' '&&a<indent)||a==backup||a>big_force){
if(save_mode==outer){
if(out_ptr>out_buf+3&&strncmp(out_ptr-3,"\\Y\\B",4)==0)
goto reswitch;
/*198:*/
#line 3682 "cweave.w"

for(;c>0;c--)out_str("\\1");

for(;c<0;c++)out_str("\\2");


/*:198*/
#line 3665 "cweave.w"
;
out('\\');out(b-cancel+'0');



if(a!=end_translation)finish_line();
}
else if(a!=end_translation&&cur_mode==inner)out(' ');
goto reswitch;
}
if(a==indent)c++;
else if(a==outdent)c--;
else if(a==opt)a= get_output();
else if(a>b)b= a;
}
}

/*:197*/
#line 3644 "cweave.w"


/*:196*/
#line 3585 "cweave.w"
;break;
case quoted_char:out(*(cur_tok++));break;
default:out(a);
}
}
}

/*:194*//*205:*/
#line 3807 "cweave.w"

void
phase_two(){
reset_input();if(show_progress)printf("\nWriting the output file...");

section_count= 0;format_visible= 1;copy_limbo();
finish_line();flush_buffer(out_buf,0,0);
while(!input_has_ended)/*207:*/
#line 3840 "cweave.w"
{
section_count++;
/*208:*/
#line 3858 "cweave.w"

if(*(loc-1)!='*')out_str("\\M");

else{
while(*loc==' ')loc++;
if(*loc=='*'){
sec_depth= -1;
loc++;
}
else{
for(sec_depth= 0;xisdigit(*loc);loc++)
sec_depth= sec_depth*10+(*loc)-'0';
}
while(*loc==' ')loc++;
group_found= 1;
out_str("\\N");

{char s[32];sprintf(s,"{%d}",sec_depth+1);out_str(s);}
if(show_progress)
printf("*%d",section_count);update_terminal;
}
out_str("{");out_section(section_count);out_str("}");

/*:208*/
#line 3842 "cweave.w"
;
save_position;
/*209:*/
#line 3884 "cweave.w"
do{
next_control= copy_TeX();
switch(next_control){
case'|':init_stack;output_C();break;
case'@':out('@');break;
case TeX_string:case noop:
case xref_roman:case xref_wildcard:case xref_typewriter:
case section_name:loc-= 2;next_control= get_next();
if(next_control==TeX_string)
err_print("! TeX string should be in C text only");break;

#line 972 "cweave.ch"
case thin_space:case math_break:case ord:
case line_break:case big_line_break:case no_line_break:case join:
case pseudo_semi:case macro_arg_open:case macro_arg_close:
case pseudo_lbrace:case pseudo_rbrace:
case output_defs_code:
err_print("! You can't do that in TeX text");break;

#line 3901 "cweave.w"
}
}while(next_control<format_code);

/*:209*/
#line 3844 "cweave.w"
;
/*210:*/
#line 3907 "cweave.w"

space_checked= 0;
while(next_control<=definition){
init_stack;
if(next_control==definition)/*213:*/
#line 3965 "cweave.w"
{
if(save_line!=out_line||save_place!=out_ptr||space_checked)app(backup);
if(!space_checked){emit_space_if_needed;save_position;}
app_str("\\D");

if((next_control= get_next())!=identifier)
err_print("! Improper macro definition");

else{
app('$');app_cur_id(0);
#line 992 "cweave.ch"
if(*loc=='('){
if(func_index)
(name_dir+*(tok_ptr-1)%10240)->func_flag= 1;
reswitch:switch(next_control= get_next()){
case'(':case',':app(next_control);goto reswitch;
case identifier:app_cur_id(0);goto reswitch;
case')':app(next_control);next_control= get_next();break;
default:err_print("! Improper macro definition");break;
}
}
#line 3982 "cweave.w"
else next_control= get_next();
app_str("$ ");app(break_space);
app_scrap(dead,no_math);
}
}

/*:213*/
#line 3911 "cweave.w"

else/*214:*/
#line 3988 "cweave.w"
{
doing_format= 1;
if(*(loc-1)=='s'||*(loc-1)=='S')format_visible= 0;
if(!space_checked){emit_space_if_needed;save_position;}
app_str("\\F");

next_control= get_next();
if(next_control==identifier){
app(id_flag+(int)(id_lookup(id_first,id_loc,normal)-name_dir));
app(' ');
app(break_space);
next_control= get_next();
if(next_control==identifier){
app(id_flag+(int)(id_lookup(id_first,id_loc,normal)-name_dir));
app_scrap(exp,maybe_math);app_scrap(semi,maybe_math);
next_control= get_next();
}
}
if(scrap_ptr!=scrap_info+2)err_print("! Improper format definition");

}

/*:214*/
#line 3912 "cweave.w"
;
outer_parse();finish_C(format_visible);format_visible= 1;
doing_format= 0;
}

/*:210*/
#line 3845 "cweave.w"
;
/*216:*/
#line 4017 "cweave.w"

this_section= name_dir;
if(next_control<=section_name){
emit_space_if_needed;init_stack;
if(next_control==begin_C)next_control= get_next();
else{
this_section= cur_section;
/*217:*/
#line 4037 "cweave.w"

do next_control= get_next();
while(next_control=='+');
if(next_control!='='&&next_control!=eq_eq)
err_print("! You need an = sign after the section name");

else next_control= get_next();
if(out_ptr>out_buf+1&&*out_ptr=='Y'&&*(out_ptr-1)=='\\')app(backup);


app(section_flag+(int)(this_section-name_dir));
cur_xref= (xref_pointer)this_section->xref;
if(cur_xref->num==file_flag)cur_xref= cur_xref->xlink;
app_str("${}");
if(cur_xref->num!=section_count+def_flag){
app_str("\\mathrel+");
this_section= name_dir;
}
app_str("\\E");

app_str("{}$");
app(force);app_scrap(dead,no_math);


/*:217*/
#line 4025 "cweave.w"
;
}
while(next_control<=section_name){
outer_parse();
/*218:*/
#line 4061 "cweave.w"

if(next_control<section_name){
err_print("! You can't do that in C text");

next_control= get_next();
}
else if(next_control==section_name){
app(section_flag+(int)(cur_section-name_dir));
app_scrap(section_scrap,maybe_math);
next_control= get_next();
}

/*:218*/
#line 4029 "cweave.w"
;
}
finish_C(1);
}

/*:216*/
#line 3846 "cweave.w"
;
/*219:*/
#line 4076 "cweave.w"

if(this_section>name_dir){
cur_xref= (xref_pointer)this_section->xref;
if(cur_xref->num==file_flag){an_output= 1;cur_xref= cur_xref->xlink;}
else an_output= 0;
if(cur_xref->num>def_flag)
cur_xref= cur_xref->xlink;
footnote(def_flag);footnote(cite_flag);footnote(0);
}

/*:219*/
#line 3847 "cweave.w"
;
/*223:*/
#line 4134 "cweave.w"

out_str("\\fi");finish_line();

flush_buffer(out_buf,0,0);

/*:223*/
#line 3848 "cweave.w"
;
}

/*:207*/
#line 3814 "cweave.w"
;
}

/*:205*//*212:*/
#line 3930 "cweave.w"

void
finish_C(visible)
boolean visible;
{
text_pointer p;
if(visible){
out_str("\\B");app_tok(force);app_scrap(insert,no_math);
p= translate();

app(tok_flag+(int)(p-tok_start));make_output();
if(out_ptr>out_buf+1)
if(*(out_ptr-1)=='\\')



if(*out_ptr=='6')out_ptr-= 2;
else if(*out_ptr=='7')*out_ptr= 'Y';
out_str("\\par");finish_line();
}
if(text_ptr>max_text_ptr)max_text_ptr= text_ptr;
if(tok_ptr>max_tok_ptr)max_tok_ptr= tok_ptr;
if(scrap_ptr>max_scr_ptr)max_scr_ptr= scrap_ptr;
tok_ptr= tok_mem+1;text_ptr= tok_start+1;scrap_ptr= scrap_info;

}

/*:212*//*221:*/
#line 4101 "cweave.w"

void
footnote(flag)
sixteen_bits flag;
{
xref_pointer q;
if(cur_xref->num<=flag)return;
finish_line();out('\\');



out(flag==0?'U':flag==cite_flag?'Q':'A');
/*222:*/
#line 4121 "cweave.w"

q= cur_xref;if(q->xlink->num>flag)out('s');
while(1){
out_section(cur_xref->num-flag);
cur_xref= cur_xref->xlink;
if(cur_xref->num<=flag)break;
if(cur_xref->xlink->num>flag)out_str(", ");
else{out_str("\\ET");

if(cur_xref!=q->xlink)out('s');
}
}

/*:222*/
#line 4113 "cweave.w"
;
out('.');
}

/*:221*//*225:*/
#line 4150 "cweave.w"

void
phase_three(){
if(no_xref){
finish_line();
out_str("\\end");

finish_line();
}
else{
phase= 3;if(show_progress)printf("\nWriting the index...");

finish_line();
if((idx_file= fopen(idx_file_name,"w"))==NULL)
fatal("! Cannot open index file ",idx_file_name);

if(change_exists){
/*227:*/
#line 4201 "cweave.w"
{

k_section= 0;
while(!changed_section[++k_section]);
out_str("\\ch ");

out_section(k_section);
while(k_section<section_count){
while(!changed_section[++k_section]);
out_str(", ");out_section(k_section);
}
out('.');
}

/*:227*/
#line 4167 "cweave.w"
;finish_line();finish_line();
}
out_str("\\inx");finish_line();

active_file= idx_file;
/*229:*/
#line 4232 "cweave.w"
{
int c;
for(c= 0;c<=255;c++)bucket[c]= NULL;
for(h= hash;h<=hash_end;h++){
next_name= *h;
while(next_name){
cur_name= next_name;next_name= cur_name->link;
if(cur_name->xref!=(char*)xmem){
c= (eight_bits)((cur_name->byte_start)[0]);
if(xisupper(c))c= tolower(c);
blink[cur_name-name_dir]= bucket[c];bucket[c]= cur_name;
}
}
}
}

/*:229*/
#line 4172 "cweave.w"
;
/*238:*/
#line 4348 "cweave.w"

sort_ptr= scrap_info;unbucket(1);
while(sort_ptr>scrap_info){
cur_depth= sort_ptr->depth;
if(blink[sort_ptr->head-name_dir]==0||cur_depth==infinity)
/*240:*/
#line 4373 "cweave.w"
{
cur_name= sort_ptr->head;
do{
out_str("\\I");

/*241:*/
#line 4385 "cweave.w"

#line 1036 "cweave.ch"
switch(cur_name->ilk){
case normal:
if(is_tiny(cur_name)&&!cur_name->func_flag)
out_str("\\|");
else{char*j;
for(j= cur_name->byte_start;j<(cur_name+1)->byte_start;j++)
if(xislower(*j))goto lowcase;
out_str("\\.");break;
lowcase:out_str("\\\\");
}
break;



case roman:break;
case wildcard:out_str("\\9");break;

case typewriter:out_str("\\.");break;

case custom:case quoted:{char*j;out_str("$\\");
for(j= cur_name->byte_start;j<(cur_name+1)->byte_start;j++)
out(isxalpha(*j)?'x':*j);
out('$');
goto name_done;
}
default:out_str("\\&");

}
out_name(cur_name);
name_done:
if(cur_name->func_flag)
out_str("(\\,)");
#line 4414 "cweave.w"

/*:241*/
#line 4378 "cweave.w"
;
/*242:*/
#line 4418 "cweave.w"

/*244:*/
#line 4436 "cweave.w"

this_xref= (xref_pointer)cur_name->xref;cur_xref= xmem;
do{
next_xref= this_xref->xlink;this_xref->xlink= cur_xref;
cur_xref= this_xref;this_xref= next_xref;
}while(this_xref!=xmem);

/*:244*/
#line 4419 "cweave.w"
;
do{
out_str(", ");cur_val= cur_xref->num;
if(cur_val<def_flag)out_section(cur_val);
else{out_str("\\[");out_section(cur_val-def_flag);out(']');}

cur_xref= cur_xref->xlink;
}while(cur_xref!=xmem);
out('.');finish_line();

/*:242*/
#line 4379 "cweave.w"
;
cur_name= blink[cur_name-name_dir];
}while(cur_name);
--sort_ptr;
}

/*:240*/
#line 4353 "cweave.w"

else/*239:*/
#line 4357 "cweave.w"
{
eight_bits c;
next_name= sort_ptr->head;
do{
cur_name= next_name;next_name= blink[cur_name-name_dir];
cur_byte= cur_name->byte_start+cur_depth;
if(cur_byte==(cur_name+1)->byte_start)c= 0;
else{
c= (eight_bits)*cur_byte;
if(xisupper(c))c= tolower(c);
}
blink[cur_name-name_dir]= bucket[c];bucket[c]= cur_name;
}while(next_name);
--sort_ptr;unbucket(cur_depth+1);
}

/*:239*/
#line 4354 "cweave.w"
;
}

/*:238*/
#line 4173 "cweave.w"
;
finish_line();fclose(active_file);
active_file= tex_file;
out_str("\\fin");finish_line();

if((scn_file= fopen(scn_file_name,"w"))==NULL)
fatal("! Cannot open section file ",scn_file_name);

active_file= scn_file;
/*247:*/
#line 4467 "cweave.w"
section_print(root)

/*:247*/
#line 4182 "cweave.w"
;
finish_line();fclose(active_file);
active_file= tex_file;
if(group_found)out_str("\\con");else out_str("\\end");


finish_line();
fclose(active_file);
}
if(show_happiness)printf("\nDone.");
check_complete();
}

/*:225*//*237:*/
#line 4330 "cweave.w"

void
unbucket(d)
eight_bits d;
{
int c;

for(c= 100+128;c>=0;c--)if(bucket[collate[c]]){

if(sort_ptr>=scrap_info_end)overflow("sorting");
sort_ptr++;
if(sort_ptr>max_sort_ptr)max_sort_ptr= sort_ptr;
if(c==0)sort_ptr->depth= infinity;
else sort_ptr->depth= d;
sort_ptr->head= bucket[collate[c]];bucket[collate[c]]= NULL;
}
}

/*:237*//*246:*/
#line 4450 "cweave.w"

void
section_print(p)
name_pointer p;
{
if(p){
section_print(p->llink);out_str("\\I");

tok_ptr= tok_mem+1;text_ptr= tok_start+1;scrap_ptr= scrap_info;init_stack;
app(p-name_dir+section_flag);make_output();
footnote(cite_flag);
footnote(0);
finish_line();
section_print(p->rlink);
}
}

/*:246*//*248:*/
#line 4472 "cweave.w"

void
print_stats(){
printf("\nMemory usage statistics:\n");

printf("%ld names (out of %ld)\n",
(long)(name_ptr-name_dir),(long)max_names);
printf("%ld cross-references (out of %ld)\n",
(long)(xref_ptr-xmem),(long)max_refs);
printf("%ld bytes (out of %ld)\n",
(long)(byte_ptr-byte_mem),(long)max_bytes);
printf("Parsing:\n");
printf("%ld scraps (out of %ld)\n",
(long)(max_scr_ptr-scrap_info),(long)max_scraps);
printf("%ld texts (out of %ld)\n",
(long)(max_text_ptr-tok_start),(long)max_texts);
printf("%ld tokens (out of %ld)\n",
(long)(max_tok_ptr-tok_mem),(long)max_toks);
printf("%ld levels (out of %ld)\n",
(long)(max_stack_ptr-stack),(long)stack_size);
printf("Sorting:\n");
printf("%ld levels (out of %ld)\n",
(long)(max_sort_ptr-scrap_info),(long)max_scraps);
}

#line 1075 "cweave.ch"
/*:248*/