2 score-element-callback.cc -- implement Callback smob.
4 source file of the GNU LilyPond music typesetter
6 (c) 2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "music-iterator-ctor.hh"
12 static long callback_tag;
21 print_smob (SCM, SCM port, scm_print_state *)
23 scm_puts ("#<encapsulated C++ function>", port);
28 scm_sizet free_smob (SCM)
34 void start_callback_smobs()
36 callback_tag = scm_make_smob_type_mfpe ("callback", 0,
42 smobify_callback (Cpp_function cb )
47 SCM_SETCDR (z, (SCM)cb);
48 SCM_SETCAR (z, (SCM)callback_tag);
53 ADD_SCM_INIT_FUNC(callback, start_callback_smobs);