/*1:*/ #line 66 "cwebdir/ctangle.w" /*4:*/ #line 53 "cwebdir/comm-w2c.h" #ifndef HAVE_GETTEXT #define HAVE_GETTEXT 0 #endif #if HAVE_GETTEXT #include #else #define gettext(A) A #endif #include #include #include #include #include #include #include /*:4*/ #line 67 "cwebdir/ctangle.w" #define banner "This is CTANGLE, Version 4.1" \ \ #define _(S) gettext(S) \ #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 non_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((eight_bits) c) &&((eight_bits) c<0200) ) #define xisdigit(c) (isdigit((eight_bits) c) &&((eight_bits) c<0200) ) #define xisspace(c) (isspace((eight_bits) c) &&((eight_bits) c<0200) ) #define xislower(c) (islower((eight_bits) c) &&((eight_bits) c<0200) ) #define xisupper(c) (isupper((eight_bits) c) &&((eight_bits) c<0200) ) #define xisxdigit(c) (isxdigit((eight_bits) 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 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_include_depth 10 \ #define max_file_name_length 1024 #define cur_file file[include_depth] #define cur_file_name file_name[include_depth] #define cur_line line[include_depth] #define web_file file[0] #define web_file_name file_name[0] \ #define show_banner flags['b'] #define show_progress flags['p'] #define show_stats flags['s'] #define show_happiness flags['h'] #define temporary_output flags['t'] #define make_xrefs flags['x'] \ #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 max_bytes 1000000 \ #define max_toks 1000000 #define max_names 10239 \ #define max_sections 4000 #define max_texts 10239 #define longest_name 10000 #define stack_size 500 #define buf_size 1000 #define long_buf_size (buf_size+longest_name) \ #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 post_slash 2 #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) =='_'||(c) =='$') \ #define ishigh(c) ((eight_bits) (c) > 0177) \ \ #define compress(c) if(loc++<=limit) return c \ #define macro 0 #define app_repl(c) {if(tok_ptr==tok_mem_end) overflow(_("token") ) ;*tok_ptr++= c;} \ #define max_banner 50 \ #line 68 "cwebdir/ctangle.w" /*3:*/ #line 35 "cwebdir/comm-w2c.h" typedef bool boolean; typedef uint8_t eight_bits; typedef uint16_t sixteen_bits; typedef enum{ ctangle,cweave,ctwill }cweb; extern cweb program; extern int phase; /*:3*//*5:*/ #line 91 "cwebdir/comm-w2c.h" extern char section_text[]; extern char*section_text_end; extern char*id_first; extern char*id_loc; /*:5*//*6:*/ #line 105 "cwebdir/comm-w2c.h" extern char buffer[]; extern char*buffer_end; extern char*loc; extern char*limit; /*:6*//*7:*/ #line 119 "cwebdir/comm-w2c.h" typedef struct name_info{ char*byte_start; struct name_info*link; union{ struct name_info*Rlink; char Ilk; }dummy; void*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 char*byte_ptr; extern name_info name_dir[]; extern name_pointer name_dir_end; extern name_pointer name_ptr; extern name_pointer hash[]; extern hash_pointer hash_end; extern hash_pointer h; /*:7*//*9:*/ #line 163 "cwebdir/comm-w2c.h" extern int history; /*:9*//*11:*/ #line 183 "cwebdir/comm-w2c.h" extern int 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 char check_file_name[]; extern int line[]; extern int change_line; extern int change_depth; extern boolean input_has_ended; extern boolean changing; extern boolean web_file_open; /*:11*//*13:*/ #line 208 "cwebdir/comm-w2c.h" extern sixteen_bits section_count; extern boolean changed_section[]; extern boolean change_pending; extern boolean print_where; /*:13*//*14:*/ #line 222 "cwebdir/comm-w2c.h" extern int argc; extern char**argv; extern boolean flags[]; extern const char*use_language; /*:14*//*15:*/ #line 235 "cwebdir/comm-w2c.h" extern FILE*C_file; extern FILE*tex_file; extern FILE*idx_file; extern FILE*scn_file; extern FILE*active_file; extern FILE*check_file; /*:15*//*115:*/ #line 473 "cwebdir/ctang-w2c.ch" extern char cb_banner[]; /*:115*/ #line 69 "cwebdir/ctangle.w" /*19:*/ #line 122 "cwebdir/ctangle.w" typedef struct{ eight_bits*tok_start; sixteen_bits text_link; }text; typedef text*text_pointer; /*:19*//*31:*/ #line 270 "cwebdir/ctangle.w" typedef struct{ eight_bits*end_field; eight_bits*byte_field; name_pointer name_field; text_pointer repl_field; sixteen_bits section_field; }output_state; typedef output_state*stack_pointer; /*:31*/ #line 70 "cwebdir/ctangle.w" /*20:*/ #line 129 "cwebdir/ctangle.w" text text_info[max_texts]; text_pointer text_info_end= text_info+max_texts-1; text_pointer text_ptr; eight_bits tok_mem[max_toks]; eight_bits*tok_mem_end= tok_mem+max_toks-1; eight_bits*tok_ptr; /*:20*//*26:*/ #line 198 "cwebdir/ctangle.w" text_pointer last_unnamed; /*:26*//*32:*/ #line 286 "cwebdir/ctangle.w" output_state cur_state; output_state stack[stack_size+1]; stack_pointer stack_end= stack+stack_size; stack_pointer stack_ptr; /*:32*//*37:*/ #line 362 "cwebdir/ctangle.w" int cur_val; /*:37*//*42:*/ #line 454 "cwebdir/ctangle.w" eight_bits out_state; boolean protect; /*:42*//*45:*/ #line 486 "cwebdir/ctangle.w" name_pointer output_files[max_files]; name_pointer*cur_out_file,*end_output_files,*an_output_file; char cur_section_name_char; char output_file_name[longest_name+1]; /*:45*//*52:*/ #line 586 "cwebdir/ctangle.w" boolean output_defs_seen= false; /*:52*//*57:*/ #line 695 "cwebdir/ctangle.w" char translit[128][translit_length]; /*:57*//*62:*/ #line 774 "cwebdir/ctangle.w" eight_bits ccode[256]; /*:62*//*66:*/ #line 834 "cwebdir/ctangle.w" boolean comment_continues= false; /*:66*//*68:*/ #line 873 "cwebdir/ctangle.w" name_pointer cur_section_name; boolean no_where; /*:68*//*82:*/ #line 1187 "cwebdir/ctangle.w" text_pointer cur_text; eight_bits next_control; /*:82*/ #line 71 "cwebdir/ctangle.w" /*8:*/ #line 142 "cwebdir/comm-w2c.h" extern boolean names_match(name_pointer,const char*,size_t,eight_bits); extern name_pointer id_lookup(const char*,const char*,char); 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); /*:8*//*10:*/ #line 166 "cwebdir/comm-w2c.h" extern int wrap_up(void); extern void err_print(const char*); extern void fatal(const char*,const char*); extern void overflow(const char*); /*:10*//*12:*/ #line 202 "cwebdir/comm-w2c.h" extern boolean get_line(void); extern void check_complete(void); extern void reset_input(void); /*:12*//*16:*/ #line 244 "cwebdir/comm-w2c.h" extern void common_init(void); extern void print_stats(void); extern void cb_show_banner(void); /*:16*//*29:*/ #line 231 "cwebdir/ctangle.w" static void store_two_bytes(sixteen_bits); /*:29*//*34:*/ #line 310 "cwebdir/ctangle.w" static void push_level(name_pointer); static void pop_level(boolean); /*:34*//*38:*/ #line 369 "cwebdir/ctangle.w" static void get_output(void); /*:38*//*43:*/ #line 462 "cwebdir/ctangle.w" static void flush_buffer(void); /*:43*//*48:*/ #line 517 "cwebdir/ctangle.w" static void phase_two(void); /*:48*//*53:*/ #line 589 "cwebdir/ctangle.w" static void output_defs(void); static void out_char(eight_bits); /*:53*//*64:*/ #line 798 "cwebdir/ctangle.w" static eight_bits skip_ahead(void); static boolean skip_comment(boolean); /*:64*//*69:*/ #line 885 "cwebdir/ctangle.w" static eight_bits get_next(void); /*:69*//*83:*/ #line 1191 "cwebdir/ctangle.w" static void scan_repl(eight_bits); /*:83*//*90:*/ #line 1348 "cwebdir/ctangle.w" static void scan_section(void); /*:90*//*98:*/ #line 1455 "cwebdir/ctangle.w" static void phase_one(void); /*:98*//*100:*/ #line 1473 "cwebdir/ctangle.w" static void skip_limbo(void); /*:100*/ #line 72 "cwebdir/ctangle.w" /*:1*//*2:*/ #line 81 "cwebdir/ctangle.w" int main( int ac, char**av) { argc= ac;argv= av; program= ctangle; /*21:*/ #line 137 "cwebdir/ctangle.w" text_info->tok_start= tok_ptr= tok_mem; text_ptr= text_info+1;text_ptr->tok_start= tok_mem; /*:21*//*23:*/ #line 147 "cwebdir/ctangle.w" init_node(name_dir); /*:23*//*27:*/ #line 201 "cwebdir/ctangle.w" last_unnamed= text_info;text_info->text_link= 0; /*:27*//*46:*/ #line 496 "cwebdir/ctangle.w" cur_out_file= end_output_files= output_files+max_files; /*:46*//*58:*/ #line 698 "cwebdir/ctangle.w" { int i; for(i= 0;i<128;i++)sprintf(translit[i],"X%02X",(unsigned int)(128+i)); } /*:58*//*63:*/ #line 777 "cwebdir/ctangle.w" { int c; for(c= 0;c<256;c++)ccode[c]= ignore; ccode[' ']= ccode['\t']= ccode['\n']= ccode['\v']= ccode['\r']= ccode['\f'] = ccode['*']= new_section; ccode['@']= '@';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; } /*:63*//*78:*/ #line 1108 "cwebdir/ctangle.w" section_text[0]= ' '; /*:78*//*116:*/ #line 476 "cwebdir/ctang-w2c.ch" strncpy(cb_banner,banner,max_banner-1); /*:116*/ #line 88 "cwebdir/ctangle.w" common_init(); #line 53 "cwebdir/ctang-w2c.ch" if(show_banner)cb_show_banner(); #line 91 "cwebdir/ctangle.w" phase_one(); phase_two(); return wrap_up(); } /*:2*//*24:*/ #line 153 "cwebdir/ctangle.w" boolean names_match( name_pointer p, const char*first, size_t l, eight_bits t) {(void)t; if(length(p)!=l)return false; return!strncmp(first,p->byte_start,l); } /*:24*//*25:*/ #line 169 "cwebdir/ctangle.w" void init_node( name_pointer node) { node->equiv= (void*)text_info; } void init_p(name_pointer p,eight_bits t){(void)p;(void)t;} /*:25*//*30:*/ #line 234 "cwebdir/ctangle.w" void store_two_bytes( sixteen_bits x) { #line 65 "cwebdir/ctang-w2c.ch" if(tok_ptr+2> tok_mem_end)overflow(_("token")); #line 240 "cwebdir/ctangle.w" *tok_ptr++= x>>8; *tok_ptr++= x&0377; } /*:30*//*35:*/ #line 314 "cwebdir/ctangle.w" static void push_level( name_pointer p) { #line 71 "cwebdir/ctang-w2c.ch" if(stack_ptr==stack_end)overflow(_("stack")); #line 320 "cwebdir/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; } } /*:35*//*36:*/ #line 333 "cwebdir/ctangle.w" static void pop_level( boolean flag) { if(flag&&cur_repl->text_linktext_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; } /*:36*//*39:*/ #line 372 "cwebdir/ctangle.w" static void get_output(void) { sixteen_bits a; restart:if(stack_ptr==stack)return; if(cur_byte==cur_end){ cur_val= -((int)cur_section); pop_level(true); 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/*40:*/ #line 404 "cwebdir/ctangle.w" { a-= 024000; if((a+name_dir)->equiv!=(void*)text_info)push_level(a+name_dir); else if(a!=0){ #line 77 "cwebdir/ctang-w2c.ch" fputs(_("\n! Not present: <"),stdout); #line 410 "cwebdir/ctangle.w" print_section_name(a+name_dir);err_print(">"); } goto restart; } /*:40*/ #line 393 "cwebdir/ctangle.w" break; default:cur_val= a-050000;if(cur_val> 0)cur_section= cur_val; out_char(section_number); } } } /*:39*//*44:*/ #line 465 "cwebdir/ctangle.w" static void flush_buffer(void) { C_putc('\n'); if(cur_line%100==0&&show_progress){ printf("."); if(cur_line%500==0)printf("%d",cur_line); update_terminal; } cur_line++; } /*:44*//*49:*/ #line 520 "cwebdir/ctangle.w" static void phase_two(void){ web_file_open= false; cur_line= 1; /*33:*/ #line 299 "cwebdir/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; /*:33*/ #line 525 "cwebdir/ctangle.w" /*51:*/ #line 582 "cwebdir/ctangle.w" if(!output_defs_seen) output_defs(); /*:51*/ #line 526 "cwebdir/ctangle.w" if(text_info->text_link==0&&cur_out_file==end_output_files){ #line 89 "cwebdir/ctang-w2c.ch" fputs(_("\n! No program text was specified."),stdout);mark_harmless; #line 529 "cwebdir/ctangle.w" } else{ if(cur_out_file==end_output_files){ if(show_progress) #line 95 "cwebdir/ctang-w2c.ch" printf(_("\nWriting the output file (%s):"),C_file_name); #line 535 "cwebdir/ctangle.w" } else{ if(show_progress){ #line 101 "cwebdir/ctang-w2c.ch" fputs(_("\nWriting the output files:"),stdout); #line 539 "cwebdir/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:/*50:*/ #line 130 "cwebdir/ctang-w2c.ch" fclose(C_file);C_file= NULL; /*105:*/ #line 356 "cwebdir/ctang-w2c.ch" if((C_file= fopen(C_file_name,"r"))!=NULL){ /*106:*/ #line 363 "cwebdir/ctang-w2c.ch" char x[BUFSIZ],y[BUFSIZ]; int x_size,y_size,comparison= false; if((check_file= fopen(check_file_name,"r"))==NULL) fatal(_("! Cannot open output file "),check_file_name); if(temporary_output)/*107:*/ #line 378 "cwebdir/ctang-w2c.ch" do{ x_size= fread(x,1,BUFSIZ,C_file); y_size= fread(y,1,BUFSIZ,check_file); comparison= (x_size==y_size); if(comparison)comparison= !memcmp(x,y,x_size); }while(comparison&&!feof(C_file)&&!feof(check_file)); /*:107*/ #line 371 "cwebdir/ctang-w2c.ch" fclose(C_file);C_file= NULL; fclose(check_file);check_file= NULL; /*:106*/ #line 358 "cwebdir/ctang-w2c.ch" /*108:*/ #line 389 "cwebdir/ctang-w2c.ch" if(comparison) remove(check_file_name); else{ remove(C_file_name); rename(check_file_name,C_file_name); } /*:108*/ #line 359 "cwebdir/ctang-w2c.ch" }else rename(check_file_name,C_file_name); /*:105*/ #line 132 "cwebdir/ctang-w2c.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); if((C_file= fopen(output_file_name,"a"))==NULL) fatal(_("! Cannot open output file "),output_file_name); else fclose(C_file); if((C_file= fopen(check_file_name,"wb"))==NULL) fatal(_("! Cannot open output file "),check_file_name); if(show_progress){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; /*109:*/ #line 402 "cwebdir/ctang-w2c.ch" if(0==strcmp("/dev/stdout",output_file_name)) /*111:*/ #line 429 "cwebdir/ctang-w2c.ch" { /*114:*/ #line 460 "cwebdir/ctang-w2c.ch" char in_buf[BUFSIZ+1]; int in_size,comparison= true; if((check_file= fopen(check_file_name,"r"))==NULL) fatal(_("! Cannot open output file "),check_file_name); /*:114*/ #line 430 "cwebdir/ctang-w2c.ch" do{ in_size= fread(in_buf,1,BUFSIZ,check_file); in_buf[in_size]= '\0'; fprintf(stdout,"%s",in_buf); }while(!feof(check_file)); fclose(check_file);check_file= NULL; /*110:*/ #line 419 "cwebdir/ctang-w2c.ch" if(comparison) remove(check_file_name); else{ remove(output_file_name); rename(check_file_name,output_file_name); } /*:110*/ #line 437 "cwebdir/ctang-w2c.ch" } /*:111*/ #line 404 "cwebdir/ctang-w2c.ch" else if(0==strcmp("/dev/stderr",output_file_name)) /*112:*/ #line 442 "cwebdir/ctang-w2c.ch" { /*114:*/ #line 460 "cwebdir/ctang-w2c.ch" char in_buf[BUFSIZ+1]; int in_size,comparison= true; if((check_file= fopen(check_file_name,"r"))==NULL) fatal(_("! Cannot open output file "),check_file_name); /*:114*/ #line 443 "cwebdir/ctang-w2c.ch" do{ in_size= fread(in_buf,1,BUFSIZ,check_file); in_buf[in_size]= '\0'; fprintf(stderr,"%s",in_buf); }while(!feof(check_file)); fclose(check_file);check_file= NULL; /*110:*/ #line 419 "cwebdir/ctang-w2c.ch" if(comparison) remove(check_file_name); else{ remove(output_file_name); rename(check_file_name,output_file_name); } /*:110*/ #line 450 "cwebdir/ctang-w2c.ch" } /*:112*/ #line 406 "cwebdir/ctang-w2c.ch" else if(0==strcmp("/dev/null",output_file_name)) /*113:*/ #line 455 "cwebdir/ctang-w2c.ch" { int comparison= true; /*110:*/ #line 419 "cwebdir/ctang-w2c.ch" if(comparison) remove(check_file_name); else{ remove(output_file_name); rename(check_file_name,output_file_name); } /*:110*/ #line 457 "cwebdir/ctang-w2c.ch" } /*:113*/ #line 408 "cwebdir/ctang-w2c.ch" else{ if((C_file= fopen(output_file_name,"r"))!=NULL){ /*106:*/ #line 363 "cwebdir/ctang-w2c.ch" char x[BUFSIZ],y[BUFSIZ]; int x_size,y_size,comparison= false; if((check_file= fopen(check_file_name,"r"))==NULL) fatal(_("! Cannot open output file "),check_file_name); if(temporary_output)/*107:*/ #line 378 "cwebdir/ctang-w2c.ch" do{ x_size= fread(x,1,BUFSIZ,C_file); y_size= fread(y,1,BUFSIZ,check_file); comparison= (x_size==y_size); if(comparison)comparison= !memcmp(x,y,x_size); }while(comparison&&!feof(C_file)&&!feof(check_file)); /*:107*/ #line 371 "cwebdir/ctang-w2c.ch" fclose(C_file);C_file= NULL; fclose(check_file);check_file= NULL; /*:106*/ #line 411 "cwebdir/ctang-w2c.ch" /*110:*/ #line 419 "cwebdir/ctang-w2c.ch" if(comparison) remove(check_file_name); else{ remove(output_file_name); rename(check_file_name,output_file_name); } /*:110*/ #line 412 "cwebdir/ctang-w2c.ch" }else rename(check_file_name,output_file_name); } /*:109*/ #line 151 "cwebdir/ctang-w2c.ch" } strcpy(check_file_name,""); #line 577 "cwebdir/ctangle.w" /*:50*/ #line 547 "cwebdir/ctangle.w" if(show_happiness){ if(show_progress)new_line; #line 107 "cwebdir/ctang-w2c.ch" fputs(_("Done."),stdout); #line 551 "cwebdir/ctangle.w" } } } /*:49*//*54:*/ #line 593 "cwebdir/ctangle.w" static void output_defs(void) { sixteen_bits a; push_level(NULL); for(cur_text= text_info+1;cur_texttext_link==0){ cur_byte= cur_text->tok_start; cur_end= (cur_text+1)->tok_start; C_printf("%s","#define "); out_state= normal; protect= true; while(cur_bytebyte_start; k= (cur_val+name_dir+1)->byte_start; while(j 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');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 non_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; /*:56*/ #line 649 "cwebdir/ctangle.w" case'=':case'>':C_putc(cur_char);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; case'/':C_putc('/');out_state= post_slash;break; case'*':if(out_state==post_slash)C_putc(' '); default:C_putc(cur_char);out_state= normal;break; } } /*:55*//*65:*/ #line 802 "cwebdir/ctangle.w" static eight_bits skip_ahead(void) { eight_bits c; while(true){ if(loc> limit&&(get_line()==false))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; } } } /*:65*//*67:*/ #line 837 "cwebdir/ctangle.w" static boolean skip_comment( boolean is_long_comment) { char c; while(true){ if(loc> limit){ if(is_long_comment){ if(get_line())return comment_continues= true; else{ #line 165 "cwebdir/ctang-w2c.ch" err_print(_("! Input ended in mid-comment")); #line 848 "cwebdir/ctangle.w" return comment_continues= false; } } else return comment_continues= false; } c= *(loc++); if(is_long_comment&&c=='*'&&*loc=='/'){ loc++;return comment_continues= false; } if(c=='@'){ if(ccode[(eight_bits)*loc]==new_section){ #line 171 "cwebdir/ctang-w2c.ch" err_print(_("! Section name ended in mid-comment"));loc--; #line 861 "cwebdir/ctangle.w" return comment_continues= false; } else loc++; } } } /*:67*//*70:*/ #line 888 "cwebdir/ctangle.w" static eight_bits get_next(void) { static int preprocessing= 0; eight_bits c; while(true){ if(loc> limit){ if(preprocessing&&*(limit-1)!='\\')preprocessing= 0; if(get_line()==false)return new_section; else if(print_where&&!no_where){ print_where= false; /*85:*/ #line 1220 "cwebdir/ctangle.w" store_two_bytes(0150000); if(changing&&include_depth==change_depth){ id_first= change_file_name; store_two_bytes((sixteen_bits)change_line); }else{ id_first= cur_file_name; store_two_bytes((sixteen_bits)cur_line); } id_loc= id_first+strlen(id_first); {int a_l= id_lookup(id_first,id_loc,0)-name_dir;app_repl((a_l/0400)+0200); app_repl(a_l%0400);} /*:85*/ #line 900 "cwebdir/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=='.')/*73:*/ #line 969 "cwebdir/ctangle.w" { id_first= loc-1; if(*id_first=='.'&&!xisdigit(*loc))goto mistake; 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; } /*:73*/ #line 912 "cwebdir/ctangle.w" else if(c=='\''||c=='"' ||((c=='L'||c=='u'||c=='U')&&(*loc=='\''||*loc=='"')) ||((c=='u'&&*loc=='8')&&(*(loc+1)=='\''||*(loc+1)=='"'))) /*74:*/ #line 997 "cwebdir/ctangle.w" { char delim= c; id_first= section_text+1; id_loc= section_text;*++id_loc= delim; if(delim=='L'||delim=='u'||delim=='U'){ if(delim=='u'&&*loc=='8'){*++id_loc= *loc++;} delim= *loc++;*++id_loc= delim; } while(true){ if(loc>=limit){ if(*(limit-1)!='\\'){ #line 177 "cwebdir/ctang-w2c.ch" err_print(_("! String didn't end"));loc= limit;break; #line 1009 "cwebdir/ctangle.w" } if(get_line()==false){ #line 183 "cwebdir/ctang-w2c.ch" err_print(_("! Input ended in middle of string"));loc= buffer;break; #line 1013 "cwebdir/ctangle.w" } 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 189 "cwebdir/ctang-w2c.ch" fputs(_("\n! String too long: "),stdout); #line 1031 "cwebdir/ctangle.w" term_write(section_text+1,25); err_print("..."); } id_loc++; return string; } /*:74*/ #line 916 "cwebdir/ctangle.w" else if(isalpha(c)||isxalpha(c)||ishigh(c)) /*72:*/ #line 962 "cwebdir/ctangle.w" { id_first= --loc; while(isalpha((eight_bits)*++loc)||isdigit((eight_bits)*loc) ||isxalpha((eight_bits)*loc)||ishigh((eight_bits)*loc)); id_loc= loc;return identifier; } /*:72*/ #line 918 "cwebdir/ctangle.w" else if(c=='@')/*75:*/ #line 1042 "cwebdir/ctangle.w" { c= ccode[(eight_bits)*loc++]; switch(c){ case ignore:continue; #line 195 "cwebdir/ctang-w2c.ch" case translit_code:err_print(_("! Use @l in limbo only"));continue; #line 1047 "cwebdir/ctangle.w" case control_text:while((c= skip_ahead())=='@'); if(*(loc-1)!='>') #line 201 "cwebdir/ctang-w2c.ch" err_print(_("! Double @ should be used in control text")); #line 1052 "cwebdir/ctangle.w" continue; case section_name: cur_section_name_char= *(loc-1); /*77:*/ #line 1090 "cwebdir/ctangle.w" { char*k; /*79:*/ #line 1110 "cwebdir/ctangle.w" k= section_text; while(true){ if(loc> limit&&get_line()==false){ #line 219 "cwebdir/ctang-w2c.ch" err_print(_("! Input ended in section name")); #line 1115 "cwebdir/ctangle.w" loc= buffer+1;break; } c= *loc; /*80:*/ #line 1134 "cwebdir/ctangle.w" if(c=='@'){ c= *(loc+1); if(c=='>'){ loc+= 2;break; } if(ccode[(eight_bits)c]==new_section){ #line 231 "cwebdir/ctang-w2c.ch" err_print(_("! Section name didn't end"));break; #line 1142 "cwebdir/ctangle.w" } if(ccode[(eight_bits)c]==section_name){ #line 237 "cwebdir/ctang-w2c.ch" err_print(_("! Nesting of section names not allowed"));break; #line 1146 "cwebdir/ctangle.w" } *(++k)= '@';loc++; } /*:80*/ #line 1119 "cwebdir/ctangle.w" loc++;if(k=section_text_end){ #line 225 "cwebdir/ctang-w2c.ch" fputs(_("\n! Section name too long: "),stdout); #line 1128 "cwebdir/ctangle.w" term_write(section_text+1,25); printf("...");mark_harmless; } if(*k==' '&&k> section_text)k--; /*:79*/ #line 1092 "cwebdir/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=='(') /*47:*/ #line 500 "cwebdir/ctangle.w" { for(an_output_file= cur_out_file; an_output_file output_files) *--cur_out_file= cur_section_name; else{ #line 83 "cwebdir/ctang-w2c.ch" overflow(_("output files")); #line 510 "cwebdir/ctangle.w" } } } /*:47*/ #line 1098 "cwebdir/ctangle.w" return section_name; } /*:77*/ #line 1056 "cwebdir/ctangle.w" case string:/*81:*/ #line 1156 "cwebdir/ctangle.w" { id_first= loc++;*(limit+1)= '@';*(limit+2)= '>'; while(*loc!='@'||*(loc+1)!='>')loc++; #line 243 "cwebdir/ctang-w2c.ch" if(loc>=limit)err_print(_("! Verbatim string didn't end")); #line 1160 "cwebdir/ctangle.w" id_loc= loc;loc+= 2; return string; } /*:81*/ #line 1057 "cwebdir/ctangle.w" case ord:/*76:*/ #line 1069 "cwebdir/ctangle.w" id_first= loc; if(*loc=='\\'){ if(*++loc=='\'')loc++; } while(*loc!='\''){ if(*loc=='@'){ if(*(loc+1)!='@') #line 207 "cwebdir/ctang-w2c.ch" err_print(_("! Double @ should be used in ASCII constant")); #line 1078 "cwebdir/ctangle.w" else loc++; } loc++; if(loc> limit){ #line 213 "cwebdir/ctang-w2c.ch" err_print(_("! String didn't end"));loc= limit-1;break; #line 1084 "cwebdir/ctangle.w" } } loc++; return ord; /*:76*/ #line 1058 "cwebdir/ctangle.w" default:return c; } } /*:75*/ #line 919 "cwebdir/ctangle.w" else if(xisspace(c)){ if(!preprocessing||loc> limit)continue; else return' '; } else if(c=='#'&&loc==buffer+1)preprocessing= 1; mistake:/*71:*/ #line 940 "cwebdir/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(non_eq);break; } /*:71*/ #line 926 "cwebdir/ctangle.w" return c; } } /*:70*//*84:*/ #line 1194 "cwebdir/ctangle.w" static void scan_repl( eight_bits t) { sixteen_bits a; if(t==section_name){/*85:*/ #line 1220 "cwebdir/ctangle.w" store_two_bytes(0150000); if(changing&&include_depth==change_depth){ id_first= change_file_name; store_two_bytes((sixteen_bits)change_line); }else{ id_first= cur_file_name; store_two_bytes((sixteen_bits)cur_line); } id_loc= id_first+strlen(id_first); {int a_l= id_lookup(id_first,id_loc,0)-name_dir;app_repl((a_l/0400)+0200); app_repl(a_l%0400);} /*:85*/ #line 1200 "cwebdir/ctangle.w" } while(true)switch(a= get_next()){ /*86:*/ #line 1233 "cwebdir/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{ /*87:*/ #line 1266 "cwebdir/ctangle.w" { char*try_loc= loc; while(*try_loc==' '&&try_loc='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((eight_bits)*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((eight_bits)*id_first)-'A'+10; } break; case'\\':c= '\\';break; case'\'':c= '\'';break; case'\"':c= '\"';break; #line 285 "cwebdir/ctang-w2c.ch" default:err_print(_("! Unrecognized escape sequence")); #line 1330 "cwebdir/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; /*:89*/ #line 1258 "cwebdir/ctangle.w" case definition:case format_code:case begin_C:if(t!=section_name)goto done; else{ #line 267 "cwebdir/ctang-w2c.ch" err_print(_("! @d, @f and @c are ignored in C text"));continue; #line 1262 "cwebdir/ctangle.w" } case new_section:goto done; /*:86*/ #line 1205 "cwebdir/ctangle.w" case')':app_repl(a); if(t==macro)app_repl(' '); break; default:app_repl(a); } done:next_control= (eight_bits)a; #line 255 "cwebdir/ctang-w2c.ch" if(text_ptr> text_info_end)overflow(_("text")); #line 1213 "cwebdir/ctangle.w" cur_text= text_ptr;(++text_ptr)->tok_start= tok_ptr; } /*:84*//*91:*/ #line 1355 "cwebdir/ctangle.w" static void scan_section(void) { name_pointer p; text_pointer q; sixteen_bits a; section_count++;no_where= true; if(*(loc-1)=='*'&&show_progress){ printf("*%d",section_count);update_terminal; } next_control= 0; while(true){ /*92:*/ #line 1394 "cwebdir/ctangle.w" while(next_controltext_link= macro; } /*:93*/ #line 1371 "cwebdir/ctangle.w" continue; } if(next_control==begin_C){ p= name_dir;break; } if(next_control==section_name){ p= cur_section_name; /*94:*/ #line 1426 "cwebdir/ctangle.w" while((next_control= get_next())=='+'); if(next_control!='='&&next_control!=eq_eq) continue; /*:94*/ #line 1379 "cwebdir/ctangle.w" break; } return; } no_where= print_where= false; /*95:*/ #line 1431 "cwebdir/ctangle.w" /*96:*/ #line 1436 "cwebdir/ctangle.w" store_two_bytes((sixteen_bits)(0150000+section_count)); /*:96*/ #line 1432 "cwebdir/ctangle.w" scan_repl(section_name); /*97:*/ #line 1440 "cwebdir/ctangle.w" if(p==name_dir||p==0){ (last_unnamed)->text_link= cur_text-text_info;last_unnamed= cur_text; } else if(p->equiv==(void*)text_info)p->equiv= (void*)cur_text; else{ q= (text_pointer)p->equiv; while(q->text_linktext_link+text_info; q->text_link= cur_text-text_info; } cur_text->text_link= section_flag; /*:97*/ #line 1434 "cwebdir/ctangle.w" /*:95*/ #line 1385 "cwebdir/ctangle.w" } /*:91*//*99:*/ #line 1458 "cwebdir/ctangle.w" static void phase_one(void){ phase= 1; section_count= 0; reset_input(); skip_limbo(); while(!input_has_ended)scan_section(); check_complete(); phase= 2; } /*:99*//*101:*/ #line 1476 "cwebdir/ctangle.w" static void skip_limbo(void) { char c; while(true){ if(loc> limit&&get_line()==false)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:/*102:*/ #line 1505 "cwebdir/ctangle.w" while(xisspace(*loc)&&loc limit||!xisxdigit(*(loc-3))||!xisxdigit(*(loc-2)) ||(*(loc-3)>='0'&&*(loc-3)<='7')||!xisspace(*(loc-1))) #line 309 "cwebdir/ctang-w2c.ch" err_print(_("! Improper hex number following @l")); #line 1511 "cwebdir/ctangle.w" else{ unsigned int i; char*beg; sscanf(loc-3,"%x",&i); while(xisspace(*loc)&&loc=translit_length) #line 315 "cwebdir/ctang-w2c.ch" err_print(_("! Replacement string in @l too long")); #line 1521 "cwebdir/ctangle.w" else{ strncpy(translit[i-0200],beg,(size_t)(loc-beg)); translit[i-0200][loc-beg]= '\0'; } } /*:102*/ #line 1489 "cwebdir/ctangle.w" break; case format_code:case'@':break; case control_text:if(c=='q'||c=='Q'){ while((c= skip_ahead())=='@'); if(*(loc-1)!='>') #line 297 "cwebdir/ctang-w2c.ch" err_print(_("! Double @ should be used in control text")); #line 1495 "cwebdir/ctangle.w" break; } #line 303 "cwebdir/ctang-w2c.ch" default:err_print(_("! Double @ should be used in limbo")); #line 1499 "cwebdir/ctangle.w" } } } } /*:101*//*103:*/ #line 1531 "cwebdir/ctangle.w" void print_stats(void){ #line 328 "cwebdir/ctang-w2c.ch" puts(_("\nMemory usage statistics:")); printf(_("%ld names (out of %ld)\n"), (ptrdiff_t)(name_ptr-name_dir),(long)max_names); printf(_("%ld replacement texts (out of %ld)\n"), (ptrdiff_t)(text_ptr-text_info),(long)max_texts); printf(_("%ld bytes (out of %ld)\n"), (ptrdiff_t)(byte_ptr-byte_mem),(long)max_bytes); printf(_("%ld tokens (out of %ld)\n"), #line 1542 "cwebdir/ctangle.w" (ptrdiff_t)(tok_ptr-tok_mem),(long)max_toks); } #line 341 "cwebdir/ctang-w2c.ch" /*:103*/