diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-01-28 07:42:10 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-01-28 07:42:10 -0800 |
| commit | cc413849fc0b92fee3c33ffd16378ca6ffa1070d (patch) | |
| tree | 1daeb8be5180accdf97323595f2bbb3b72674f5d /eval.c | |
| parent | d18bf6605613cc0eb8038d1e42f5faac37510a1a (diff) | |
| download | txr-cc413849fc0b92fee3c33ffd16378ca6ffa1070d.tar.gz txr-cc413849fc0b92fee3c33ffd16378ca6ffa1070d.tar.bz2 txr-cc413849fc0b92fee3c33ffd16378ca6ffa1070d.zip | |
New function: copy-cptr.
* eval.c (eval_init): copy-cptr intrinsic registered.
* lib.c (copy_cptr): New function.
(copy): Use copy_cptr for CPTR objects.
* lib.h (copy_cptr): Declared.
* tests/017/ffi-misc.tl: New test cases.
* txr.1: Documented.
* stdlib/doc-syms.tl: Updated.
Diffstat (limited to 'eval.c')
| -rw-r--r-- | eval.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -7454,6 +7454,7 @@ void eval_init(void) reg_fun(intern(lit("cptr-zap"), user_package), func_n1(cptr_zap)); reg_fun(intern(lit("cptr-free"), user_package), func_n1(cptr_free)); reg_fun(intern(lit("cptr-cast"), user_package), func_n2(cptr_cast)); + reg_fun(intern(lit("copy-cptr"), user_package), func_n1(copy_cptr)); reg_fun(intern(lit("int-cptr"), user_package), func_n1(int_cptr)); reg_fun(intern(lit("cptrp"), user_package), func_n1(cptrp)); reg_fun(intern(lit("cptr-type"), user_package), func_n1(cptr_type)); |