Mercurial > urweb
diff src/c/lacweb.c @ 137:4ffdbf429e8d
Replaced allocation stubs
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 17 Jul 2008 14:32:49 -0400 |
parents | 133fa2d51bb4 |
children | d6d78055f001 |
line wrap: on
line diff
--- a/src/c/lacweb.c Thu Jul 17 14:18:57 2008 -0400 +++ b/src/c/lacweb.c Thu Jul 17 14:32:49 2008 -0400 @@ -120,24 +120,24 @@ lw_check_heap(ctx, INTS_MAX); result = ctx->heap_front; sprintf(result, "%d%n", n, &len); - ctx->heap_front += len; + ctx->heap_front += len+1; return result; } char *lw_Basis_attrifyFloat(lw_context ctx, lw_Basis_float n) { char *result; int len; - lw_check_heap(ctx, INTS_MAX); + lw_check_heap(ctx, FLOATS_MAX); result = ctx->heap_front; sprintf(result, "%g%n", n, &len); - ctx->heap_front += len; + ctx->heap_front += len+1; return result; } char *lw_Basis_attrifyString(lw_context ctx, lw_Basis_string s) { int len = strlen(s); char *result, *p; - lw_check_heap(ctx, len * 6); + lw_check_heap(ctx, len * 6 + 1); result = p = ctx->heap_front; @@ -160,6 +160,7 @@ } } + *p++ = 0; ctx->heap_front = p; return result; } @@ -205,16 +206,49 @@ } -char *lw_Basis_urlifyInt(lw_Basis_int n) { - return "0"; +char *lw_Basis_urlifyInt(lw_context ctx, lw_Basis_int n) { + int len; + char *r; + + lw_check_heap(ctx, INTS_MAX); + r = ctx->heap_front; + sprintf(r, "%d%n", n, &len); + ctx->heap_front += len+1; + return r; } -char *lw_Basis_urlifyFloat(lw_Basis_float n) { - return "0.0"; +char *lw_Basis_urlifyFloat(lw_context ctx, lw_Basis_float n) { + int len; + char *r; + + lw_check_heap(ctx, FLOATS_MAX); + r = ctx->heap_front; + sprintf(r, "%g%n", n, &len); + ctx->heap_front += len+1; + return r; } -char *lw_Basis_urlifyString(lw_Basis_string s) { - return ""; +char *lw_Basis_urlifyString(lw_context ctx, lw_Basis_string s) { + char *r, *p; + + lw_check_heap(ctx, strlen(s) * 3 + 1); + + for (r = p = ctx->heap_front; *s; s++) { + char c = *s; + + if (c == ' ') + *p++ = '+'; + else if (isalnum(c)) + *p++ = c; + else { + sprintf(p, "%%%02X", c); + p += 3; + } + } + + *p++ = 0; + ctx->heap_front = p; + return r; } static void lw_Basis_urlifyInt_w_unsafe(lw_context ctx, lw_Basis_int n) { @@ -322,7 +356,36 @@ char *lw_Basis_htmlifyString(lw_context ctx, lw_Basis_string s) { - return ""; + char *r, *s2; + + lw_check_heap(ctx, strlen(s) * 5 + 1); + + for (r = s2 = ctx->heap_front; *s; s++) { + char c = *s; + + switch (c) { + case '<': + strcpy(s2, "<"); + s2 += 4; + break; + case '&': + strcpy(s2, "&"); + s2 += 5; + break; + default: + if (isprint(c)) + *s2++ = c; + else { + int len2; + sprintf(s2, "&#%d;%n", c, &len2); + s2 += len2; + } + } + } + + *s2++ = 0; + ctx->heap_front = s2; + return r; } void lw_Basis_htmlifyString_w(lw_context ctx, lw_Basis_string s) {