Mercurial > urweb
comparison src/c/lacweb.c @ 199:c938fe391c84
strings get 'Option' datatype handling; fix datatype unurlifying
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sat, 09 Aug 2008 19:46:12 -0400 |
parents | ab86aa858e6c |
children | 5dbba661deab |
comparison
equal
deleted
inserted
replaced
198:ab86aa858e6c | 199:c938fe391c84 |
---|---|
541 | 541 |
542 lw_Basis_string lw_Basis_strcat(lw_context ctx, lw_Basis_string s1, lw_Basis_string s2) { | 542 lw_Basis_string lw_Basis_strcat(lw_context ctx, lw_Basis_string s1, lw_Basis_string s2) { |
543 int len = strlen(s1) + strlen(s2) + 1; | 543 int len = strlen(s1) + strlen(s2) + 1; |
544 char *s; | 544 char *s; |
545 | 545 |
546 printf("s1 = %s\ns2 = %s\n", s1, s2); | |
547 | |
548 lw_check_heap(ctx, len); | 546 lw_check_heap(ctx, len); |
549 | 547 |
550 s = ctx->heap_front; | 548 s = ctx->heap_front; |
551 | 549 |
552 strcpy(s, s1); | 550 strcpy(s, s1); |
553 strcat(s, s2); | 551 strcat(s, s2); |
554 ctx->heap_front += len; | 552 ctx->heap_front += len; |
555 | 553 |
556 printf("s = %s\n", s); | |
557 | |
558 return s; | 554 return s; |
559 } | 555 } |