2 object-key-dumper-scheme.cc -- implement Object_key_dumper bindings
4 source file of the GNU LilyPond music typesetter
6 (c) 2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
9 #include "object-key-dumper.hh"
13 LY_DEFINE (ly_make_dumper, "ly:make-dumper",
16 "Create a key dumper. ")
18 Object_key_dumper *u = new Object_key_dumper ();
19 SCM x = u->self_scm ();
20 scm_gc_unprotect_object (x);
24 LY_DEFINE (ly_dumper_definitions, "ly:dumper-definitions",
27 "Return list of key definitions. ")
29 Object_key_dumper *u = unsmob_key_dumper (dumper);
30 SCM_ASSERT_TYPE (u, dumper, SCM_ARG1, __FUNCTION__, "dumper");
31 return u->get_file_contents ();
34 LY_DEFINE (ly_dumper_key_serial, "ly:dumper-key-serial",
36 (SCM dumper, SCM key),
37 "Return the key serial number @var{key}. ")
39 Object_key_dumper *u = unsmob_key_dumper (dumper);
40 Object_key *k = unsmob_key (key);
41 SCM_ASSERT_TYPE (u, dumper, SCM_ARG1, __FUNCTION__, "dumper");
42 SCM_ASSERT_TYPE (k, key, SCM_ARG2, __FUNCTION__, "key");
43 return u->dump_key (k);