diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-02-23 22:47:24 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-02-23 22:47:24 +0100 |
| commit | d176e70202a5ef3c6af8fcef0fdcc5733d641f38 (patch) | |
| tree | ba175ecb2d41865f87a6678d3e9a01ed706f82a3 /guile_interface.scm.c | |
| parent | Switch back to C compiler. (diff) | |
| download | calp-d176e70202a5ef3c6af8fcef0fdcc5733d641f38.tar.gz calp-d176e70202a5ef3c6af8fcef0fdcc5733d641f38.tar.xz | |
Reenable guile stuff.
Diffstat (limited to '')
| -rw-r--r-- | guile_interface.scm.c (renamed from guile_interface.scm.c__) | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/guile_interface.scm.c__ b/guile_interface.scm.c index e86504be..a4eb7f8b 100644 --- a/guile_interface.scm.c__ +++ b/guile_interface.scm.c @@ -54,6 +54,24 @@ SCM_DEFINE (vcomponent_get_attribute, "vcomponent-get-attribute", 2, 0, 0, return llist; } +SCM_DEFINE (vcomponent_set_attr_x, "vcomponent-set-attribute!", 3, 0, 0, + (SCM component, SCM attr, SCM new_value), + "") +{ + scm_assert_foreign_object_type (vcomponent_type, component); + vcomponent* com = scm_foreign_object_ref (component, 0); + + char* key = scm_to_utf8_stringn(scm_string_upcase(attr), NULL); + content_line* c = get_property (com, key); + free(key); + + c->val.cur->value->key.mem = (char*) new_value; + + + + return SCM_UNSPECIFIED; +} + SCM_DEFINE (vcomponent_child_count, "vcomponent-child-count", 1, 0, 0, (SCM component), "Returns number of child components.") |