Mercurial > urweb

comparison src/c/urweb.c @ 1128:e1cf925e2074

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Allow escaped backslashes in literals; conversion betwixt int and char
author Adam Chlipala <adamc@hcoop.net>
date Tue, 12 Jan 2010 16:09:13 -0500
parents 0cee0c8d8c37
children 94e83c5533d2
comparison
equal deleted inserted replaced
1127:f93dc2ea30c1 1128:e1cf925e2074
3373 3373
3374 uw_Basis_char uw_Basis_toupper(uw_context ctx, uw_Basis_char c) { 3374 uw_Basis_char uw_Basis_toupper(uw_context ctx, uw_Basis_char c) {
3375 return toupper(c); 3375 return toupper(c);
3376 } 3376 }
3377 3377
3378 uw_Basis_int uw_Basis_ord(uw_context ctx, uw_Basis_char c) {
3379 return (unsigned char)c;
3380 }
3381
3382 uw_Basis_char uw_Basis_chr(uw_context ctx, uw_Basis_int n) {
3383 return n;
3384 }
3385
3378 uw_Basis_string uw_Basis_currentUrl(uw_context ctx) { 3386 uw_Basis_string uw_Basis_currentUrl(uw_context ctx) {
3379 return ctx->current_url; 3387 return ctx->current_url;
3380 } 3388 }
3381 3389
3382 void uw_set_currentUrl(uw_context ctx, char *s) { 3390 void uw_set_currentUrl(uw_context ctx, char *s) {