From 42ad3a0b10a3e41d1b011b568c0643436e3bb101 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Tue, 2 Sep 2008 16:10:07 -0400 Subject: First query example working --- src/c/urweb.c | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'src/c') diff --git a/src/c/urweb.c b/src/c/urweb.c index 10d474f4..f0e93e46 100644 --- a/src/c/urweb.c +++ b/src/c/urweb.c @@ -575,3 +575,17 @@ lw_Basis_string lw_Basis_strcat(lw_context ctx, lw_Basis_string s1, lw_Basis_str return s; } + +lw_Basis_string lw_Basis_strdup(lw_context ctx, lw_Basis_string s1) { + int len = strlen(s1) + 1; + char *s; + + lw_check_heap(ctx, len); + + s = ctx->heap_front; + + strcpy(s, s1); + ctx->heap_front += len; + + return s; +} -- cgit v1.2.3