lily/object-key-undumper-scheme.cc

   1 /*
   2   object-key-undumper-scheme.cc -- implement Object_key_undumper 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-undumper.hh"
  10
  11 LY_DEFINE (ly_undumper_read_keys, "ly:undumper-read-keys",
  12            2, 0, 0,
  13            (SCM undumper, SCM keys),
  14            "Read serialized @var{keys} into @var{undumper}.")
  15 {
  16   Object_key_undumper *u = unsmob_key_undumper (undumper);
  17   SCM_ASSERT_TYPE (u, undumper, SCM_ARG1, __FUNCTION__, "Undumper");
  18
  19   u->parse_contents (keys);
  20   return SCM_UNSPECIFIED;
  21 }
  22
  23 LY_DEFINE (ly_make_undumper, "ly:make-undumper",
  24            0, 0, 0,
  25            (),
  26            "Create a key undumper. ")
  27 {
  28   Object_key_undumper *u = new Object_key_undumper ();
  29   SCM x = u->self_scm ();
  30   scm_gc_unprotect_object (x);
  31   return x;
  32 }
  33
  34 LY_DEFINE (ly_undumper_lookup, "ly:undumper-lookup",
  35            2, 0, 0,
  36            (SCM undumper, SCM serial),
  37            "Return the object key for number @var{serial}. ")
  38
  39 {
  40   Object_key_undumper *u = unsmob_key_undumper (undumper);
  41
  42   SCM_ASSERT_TYPE (u, undumper, SCM_ARG1, __FUNCTION__, "undumper");
  43   SCM_ASSERT_TYPE (scm_is_integer (serial), serial, SCM_ARG2, __FUNCTION__, "integer");
  44   return u->get_key (scm_to_int (serial))->self_scm ();
  45 }
  46