Ur/Web: src/c/urweb.c comparison

comparison src/c/urweb.c @ 1988:abb6981a2c4c

Merge with small clean-ups

author	Adam Chlipala <adam@chlipala.net>
date	Tue, 18 Feb 2014 07:07:01 -0500
parents	819756825c8d
children	7075acda4456

comparison

equal deleted inserted replaced

-:6bea98c7f736
+:abb6981a2c4c
 adjust_pointer(&x->data.entry.next, old_start, new_start, len);
 adjust_pointer(&x->data.entry.parent, old_start, new_start, len);
 break;
 default:
 break;
 }
 }
 size_t uw_subinputs_max = SIZE_MAX;
 static input *check_input_space(uw_context ctx, size_t len) {
 }
 uw_unit uw_Basis_urlifyChannel_w(uw_context ctx, uw_Basis_channel chn) {
 if (ctx->client != NULL && chn.cli == ctx->client->id) {
 int len;
 uw_check(ctx, INTS_MAX + 1);
 sprintf(ctx->page.front, "%u%n", chn.chn, &len);
 ctx->page.front += len;
 }
 return uw_unit_v;
 }
 uw_unit uw_Basis_urlifyFloat_w(uw_context ctx, uw_Basis_float n) {
 int len;
 return uw_unit_v;
 }
 uw_unit uw_Basis_urlifySource_w(uw_context ctx, uw_Basis_source src) {
 int len;
 uw_check(ctx, 2 * INTS_MAX + 2);
 sprintf(ctx->page.front, "%d/%llu%n", src.context, src.source, &len);
 ctx->page.front += len;
 return uw_unit_v;
 }
 static char *uw_unurlify_advance(char *s) {
 }
 uw_Basis_bool uw_Basis_unurlifyBool(uw_context ctx, char **s) {
 char *new_s = uw_unurlify_advance(*s);
 uw_Basis_bool r;
 if (*s[0] == 0 || !strcmp(*s, "0") || !strcmp(*s, "off"))
 r = uw_Basis_False;
 else
 r = uw_Basis_True;
 int len;
 uw_check(ctx, INTS_MAX);
 sprintf(ctx->page.front, "%lld%n", n, &len);
 ctx->page.front += len;
 return uw_unit_v;
 }
 char *uw_Basis_htmlifySpecialChar(uw_context ctx, unsigned char ch) {
 unsigned int n = ch;
 int len;
 uw_check(ctx, INTS_MAX);
 sprintf(ctx->page.front, "%lld%n", (uw_Basis_int)n, &len);
 ctx->page.front += len;
 return uw_unit_v;
 }
 char *uw_Basis_htmlifyString(uw_context ctx, const char *s) {
 char *r, *s2;
 int len;
 uw_check(ctx, 2 * INTS_MAX + 1);
 sprintf(ctx->page.front, "s%d_%llu%n", src.context, src.source, &len);
 ctx->page.front += len;
 return uw_unit_v;
 }
 uw_Basis_char uw_Basis_strsub(uw_context ctx, uw_Basis_string s, uw_Basis_int n) {
 while (n >= 0) {
 uw_Basis_string r = uw_malloc(ctx, len+1);
 memcpy(r, s+start, len);
 r[len] = 0;
 return r;
 }
 }
 uw_Basis_string uw_Basis_str1(uw_context ctx, uw_Basis_char ch) {
 char *r;
 }
 } else {
 sprintf(s2, "%02X", c);
 s2 += 2;
 }
 }
 *s2++ = '\'';
 strcpy(s2, uw_sqlsuffixBlob);
 ctx->heap.front = s2 + 1 + strlen(uw_sqlsuffixBlob);
 return r;
 int i;
 char *s = strstr(haystack, sig_intro);
 if (!s || strlen(haystack) - (s - haystack) - (sizeof sig_intro - 1) < uw_hash_blocksize*2+1)
 return NULL;
 s += sizeof sig_intro - 1;
 for (i = 0; i < uw_hash_blocksize*2; ++i)
 if (!isxdigit((int)s[i]))
 return NULL;
 }
 uw_Basis_string uw_Basis_makeSigString(uw_context ctx, uw_Basis_string sig) {
 uw_Basis_string r = uw_malloc(ctx, 2 * uw_hash_blocksize + 1);
 int i;
 for (i = 0; i < uw_hash_blocksize; ++i)
 sprintf(&r[2*i], "%.02X", ((unsigned char *)sig)[i]);
 return r;
 }
 uw_Basis_string uw_Basis_mstrcat(uw_context ctx, ...) {
 va_list ap;
 size_t len = 1;
 char *s, *r, *s2;
 va_start(ap, ctx);
 for (s = va_arg(ap, char*); s; s = va_arg(ap, char*))
 len += strlen(s);
 va_end(ap);
 uw_Basis_int uw_Basis_toSeconds(uw_context ctx, uw_Basis_time tm) {
 return tm.seconds;
 }
+uw_Basis_time uw_Basis_fromDatetime(uw_context ctx, uw_Basis_int year, uw_Basis_int month, uw_Basis_int day, uw_Basis_int hour, uw_Basis_int minute, uw_Basis_int second) {
+struct tm tm = { .tm_year = year - 1900, .tm_mon = month, .tm_mday = day,
+.tm_hour = hour, .tm_min = minute, .tm_sec = second };
+uw_Basis_time r = { timelocal(&tm) };
+return r;
+}
+uw_Basis_int uw_Basis_datetimeYear(uw_context ctx, uw_Basis_time time) {
+struct tm tm;
+localtime_r(&time.seconds, &tm);
+return tm.tm_year + 1900;
+}
+uw_Basis_int uw_Basis_datetimeMonth(uw_context ctx, uw_Basis_time time) {
+struct tm tm;
+localtime_r(&time.seconds, &tm);
+return tm.tm_mon;
+}
+uw_Basis_int uw_Basis_datetimeDay(uw_context ctx, uw_Basis_time time) {
+struct tm tm;
+localtime_r(&time.seconds, &tm);
+return tm.tm_mday;
+}
+uw_Basis_int uw_Basis_datetimeHour(uw_context ctx, uw_Basis_time time) {
+struct tm tm;
+localtime_r(&time.seconds, &tm);
+return tm.tm_hour;
+}
+uw_Basis_int uw_Basis_datetimeMinute(uw_context ctx, uw_Basis_time time) {
+struct tm tm;
+localtime_r(&time.seconds, &tm);
+return tm.tm_min;
+}
+uw_Basis_int uw_Basis_datetimeSecond(uw_context ctx, uw_Basis_time time) {
+struct tm tm;
+localtime_r(&time.seconds, &tm);
+return tm.tm_sec;
+}
+uw_Basis_int uw_Basis_datetimeDayOfWeek(uw_context ctx, uw_Basis_time time) {
+struct tm tm;
+localtime_r(&time.seconds, &tm);
+return tm.tm_wday;
+}
 void *uw_get_global(uw_context ctx, char *name) {
 int i;
 for (i = 0; i < ctx->n_globals; ++i)
 if (!strcmp(name, ctx->globals[i].name))
 uw_Basis_int uw_Basis_rand(uw_context ctx) {
 uw_Basis_int ret;
 pthread_mutex_lock(&rand_mutex);
 int r = RAND_bytes((unsigned char *)&ret, sizeof ret);
 pthread_mutex_unlock(&rand_mutex);
 if (r)
 return abs(ret);
 else
 uw_error(ctx, FATAL, "Random number generation failed");
 }

Mercurial > urweb

comparison src/c/urweb.c @ 1988:abb6981a2c4c