adamc@117: #include adamc@102: #include adamc@117: #include adamc@106: #include adamc@167: #include adamc@167: #include adamc@102: adamc@102: #include "types.h" adamc@102: adamc@102: lw_unit lw_unit_v = {}; adamc@102: adamc@167: #define ERROR_BUF_LEN 1024 adamc@167: adamc@117: struct lw_context { adamc@117: char *page, *page_front, *page_back; adamc@136: char *heap, *heap_front, *heap_back; adamc@144: char **inputs; adamc@167: adamc@272: void *db; adamc@272: adamc@167: jmp_buf jmp_buf; adamc@167: adamc@167: char error_message[ERROR_BUF_LEN]; adamc@117: }; adamc@117: adamc@144: extern int lw_inputs_len; adamc@144: adamc@136: lw_context lw_init(size_t page_len, size_t heap_len) { adamc@117: lw_context ctx = malloc(sizeof(struct lw_context)); adamc@136: adamc@117: ctx->page_front = ctx->page = malloc(page_len); adamc@117: ctx->page_back = ctx->page_front + page_len; adamc@136: adamc@136: ctx->heap_front = ctx->heap = malloc(heap_len); adamc@136: ctx->heap_back = ctx->heap_front + heap_len; adamc@136: adamc@144: ctx->inputs = calloc(lw_inputs_len, sizeof(char *)); adamc@144: adamc@272: ctx->db = NULL; adamc@272: adamc@167: ctx->error_message[0] = 0; adamc@167: adamc@117: return ctx; adamc@106: } adamc@106: adamc@272: void lw_set_db(lw_context ctx, void *db) { adamc@272: ctx->db = db; adamc@272: } adamc@272: adamc@272: void *lw_get_db(lw_context ctx) { adamc@272: return ctx->db; adamc@272: } adamc@272: adamc@117: void lw_free(lw_context ctx) { adamc@117: free(ctx->page); adamc@136: free(ctx->heap); adamc@144: free(ctx->inputs); adamc@136: free(ctx); adamc@136: } adamc@136: adamc@167: void lw_reset_keep_request(lw_context ctx) { adamc@138: ctx->page_front = ctx->page; adamc@138: ctx->heap_front = ctx->heap; adamc@167: adamc@167: ctx->error_message[0] = 0; adamc@167: } adamc@167: adamc@167: void lw_reset_keep_error_message(lw_context ctx) { adamc@167: ctx->page_front = ctx->page; adamc@167: ctx->heap_front = ctx->heap; adamc@167: } adamc@167: adamc@167: void lw_reset(lw_context ctx) { adamc@167: lw_reset_keep_request(ctx); adamc@144: memset(ctx->inputs, 0, lw_inputs_len * sizeof(char *)); adamc@144: } adamc@144: adamc@272: void lw_db_init(lw_context); adamc@167: void lw_handle(lw_context, char *); adamc@167: adamc@272: failure_kind lw_begin_init(lw_context ctx) { adamc@272: int r = setjmp(ctx->jmp_buf); adamc@272: adamc@272: if (r == 0) adamc@272: lw_db_init(ctx); adamc@272: adamc@272: return r; adamc@272: } adamc@272: adamc@167: failure_kind lw_begin(lw_context ctx, char *path) { adamc@190: int r = setjmp(ctx->jmp_buf); adamc@190: adamc@190: if (r == 0) adamc@167: lw_handle(ctx, path); adamc@167: adamc@190: return r; adamc@167: } adamc@167: adamc@283: __attribute__((noreturn)) void lw_error(lw_context ctx, failure_kind fk, const char *fmt, ...) { adamc@167: va_list ap; adamc@167: va_start(ap, fmt); adamc@167: adamc@167: vsnprintf(ctx->error_message, ERROR_BUF_LEN, fmt, ap); adamc@167: adamc@190: longjmp(ctx->jmp_buf, fk); adamc@167: } adamc@167: adamc@167: char *lw_error_message(lw_context ctx) { adamc@167: return ctx->error_message; adamc@167: } adamc@167: adamc@144: int lw_input_num(char*); adamc@144: adamc@144: void lw_set_input(lw_context ctx, char *name, char *value) { adamc@144: int n = lw_input_num(name); adamc@144: adamc@169: if (n < 0) adamc@169: lw_error(ctx, FATAL, "Bad input name %s", name); adamc@144: adamc@169: if (n >= lw_inputs_len) adamc@169: lw_error(ctx, FATAL, "For input name %s, index %d is out of range", name, n); adamc@169: adamc@144: ctx->inputs[n] = value; adamc@144: adamc@282: //printf("[%d] %s = %s\n", n, name, value); adamc@144: } adamc@144: adamc@144: char *lw_get_input(lw_context ctx, int n) { adamc@169: if (n < 0) adamc@169: lw_error(ctx, FATAL, "Negative input index %d", n); adamc@169: if (n >= lw_inputs_len) adamc@169: lw_error(ctx, FATAL, "Out-of-bounds input index %d", n); adamc@282: //printf("[%d] = %s\n", n, ctx->inputs[n]); adamc@144: return ctx->inputs[n]; adamc@138: } adamc@138: adamc@190: char *lw_get_optional_input(lw_context ctx, int n) { adamc@190: if (n < 0) adamc@190: lw_error(ctx, FATAL, "Negative input index %d", n); adamc@190: if (n >= lw_inputs_len) adamc@190: lw_error(ctx, FATAL, "Out-of-bounds input index %d", n); adamc@190: printf("[%d] = %s\n", n, ctx->inputs[n]); adamc@190: return (ctx->inputs[n] == NULL ? "" : ctx->inputs[n]); adamc@190: } adamc@190: adamc@136: static void lw_check_heap(lw_context ctx, size_t extra) { adamc@136: if (ctx->heap_back - ctx->heap_front < extra) { adamc@136: size_t desired = ctx->heap_back - ctx->heap_front + extra, next; adamc@136: char *new_heap; adamc@136: adamc@136: for (next = ctx->heap_back - ctx->heap_front; next < desired; next *= 2); adamc@136: adamc@136: new_heap = realloc(ctx->heap, next); adamc@169: ctx->heap_front = new_heap; adamc@169: ctx->heap_back = new_heap + next; adamc@136: adamc@136: if (new_heap != ctx->heap) { adamc@136: ctx->heap = new_heap; adamc@169: lw_error(ctx, UNLIMITED_RETRY, "Couldn't allocate new heap chunk contiguously"); adamc@136: } adamc@136: adamc@169: ctx->heap = new_heap; adamc@136: } adamc@136: } adamc@136: adamc@136: void *lw_malloc(lw_context ctx, size_t len) { adamc@136: void *result; adamc@136: adamc@136: lw_check_heap(ctx, len); adamc@136: adamc@136: result = ctx->heap_front; adamc@136: ctx->heap_front += len; adamc@136: return result; adamc@117: } adamc@117: adamc@117: int lw_really_send(int sock, const void *buf, ssize_t len) { adamc@117: while (len > 0) { adamc@117: ssize_t n = send(sock, buf, len, 0); adamc@117: adamc@117: if (n < 0) adamc@117: return n; adamc@117: adamc@117: buf += n; adamc@117: len -= n; adamc@117: } adamc@117: adamc@117: return 0; adamc@117: } adamc@117: adamc@117: int lw_send(lw_context ctx, int sock) { adamc@117: return lw_really_send(sock, ctx->page, ctx->page_front - ctx->page); adamc@117: } adamc@117: adamc@117: static void lw_check(lw_context ctx, size_t extra) { adamc@117: size_t desired = ctx->page_back - ctx->page_front + extra, next; adamc@117: char *new_page; adamc@117: adamc@117: for (next = ctx->page_back - ctx->page_front; next < desired; next *= 2); adamc@117: adamc@117: new_page = realloc(ctx->page, next); adamc@117: ctx->page_front = new_page + (ctx->page_front - ctx->page); adamc@117: ctx->page_back = new_page + (ctx->page_back - ctx->page); adamc@117: ctx->page = new_page; adamc@117: } adamc@117: adamc@117: static void lw_writec_unsafe(lw_context ctx, char c) { adamc@117: *(ctx->page_front)++ = c; adamc@117: } adamc@117: adamc@117: void lw_writec(lw_context ctx, char c) { adamc@117: lw_check(ctx, 1); adamc@117: lw_writec_unsafe(ctx, c); adamc@117: } adamc@117: adamc@117: static void lw_write_unsafe(lw_context ctx, const char* s) { adamc@117: int len = strlen(s); adamc@117: memcpy(ctx->page_front, s, len); adamc@117: ctx->page_front += len; adamc@117: } adamc@117: adamc@117: void lw_write(lw_context ctx, const char* s) { adamc@183: lw_check(ctx, strlen(s) + 1); adamc@117: lw_write_unsafe(ctx, s); adamc@183: *ctx->page_front = 0; adamc@102: } adamc@106: adamc@135: adamc@136: char *lw_Basis_attrifyInt(lw_context ctx, lw_Basis_int n) { adamc@136: char *result; adamc@136: int len; adamc@136: lw_check_heap(ctx, INTS_MAX); adamc@136: result = ctx->heap_front; adamc@276: sprintf(result, "%lld%n", n, &len); adamc@137: ctx->heap_front += len+1; adamc@136: return result; adamc@106: } adamc@106: adamc@136: char *lw_Basis_attrifyFloat(lw_context ctx, lw_Basis_float n) { adamc@136: char *result; adamc@136: int len; adamc@137: lw_check_heap(ctx, FLOATS_MAX); adamc@136: result = ctx->heap_front; adamc@136: sprintf(result, "%g%n", n, &len); adamc@137: ctx->heap_front += len+1; adamc@136: return result; adamc@106: } adamc@106: adamc@136: char *lw_Basis_attrifyString(lw_context ctx, lw_Basis_string s) { adamc@136: int len = strlen(s); adamc@136: char *result, *p; adamc@137: lw_check_heap(ctx, len * 6 + 1); adamc@136: adamc@136: result = p = ctx->heap_front; adamc@136: adamc@136: for (; *s; s++) { adamc@136: char c = *s; adamc@136: adamc@136: if (c == '"') { adamc@136: strcpy(p, """); adamc@136: p += 6; adamc@136: } else if (c == '&') { adamc@136: strcpy(p, "&"); adamc@136: p += 5; adamc@136: } adamc@136: else if (isprint(c)) adamc@136: *p++ = c; adamc@136: else { adamc@136: int len2; adamc@136: sprintf(p, "&#%d;%n", c, &len2); adamc@136: p += len2; adamc@136: } adamc@136: } adamc@136: adamc@137: *p++ = 0; adamc@136: ctx->heap_front = p; adamc@136: return result; adamc@106: } adamc@106: adamc@117: static void lw_Basis_attrifyInt_w_unsafe(lw_context ctx, lw_Basis_int n) { adamc@117: int len; adamc@117: adamc@276: sprintf(ctx->page_front, "%lld%n", n, &len); adamc@117: ctx->page_front += len; adamc@106: } adamc@106: adamc@117: void lw_Basis_attrifyInt_w(lw_context ctx, lw_Basis_int n) { adamc@117: lw_check(ctx, INTS_MAX); adamc@117: lw_Basis_attrifyInt_w_unsafe(ctx, n); adamc@106: } adamc@106: adamc@117: void lw_Basis_attrifyFloat_w(lw_context ctx, lw_Basis_float n) { adamc@117: int len; adamc@117: adamc@117: lw_check(ctx, FLOATS_MAX); adamc@117: sprintf(ctx->page_front, "%g%n", n, &len); adamc@117: ctx->page_front += len; adamc@117: } adamc@117: adamc@117: void lw_Basis_attrifyString_w(lw_context ctx, lw_Basis_string s) { adamc@117: lw_check(ctx, strlen(s) * 6); adamc@117: adamc@106: for (; *s; s++) { adamc@106: char c = *s; adamc@106: adamc@106: if (c == '"') adamc@117: lw_write_unsafe(ctx, """); adamc@136: else if (c == '&') adamc@136: lw_write_unsafe(ctx, "&"); adamc@106: else if (isprint(c)) adamc@117: lw_writec_unsafe(ctx, c); adamc@106: else { adamc@117: lw_write_unsafe(ctx, "&#"); adamc@117: lw_Basis_attrifyInt_w_unsafe(ctx, c); adamc@117: lw_writec_unsafe(ctx, ';'); adamc@106: } adamc@106: } adamc@106: } adamc@120: adamc@120: adamc@137: char *lw_Basis_urlifyInt(lw_context ctx, lw_Basis_int n) { adamc@137: int len; adamc@137: char *r; adamc@137: adamc@137: lw_check_heap(ctx, INTS_MAX); adamc@137: r = ctx->heap_front; adamc@276: sprintf(r, "%lld%n", n, &len); adamc@137: ctx->heap_front += len+1; adamc@137: return r; adamc@120: } adamc@120: adamc@137: char *lw_Basis_urlifyFloat(lw_context ctx, lw_Basis_float n) { adamc@137: int len; adamc@137: char *r; adamc@137: adamc@137: lw_check_heap(ctx, FLOATS_MAX); adamc@137: r = ctx->heap_front; adamc@137: sprintf(r, "%g%n", n, &len); adamc@137: ctx->heap_front += len+1; adamc@137: return r; adamc@120: } adamc@120: adamc@137: char *lw_Basis_urlifyString(lw_context ctx, lw_Basis_string s) { adamc@137: char *r, *p; adamc@137: adamc@137: lw_check_heap(ctx, strlen(s) * 3 + 1); adamc@137: adamc@137: for (r = p = ctx->heap_front; *s; s++) { adamc@137: char c = *s; adamc@137: adamc@137: if (c == ' ') adamc@137: *p++ = '+'; adamc@137: else if (isalnum(c)) adamc@137: *p++ = c; adamc@137: else { adamc@137: sprintf(p, "%%%02X", c); adamc@137: p += 3; adamc@137: } adamc@137: } adamc@137: adamc@137: *p++ = 0; adamc@137: ctx->heap_front = p; adamc@137: return r; adamc@120: } adamc@120: adamc@186: char *lw_Basis_urlifyBool(lw_context ctx, lw_Basis_bool b) { adamc@189: if (b == lw_Basis_False) adamc@186: return "0"; adamc@186: else adamc@186: return "1"; adamc@186: } adamc@186: adamc@120: static void lw_Basis_urlifyInt_w_unsafe(lw_context ctx, lw_Basis_int n) { adamc@120: int len; adamc@120: adamc@276: sprintf(ctx->page_front, "%lld%n", n, &len); adamc@120: ctx->page_front += len; adamc@120: } adamc@120: adamc@120: void lw_Basis_urlifyInt_w(lw_context ctx, lw_Basis_int n) { adamc@120: lw_check(ctx, INTS_MAX); adamc@120: lw_Basis_urlifyInt_w_unsafe(ctx, n); adamc@120: } adamc@120: adamc@120: void lw_Basis_urlifyFloat_w(lw_context ctx, lw_Basis_float n) { adamc@120: int len; adamc@120: adamc@120: lw_check(ctx, FLOATS_MAX); adamc@120: sprintf(ctx->page_front, "%g%n", n, &len); adamc@120: ctx->page_front += len; adamc@120: } adamc@120: adamc@120: void lw_Basis_urlifyString_w(lw_context ctx, lw_Basis_string s) { adamc@120: lw_check(ctx, strlen(s) * 3); adamc@120: adamc@120: for (; *s; s++) { adamc@120: char c = *s; adamc@120: adamc@120: if (c == ' ') adamc@120: lw_writec_unsafe(ctx, '+'); adamc@120: else if (isalnum(c)) adamc@120: lw_writec_unsafe(ctx, c); adamc@120: else { adamc@120: sprintf(ctx->page_front, "%%%02X", c); adamc@120: ctx->page_front += 3; adamc@120: } adamc@120: } adamc@120: } adamc@120: adamc@186: void lw_Basis_urlifyBool_w(lw_context ctx, lw_Basis_bool b) { adamc@189: if (b == lw_Basis_False) adamc@186: lw_writec(ctx, '0'); adamc@186: else adamc@186: lw_writec(ctx, '1'); adamc@186: } adamc@186: adamc@120: adamc@144: static char *lw_unurlify_advance(char *s) { adamc@144: char *new_s = strchr(s, '/'); adamc@120: adamc@120: if (new_s) adamc@120: *new_s++ = 0; adamc@120: else adamc@144: new_s = strchr(s, 0); adamc@144: adamc@144: return new_s; adamc@144: } adamc@144: adamc@186: lw_Basis_int lw_Basis_unurlifyInt(lw_context ctx, char **s) { adamc@144: char *new_s = lw_unurlify_advance(*s); adamc@276: lw_Basis_int r; adamc@120: adamc@276: r = atoll(*s); adamc@120: *s = new_s; adamc@120: return r; adamc@120: } adamc@120: adamc@186: lw_Basis_float lw_Basis_unurlifyFloat(lw_context ctx, char **s) { adamc@144: char *new_s = lw_unurlify_advance(*s); adamc@276: lw_Basis_float r; adamc@120: adamc@120: r = atof(*s); adamc@120: *s = new_s; adamc@120: return r; adamc@120: } adamc@120: adamc@169: static lw_Basis_string lw_unurlifyString_to(lw_context ctx, char *r, char *s) { adamc@144: char *s1, *s2; adamc@144: int n; adamc@136: adamc@144: for (s1 = r, s2 = s; *s2; ++s1, ++s2) { adamc@136: char c = *s2; adamc@136: adamc@136: switch (c) { adamc@136: case '+': adamc@136: *s1 = ' '; adamc@136: break; adamc@136: case '%': adamc@169: if (s2[1] == 0) adamc@169: lw_error(ctx, FATAL, "Missing first character of escaped URL byte"); adamc@169: if (s2[2] == 0) adamc@169: lw_error(ctx, FATAL, "Missing second character of escaped URL byte"); adamc@169: if (sscanf(s2+1, "%02X", &n) != 1) adamc@169: lw_error(ctx, FATAL, "Invalid escaped URL byte starting at: %s", s2); adamc@136: *s1 = n; adamc@136: s2 += 2; adamc@136: break; adamc@136: default: adamc@136: *s1 = c; adamc@136: } adamc@136: } adamc@136: *s1++ = 0; adamc@144: return s1; adamc@144: } adamc@144: adamc@186: lw_Basis_bool lw_Basis_unurlifyBool(lw_context ctx, char **s) { adamc@186: char *new_s = lw_unurlify_advance(*s); adamc@186: lw_Basis_bool r; adamc@186: adamc@186: if (*s[0] == 0 || !strcmp(*s, "0") || !strcmp(*s, "off")) adamc@189: r = lw_Basis_False; adamc@186: else adamc@189: r = lw_Basis_True; adamc@186: adamc@186: *s = new_s; adamc@186: return r; adamc@186: } adamc@186: adamc@186: lw_Basis_string lw_Basis_unurlifyString(lw_context ctx, char **s) { adamc@144: char *new_s = lw_unurlify_advance(*s); adamc@144: char *r, *s1, *s2; adamc@144: int len, n; adamc@144: adamc@200: len = strlen(*s); adamc@144: lw_check_heap(ctx, len + 1); adamc@144: adamc@144: r = ctx->heap_front; adamc@200: ctx->heap_front = lw_unurlifyString_to(ctx, ctx->heap_front, *s); adamc@136: *s = new_s; adamc@136: return r; adamc@120: } adamc@135: adamc@135: adamc@286: char *lw_Basis_htmlifyInt(lw_context ctx, lw_Basis_int n) { adamc@286: int len; adamc@286: char *r; adamc@286: adamc@286: lw_check_heap(ctx, INTS_MAX); adamc@286: r = ctx->heap_front; adamc@286: sprintf(r, "%lld%n", n, &len); adamc@286: ctx->heap_front += len+1; adamc@286: return r; adamc@286: } adamc@286: adamc@286: void lw_Basis_htmlifyInt_w(lw_context ctx, lw_Basis_int n) { adamc@286: int len; adamc@286: adamc@286: lw_check(ctx, INTS_MAX); adamc@286: sprintf(ctx->page_front, "%lld%n", n, &len); adamc@286: ctx->page_front += len; adamc@286: } adamc@286: adamc@286: char *lw_Basis_htmlifyFloat(lw_context ctx, lw_Basis_float n) { adamc@286: int len; adamc@286: char *r; adamc@286: adamc@286: lw_check_heap(ctx, FLOATS_MAX); adamc@286: r = ctx->heap_front; adamc@286: sprintf(r, "%g%n", n, &len); adamc@286: ctx->heap_front += len+1; adamc@286: return r; adamc@286: } adamc@286: adamc@286: void lw_Basis_htmlifyFloat_w(lw_context ctx, lw_Basis_float n) { adamc@286: int len; adamc@286: adamc@286: lw_check(ctx, FLOATS_MAX); adamc@286: sprintf(ctx->page_front, "%g%n", n, &len); adamc@286: ctx->page_front += len; adamc@286: } adamc@286: adamc@136: char *lw_Basis_htmlifyString(lw_context ctx, lw_Basis_string s) { adamc@137: char *r, *s2; adamc@137: adamc@137: lw_check_heap(ctx, strlen(s) * 5 + 1); adamc@137: adamc@137: for (r = s2 = ctx->heap_front; *s; s++) { adamc@137: char c = *s; adamc@137: adamc@137: switch (c) { adamc@137: case '<': adamc@137: strcpy(s2, "<"); adamc@137: s2 += 4; adamc@137: break; adamc@137: case '&': adamc@137: strcpy(s2, "&"); adamc@137: s2 += 5; adamc@137: break; adamc@137: default: adamc@137: if (isprint(c)) adamc@137: *s2++ = c; adamc@137: else { adamc@137: int len2; adamc@137: sprintf(s2, "&#%d;%n", c, &len2); adamc@137: s2 += len2; adamc@137: } adamc@137: } adamc@137: } adamc@137: adamc@137: *s2++ = 0; adamc@137: ctx->heap_front = s2; adamc@137: return r; adamc@135: } adamc@135: adamc@135: void lw_Basis_htmlifyString_w(lw_context ctx, lw_Basis_string s) { adamc@135: lw_check(ctx, strlen(s) * 5); adamc@135: adamc@135: for (; *s; s++) { adamc@135: char c = *s; adamc@135: adamc@135: switch (c) { adamc@135: case '<': adamc@135: lw_write_unsafe(ctx, "<"); adamc@135: break; adamc@135: case '&': adamc@135: lw_write_unsafe(ctx, "&"); adamc@135: break; adamc@135: default: adamc@135: if (isprint(c)) adamc@135: lw_writec_unsafe(ctx, c); adamc@135: else { adamc@135: lw_write_unsafe(ctx, "&#"); adamc@135: lw_Basis_attrifyInt_w_unsafe(ctx, c); adamc@135: lw_writec_unsafe(ctx, ';'); adamc@135: } adamc@135: } adamc@135: } adamc@135: } adamc@180: adamc@286: lw_Basis_string lw_Basis_htmlifyBool(lw_context ctx, lw_Basis_bool b) { adamc@286: if (b == lw_Basis_False) adamc@286: return "False"; adamc@286: else adamc@286: return "True"; adamc@286: } adamc@286: adamc@286: void lw_Basis_htmlifyBool_w(lw_context ctx, lw_Basis_bool b) { adamc@286: if (b == lw_Basis_False) { adamc@286: lw_check(ctx, 6); adamc@286: strcpy(ctx->page_front, "False"); adamc@286: ctx->page_front += 5; adamc@286: } else { adamc@286: lw_check(ctx, 5); adamc@286: strcpy(ctx->page_front, "True"); adamc@286: ctx->page_front += 4; adamc@286: } adamc@286: } adamc@286: adamc@180: lw_Basis_string lw_Basis_strcat(lw_context ctx, lw_Basis_string s1, lw_Basis_string s2) { adamc@180: int len = strlen(s1) + strlen(s2) + 1; adamc@180: char *s; adamc@180: adamc@183: lw_check_heap(ctx, len); adamc@180: adamc@180: s = ctx->heap_front; adamc@180: adamc@180: strcpy(s, s1); adamc@180: strcat(s, s2); adamc@180: ctx->heap_front += len; adamc@180: adamc@180: return s; adamc@180: } adamc@278: adamc@278: lw_Basis_string lw_Basis_strdup(lw_context ctx, lw_Basis_string s1) { adamc@278: int len = strlen(s1) + 1; adamc@278: char *s; adamc@278: adamc@278: lw_check_heap(ctx, len); adamc@278: adamc@278: s = ctx->heap_front; adamc@278: adamc@278: strcpy(s, s1); adamc@278: ctx->heap_front += len; adamc@278: adamc@278: return s; adamc@278: } adamc@280: adamc@280: adamc@281: char *lw_Basis_sqlifyInt(lw_context ctx, lw_Basis_int n) { adamc@281: int len; adamc@281: char *r; adamc@281: adamc@281: lw_check_heap(ctx, INTS_MAX + 6); adamc@281: r = ctx->heap_front; adamc@281: sprintf(r, "%lld::int8%n", n, &len); adamc@281: ctx->heap_front += len+1; adamc@281: return r; adamc@281: } adamc@281: adamc@281: char *lw_Basis_sqlifyFloat(lw_context ctx, lw_Basis_float n) { adamc@281: int len; adamc@281: char *r; adamc@281: adamc@281: lw_check_heap(ctx, FLOATS_MAX + 8); adamc@281: r = ctx->heap_front; adamc@281: sprintf(r, "%g::float8%n", n, &len); adamc@281: ctx->heap_front += len+1; adamc@281: return r; adamc@281: } adamc@281: adamc@281: adamc@280: lw_Basis_string lw_Basis_sqlifyString(lw_context ctx, lw_Basis_string s) { adamc@280: char *r, *s2; adamc@280: adamc@281: lw_check_heap(ctx, strlen(s) * 2 + 10); adamc@280: adamc@280: r = s2 = ctx->heap_front; adamc@280: *s2++ = 'E'; adamc@280: *s2++ = '\''; adamc@280: adamc@280: for (; *s; s++) { adamc@280: char c = *s; adamc@280: adamc@280: switch (c) { adamc@280: case '\'': adamc@280: strcpy(s2, "\\'"); adamc@280: s2 += 2; adamc@280: break; adamc@280: case '\\': adamc@280: strcpy(s2, "\\\\"); adamc@280: s2 += 2; adamc@280: break; adamc@280: default: adamc@280: if (isprint(c)) adamc@280: *s2++ = c; adamc@280: else { adamc@280: sprintf(s2, "\\%3o", c); adamc@280: s2 += 4; adamc@280: } adamc@280: } adamc@280: } adamc@280: adamc@281: strcpy(s2, "'::text"); adamc@281: ctx->heap_front = s2 + 8; adamc@280: return r; adamc@280: } adamc@281: adamc@281: char *lw_Basis_sqlifyBool(lw_context ctx, lw_Basis_bool b) { adamc@281: if (b == lw_Basis_False) adamc@281: return "FALSE"; adamc@281: else adamc@281: return "TRUE"; adamc@281: } adamc@282: adamc@282: char *lw_Basis_ensqlBool(lw_Basis_bool b) { adamc@282: static lw_Basis_int true = 1; adamc@282: static lw_Basis_int false = 0; adamc@282: adamc@282: if (b == lw_Basis_False) adamc@282: return (char *)&false; adamc@282: else adamc@282: return (char *)&true; adamc@282: } adamc@284: adamc@284: lw_Basis_string lw_Basis_intToString(lw_context ctx, lw_Basis_int n) { adamc@284: int len; adamc@284: char *r; adamc@284: adamc@284: lw_check_heap(ctx, INTS_MAX); adamc@284: r = ctx->heap_front; adamc@284: sprintf(r, "%lld%n", n, &len); adamc@284: ctx->heap_front += len+1; adamc@284: return r; adamc@284: } adamc@285: adamc@285: lw_Basis_string lw_Basis_floatToString(lw_context ctx, lw_Basis_float n) { adamc@285: int len; adamc@285: char *r; adamc@285: adamc@285: lw_check_heap(ctx, FLOATS_MAX); adamc@285: r = ctx->heap_front; adamc@285: sprintf(r, "%g%n", n, &len); adamc@285: ctx->heap_front += len+1; adamc@285: return r; adamc@285: } adamc@285: adamc@285: lw_Basis_string lw_Basis_boolToString(lw_context ctx, lw_Basis_bool b) { adamc@285: if (b == lw_Basis_False) adamc@285: return "False"; adamc@285: else adamc@285: return "True"; adamc@285: } adamc@288: adamc@288: adamc@288: lw_Basis_int *lw_Basis_stringToInt(lw_context ctx, lw_Basis_string s) { adamc@288: char *endptr; adamc@288: lw_Basis_int n = strtoll(s, &endptr, 10); adamc@288: adamc@288: if (*s != '\0' && *endptr == '\0') { adamc@288: lw_Basis_int *r = lw_malloc(ctx, sizeof(lw_Basis_int)); adamc@288: *r = n; adamc@288: return r; adamc@288: } else adamc@288: return NULL; adamc@288: } adamc@289: adamc@289: lw_Basis_float *lw_Basis_stringToFloat(lw_context ctx, lw_Basis_string s) { adamc@289: char *endptr; adamc@289: lw_Basis_float n = strtod(s, &endptr); adamc@289: adamc@289: if (*s != '\0' && *endptr == '\0') { adamc@289: lw_Basis_float *r = lw_malloc(ctx, sizeof(lw_Basis_float)); adamc@289: *r = n; adamc@289: return r; adamc@289: } else adamc@289: return NULL; adamc@289: } adamc@289: adamc@289: lw_Basis_bool *lw_Basis_stringToBool(lw_context ctx, lw_Basis_string s) { adamc@289: static lw_Basis_bool true = lw_Basis_True; adamc@289: static lw_Basis_bool false = lw_Basis_False; adamc@289: adamc@289: if (!strcasecmp (s, "True")) adamc@289: return &true; adamc@289: else if (!strcasecmp (s, "False")) adamc@289: return &false; adamc@289: else adamc@289: return NULL; adamc@289: } adamc@292: adamc@292: lw_Basis_int lw_Basis_stringToInt_error(lw_context ctx, lw_Basis_string s) { adamc@292: char *endptr; adamc@292: lw_Basis_int n = strtoll(s, &endptr, 10); adamc@292: adamc@292: if (*s != '\0' && *endptr == '\0') adamc@292: return n; adamc@292: else adamc@292: lw_error(ctx, FATAL, "Can't parse int: %s", s); adamc@292: } adamc@293: adamc@293: lw_Basis_float lw_Basis_stringToFloat_error(lw_context ctx, lw_Basis_string s) { adamc@293: char *endptr; adamc@293: lw_Basis_float n = strtod(s, &endptr); adamc@293: adamc@293: if (*s != '\0' && *endptr == '\0') adamc@293: return n; adamc@293: else adamc@293: lw_error(ctx, FATAL, "Can't parse float: %s", s); adamc@293: } adamc@293: adamc@293: lw_Basis_bool lw_Basis_stringToBool_error(lw_context ctx, lw_Basis_string s) { adamc@296: if (!strcasecmp(s, "T") || !strcasecmp (s, "True")) adamc@293: return lw_Basis_True; adamc@296: else if (!strcasecmp(s, "F") || !strcasecmp (s, "False")) adamc@293: return lw_Basis_False; adamc@293: else adamc@293: lw_error(ctx, FATAL, "Can't parse bool: %s", s); adamc@293: }