2 lily-guile-macros.hh -- declare
4 source file of the GNU LilyPond music typesetter
6 (c) 2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
9 #ifndef LILY_GUILE_MACROS_HH
10 #define LILY_GUILE_MACROS_HH
12 #ifndef SMOB_FREE_RETURN_VAL
13 #define SMOB_FREE_RETURN_VAL(CL) 0
17 #define SCM_PACK(x) ((SCM) x)
21 #define SCM_UNPACK(x) (x)
25 /* Unreliable with gcc-2.x
26 FIXME: should add check for x86 as well? */
32 /* Using this trick we cache the value of scm_str2symbol ("fooo") where
33 "fooo" is a constant string. This is done at the cost of one static
34 variable per ly_symbol2scm() use, and one boolean evaluation for
37 The overall speedup of lily is about 5% on a run of wtk1-fugue2. */
38 #define ly_symbol2scm(x) \
41 /* We store this one locally, since G++ -O2 fucks up else */ \
43 if (__builtin_constant_p ((x))) \
46 value = cached = scm_gc_protect_object (scm_str2symbol ((x))); \
49 value = scm_str2symbol ((char *) (x)); \
53 inline SCM ly_symbol2scm (char const *x) { return scm_str2symbol ((x)); }
57 TODO: rename me to ly_c_lily_module_eval
59 we don't have to protect the result; it's already part of the
60 exports list of the module.
63 #define ly_lily_module_constant(x) \
66 /* We store this one locally, since G++ -O2 fucks up else */ \
68 if (__builtin_constant_p ((x))) \
71 value = cached = scm_eval (scm_str2symbol (x), \
72 global_lily_module); \
75 value = scm_eval (scm_str2symbol (x), global_lily_module); \
80 Adds the NAME as a Scheme function, and a variable to store the SCM
81 version of the function in the static variable NAME_proc
83 #define DECLARE_SCHEME_CALLBACK(NAME, ARGS) \
84 static SCM NAME ARGS; \
85 static SCM NAME ## _proc
88 Make TYPE::FUNC available as a Scheme function.
90 #define MAKE_SCHEME_CALLBACK(TYPE, FUNC, ARGCOUNT) \
91 SCM TYPE ::FUNC ## _proc; \
93 TYPE ## _ ## FUNC ## _init_functions () \
95 TYPE ::FUNC ## _proc = scm_c_define_gsubr (#TYPE "::" #FUNC, \
97 (Scheme_function_unknown) TYPE::FUNC); \
98 scm_c_export (#TYPE "::" #FUNC, NULL); \
101 ADD_SCM_INIT_FUNC (TYPE ## _ ## FUNC ## _callback, \
102 TYPE ## _ ## FUNC ## _init_functions);
105 ly_add_function_documentation (SCM proc, char const *fname,
109 #define ADD_SCM_INIT_FUNC(name, func) \
110 class name ## _scm_initter \
113 name ## _scm_initter () \
115 add_scm_init_func (func); \
118 _ ## name ## _scm_initter;
122 #define LY_DEFINE_WITHOUT_DECL(INITPREFIX, FNAME, PRIMNAME, REQ, OPT, VAR, \
123 ARGLIST, DOCSTRING) \
124 SCM FNAME ## _proc; \
126 INITPREFIX ## init () \
128 FNAME ## _proc = scm_c_define_gsubr (PRIMNAME, REQ, OPT, VAR, \
129 (Scheme_function_unknown) FNAME); \
130 ly_add_function_documentation (FNAME ## _proc, PRIMNAME, #ARGLIST, \
132 scm_c_export (PRIMNAME, NULL); \
134 ADD_SCM_INIT_FUNC (INITPREFIX ## init_unique_prefix, INITPREFIX ## init); \
138 #define LY_DEFINE(FNAME, PRIMNAME, REQ, OPT, VAR, ARGLIST, DOCSTRING) \
140 LY_DEFINE_WITHOUT_DECL (FNAME, FNAME, PRIMNAME, REQ, OPT, VAR, ARGLIST, \
143 #define LY_DEFINE_MEMBER_FUNCTION(CLASS, FNAME, PRIMNAME, REQ, OPT, VAR, \
144 ARGLIST, DOCSTRING) \
146 LY_DEFINE_WITHOUT_DECL (CLASS ## FNAME, CLASS::FNAME, PRIMNAME, REQ, OPT, \
147 VAR, ARGLIST, DOCSTRING)
149 #define get_property(x) internal_get_property (ly_symbol2scm (x))
150 #define get_object(x) internal_get_object (ly_symbol2scm (x))
151 #define set_property(x, y) internal_set_property (ly_symbol2scm (x), y)
152 #define set_object(x, y) internal_set_object (ly_symbol2scm (x), y)
154 #endif /* LILY_GUILE_MACROS_HH */