Mercurial > urweb

comparison src/c/urweb.c @ 844:74a1e3bdf430

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix datatype import bug in Elaborate; fix server-side source setting; more standard library stuff
author Adam Chlipala <adamc@hcoop.net>
date Sun, 07 Jun 2009 16:45:00 -0400
parents 249740301a0a
children 158d980889ac
comparison
equal deleted inserted replaced
843:9f0ea203a1ca 844:74a1e3bdf430
1276 uw_unit uw_Basis_set_client_source(uw_context ctx, uw_Basis_int n, uw_Basis_string s) { 1276 uw_unit uw_Basis_set_client_source(uw_context ctx, uw_Basis_int n, uw_Basis_string s) {
1277 int len; 1277 int len;
1278 size_t s_len = strlen(s); 1278 size_t s_len = strlen(s);
1279 1279
1280 uw_check_script(ctx, 6 + INTS_MAX + s_len); 1280 uw_check_script(ctx, 6 + INTS_MAX + s_len);
1281 sprintf(ctx->script.front, "s%d.v=%n", (int)n, &len); 1281 sprintf(ctx->script.front, "sv(s%d,%n", (int)n, &len);
1282 ctx->script.front += len; 1282 ctx->script.front += len;
1283 strcpy(ctx->script.front, s); 1283 strcpy(ctx->script.front, s);
1284 ctx->script.front += s_len; 1284 ctx->script.front += s_len;
1285 strcpy(ctx->script.front, ";"); 1285 strcpy(ctx->script.front, ");");
1286 ctx->script.front++; 1286 ctx->script.front += 2;
1287 1287
1288 return uw_unit_v; 1288 return uw_unit_v;
1289 } 1289 }
1290 1290
1291 static void uw_check(uw_context ctx, size_t extra) { 1291 static void uw_check(uw_context ctx, size_t extra) {