3 score-element-callback.cc -- implement Callback smob.
5 source file of the GNU LilyPond music typesetter
7 (c) 2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
11 #include "score-element-callback.hh"
13 static SCM callback_tag
;
22 print_smob (SCM
, SCM port
, scm_print_state
*)
24 scm_puts ("#<Callback>", port
);
29 scm_sizet
free_smob (SCM
)
35 void start_callback_smobs()
37 callback_tag
= scm_make_smob_type_mfpe ("callback", 0,
44 smobify_callback (Score_element_callback cb
)
49 SCM_SETCDR (z
, (SCM
)cb
);
50 SCM_SETCAR (z
, (SCM
)callback_tag
);
55 ADD_SCM_INIT_FUNC(callback
, start_callback_smobs
);