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 | |
parent | Switch back to C compiler. (diff) | |
download | calp-d176e70202a5ef3c6af8fcef0fdcc5733d641f38.tar.gz calp-d176e70202a5ef3c6af8fcef0fdcc5733d641f38.tar.xz |
Reenable guile stuff.
-rw-r--r-- | guile_interface.h (renamed from guile_interface.h__) | 0 | ||||
-rw-r--r-- | guile_interface.scm.c (renamed from guile_interface.scm.c__) | 18 | ||||
-rw-r--r-- | guile_interface.x__ | 6 | ||||
-rw-r--r-- | guile_type_helpers.c (renamed from guile_type_helpers.c__) | 0 | ||||
-rw-r--r-- | guile_type_helpers.h (renamed from guile_type_helpers.h__) | 0 |
5 files changed, 18 insertions, 6 deletions
diff --git a/guile_interface.h__ b/guile_interface.h index 91e25a72..91e25a72 100644 --- a/guile_interface.h__ +++ b/guile_interface.h 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.") diff --git a/guile_interface.x__ b/guile_interface.x__ deleted file mode 100644 index badb3ca8..00000000 --- a/guile_interface.x__ +++ /dev/null @@ -1,6 +0,0 @@ -/* cpp arguments: guile_interface.scm.c -std=gnu11 -Wall -Wextra -fPIC -pthread -I/usr/include/guile/2.2 */ -scm_c_define_gsubr (s_make_vcomponent, 1, 0, 0, (scm_t_subr) make_vcomponent);; -scm_c_define_gsubr (s_vcomponent_get_attribute, 2, 0, 0, (scm_t_subr) vcomponent_get_attribute);; -scm_c_define_gsubr (s_vcomponent_child_count, 1, 0, 0, (scm_t_subr) vcomponent_child_count);; -scm_c_define_gsubr (s_vcomponent_children, 1, 0, 0, (scm_t_subr) vcomponent_children);; -scm_c_define_gsubr (s_vcomponent_typeof, 1, 0, 0, (scm_t_subr) vcomponent_typeof);; diff --git a/guile_type_helpers.c__ b/guile_type_helpers.c index 3f76c2d4..3f76c2d4 100644 --- a/guile_type_helpers.c__ +++ b/guile_type_helpers.c diff --git a/guile_type_helpers.h__ b/guile_type_helpers.h index bb69312d..bb69312d 100644 --- a/guile_type_helpers.h__ +++ b/guile_type_helpers.h |