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
|
/* tags.h
vi:se ts=3 sw=3:
*/
#define forever for(;;)
/* a tag is a very simple data structure */
struct tag
{
unsigned long type;
VALUE data;
};
#define TAG_END 0
#define TAG_IGNORE 1 /* ignore this tag */
#define TAG_SKIP 3 /* skip <n> tags in the list */
#define TAG_SUB 2 /* sub to <taglist> */
#define TAG_JUMP 4 /* jump to <taglist> */
unsigned long tag_length P((struct tag *t));
struct tag *tags_copy P((struct tag *t));
struct tag *alloc_tags P((unsigned long l));
struct tag *get_tag P((struct tag *t));
#ifdef KLUDGE_TAG
/* in case the stack is right, we can do this */
#define TAG(function) \
struct tag *function##taglist(struct tag *list); \
struct tag *function(unsigned long arg1, ...) \
{ \
return function##taglist(&arg1); \
}\
struct tag *function##taglist
#else
/* in other cases, we have to copy the tags to a taglist... */
#include <stdarg.h>
#define TAG(function) \
struct tag *function##taglist(struct tag *list); \
struct tag *function(unsigned long type, ...) \
{ \
va_list ap; \
struct tag big[50]; \
int i = 0; \
va_start(ap, type); \
while (type != TAG_END) \
{ \
big[i].type = type; \
big[i].data = va_arg(ap, VALUE); \
i++; \
type = va_arg(ap, unsigned long); \
} \
return function##taglist(big); \
} \
struct tag *function##taglist
#endif
|
