lily/object-key-dumper-scheme.cc

   1 /*
   2   object-key-dumper-scheme.cc -- implement Object_key_dumper bindings
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7 */
   8
   9 #include "object-key-dumper.hh"
  10
  11 #include "moment.hh"
  12
  13 LY_DEFINE (ly_make_dumper, "ly:make-dumper",
  14            0, 0, 0,
  15            (),
  16            "Create a key dumper. ")
  17 {
  18   Object_key_dumper *u = new Object_key_dumper ();
  19   SCM x = u->self_scm ();
  20   scm_gc_unprotect_object (x);
  21   return x;
  22 }
  23
  24 LY_DEFINE (ly_dumper_definitions, "ly:dumper-definitions",
  25            1, 0, 0,
  26            (SCM dumper),
  27            "Return list of key definitions. ")
  28 {
  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 ();
  32 }
  33
  34 LY_DEFINE (ly_dumper_key_serial, "ly:dumper-key-serial",
  35            2, 0, 0,
  36            (SCM dumper, SCM key),
  37            "Return the  key serial number @var{key}. ")
  38 {
  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);
  44 }