blob: a66dc201a7b1a022ea636d63d5a85f2fb7183f7d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#ifndef STRUCT_H
#define STRUCT_H
#include <libguile.h>
#define vcomponent_type scm_from_uint8(0)
#define vcomponent_children scm_from_uint8(1)
#define vcomponent_parent scm_from_uint8(2)
#define vcomponent_lines scm_from_uint8(3)
#define scm_component_parent(component) \
scm_struct_ref (component, vcomponent_parent)
#define vline_value scm_from_uint8(0)
#define vline_attributes scm_from_uint8(1)
SCM scm_make_vcomponent(SCM);
SCM scm_add_line_x (SCM, SCM, SCM);
SCM scm_add_child_x (SCM, SCM);
SCM scm_make_vline (SCM);
SCM scm_add_attribute_x (SCM, SCM, SCM);
#endif /* STRUCT_H */
|