diff options
| author | Keith Packard <keithp@keithp.com> | 2016-10-31 18:53:09 -0700 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2016-11-17 22:18:39 -0800 |
| commit | 75f07353a4fad170ac1cc6af98ed1aad7d1c0c88 (patch) | |
| tree | f31757c2f2f1f100b35b2cad43bccf2128413839 /src/lisp/ao_lisp_string.c | |
| parent | eabd97e4b1a9d34416455b0fceb14a9a480c63a4 (diff) | |
altos: Add lisp reader
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); |