# HG changeset patch
# User Adam Chlipala <adam@chlipala.net>
# Date 1301255497 14400
# Node ID 0fc7b676b88bfc5d17ec554d8aa6e2b8d396ec64
# Parent  19e8e3d556d6a45a6c24b398f6d14fe549b65819
Escape strings as needed in some error messages within urweb.c

diff -r 19e8e3d556d6 -r 0fc7b676b88b src/c/urweb.c
--- a/src/c/urweb.c	Sun Mar 27 15:06:02 2011 -0400
+++ b/src/c/urweb.c	Sun Mar 27 15:51:37 2011 -0400
@@ -684,6 +684,8 @@
   return ctx->get_header(ctx->get_header_data, h);
 }
 
+char *uw_Basis_htmlifyString(uw_context, const char *);
+
 void uw_login(uw_context ctx) {
   if (ctx->needs_push) {
     char *id_s, *pass_s;
@@ -695,7 +697,7 @@
       client *c = find_client(id);
 
       if (c == NULL)
-        uw_error(ctx, FATAL, "Unknown client ID in HTTP headers (%s, %s)", id_s, pass_s);
+        uw_error(ctx, FATAL, "Unknown client ID in HTTP headers (%s, %s)", uw_Basis_htmlifyString(ctx, id_s), uw_Basis_htmlifyString(ctx, pass_s));
       else {
         use_client(c);
         ctx->client = c;
@@ -832,12 +834,12 @@
     input *inps;
 
     if (n < 0) {
-      uw_set_error(ctx, "Bad subform name %s", value);
+      uw_set_error(ctx, "Bad subform name %s", uw_Basis_htmlifyString(ctx, value));
       return -1;
     }
 
     if (n >= ctx->app->inputs_len) {
-      uw_set_error(ctx, "For subform name %s, index %d is out of range", value, n);
+      uw_set_error(ctx, "For subform name %s, index %d is out of range", uw_Basis_htmlifyString(ctx, value), n);
       return -1;
     }
 
@@ -876,12 +878,12 @@
     int n = ctx->app->input_num(value);
 
     if (n < 0) {
-      uw_set_error(ctx, "Bad subforms name %s", value);
+      uw_set_error(ctx, "Bad subforms name %s", uw_Basis_htmlifyString(ctx, value));
       return -1;
     }
 
     if (n >= ctx->app->inputs_len) {
-      uw_set_error(ctx, "For subforms name %s, index %d is out of range", value, n);
+      uw_set_error(ctx, "For subforms name %s, index %d is out of range", uw_Basis_htmlifyString(ctx, value), n);
       return -1;
     }
 
@@ -918,7 +920,7 @@
       return 0;
 
     if (n >= ctx->app->inputs_len) {
-      uw_set_error(ctx, "For input name %s, index %d is out of range", name, n);
+      uw_set_error(ctx, "For input name %s, index %d is out of range", uw_Basis_htmlifyString(ctx, name), n);
       return -1;
     }
 
@@ -981,12 +983,12 @@
   int n = ctx->app->input_num(name);
 
   if (n < 0) {
-    uw_set_error(ctx, "Bad file input name %s", name);
+    uw_set_error(ctx, "Bad file input name %s", uw_Basis_htmlifyString(ctx, name));
     return -1;
   }
 
   if (n >= ctx->app->inputs_len) {
-    uw_set_error(ctx, "For file input name %s, index %d is out of range", name, n);
+    uw_set_error(ctx, "For file input name %s, index %d is out of range", uw_Basis_htmlifyString(ctx, name), n);
     return -1;
   }
 
@@ -1862,7 +1864,7 @@
       if (s2[2] == 0)
         uw_error(ctx, FATAL, "Missing second character of escaped URL byte");
       if (sscanf(s2+1, "%02X", &n) != 1)
-        uw_error(ctx, FATAL, "Invalid escaped URL byte starting at: %s", s2);
+        uw_error(ctx, FATAL, "Invalid escaped URL byte starting at: %s", uw_Basis_htmlifyString(ctx, s2));
       *s1 = n;
       s2 += 2;
       break;
@@ -1873,7 +1875,7 @@
         if (s2[2] == 0)
           uw_error(ctx, FATAL, "Missing second character of escaped URL byte");
         if (sscanf(s2+1, "%02X", &n) != 1)
-          uw_error(ctx, FATAL, "Invalid escaped URL byte starting at: %s", s2);
+          uw_error(ctx, FATAL, "Invalid escaped URL byte starting at: %s", uw_Basis_htmlifyString(ctx, s2));
         *s1 = n;
         s2 += 2;
         break;
@@ -2018,7 +2020,7 @@
   return uw_unit_v;
 }
 
-char *uw_Basis_htmlifyString(uw_context ctx, uw_Basis_string s) {
+char *uw_Basis_htmlifyString(uw_context ctx, const char *s) {
   char *r, *s2;
 
   uw_check_heap(ctx, strlen(s) * 5 + 1);
@@ -2783,7 +2785,7 @@
   if (*s != '\0' && *endptr == '\0')
     return n;
   else
-    uw_error(ctx, FATAL, "Can't parse int: %s", s);
+    uw_error(ctx, FATAL, "Can't parse int: %s", uw_Basis_htmlifyString(ctx, s));
 }
 
 #include <errno.h>
@@ -2792,7 +2794,7 @@
   unsigned long long n;
 
   if (sscanf(s, "%llu", &n) < 1)
-    uw_error(ctx, FATAL, "Can't parse channel: %s", s);
+    uw_error(ctx, FATAL, "Can't parse channel: %s", uw_Basis_htmlifyString(ctx, s));
   else {
     uw_Basis_channel ch = {n >> 32, n & ((1ull << 32) - 1)};
     return ch;
@@ -2806,7 +2808,7 @@
   if (*s != '\0' && *endptr == '\0')
     return n;
   else
-    uw_error(ctx, FATAL, "Can't parse client: %s", s);
+    uw_error(ctx, FATAL, "Can't parse client: %s", uw_Basis_htmlifyString(ctx, s));
 }
 
 uw_Basis_float uw_Basis_stringToFloat_error(uw_context ctx, uw_Basis_string s) {
@@ -2816,14 +2818,14 @@
   if (*s != '\0' && *endptr == '\0')
     return n;
   else
-    uw_error(ctx, FATAL, "Can't parse float: %s", s);
+    uw_error(ctx, FATAL, "Can't parse float: %s", uw_Basis_htmlifyString(ctx, s));
 }
 
 uw_Basis_char uw_Basis_stringToChar_error(uw_context ctx, uw_Basis_string s) {
   if (s[0] == 0)
     return 0;
   else if (s[1] != 0)
-    uw_error(ctx, FATAL, "Can't parse char: %s", s);
+    uw_error(ctx, FATAL, "Can't parse char: %s", uw_Basis_htmlifyString(ctx, s));
   else
     return s[0];
 }
@@ -2834,7 +2836,7 @@
   else if (!strcasecmp(s, "F") || !strcasecmp (s, "False"))
     return uw_Basis_False;
   else
-    uw_error(ctx, FATAL, "Can't parse bool: %s", s);
+    uw_error(ctx, FATAL, "Can't parse bool: %s", uw_Basis_htmlifyString(ctx, s));
 }
 
 uw_Basis_time uw_Basis_unsqlTime(uw_context ctx, uw_Basis_string s) {
@@ -2854,7 +2856,7 @@
     }
     else {
       *dot = '.';
-      uw_error(ctx, FATAL, "Can't parse time: %s", s);
+      uw_error(ctx, FATAL, "Can't parse time: %s", uw_Basis_htmlifyString(ctx, s));
     }
   }
   else {
@@ -2865,7 +2867,7 @@
       uw_Basis_time r = { mktime(&stm) };
       return r;
     } else
-      uw_error(ctx, FATAL, "Can't parse time: %s", s);
+      uw_error(ctx, FATAL, "Can't parse time: %s", uw_Basis_htmlifyString(ctx, s));
   }
 }
 
@@ -2885,7 +2887,7 @@
     }
     else {
       *dot = '.';
-      uw_error(ctx, FATAL, "Can't parse time: %s", s);
+      uw_error(ctx, FATAL, "Can't parse time: %s", uw_Basis_htmlifyString(ctx, s));
     }
   }
   else {
@@ -2896,7 +2898,7 @@
       uw_Basis_time r = { mktime(&stm) };
       return r;
     } else
-      uw_error(ctx, FATAL, "Can't parse time: %s", s);
+      uw_error(ctx, FATAL, "Can't parse time: %s", uw_Basis_htmlifyString(ctx, s));
   }
 }
 
@@ -2909,7 +2911,7 @@
     uw_Basis_time r = { mktime(&stm) };
     return r;
   } else
-    uw_error(ctx, FATAL, "Can't parse time: %s", s);
+    uw_error(ctx, FATAL, "Can't parse time: %s", uw_Basis_htmlifyString(ctx, s));
 }
 
 uw_Basis_blob uw_Basis_stringToBlob_error(uw_context ctx, uw_Basis_string s, size_t len) {