*** empty log message ***

[lilypond.git] / lily / object-key-undumper.cc

diff --git a/lily/object-key-undumper.cc b/lily/object-key-undumper.cc
index bf0f32f993388d60bb4e320201ec95c7468c6eb7..f990a0fb3dc25cf21c6210f7b9a57c79b75f0bcf 100644 (file)
--- a/lily/object-key-undumper.cc
+++ b/lily/object-key-undumper.cc
@@ -3,15 +3,10 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 2004 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  (c) 2004--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
 */
 
-#include <map>
-
-
-#include "smobs.hh"
-#include "object-key.hh"
 #include "object-key-undumper.hh"
 
 #include "ly-smobs.icc"
@@ -35,6 +30,7 @@ Object_key_undumper::mark_smob (SCM smob)
 int
 Object_key_undumper::print_smob (SCM s, SCM port, scm_print_state*)
 {
+  (void) s; 
   scm_puts ("#<Object_key_undumper>", port);
   return 1;
 }
@@ -46,47 +42,6 @@ Object_key_undumper::Object_key_undumper ()
 }
 
 
-LY_DEFINE(ly_undumper_read_keys, "ly:undumper-read-keys",
-         2,0,0,
-         (SCM undumper, SCM keys),
-         "Read serialized @var{keys} into @var{undumper}."
-         )
-{
-  Object_key_undumper *u = unsmob_key_undumper (undumper);
-  SCM_ASSERT_TYPE(u, undumper, SCM_ARG1, __FUNCTION__, "Undumper");
-
-  u->parse_contents (keys);
-  return SCM_UNSPECIFIED;
-}
-
-LY_DEFINE(ly_make_undumper, "ly:make-undumper",
-         0, 0,0,
-         (),
-         "Create a key undumper. "
-         )
-{
-  Object_key_undumper *u = new Object_key_undumper ();
-  SCM x = u->self_scm();
-  scm_gc_unprotect_object (x);
-  return x;
-}
-
-
-LY_DEFINE(ly_undumper_lookup, "ly:undumper-lookup",
-         2,0,0,
-         (SCM undumper, SCM serial),
-         "Return the object key for number @var{serial}. "
-         )
-  
-{
-  Object_key_undumper* u = unsmob_key_undumper (undumper);
-
-  SCM_ASSERT_TYPE(u, undumper, SCM_ARG1, __FUNCTION__, "undumper");
-  SCM_ASSERT_TYPE(scm_is_integer(serial), serial, SCM_ARG2, __FUNCTION__, "integer");
-  return u->get_key (scm_to_int (serial))->self_scm();
-}
-
-
 void
 Object_key_undumper::parse_contents (SCM contents)
 {