adamc@117: #include adamc@102: #include adamc@117: #include adamc@106: #include adamc@136: #include adamc@102: adamc@102: #include "types.h" adamc@102: adamc@102: lw_unit lw_unit_v = {}; adamc@102: adamc@117: struct lw_context { adamc@117: char *page, *page_front, *page_back; adamc@136: char *heap, *heap_front, *heap_back; adamc@117: }; adamc@117: 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@117: return ctx; adamc@106: } adamc@106: adamc@117: void lw_free(lw_context ctx) { adamc@117: free(ctx->page); adamc@136: free(ctx->heap); adamc@136: free(ctx); adamc@136: } adamc@136: 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@136: adamc@136: if (new_heap != ctx->heap) { adamc@136: ctx->heap = new_heap; adamc@136: puts("Couldn't get contiguous chunk"); adamc@136: exit(1); adamc@136: } adamc@136: adamc@136: ctx->heap_back = new_heap + next; 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@117: lw_check(ctx, strlen(s)); adamc@117: lw_write_unsafe(ctx, s); adamc@102: } adamc@106: adamc@135: adamc@136: #define INTS_MAX 50 adamc@136: #define FLOATS_MAX 100 adamc@136: 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@136: sprintf(result, "%d%n", n, &len); adamc@136: ctx->heap_front += len; 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@136: lw_check_heap(ctx, INTS_MAX); adamc@136: result = ctx->heap_front; adamc@136: sprintf(result, "%g%n", n, &len); adamc@136: ctx->heap_front += len; 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@136: lw_check_heap(ctx, len * 6); 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@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@117: sprintf(ctx->page_front, "%d%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@120: char *lw_Basis_urlifyInt(lw_Basis_int n) { adamc@120: return "0"; adamc@120: } adamc@120: adamc@120: char *lw_Basis_urlifyFloat(lw_Basis_float n) { adamc@120: return "0.0"; adamc@120: } adamc@120: adamc@120: char *lw_Basis_urlifyString(lw_Basis_string s) { adamc@120: return ""; adamc@120: } adamc@120: adamc@120: static void lw_Basis_urlifyInt_w_unsafe(lw_context ctx, lw_Basis_int n) { adamc@120: int len; adamc@120: adamc@120: sprintf(ctx->page_front, "%d%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@120: adamc@120: lw_Basis_int lw_unurlifyInt(char **s) { adamc@120: char *new_s = strchr(*s, '/'); adamc@120: int r; adamc@120: adamc@120: if (new_s) adamc@120: *new_s++ = 0; adamc@120: else adamc@120: new_s = strchr(*s, 0); adamc@120: adamc@120: r = atoi(*s); adamc@120: *s = new_s; adamc@120: return r; adamc@120: } adamc@120: adamc@120: lw_Basis_float lw_unurlifyFloat(char **s) { adamc@120: char *new_s = strchr(*s, '/'); adamc@120: int r; adamc@120: adamc@120: if (new_s) adamc@120: *new_s++ = 0; adamc@120: else adamc@120: new_s = strchr(*s, 0); adamc@120: adamc@120: r = atof(*s); adamc@120: *s = new_s; adamc@120: return r; adamc@120: } adamc@120: adamc@136: lw_Basis_string lw_unurlifyString(lw_context ctx, char **s) { adamc@136: char *new_s = strchr(*s, '/'); adamc@136: char *r, *s1, *s2; adamc@136: int len, n; adamc@136: adamc@136: if (new_s) adamc@136: *new_s++ = 0; adamc@136: else adamc@136: new_s = strchr(*s, 0); adamc@136: adamc@136: len = strlen(*s); adamc@136: lw_check_heap(ctx, len + 1); adamc@136: adamc@136: r = ctx->heap_front; adamc@136: 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@136: assert(s2 + 2 < new_s); adamc@136: sscanf(s2+1, "%02X", &n); 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@136: ctx->heap_front = s1; adamc@136: *s = new_s; adamc@136: return r; adamc@120: } adamc@135: adamc@135: adamc@136: char *lw_Basis_htmlifyString(lw_context ctx, lw_Basis_string s) { adamc@135: return ""; 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: }