1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
#if(0)
FTANGLE v1.60,\
created with UNIX on "Thursday, September 24, 1998 at 16:12." \
COMMAND LINE: "Web/ftangle Web/ratfor0 -A -# --F -= 1.62/Web/ratfor0.c"\
RUN TIME: "Friday, September 25, 1998 at 8:02."\
WEB FILE: "Web/ratfor0.web"\
CHANGE FILE: (none)
#endif
#define BAD_CALL(fcn_name)bad_call(OC(fcn_name)) \
#include "typedefs.h"
#include "c_type.h"
#ifdef SMALL_MEMORY
#define N_MSGBUF 2000
#else
#define N_MSGBUF 10000
#endif
sixteen_bits id_function,id_program,id_subroutine;
boolean balanced= YES;
ASCII cur_delim= '\0';
SRTN is_Rat_present(VOID)
{
Rat_is_loaded= BOOLEAN(program==weave);
}
boolean Rat_OK FCN((msg))
outer_char*msg C1("")
{
if(Rat_is_loaded)return YES;
err0_print(ERR_R,OC("Ratfor is not loaded. %s"),1,msg);
return NO;
}
SRTN bad_call FCN((fcn_name))
outer_char*fcn_name C1("")
{
confusion(OC(fcn_name),OC("This function shouldn't be called"));
}
SRTN alloc_Rat(VOID)
{}
SRTN ini_Ratfor(VOID)
{}
SRTN ini_RAT_tokens FCN((language0))
LANGUAGE language0 C1("")
{
if(Rat_is_loaded)return;
BAD_CALL("ini_RAT_tokens");
}
SRTN cp_fcn_body(VOID)
{
BAD_CALL("cp_fcn_body");
}
int chk_lbl(VOID)
{
BAD_CALL("chk_lbl");
return-1;
}
SRTN RAT_error(VOID)
{
BAD_CALL("RAT_error");
}
X_FCN x_unroll(VOID)
{
Rat_OK(OC("Therefore, the _DO macro cannot be used, since it relies on some \
Ratfor features (sorry)"));
}
|
