Mercurial > urweb
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) { |