diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-03-08 10:12:04 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-03-08 10:12:04 +0100 |
| commit | d89343bf6959e8a0f9bf891a8773daf6b8a9825b (patch) | |
| tree | 1dfe746619bf4b044fcae3eddec6fbcaa081feeb /guile_interface.scm.c | |
| parent | Remove C hash library. (diff) | |
| download | calp-d89343bf6959e8a0f9bf891a8773daf6b8a9825b.tar.gz calp-d89343bf6959e8a0f9bf891a8773daf6b8a9825b.tar.xz | |
Add copy-vevent.
Diffstat (limited to 'guile_interface.scm.c')
| -rw-r--r-- | guile_interface.scm.c | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/guile_interface.scm.c b/guile_interface.scm.c index 2dcff513..a134848d 100644 --- a/guile_interface.scm.c +++ b/guile_interface.scm.c @@ -177,6 +177,23 @@ SCM_DEFINE(vcomponent_attr_list, "%vcomponent-attribute-list", 1, 0, 0, return llist; } +SCM_DEFINE(vcomponent_shallow_copy, "%vcomponent-shallow-copy", 1, 0, 0, + (SCM component), + "Creates a shallow copy of the given component.") +{ + scm_assert_foreign_object_type (vcomponent_type, component); + vcomponent* src = scm_foreign_object_ref (component, 0); + + vcomponent* dest = + (vcomponent*) scm_gc_malloc ( + sizeof(*dest), "vcomponent"); + INIT(vcomponent, dest, src->type, NULL); + + vcomponent_copy (dest, src); + return scm_make_foreign_object_1 + (vcomponent_type, dest); +} + void init_lib (void) { init_vcomponent_type(); |