/
spp.h
173 lines (150 loc) · 3.36 KB
/
spp.h
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
#ifndef _INCLUDE_SPP_H_
#define _INCLUDE_SPP_H_
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdarg.h>
#include <stdbool.h>
#include <errno.h>
#ifndef VERSION
#define VERSION "1.2.0"
#endif
#ifdef S_API
#undef S_API
#endif
#if R_SWIG
#define S_API export
#elif R_INLINE
#define S_API inline
#else
#if defined(__GNUC__) && __GNUC__ >= 4
#define S_API __attribute__((visibility("default")))
#elif defined(_MSC_VER)
#define S_API __declspec(dllexport)
#else
#define S_API
#endif
#endif
#if defined(EMSCRIPTEN) || defined(__linux__) || defined(__APPLE__) || defined(__GNU__) || defined(__ANDROID__) || defined(__QNX__)
#define __BSD__ 0
#define __UNIX__ 1
#endif
#if __KFBSD__ || defined(__NetBSD__) || defined(__OpenBSD__)
#define __BSD__ 1
#define __UNIX__ 1
#endif
#if __WIN32__ || __CYGWIN__ || MINGW32
#define __addr_t_defined
#include <windows.h>
#endif
#if __WIN32__ || MINGW32 && !__CYGWIN__ || _MSC_VER
#ifndef _MSC_VER
#include <winsock.h>
#endif
typedef int socklen_t;
#undef USE_SOCKETS
#define __WINDOWS__ 1
#undef __UNIX__
#undef __BSD__
#endif
#ifdef __WINDOWS__
#include <io.h>
#define popen _popen
#define pclose _pclose
#define srandom srand
#define snprintf _snprintf
#endif
#define MAXIFL 128
#ifndef DLL_LOCAL
#ifdef _MSC_VER
#define DLL_LOCAL
#else
#define DLL_LOCAL __attribute__ ((visibility ("hidden")))
#endif
#endif
#define GET_ARG(x,y,i) if (y[i][2]) x = y[i] + 2; else x = y[++i]
#define DEFAULT_PROC(x) \
struct Tag *tags = (struct Tag *)&x##_tags; \
struct Arg *args = (struct Arg *)&x##_args; \
struct Proc *proc = &x##_proc;
#if USE_R2
#include <r_util.h>
#define SStrBuf RStrBuf
#else
typedef struct s_strbuf_t {
int len;
char *ptr;
int ptrlen;
char buf[64];
} SStrBuf;
#endif
typedef struct {
SStrBuf *cout;
FILE *fout;
int size;
} Output;
typedef struct SppState {
int lineno;
int echo[MAXIFL];
int ifl;
} SppState;
typedef struct SppBuf {
char *lbuf;
int lbuf_s;
int lbuf_n;
} SppBuf;
#define ARG_CALLBACK(x) int x (char *arg)
/* XXX swap arguments ?? */
#define TAG_CALLBACK(x) int x (SppState *state, Output *out, char *buf)
#define PUT_CALLBACK(x) int x (Output *out, char *buf)
#define IS_SPACE(x) ((x==' ')||(x=='\t')||(x=='\r')||(x=='\n'))
typedef struct Tag {
const char *name;
TAG_CALLBACK((*callback));
} SppTag;
typedef struct Arg {
const char *flag;
const char *desc;
int has_arg;
ARG_CALLBACK((*callback));
} SppArg;
typedef struct Proc {
const char *name;
struct Tag **tags;
struct Arg **args;
TAG_CALLBACK ((*eof));
PUT_CALLBACK ((*fputs));
char *tag_pre;
char *tag_post;
char *token;
char *multiline;
int chop;
int tag_begin;
int default_echo;
SppState state;
SppBuf buf;
} SppProc;
typedef struct spp_t {
SppProc *proc;
Output *out;
} Spp;
S_API int spp_file(const char *file, Output *out);
S_API int spp_run(char *buf, Output *out);
S_API void spp_eval(char *buf, Output *out);
S_API void spp_proc_eval(SppProc *p, char *buf, Output *out);
S_API void spp_io(FILE *in, Output *out);
S_API void spp_proc_list(void);
S_API void spp_proc_list_kw(void);
S_API void spp_proc_set(SppProc *p, const char *arg, int fail);
S_API Spp *spp_new(SppProc *proc);
S_API char *spp_parse(Spp *s, const char *input);
S_API void spp_free(Spp *s);
#if DEBUG
#define D if (1)
#else
#define D if (0)
#endif
#ifndef HAVE_FORK
#define HAVE_FORK 1
#endif
#endif