diff options
Diffstat (limited to 'src/lisp/ao_lisp_string.c')
| -rw-r--r-- | src/lisp/ao_lisp_string.c | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/lisp/ao_lisp_string.c b/src/lisp/ao_lisp_string.c index 87024271..1ab56933 100644 --- a/src/lisp/ao_lisp_string.c +++ b/src/lisp/ao_lisp_string.c @@ -44,6 +44,18 @@ ao_lisp_string_new(int len) { } char * +ao_lisp_string_copy(char *a) +{ + int alen = strlen(a); + + char *r = ao_lisp_alloc(alen + 1); + if (!r) + return NULL; + strcpy(r, a); + return r; +} + +char * ao_lisp_string_cat(char *a, char *b) { int alen = strlen(a); |