ns-allinone-2.35.tar.gz

/*1:*/
#line 57 “common.w“

/*5:*/
#line 101 “common.w“

#include 

/*:5*//*8:*/
#line 164 “common.w“

#include 

/*:8*//*22:*/
#line 469 “common.w“

#include  

/*:22*/
#line 58 “common.w“

#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 buf_size 100
#define longest_name 1000
#define long_buf_size （buf_size+longest_name） 
#define xisspace（c） （isspace（c） &&（（unsigned char） c<0200） ） 
#define xisupper（c） （isupper（c） &&（（unsigned char） c<0200） ）  

#define max_include_depth 10 

#define max_file_name_length 60
#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 lines_dont_match （change_limit-change_buffer!=limit-buffer|| 
strncmp（bufferchange_bufferlimit-buffer） ）  

#define if_section_start_make_pending（b） {*limit= ‘!‘; 
for（loc= buffer;xisspace（*loc） ;loc++） ; 
*limit= ‘ ‘; 
if（*loc==‘@‘&&（xisspace（*（loc+1） ） ||*（loc+1） ==‘*‘） ） change_pending= b; 
} 

#define max_sections 2000 
 

#define too_long（） {include_depth--; 
err_print（“! Include file name too long“） ;goto restart;} 

#define max_bytes 90000 

#define max_names 4000 
 

#define length（c） （c+1） ->byte_start-（c） ->byte_start
#define print_id（c） term_write（（c） ->byte_startlength（（c） ） ）  

#define hash_size 353 

#define llink link
#define rlink dummy.Rlink
#define root name_dir->rlink 
 

#define first_chunk（p） （（p） ->byte_start+2） 
#define prefix_length（p） （int） （（unsigned char） *（（p） ->byte_start） *256+ 
（unsigned char） *（（p） ->byte_start+1） ） 
#define set_prefix_length（pm） （*（（p） ->byte_start） = （m） /256 
*（（p） ->byte_start+1） = （m） %256）  

#define less 0
#define equal 1
#define greater 2
#define prefix 3
#define extension 4 

#define bad_extension 5 

#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 show_banner flags[‘b‘]
#define show_progress flags[‘p‘]
#define show_stats flags[‘s‘]
#define show_happiness flags[‘h‘] 

#define update_terminal fflush（stdout）  

#define new_line putchar（‘
‘） 
#define putxchar putchar
#define term_write（ab） fflush（stdout） fwrite（asizeof（char） bstdout） 
#define C_printf（ca） fprintf（C_fileca） 
#define C_putc（c） putc（cC_file）  


#line 59 “common.w“

/*2:*/
#line 72 “common.w“

typedef short boolean;
boolean program;

/*:2*//*7:*/
#line 158 “common.w“

char buffer[long_buf_size];
char*buffer_end= buffer+buf_size-2;
char