3
created with UNIX on "Thursday, September 24, 1998 at 16:12." \
4
COMMAND LINE: "Web/ftangle Web/t_type -A -# --F -= 1.62/Web/t_type.h"\
5
RUN TIME: "Friday, September 25, 1998 at 8:02."\
6
WEB FILE: "Web/t_type.web"\
9
#define OUT_CHAR(c)out_char((eight_bits)(c)) \
18
X_FCN x_unroll PROTO((VOID));
20
SRTN app_aconst PROTO((outer_char fmt_char,boolean leading_zero));
21
SRTN app_converted PROTO((unsigned long n));
22
SRTN app_dmacro PROTO((CONST eight_bits HUGE*p,CONST eight_bits HUGE*p1));
23
name_pointer app_macro PROTO((eight_bits last_control));
24
BP HUGE*b_link PROTO((TRUNC HUGE*s,LANGUAGE Language,
25
CONST ASCII HUGE*p0,CONST ASCII HUGE*p1));
26
SRTN blank_out PROTO((int n));
27
SRTN buffer_out PROTO((outer_char c));
28
SRTN C_out PROTO((outer_char HUGE*buffer,outer_char HUGE*p,
29
outer_char HUGE*HUGE*ppC_buffer,
30
outer_char*end_str,CONST outer_char*begin_str,int indent));
31
SRTN C_putc PROTO((outer_char c));
32
SRTN C_sprintf PROTO((CONST outer_char s[],int n ELLIPSIS));
33
SRTN close0 PROTO((OPEN_FILE*f));
34
SRTN close_out PROTO((FILE*fp,outer_char*name));
35
SRTN cmp_outfiles PROTO((VOID));
36
int cmpr_bp PROTO((BP HUGE**bb0,BP HUGE**bb1));
37
int cmpr_trunc PROTO((TRUNC HUGE**t0,TRUNC HUGE**t1));
38
SRTN copy_string PROTO((eight_bits a0));
39
SRTN cp_ASCII PROTO((VOID));
40
eight_bits out_bracket PROTO((eight_bits cur_char,eight_bits new_char));
41
SRTN flush0 PROTO((VOID));
42
SRTN flush_out PROTO((boolean prn_new_line));
43
int get_constant PROTO((eight_bits HUGE*e));
44
GOTO_CODE get_control_code PROTO((VOID));
45
eight_bits get_next PROTO((VOID));
46
int id PROTO((int n));
47
name_pointer id0_lookup PROTO((CONST ASCII HUGE*start,CONST ASCII HUGE*end,
49
SRTN ini_special_tokens PROTO((LANGUAGE language0,SPEC HUGE*tokens));
50
SRTN ini_univ_tokens PROTO((LANGUAGE language0));
51
SRTN ins_ln_no PROTO((int delta));
52
boolean is_deferred PROTO((sixteen_bits cur_val));
53
int main PROTO((int ac,outer_char**av));
54
SRTN mcheck0 PROTO((unsigned long n,CONST outer_char reason[]));
55
SRTN mcopy PROTO((CONST outer_char*s));
56
SRTN new_out PROTO((boolean scope,sixteen_bits a));
57
eight_bits next_byte PROTO((VOID));
58
SRTN not_unique PROTO((VOID));
59
SRTN open_out PROTO((CONST outer_char*msg,boolean global_scope));
60
LANGUAGE opn_output_file PROTO((LANGUAGE language0));
61
eight_bits out_char PROTO((eight_bits cur_char));
62
eight_bits out_dflt PROTO((eight_bits c));
63
SRTN out_of_order PROTO((CONST outer_char cmd[]));
64
SRTN out_op PROTO((CONST outer_char HUGE*s));
65
CONST outer_char HUGE*out_str PROTO((CONST outer_char HUGE*s0));
66
SRTN out_trunc PROTO((CONST name_pointer np));
67
SRTN out_version PROTO((CONST outer_char*msg));
68
SRTN phase1 PROTO((VOID));
69
SRTN phase2 PROTO((VOID));
70
boolean pop_level PROTO((VOID));
71
SRTN prn_mod_num PROTO((outer_char*fmt,long val));
72
GOTO_CODE prs_TeX_code PROTO((VOID));
73
GOTO_CODE prs_regular_code PROTO((GOTO_CODE iswitch));
74
SRTN push_level PROTO((name_pointer p,
75
CONST eight_bits HUGE*b0,CONST eight_bits HUGE*b1));
76
SRTN RAT_out PROTO((outer_char c));
77
SRTN rdc_char_constant PROTO((VOID));
78
int rst_out PROTO((boolean continuation));
79
TRUNC HUGE*s_link PROTO((TRUNC HUGE*s,CONST ASCII HUGE*id,
81
eight_bits HUGE*save_out PROTO((eight_bits HUGE**p,
82
int nmax,eight_bits r_before,eight_bits r_after));
83
SRTN scan_module PROTO((VOID));
84
SRTN scan_repl PROTO((eight_bits t,boolean stop));
85
SRTN scan_text PROTO((int text_type,CONST name_pointer p,boolean expand));
86
int see PROTO((CONST ASCII HUGE*c0,CONST ASCII HUGE*c1));
87
SRTN see_dup PROTO((CONST TRUNC HUGE*s,LANGUAGE Language,
89
SRTN see_id PROTO((CONST ASCII HUGE*start,CONST ASCII HUGE*end));
90
SRTN send_single PROTO((sixteen_bits a));
91
LANGUAGE set_output_file PROTO((LANGUAGE language0));
92
eight_bits skip_ahead PROTO((eight_bits last_control,boolean skip_over_bars));
93
eight_bits skip_bars PROTO((VOID));
94
boolean skip_comment PROTO((VOID));
95
SRTN split_C PROTO((VOID));
96
SRTN split_X PROTO((CONST outer_char HUGE*prefx));
97
SRTN split0_C PROTO((outer_char HUGE*p));
99
SRTN store PROTO((TEXT_BUF HUGE*t,outer_char c));
101
SRTN store_two_bytes PROTO((sixteen_bits x));
102
SRTN sv_macro PROTO((VOID));
103
SRTN to_else PROTO((VOID));
104
SRTN to_endif PROTO((int m_case));
105
int trap PROTO((VOID));
106
unsigned trunc_id PROTO((CONST name_pointer np0));
107
SRTN unwind PROTO((VOID));
108
boolean valid_char PROTO((ASCII c,int l));
109
eight_bits x_identifier PROTO((eight_bits cur_char));