ns-allinone-2.33.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（‘\n‘） 
#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