adamc@117
|
1 #include <stdlib.h>
|
adamc@102
|
2 #include <stdio.h>
|
adamc@117
|
3 #include <string.h>
|
adamc@106
|
4 #include <ctype.h>
|
adamc@167
|
5 #include <setjmp.h>
|
adamc@167
|
6 #include <stdarg.h>
|
adamc@102
|
7
|
adamc@102
|
8 #include "types.h"
|
adamc@102
|
9
|
adamc@102
|
10 lw_unit lw_unit_v = {};
|
adamc@102
|
11
|
adamc@167
|
12 #define ERROR_BUF_LEN 1024
|
adamc@167
|
13
|
adamc@117
|
14 struct lw_context {
|
adamc@117
|
15 char *page, *page_front, *page_back;
|
adamc@136
|
16 char *heap, *heap_front, *heap_back;
|
adamc@144
|
17 char **inputs;
|
adamc@167
|
18
|
adamc@272
|
19 void *db;
|
adamc@272
|
20
|
adamc@167
|
21 jmp_buf jmp_buf;
|
adamc@167
|
22
|
adamc@167
|
23 char error_message[ERROR_BUF_LEN];
|
adamc@117
|
24 };
|
adamc@117
|
25
|
adamc@144
|
26 extern int lw_inputs_len;
|
adamc@144
|
27
|
adamc@136
|
28 lw_context lw_init(size_t page_len, size_t heap_len) {
|
adamc@117
|
29 lw_context ctx = malloc(sizeof(struct lw_context));
|
adamc@136
|
30
|
adamc@117
|
31 ctx->page_front = ctx->page = malloc(page_len);
|
adamc@117
|
32 ctx->page_back = ctx->page_front + page_len;
|
adamc@136
|
33
|
adamc@136
|
34 ctx->heap_front = ctx->heap = malloc(heap_len);
|
adamc@136
|
35 ctx->heap_back = ctx->heap_front + heap_len;
|
adamc@136
|
36
|
adamc@144
|
37 ctx->inputs = calloc(lw_inputs_len, sizeof(char *));
|
adamc@144
|
38
|
adamc@272
|
39 ctx->db = NULL;
|
adamc@272
|
40
|
adamc@167
|
41 ctx->error_message[0] = 0;
|
adamc@167
|
42
|
adamc@117
|
43 return ctx;
|
adamc@106
|
44 }
|
adamc@106
|
45
|
adamc@272
|
46 void lw_set_db(lw_context ctx, void *db) {
|
adamc@272
|
47 ctx->db = db;
|
adamc@272
|
48 }
|
adamc@272
|
49
|
adamc@272
|
50 void *lw_get_db(lw_context ctx) {
|
adamc@272
|
51 return ctx->db;
|
adamc@272
|
52 }
|
adamc@272
|
53
|
adamc@117
|
54 void lw_free(lw_context ctx) {
|
adamc@117
|
55 free(ctx->page);
|
adamc@136
|
56 free(ctx->heap);
|
adamc@144
|
57 free(ctx->inputs);
|
adamc@136
|
58 free(ctx);
|
adamc@136
|
59 }
|
adamc@136
|
60
|
adamc@167
|
61 void lw_reset_keep_request(lw_context ctx) {
|
adamc@138
|
62 ctx->page_front = ctx->page;
|
adamc@138
|
63 ctx->heap_front = ctx->heap;
|
adamc@167
|
64
|
adamc@167
|
65 ctx->error_message[0] = 0;
|
adamc@167
|
66 }
|
adamc@167
|
67
|
adamc@167
|
68 void lw_reset_keep_error_message(lw_context ctx) {
|
adamc@167
|
69 ctx->page_front = ctx->page;
|
adamc@167
|
70 ctx->heap_front = ctx->heap;
|
adamc@167
|
71 }
|
adamc@167
|
72
|
adamc@167
|
73 void lw_reset(lw_context ctx) {
|
adamc@167
|
74 lw_reset_keep_request(ctx);
|
adamc@144
|
75 memset(ctx->inputs, 0, lw_inputs_len * sizeof(char *));
|
adamc@144
|
76 }
|
adamc@144
|
77
|
adamc@272
|
78 void lw_db_init(lw_context);
|
adamc@167
|
79 void lw_handle(lw_context, char *);
|
adamc@167
|
80
|
adamc@272
|
81 failure_kind lw_begin_init(lw_context ctx) {
|
adamc@272
|
82 int r = setjmp(ctx->jmp_buf);
|
adamc@272
|
83
|
adamc@272
|
84 if (r == 0)
|
adamc@272
|
85 lw_db_init(ctx);
|
adamc@272
|
86
|
adamc@272
|
87 return r;
|
adamc@272
|
88 }
|
adamc@272
|
89
|
adamc@167
|
90 failure_kind lw_begin(lw_context ctx, char *path) {
|
adamc@190
|
91 int r = setjmp(ctx->jmp_buf);
|
adamc@190
|
92
|
adamc@190
|
93 if (r == 0)
|
adamc@167
|
94 lw_handle(ctx, path);
|
adamc@167
|
95
|
adamc@190
|
96 return r;
|
adamc@167
|
97 }
|
adamc@167
|
98
|
adamc@283
|
99 __attribute__((noreturn)) void lw_error(lw_context ctx, failure_kind fk, const char *fmt, ...) {
|
adamc@167
|
100 va_list ap;
|
adamc@167
|
101 va_start(ap, fmt);
|
adamc@167
|
102
|
adamc@167
|
103 vsnprintf(ctx->error_message, ERROR_BUF_LEN, fmt, ap);
|
adamc@167
|
104
|
adamc@190
|
105 longjmp(ctx->jmp_buf, fk);
|
adamc@167
|
106 }
|
adamc@167
|
107
|
adamc@283
|
108 __attribute__((noreturn)) void lw_Basis_error(lw_context ctx, const char *s) {
|
adamc@283
|
109 lw_error(ctx, FATAL, s);
|
adamc@283
|
110 }
|
adamc@283
|
111
|
adamc@167
|
112 char *lw_error_message(lw_context ctx) {
|
adamc@167
|
113 return ctx->error_message;
|
adamc@167
|
114 }
|
adamc@167
|
115
|
adamc@144
|
116 int lw_input_num(char*);
|
adamc@144
|
117
|
adamc@144
|
118 void lw_set_input(lw_context ctx, char *name, char *value) {
|
adamc@144
|
119 int n = lw_input_num(name);
|
adamc@144
|
120
|
adamc@169
|
121 if (n < 0)
|
adamc@169
|
122 lw_error(ctx, FATAL, "Bad input name %s", name);
|
adamc@144
|
123
|
adamc@169
|
124 if (n >= lw_inputs_len)
|
adamc@169
|
125 lw_error(ctx, FATAL, "For input name %s, index %d is out of range", name, n);
|
adamc@169
|
126
|
adamc@144
|
127 ctx->inputs[n] = value;
|
adamc@144
|
128
|
adamc@282
|
129 //printf("[%d] %s = %s\n", n, name, value);
|
adamc@144
|
130 }
|
adamc@144
|
131
|
adamc@144
|
132 char *lw_get_input(lw_context ctx, int n) {
|
adamc@169
|
133 if (n < 0)
|
adamc@169
|
134 lw_error(ctx, FATAL, "Negative input index %d", n);
|
adamc@169
|
135 if (n >= lw_inputs_len)
|
adamc@169
|
136 lw_error(ctx, FATAL, "Out-of-bounds input index %d", n);
|
adamc@282
|
137 //printf("[%d] = %s\n", n, ctx->inputs[n]);
|
adamc@144
|
138 return ctx->inputs[n];
|
adamc@138
|
139 }
|
adamc@138
|
140
|
adamc@190
|
141 char *lw_get_optional_input(lw_context ctx, int n) {
|
adamc@190
|
142 if (n < 0)
|
adamc@190
|
143 lw_error(ctx, FATAL, "Negative input index %d", n);
|
adamc@190
|
144 if (n >= lw_inputs_len)
|
adamc@190
|
145 lw_error(ctx, FATAL, "Out-of-bounds input index %d", n);
|
adamc@190
|
146 printf("[%d] = %s\n", n, ctx->inputs[n]);
|
adamc@190
|
147 return (ctx->inputs[n] == NULL ? "" : ctx->inputs[n]);
|
adamc@190
|
148 }
|
adamc@190
|
149
|
adamc@136
|
150 static void lw_check_heap(lw_context ctx, size_t extra) {
|
adamc@136
|
151 if (ctx->heap_back - ctx->heap_front < extra) {
|
adamc@136
|
152 size_t desired = ctx->heap_back - ctx->heap_front + extra, next;
|
adamc@136
|
153 char *new_heap;
|
adamc@136
|
154
|
adamc@136
|
155 for (next = ctx->heap_back - ctx->heap_front; next < desired; next *= 2);
|
adamc@136
|
156
|
adamc@136
|
157 new_heap = realloc(ctx->heap, next);
|
adamc@169
|
158 ctx->heap_front = new_heap;
|
adamc@169
|
159 ctx->heap_back = new_heap + next;
|
adamc@136
|
160
|
adamc@136
|
161 if (new_heap != ctx->heap) {
|
adamc@136
|
162 ctx->heap = new_heap;
|
adamc@169
|
163 lw_error(ctx, UNLIMITED_RETRY, "Couldn't allocate new heap chunk contiguously");
|
adamc@136
|
164 }
|
adamc@136
|
165
|
adamc@169
|
166 ctx->heap = new_heap;
|
adamc@136
|
167 }
|
adamc@136
|
168 }
|
adamc@136
|
169
|
adamc@136
|
170 void *lw_malloc(lw_context ctx, size_t len) {
|
adamc@136
|
171 void *result;
|
adamc@136
|
172
|
adamc@136
|
173 lw_check_heap(ctx, len);
|
adamc@136
|
174
|
adamc@136
|
175 result = ctx->heap_front;
|
adamc@136
|
176 ctx->heap_front += len;
|
adamc@136
|
177 return result;
|
adamc@117
|
178 }
|
adamc@117
|
179
|
adamc@117
|
180 int lw_really_send(int sock, const void *buf, ssize_t len) {
|
adamc@117
|
181 while (len > 0) {
|
adamc@117
|
182 ssize_t n = send(sock, buf, len, 0);
|
adamc@117
|
183
|
adamc@117
|
184 if (n < 0)
|
adamc@117
|
185 return n;
|
adamc@117
|
186
|
adamc@117
|
187 buf += n;
|
adamc@117
|
188 len -= n;
|
adamc@117
|
189 }
|
adamc@117
|
190
|
adamc@117
|
191 return 0;
|
adamc@117
|
192 }
|
adamc@117
|
193
|
adamc@117
|
194 int lw_send(lw_context ctx, int sock) {
|
adamc@117
|
195 return lw_really_send(sock, ctx->page, ctx->page_front - ctx->page);
|
adamc@117
|
196 }
|
adamc@117
|
197
|
adamc@117
|
198 static void lw_check(lw_context ctx, size_t extra) {
|
adamc@117
|
199 size_t desired = ctx->page_back - ctx->page_front + extra, next;
|
adamc@117
|
200 char *new_page;
|
adamc@117
|
201
|
adamc@117
|
202 for (next = ctx->page_back - ctx->page_front; next < desired; next *= 2);
|
adamc@117
|
203
|
adamc@117
|
204 new_page = realloc(ctx->page, next);
|
adamc@117
|
205 ctx->page_front = new_page + (ctx->page_front - ctx->page);
|
adamc@117
|
206 ctx->page_back = new_page + (ctx->page_back - ctx->page);
|
adamc@117
|
207 ctx->page = new_page;
|
adamc@117
|
208 }
|
adamc@117
|
209
|
adamc@117
|
210 static void lw_writec_unsafe(lw_context ctx, char c) {
|
adamc@117
|
211 *(ctx->page_front)++ = c;
|
adamc@117
|
212 }
|
adamc@117
|
213
|
adamc@117
|
214 void lw_writec(lw_context ctx, char c) {
|
adamc@117
|
215 lw_check(ctx, 1);
|
adamc@117
|
216 lw_writec_unsafe(ctx, c);
|
adamc@117
|
217 }
|
adamc@117
|
218
|
adamc@117
|
219 static void lw_write_unsafe(lw_context ctx, const char* s) {
|
adamc@117
|
220 int len = strlen(s);
|
adamc@117
|
221 memcpy(ctx->page_front, s, len);
|
adamc@117
|
222 ctx->page_front += len;
|
adamc@117
|
223 }
|
adamc@117
|
224
|
adamc@117
|
225 void lw_write(lw_context ctx, const char* s) {
|
adamc@183
|
226 lw_check(ctx, strlen(s) + 1);
|
adamc@117
|
227 lw_write_unsafe(ctx, s);
|
adamc@183
|
228 *ctx->page_front = 0;
|
adamc@102
|
229 }
|
adamc@106
|
230
|
adamc@135
|
231
|
adamc@136
|
232 #define INTS_MAX 50
|
adamc@136
|
233 #define FLOATS_MAX 100
|
adamc@136
|
234
|
adamc@136
|
235 char *lw_Basis_attrifyInt(lw_context ctx, lw_Basis_int n) {
|
adamc@136
|
236 char *result;
|
adamc@136
|
237 int len;
|
adamc@136
|
238 lw_check_heap(ctx, INTS_MAX);
|
adamc@136
|
239 result = ctx->heap_front;
|
adamc@276
|
240 sprintf(result, "%lld%n", n, &len);
|
adamc@137
|
241 ctx->heap_front += len+1;
|
adamc@136
|
242 return result;
|
adamc@106
|
243 }
|
adamc@106
|
244
|
adamc@136
|
245 char *lw_Basis_attrifyFloat(lw_context ctx, lw_Basis_float n) {
|
adamc@136
|
246 char *result;
|
adamc@136
|
247 int len;
|
adamc@137
|
248 lw_check_heap(ctx, FLOATS_MAX);
|
adamc@136
|
249 result = ctx->heap_front;
|
adamc@136
|
250 sprintf(result, "%g%n", n, &len);
|
adamc@137
|
251 ctx->heap_front += len+1;
|
adamc@136
|
252 return result;
|
adamc@106
|
253 }
|
adamc@106
|
254
|
adamc@136
|
255 char *lw_Basis_attrifyString(lw_context ctx, lw_Basis_string s) {
|
adamc@136
|
256 int len = strlen(s);
|
adamc@136
|
257 char *result, *p;
|
adamc@137
|
258 lw_check_heap(ctx, len * 6 + 1);
|
adamc@136
|
259
|
adamc@136
|
260 result = p = ctx->heap_front;
|
adamc@136
|
261
|
adamc@136
|
262 for (; *s; s++) {
|
adamc@136
|
263 char c = *s;
|
adamc@136
|
264
|
adamc@136
|
265 if (c == '"') {
|
adamc@136
|
266 strcpy(p, """);
|
adamc@136
|
267 p += 6;
|
adamc@136
|
268 } else if (c == '&') {
|
adamc@136
|
269 strcpy(p, "&");
|
adamc@136
|
270 p += 5;
|
adamc@136
|
271 }
|
adamc@136
|
272 else if (isprint(c))
|
adamc@136
|
273 *p++ = c;
|
adamc@136
|
274 else {
|
adamc@136
|
275 int len2;
|
adamc@136
|
276 sprintf(p, "&#%d;%n", c, &len2);
|
adamc@136
|
277 p += len2;
|
adamc@136
|
278 }
|
adamc@136
|
279 }
|
adamc@136
|
280
|
adamc@137
|
281 *p++ = 0;
|
adamc@136
|
282 ctx->heap_front = p;
|
adamc@136
|
283 return result;
|
adamc@106
|
284 }
|
adamc@106
|
285
|
adamc@117
|
286 static void lw_Basis_attrifyInt_w_unsafe(lw_context ctx, lw_Basis_int n) {
|
adamc@117
|
287 int len;
|
adamc@117
|
288
|
adamc@276
|
289 sprintf(ctx->page_front, "%lld%n", n, &len);
|
adamc@117
|
290 ctx->page_front += len;
|
adamc@106
|
291 }
|
adamc@106
|
292
|
adamc@117
|
293 void lw_Basis_attrifyInt_w(lw_context ctx, lw_Basis_int n) {
|
adamc@117
|
294 lw_check(ctx, INTS_MAX);
|
adamc@117
|
295 lw_Basis_attrifyInt_w_unsafe(ctx, n);
|
adamc@106
|
296 }
|
adamc@106
|
297
|
adamc@117
|
298 void lw_Basis_attrifyFloat_w(lw_context ctx, lw_Basis_float n) {
|
adamc@117
|
299 int len;
|
adamc@117
|
300
|
adamc@117
|
301 lw_check(ctx, FLOATS_MAX);
|
adamc@117
|
302 sprintf(ctx->page_front, "%g%n", n, &len);
|
adamc@117
|
303 ctx->page_front += len;
|
adamc@117
|
304 }
|
adamc@117
|
305
|
adamc@117
|
306 void lw_Basis_attrifyString_w(lw_context ctx, lw_Basis_string s) {
|
adamc@117
|
307 lw_check(ctx, strlen(s) * 6);
|
adamc@117
|
308
|
adamc@106
|
309 for (; *s; s++) {
|
adamc@106
|
310 char c = *s;
|
adamc@106
|
311
|
adamc@106
|
312 if (c == '"')
|
adamc@117
|
313 lw_write_unsafe(ctx, """);
|
adamc@136
|
314 else if (c == '&')
|
adamc@136
|
315 lw_write_unsafe(ctx, "&");
|
adamc@106
|
316 else if (isprint(c))
|
adamc@117
|
317 lw_writec_unsafe(ctx, c);
|
adamc@106
|
318 else {
|
adamc@117
|
319 lw_write_unsafe(ctx, "&#");
|
adamc@117
|
320 lw_Basis_attrifyInt_w_unsafe(ctx, c);
|
adamc@117
|
321 lw_writec_unsafe(ctx, ';');
|
adamc@106
|
322 }
|
adamc@106
|
323 }
|
adamc@106
|
324 }
|
adamc@120
|
325
|
adamc@120
|
326
|
adamc@137
|
327 char *lw_Basis_urlifyInt(lw_context ctx, lw_Basis_int n) {
|
adamc@137
|
328 int len;
|
adamc@137
|
329 char *r;
|
adamc@137
|
330
|
adamc@137
|
331 lw_check_heap(ctx, INTS_MAX);
|
adamc@137
|
332 r = ctx->heap_front;
|
adamc@276
|
333 sprintf(r, "%lld%n", n, &len);
|
adamc@137
|
334 ctx->heap_front += len+1;
|
adamc@137
|
335 return r;
|
adamc@120
|
336 }
|
adamc@120
|
337
|
adamc@137
|
338 char *lw_Basis_urlifyFloat(lw_context ctx, lw_Basis_float n) {
|
adamc@137
|
339 int len;
|
adamc@137
|
340 char *r;
|
adamc@137
|
341
|
adamc@137
|
342 lw_check_heap(ctx, FLOATS_MAX);
|
adamc@137
|
343 r = ctx->heap_front;
|
adamc@137
|
344 sprintf(r, "%g%n", n, &len);
|
adamc@137
|
345 ctx->heap_front += len+1;
|
adamc@137
|
346 return r;
|
adamc@120
|
347 }
|
adamc@120
|
348
|
adamc@137
|
349 char *lw_Basis_urlifyString(lw_context ctx, lw_Basis_string s) {
|
adamc@137
|
350 char *r, *p;
|
adamc@137
|
351
|
adamc@137
|
352 lw_check_heap(ctx, strlen(s) * 3 + 1);
|
adamc@137
|
353
|
adamc@137
|
354 for (r = p = ctx->heap_front; *s; s++) {
|
adamc@137
|
355 char c = *s;
|
adamc@137
|
356
|
adamc@137
|
357 if (c == ' ')
|
adamc@137
|
358 *p++ = '+';
|
adamc@137
|
359 else if (isalnum(c))
|
adamc@137
|
360 *p++ = c;
|
adamc@137
|
361 else {
|
adamc@137
|
362 sprintf(p, "%%%02X", c);
|
adamc@137
|
363 p += 3;
|
adamc@137
|
364 }
|
adamc@137
|
365 }
|
adamc@137
|
366
|
adamc@137
|
367 *p++ = 0;
|
adamc@137
|
368 ctx->heap_front = p;
|
adamc@137
|
369 return r;
|
adamc@120
|
370 }
|
adamc@120
|
371
|
adamc@186
|
372 char *lw_Basis_urlifyBool(lw_context ctx, lw_Basis_bool b) {
|
adamc@189
|
373 if (b == lw_Basis_False)
|
adamc@186
|
374 return "0";
|
adamc@186
|
375 else
|
adamc@186
|
376 return "1";
|
adamc@186
|
377 }
|
adamc@186
|
378
|
adamc@120
|
379 static void lw_Basis_urlifyInt_w_unsafe(lw_context ctx, lw_Basis_int n) {
|
adamc@120
|
380 int len;
|
adamc@120
|
381
|
adamc@276
|
382 sprintf(ctx->page_front, "%lld%n", n, &len);
|
adamc@120
|
383 ctx->page_front += len;
|
adamc@120
|
384 }
|
adamc@120
|
385
|
adamc@120
|
386 void lw_Basis_urlifyInt_w(lw_context ctx, lw_Basis_int n) {
|
adamc@120
|
387 lw_check(ctx, INTS_MAX);
|
adamc@120
|
388 lw_Basis_urlifyInt_w_unsafe(ctx, n);
|
adamc@120
|
389 }
|
adamc@120
|
390
|
adamc@120
|
391 void lw_Basis_urlifyFloat_w(lw_context ctx, lw_Basis_float n) {
|
adamc@120
|
392 int len;
|
adamc@120
|
393
|
adamc@120
|
394 lw_check(ctx, FLOATS_MAX);
|
adamc@120
|
395 sprintf(ctx->page_front, "%g%n", n, &len);
|
adamc@120
|
396 ctx->page_front += len;
|
adamc@120
|
397 }
|
adamc@120
|
398
|
adamc@120
|
399 void lw_Basis_urlifyString_w(lw_context ctx, lw_Basis_string s) {
|
adamc@120
|
400 lw_check(ctx, strlen(s) * 3);
|
adamc@120
|
401
|
adamc@120
|
402 for (; *s; s++) {
|
adamc@120
|
403 char c = *s;
|
adamc@120
|
404
|
adamc@120
|
405 if (c == ' ')
|
adamc@120
|
406 lw_writec_unsafe(ctx, '+');
|
adamc@120
|
407 else if (isalnum(c))
|
adamc@120
|
408 lw_writec_unsafe(ctx, c);
|
adamc@120
|
409 else {
|
adamc@120
|
410 sprintf(ctx->page_front, "%%%02X", c);
|
adamc@120
|
411 ctx->page_front += 3;
|
adamc@120
|
412 }
|
adamc@120
|
413 }
|
adamc@120
|
414 }
|
adamc@120
|
415
|
adamc@186
|
416 void lw_Basis_urlifyBool_w(lw_context ctx, lw_Basis_bool b) {
|
adamc@189
|
417 if (b == lw_Basis_False)
|
adamc@186
|
418 lw_writec(ctx, '0');
|
adamc@186
|
419 else
|
adamc@186
|
420 lw_writec(ctx, '1');
|
adamc@186
|
421 }
|
adamc@186
|
422
|
adamc@120
|
423
|
adamc@144
|
424 static char *lw_unurlify_advance(char *s) {
|
adamc@144
|
425 char *new_s = strchr(s, '/');
|
adamc@120
|
426
|
adamc@120
|
427 if (new_s)
|
adamc@120
|
428 *new_s++ = 0;
|
adamc@120
|
429 else
|
adamc@144
|
430 new_s = strchr(s, 0);
|
adamc@144
|
431
|
adamc@144
|
432 return new_s;
|
adamc@144
|
433 }
|
adamc@144
|
434
|
adamc@186
|
435 lw_Basis_int lw_Basis_unurlifyInt(lw_context ctx, char **s) {
|
adamc@144
|
436 char *new_s = lw_unurlify_advance(*s);
|
adamc@276
|
437 lw_Basis_int r;
|
adamc@120
|
438
|
adamc@276
|
439 r = atoll(*s);
|
adamc@120
|
440 *s = new_s;
|
adamc@120
|
441 return r;
|
adamc@120
|
442 }
|
adamc@120
|
443
|
adamc@186
|
444 lw_Basis_float lw_Basis_unurlifyFloat(lw_context ctx, char **s) {
|
adamc@144
|
445 char *new_s = lw_unurlify_advance(*s);
|
adamc@276
|
446 lw_Basis_float r;
|
adamc@120
|
447
|
adamc@120
|
448 r = atof(*s);
|
adamc@120
|
449 *s = new_s;
|
adamc@120
|
450 return r;
|
adamc@120
|
451 }
|
adamc@120
|
452
|
adamc@169
|
453 static lw_Basis_string lw_unurlifyString_to(lw_context ctx, char *r, char *s) {
|
adamc@144
|
454 char *s1, *s2;
|
adamc@144
|
455 int n;
|
adamc@136
|
456
|
adamc@144
|
457 for (s1 = r, s2 = s; *s2; ++s1, ++s2) {
|
adamc@136
|
458 char c = *s2;
|
adamc@136
|
459
|
adamc@136
|
460 switch (c) {
|
adamc@136
|
461 case '+':
|
adamc@136
|
462 *s1 = ' ';
|
adamc@136
|
463 break;
|
adamc@136
|
464 case '%':
|
adamc@169
|
465 if (s2[1] == 0)
|
adamc@169
|
466 lw_error(ctx, FATAL, "Missing first character of escaped URL byte");
|
adamc@169
|
467 if (s2[2] == 0)
|
adamc@169
|
468 lw_error(ctx, FATAL, "Missing second character of escaped URL byte");
|
adamc@169
|
469 if (sscanf(s2+1, "%02X", &n) != 1)
|
adamc@169
|
470 lw_error(ctx, FATAL, "Invalid escaped URL byte starting at: %s", s2);
|
adamc@136
|
471 *s1 = n;
|
adamc@136
|
472 s2 += 2;
|
adamc@136
|
473 break;
|
adamc@136
|
474 default:
|
adamc@136
|
475 *s1 = c;
|
adamc@136
|
476 }
|
adamc@136
|
477 }
|
adamc@136
|
478 *s1++ = 0;
|
adamc@144
|
479 return s1;
|
adamc@144
|
480 }
|
adamc@144
|
481
|
adamc@186
|
482 lw_Basis_bool lw_Basis_unurlifyBool(lw_context ctx, char **s) {
|
adamc@186
|
483 char *new_s = lw_unurlify_advance(*s);
|
adamc@186
|
484 lw_Basis_bool r;
|
adamc@186
|
485
|
adamc@186
|
486 if (*s[0] == 0 || !strcmp(*s, "0") || !strcmp(*s, "off"))
|
adamc@189
|
487 r = lw_Basis_False;
|
adamc@186
|
488 else
|
adamc@189
|
489 r = lw_Basis_True;
|
adamc@186
|
490
|
adamc@186
|
491 *s = new_s;
|
adamc@186
|
492 return r;
|
adamc@186
|
493 }
|
adamc@186
|
494
|
adamc@186
|
495 lw_Basis_string lw_Basis_unurlifyString(lw_context ctx, char **s) {
|
adamc@144
|
496 char *new_s = lw_unurlify_advance(*s);
|
adamc@144
|
497 char *r, *s1, *s2;
|
adamc@144
|
498 int len, n;
|
adamc@144
|
499
|
adamc@200
|
500 len = strlen(*s);
|
adamc@144
|
501 lw_check_heap(ctx, len + 1);
|
adamc@144
|
502
|
adamc@144
|
503 r = ctx->heap_front;
|
adamc@200
|
504 ctx->heap_front = lw_unurlifyString_to(ctx, ctx->heap_front, *s);
|
adamc@136
|
505 *s = new_s;
|
adamc@136
|
506 return r;
|
adamc@120
|
507 }
|
adamc@135
|
508
|
adamc@135
|
509
|
adamc@286
|
510 char *lw_Basis_htmlifyInt(lw_context ctx, lw_Basis_int n) {
|
adamc@286
|
511 int len;
|
adamc@286
|
512 char *r;
|
adamc@286
|
513
|
adamc@286
|
514 lw_check_heap(ctx, INTS_MAX);
|
adamc@286
|
515 r = ctx->heap_front;
|
adamc@286
|
516 sprintf(r, "%lld%n", n, &len);
|
adamc@286
|
517 ctx->heap_front += len+1;
|
adamc@286
|
518 return r;
|
adamc@286
|
519 }
|
adamc@286
|
520
|
adamc@286
|
521 void lw_Basis_htmlifyInt_w(lw_context ctx, lw_Basis_int n) {
|
adamc@286
|
522 int len;
|
adamc@286
|
523
|
adamc@286
|
524 lw_check(ctx, INTS_MAX);
|
adamc@286
|
525 sprintf(ctx->page_front, "%lld%n", n, &len);
|
adamc@286
|
526 ctx->page_front += len;
|
adamc@286
|
527 }
|
adamc@286
|
528
|
adamc@286
|
529 char *lw_Basis_htmlifyFloat(lw_context ctx, lw_Basis_float n) {
|
adamc@286
|
530 int len;
|
adamc@286
|
531 char *r;
|
adamc@286
|
532
|
adamc@286
|
533 lw_check_heap(ctx, FLOATS_MAX);
|
adamc@286
|
534 r = ctx->heap_front;
|
adamc@286
|
535 sprintf(r, "%g%n", n, &len);
|
adamc@286
|
536 ctx->heap_front += len+1;
|
adamc@286
|
537 return r;
|
adamc@286
|
538 }
|
adamc@286
|
539
|
adamc@286
|
540 void lw_Basis_htmlifyFloat_w(lw_context ctx, lw_Basis_float n) {
|
adamc@286
|
541 int len;
|
adamc@286
|
542
|
adamc@286
|
543 lw_check(ctx, FLOATS_MAX);
|
adamc@286
|
544 sprintf(ctx->page_front, "%g%n", n, &len);
|
adamc@286
|
545 ctx->page_front += len;
|
adamc@286
|
546 }
|
adamc@286
|
547
|
adamc@136
|
548 char *lw_Basis_htmlifyString(lw_context ctx, lw_Basis_string s) {
|
adamc@137
|
549 char *r, *s2;
|
adamc@137
|
550
|
adamc@137
|
551 lw_check_heap(ctx, strlen(s) * 5 + 1);
|
adamc@137
|
552
|
adamc@137
|
553 for (r = s2 = ctx->heap_front; *s; s++) {
|
adamc@137
|
554 char c = *s;
|
adamc@137
|
555
|
adamc@137
|
556 switch (c) {
|
adamc@137
|
557 case '<':
|
adamc@137
|
558 strcpy(s2, "<");
|
adamc@137
|
559 s2 += 4;
|
adamc@137
|
560 break;
|
adamc@137
|
561 case '&':
|
adamc@137
|
562 strcpy(s2, "&");
|
adamc@137
|
563 s2 += 5;
|
adamc@137
|
564 break;
|
adamc@137
|
565 default:
|
adamc@137
|
566 if (isprint(c))
|
adamc@137
|
567 *s2++ = c;
|
adamc@137
|
568 else {
|
adamc@137
|
569 int len2;
|
adamc@137
|
570 sprintf(s2, "&#%d;%n", c, &len2);
|
adamc@137
|
571 s2 += len2;
|
adamc@137
|
572 }
|
adamc@137
|
573 }
|
adamc@137
|
574 }
|
adamc@137
|
575
|
adamc@137
|
576 *s2++ = 0;
|
adamc@137
|
577 ctx->heap_front = s2;
|
adamc@137
|
578 return r;
|
adamc@135
|
579 }
|
adamc@135
|
580
|
adamc@135
|
581 void lw_Basis_htmlifyString_w(lw_context ctx, lw_Basis_string s) {
|
adamc@135
|
582 lw_check(ctx, strlen(s) * 5);
|
adamc@135
|
583
|
adamc@135
|
584 for (; *s; s++) {
|
adamc@135
|
585 char c = *s;
|
adamc@135
|
586
|
adamc@135
|
587 switch (c) {
|
adamc@135
|
588 case '<':
|
adamc@135
|
589 lw_write_unsafe(ctx, "<");
|
adamc@135
|
590 break;
|
adamc@135
|
591 case '&':
|
adamc@135
|
592 lw_write_unsafe(ctx, "&");
|
adamc@135
|
593 break;
|
adamc@135
|
594 default:
|
adamc@135
|
595 if (isprint(c))
|
adamc@135
|
596 lw_writec_unsafe(ctx, c);
|
adamc@135
|
597 else {
|
adamc@135
|
598 lw_write_unsafe(ctx, "&#");
|
adamc@135
|
599 lw_Basis_attrifyInt_w_unsafe(ctx, c);
|
adamc@135
|
600 lw_writec_unsafe(ctx, ';');
|
adamc@135
|
601 }
|
adamc@135
|
602 }
|
adamc@135
|
603 }
|
adamc@135
|
604 }
|
adamc@180
|
605
|
adamc@286
|
606 lw_Basis_string lw_Basis_htmlifyBool(lw_context ctx, lw_Basis_bool b) {
|
adamc@286
|
607 if (b == lw_Basis_False)
|
adamc@286
|
608 return "False";
|
adamc@286
|
609 else
|
adamc@286
|
610 return "True";
|
adamc@286
|
611 }
|
adamc@286
|
612
|
adamc@286
|
613 void lw_Basis_htmlifyBool_w(lw_context ctx, lw_Basis_bool b) {
|
adamc@286
|
614 if (b == lw_Basis_False) {
|
adamc@286
|
615 lw_check(ctx, 6);
|
adamc@286
|
616 strcpy(ctx->page_front, "False");
|
adamc@286
|
617 ctx->page_front += 5;
|
adamc@286
|
618 } else {
|
adamc@286
|
619 lw_check(ctx, 5);
|
adamc@286
|
620 strcpy(ctx->page_front, "True");
|
adamc@286
|
621 ctx->page_front += 4;
|
adamc@286
|
622 }
|
adamc@286
|
623 }
|
adamc@286
|
624
|
adamc@180
|
625 lw_Basis_string lw_Basis_strcat(lw_context ctx, lw_Basis_string s1, lw_Basis_string s2) {
|
adamc@180
|
626 int len = strlen(s1) + strlen(s2) + 1;
|
adamc@180
|
627 char *s;
|
adamc@180
|
628
|
adamc@183
|
629 lw_check_heap(ctx, len);
|
adamc@180
|
630
|
adamc@180
|
631 s = ctx->heap_front;
|
adamc@180
|
632
|
adamc@180
|
633 strcpy(s, s1);
|
adamc@180
|
634 strcat(s, s2);
|
adamc@180
|
635 ctx->heap_front += len;
|
adamc@180
|
636
|
adamc@180
|
637 return s;
|
adamc@180
|
638 }
|
adamc@278
|
639
|
adamc@278
|
640 lw_Basis_string lw_Basis_strdup(lw_context ctx, lw_Basis_string s1) {
|
adamc@278
|
641 int len = strlen(s1) + 1;
|
adamc@278
|
642 char *s;
|
adamc@278
|
643
|
adamc@278
|
644 lw_check_heap(ctx, len);
|
adamc@278
|
645
|
adamc@278
|
646 s = ctx->heap_front;
|
adamc@278
|
647
|
adamc@278
|
648 strcpy(s, s1);
|
adamc@278
|
649 ctx->heap_front += len;
|
adamc@278
|
650
|
adamc@278
|
651 return s;
|
adamc@278
|
652 }
|
adamc@280
|
653
|
adamc@280
|
654
|
adamc@281
|
655 char *lw_Basis_sqlifyInt(lw_context ctx, lw_Basis_int n) {
|
adamc@281
|
656 int len;
|
adamc@281
|
657 char *r;
|
adamc@281
|
658
|
adamc@281
|
659 lw_check_heap(ctx, INTS_MAX + 6);
|
adamc@281
|
660 r = ctx->heap_front;
|
adamc@281
|
661 sprintf(r, "%lld::int8%n", n, &len);
|
adamc@281
|
662 ctx->heap_front += len+1;
|
adamc@281
|
663 return r;
|
adamc@281
|
664 }
|
adamc@281
|
665
|
adamc@281
|
666 char *lw_Basis_sqlifyFloat(lw_context ctx, lw_Basis_float n) {
|
adamc@281
|
667 int len;
|
adamc@281
|
668 char *r;
|
adamc@281
|
669
|
adamc@281
|
670 lw_check_heap(ctx, FLOATS_MAX + 8);
|
adamc@281
|
671 r = ctx->heap_front;
|
adamc@281
|
672 sprintf(r, "%g::float8%n", n, &len);
|
adamc@281
|
673 ctx->heap_front += len+1;
|
adamc@281
|
674 return r;
|
adamc@281
|
675 }
|
adamc@281
|
676
|
adamc@281
|
677
|
adamc@280
|
678 lw_Basis_string lw_Basis_sqlifyString(lw_context ctx, lw_Basis_string s) {
|
adamc@280
|
679 char *r, *s2;
|
adamc@280
|
680
|
adamc@281
|
681 lw_check_heap(ctx, strlen(s) * 2 + 10);
|
adamc@280
|
682
|
adamc@280
|
683 r = s2 = ctx->heap_front;
|
adamc@280
|
684 *s2++ = 'E';
|
adamc@280
|
685 *s2++ = '\'';
|
adamc@280
|
686
|
adamc@280
|
687 for (; *s; s++) {
|
adamc@280
|
688 char c = *s;
|
adamc@280
|
689
|
adamc@280
|
690 switch (c) {
|
adamc@280
|
691 case '\'':
|
adamc@280
|
692 strcpy(s2, "\\'");
|
adamc@280
|
693 s2 += 2;
|
adamc@280
|
694 break;
|
adamc@280
|
695 case '\\':
|
adamc@280
|
696 strcpy(s2, "\\\\");
|
adamc@280
|
697 s2 += 2;
|
adamc@280
|
698 break;
|
adamc@280
|
699 default:
|
adamc@280
|
700 if (isprint(c))
|
adamc@280
|
701 *s2++ = c;
|
adamc@280
|
702 else {
|
adamc@280
|
703 sprintf(s2, "\\%3o", c);
|
adamc@280
|
704 s2 += 4;
|
adamc@280
|
705 }
|
adamc@280
|
706 }
|
adamc@280
|
707 }
|
adamc@280
|
708
|
adamc@281
|
709 strcpy(s2, "'::text");
|
adamc@281
|
710 ctx->heap_front = s2 + 8;
|
adamc@280
|
711 return r;
|
adamc@280
|
712 }
|
adamc@281
|
713
|
adamc@281
|
714 char *lw_Basis_sqlifyBool(lw_context ctx, lw_Basis_bool b) {
|
adamc@281
|
715 if (b == lw_Basis_False)
|
adamc@281
|
716 return "FALSE";
|
adamc@281
|
717 else
|
adamc@281
|
718 return "TRUE";
|
adamc@281
|
719 }
|
adamc@282
|
720
|
adamc@282
|
721 char *lw_Basis_ensqlBool(lw_Basis_bool b) {
|
adamc@282
|
722 static lw_Basis_int true = 1;
|
adamc@282
|
723 static lw_Basis_int false = 0;
|
adamc@282
|
724
|
adamc@282
|
725 if (b == lw_Basis_False)
|
adamc@282
|
726 return (char *)&false;
|
adamc@282
|
727 else
|
adamc@282
|
728 return (char *)&true;
|
adamc@282
|
729 }
|
adamc@284
|
730
|
adamc@284
|
731 lw_Basis_string lw_Basis_intToString(lw_context ctx, lw_Basis_int n) {
|
adamc@284
|
732 int len;
|
adamc@284
|
733 char *r;
|
adamc@284
|
734
|
adamc@284
|
735 lw_check_heap(ctx, INTS_MAX);
|
adamc@284
|
736 r = ctx->heap_front;
|
adamc@284
|
737 sprintf(r, "%lld%n", n, &len);
|
adamc@284
|
738 ctx->heap_front += len+1;
|
adamc@284
|
739 return r;
|
adamc@284
|
740 }
|
adamc@285
|
741
|
adamc@285
|
742 lw_Basis_string lw_Basis_floatToString(lw_context ctx, lw_Basis_float n) {
|
adamc@285
|
743 int len;
|
adamc@285
|
744 char *r;
|
adamc@285
|
745
|
adamc@285
|
746 lw_check_heap(ctx, FLOATS_MAX);
|
adamc@285
|
747 r = ctx->heap_front;
|
adamc@285
|
748 sprintf(r, "%g%n", n, &len);
|
adamc@285
|
749 ctx->heap_front += len+1;
|
adamc@285
|
750 return r;
|
adamc@285
|
751 }
|
adamc@285
|
752
|
adamc@285
|
753 lw_Basis_string lw_Basis_boolToString(lw_context ctx, lw_Basis_bool b) {
|
adamc@285
|
754 if (b == lw_Basis_False)
|
adamc@285
|
755 return "False";
|
adamc@285
|
756 else
|
adamc@285
|
757 return "True";
|
adamc@285
|
758 }
|
adamc@288
|
759
|
adamc@288
|
760
|
adamc@288
|
761 lw_Basis_int *lw_Basis_stringToInt(lw_context ctx, lw_Basis_string s) {
|
adamc@288
|
762 char *endptr;
|
adamc@288
|
763 lw_Basis_int n = strtoll(s, &endptr, 10);
|
adamc@288
|
764
|
adamc@288
|
765 if (*s != '\0' && *endptr == '\0') {
|
adamc@288
|
766 lw_Basis_int *r = lw_malloc(ctx, sizeof(lw_Basis_int));
|
adamc@288
|
767 *r = n;
|
adamc@288
|
768 return r;
|
adamc@288
|
769 } else
|
adamc@288
|
770 return NULL;
|
adamc@288
|
771 }
|