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
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
|
/*
* Copyright © 1988-2004 Keith Packard and Bart Massey.
* All Rights Reserved. See the file COPYING in this directory
* for licensing information.
*/
/*
* builtin.h
*
* header shared across builtin implementation source files
*/
#if LOCAL_BUILD
#include "nickle.h"
#else
#include <nickle/nickle.h>
#endif
SymbolPtr
BuiltinAddName (NamespacePtr *namespacep,
SymbolPtr symbol);
SymbolPtr
BuiltinSymbol (NamespacePtr *namespacep,
char *string,
Type *type);
SymbolPtr
BuiltinNamespace (NamespacePtr *namespacep,
char *string);
void
BuiltinSetUserdefType (Type *type, int n);
SymbolPtr
BuiltinException (NamespacePtr *namespacep,
char *string,
Type *type,
char *doc);
struct ebuiltin {
char *name;
StandardException exception;
char *args;
char *doc;
};
void
BuiltinAddException (NamespacePtr *namespacep,
StandardException exception,
char *name,
char *format,
char *doc);
struct sbuiltin {
char *value;
char *name;
NamespacePtr *namespace;
};
#define BuiltinStrings(s) do { \
SymbolPtr sym; const struct sbuiltin *si; \
for (si = (s); si->name; si++) { \
sym = BuiltinSymbol (si->namespace, si->name, typePrim[rep_string]); \
BoxValueSet (sym->global.value, 0, NewStrString (si->value)); \
} } while (0)
struct envbuiltin {
#ifdef CENVIRON
char *var;
#endif
char *def;
char *name;
NamespacePtr *namespace;
};
struct ibuiltin {
int value;
char *name;
NamespacePtr *namespace;
};
#define BuiltinIntegers(s) do { \
SymbolPtr sym; const struct ibuiltin *ii; \
for (ii = (s); ii->name; ii++) { \
sym = BuiltinSymbol (ii->namespace ,ii->name, typePrim[rep_integer]); \
BoxValueSet (sym->global.value, 0, Reduce (NewIntInteger (ii->value))); \
} } while (0)
struct filebuiltin {
char *name;
BoxPtr *box;
NamespacePtr *namespace;
};
void
BuiltinAddFunction (NamespacePtr *namespacep, char *name, char *ret_format,
char *format, BuiltinFunc f, Bool jumping, char *doc);
#define BuiltinFuncStructDef(stype, functype) \
struct stype { \
functype func; \
char *name; \
char *ret; \
char *args; \
char *doc; \
}
#define BuiltinExceptions(ns, e) do {\
const struct ebuiltin *ei; \
for (ei = (e); ei->name; ei++) { \
BuiltinAddException ((ns), ei->exception, ei->name, ei->args, ei->doc); \
} } while (0)
#define BuiltinFuncsGeneric(ns, funcs, stype, bitem, jump) do { \
BuiltinFunc f; const struct stype *fi; \
for (fi = (funcs); fi->name; fi++) { \
f.bitem = fi->func; \
BuiltinAddFunction ((ns), fi->name, fi->ret, fi->args, f, jump, fi->doc); \
} } while (0)
typedef Value (*fbuiltin_v_func) (int, Value *);
BuiltinFuncStructDef(fbuiltin_v, fbuiltin_v_func);
#define BuiltinFuncsV(n, f) \
BuiltinFuncsGeneric(n, f, fbuiltin_v, builtinN, False)
typedef Value (*fbuiltin_0_func) (void);
BuiltinFuncStructDef(fbuiltin_0, fbuiltin_0_func);
#define BuiltinFuncs0(n, f) \
BuiltinFuncsGeneric(n, f, fbuiltin_0, builtin0, False)
typedef Value (*fbuiltin_1_func) (Value);
BuiltinFuncStructDef(fbuiltin_1, fbuiltin_1_func);
#define BuiltinFuncs1(n, f) \
BuiltinFuncsGeneric(n, f, fbuiltin_1, builtin1, False)
typedef Value (*fbuiltin_2_func) (Value, Value);
BuiltinFuncStructDef(fbuiltin_2, fbuiltin_2_func);
#define BuiltinFuncs2(n, f) \
BuiltinFuncsGeneric(n, f, fbuiltin_2, builtin2, False)
typedef Value (*fbuiltin_3_func) (Value, Value, Value);
BuiltinFuncStructDef(fbuiltin_3, fbuiltin_3_func);
#define BuiltinFuncs3(n, f) \
BuiltinFuncsGeneric(n, f, fbuiltin_3, builtin3, False)
typedef Value (*fbuiltin_4_func) (Value, Value, Value, Value);
BuiltinFuncStructDef(fbuiltin_4, fbuiltin_4_func);
#define BuiltinFuncs4(n, f) \
BuiltinFuncsGeneric(n, f, fbuiltin_4, builtin4, False)
typedef Value (*fbuiltin_5_func) (Value, Value, Value, Value, Value);
BuiltinFuncStructDef(fbuiltin_5, fbuiltin_5_func);
#define BuiltinFuncs5(n, f) \
BuiltinFuncsGeneric(n, f, fbuiltin_5, builtin5, False)
typedef Value (*fbuiltin_6_func) (Value, Value, Value, Value, Value, Value);
BuiltinFuncStructDef(fbuiltin_6, fbuiltin_6_func);
#define BuiltinFuncs6(n, f) \
BuiltinFuncsGeneric(n, f, fbuiltin_6, builtin6, False)
typedef Value (*fbuiltin_7_func) (Value, Value, Value, Value, Value, Value, Value);
BuiltinFuncStructDef(fbuiltin_7, fbuiltin_7_func);
#define BuiltinFuncs7(n, f) \
BuiltinFuncsGeneric(n, f, fbuiltin_7, builtin7, False)
typedef Value (*fbuiltin_8_func) (Value, Value, Value, Value, Value, Value, Value, Value);
BuiltinFuncStructDef(fbuiltin_8, fbuiltin_8_func);
#define BuiltinFuncs8(n, f) \
BuiltinFuncsGeneric(n, f, fbuiltin_8, builtin8, False)
typedef Value (*fbuiltin_vj_func) (InstPtr *, int, Value *);
BuiltinFuncStructDef(fbuiltin_vj, fbuiltin_vj_func);
#define BuiltinFuncsVJ(n, f) \
BuiltinFuncsGeneric(n, f, fbuiltin_vj, builtinNJ, True)
typedef Value (*fbuiltin_0j_func) (InstPtr *);
BuiltinFuncStructDef(fbuiltin_0j, fbuiltin_0j_func);
#define BuiltinFuncs0J(n, f) \
BuiltinFuncsGeneric(n, f, fbuiltin_0j, builtin0J, True)
typedef Value (*fbuiltin_1j_func) (InstPtr *, Value);
BuiltinFuncStructDef(fbuiltin_1j, fbuiltin_1j_func);
#define BuiltinFuncs1J(n, f) \
BuiltinFuncsGeneric(n, f, fbuiltin_1j, builtin1J, True)
typedef Value (*fbuiltin_2j_func) (InstPtr *, Value, Value);
BuiltinFuncStructDef(fbuiltin_2j, fbuiltin_2j_func);
#define BuiltinFuncs2J(n, f) \
BuiltinFuncsGeneric(n, f, fbuiltin_2j, builtin2J, True)
#if LOCAL_BUILD
#include "builtin-namespaces.h"
#else
#include <nickle/builtin-namespaces.h>
#endif
|
