comparison src/c/urweb.c @ 972:733f67bb64e7

Functions working with interpretation
author Adam Chlipala <adamc@hcoop.net>
date Tue, 22 Sep 2009 13:27:47 -0400
parents 8371d12ae63f
children 7932d577cf78
comparison
equal deleted inserted replaced
971:c22e524a6dd3 972:733f67bb64e7
1290 sprintf(ctx->script.front, "var s%d=sc(exec(%n", ctx->source_count, &len); 1290 sprintf(ctx->script.front, "var s%d=sc(exec(%n", ctx->source_count, &len);
1291 ctx->script.front += len; 1291 ctx->script.front += len;
1292 strcpy(ctx->script.front, s); 1292 strcpy(ctx->script.front, s);
1293 ctx->script.front += s_len; 1293 ctx->script.front += s_len;
1294 strcpy(ctx->script.front, "));"); 1294 strcpy(ctx->script.front, "));");
1295 ctx->script.front += 2; 1295 ctx->script.front += 3;
1296 1296
1297 return ctx->source_count++; 1297 return ctx->source_count++;
1298 } 1298 }
1299 1299
1300 uw_unit uw_Basis_set_client_source(uw_context ctx, uw_Basis_int n, uw_Basis_string s) { 1300 uw_unit uw_Basis_set_client_source(uw_context ctx, uw_Basis_int n, uw_Basis_string s) {
1305 sprintf(ctx->script.front, "sv(s%d,exec(%n", (int)n, &len); 1305 sprintf(ctx->script.front, "sv(s%d,exec(%n", (int)n, &len);
1306 ctx->script.front += len; 1306 ctx->script.front += len;
1307 strcpy(ctx->script.front, s); 1307 strcpy(ctx->script.front, s);
1308 ctx->script.front += s_len; 1308 ctx->script.front += s_len;
1309 strcpy(ctx->script.front, "));"); 1309 strcpy(ctx->script.front, "));");
1310 ctx->script.front += 2; 1310 ctx->script.front += 3;
1311 1311
1312 return uw_unit_v; 1312 return uw_unit_v;
1313 } 1313 }
1314 1314
1315 static void uw_check(uw_context ctx, size_t extra) { 1315 static void uw_check(uw_context ctx, size_t extra) {