comparison src/c/lacweb.c @ 180:c7a5c8e0a0e0

Cjrize EStrcat
author Adam Chlipala <adamc@hcoop.net>
date Sun, 03 Aug 2008 11:03:35 -0400
parents 2232ab355f66
children c0ea24dcb86f
comparison
equal deleted inserted replaced
179:3bbed533fbd2 180:c7a5c8e0a0e0
503 lw_writec_unsafe(ctx, ';'); 503 lw_writec_unsafe(ctx, ';');
504 } 504 }
505 } 505 }
506 } 506 }
507 } 507 }
508
509 lw_Basis_string lw_Basis_strcat(lw_context ctx, lw_Basis_string s1, lw_Basis_string s2) {
510 int len = strlen(s1) + strlen(s2) + 1;
511 char *s;
512
513 lw_check(ctx, len);
514
515 s = ctx->heap_front;
516
517 strcpy(s, s1);
518 strcat(s, s2);
519 ctx->heap_front += len;
520
521 return s;
522 }