From: fred <fred>
Date: Tue, 26 Mar 2002 23:24:38 +0000 (+0000)
Subject: lilypond-1.3.71
X-Git-Tag: release/1.5.59~1487
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0d777b24c5851abba18d53379c184e42e259d0ae;p=lilypond.git

lilypond-1.3.71
---

diff --git a/lily/lookup.cc b/lily/lookup.cc
index a139f21ca5..2b90ce5a79 100644
--- a/lily/lookup.cc
+++ b/lily/lookup.cc
@@ -14,7 +14,7 @@
 #include <ctype.h>
 
 #include "lookup.hh"
-#include "debug.hh"
+#include "warn.hh"
 #include "dimensions.hh"
 #include "bezier.hh"
 #include "paper-def.hh"
@@ -27,21 +27,61 @@
 #include "scope.hh"
 #include "molecule.hh"
 
-#include "lily-guile.hh"
+
+#include "ly-smobs.icc"
 
 
 Lookup::Lookup ()
 {
   afm_l_ = 0;  
+  self_scm_ = SCM_EOL;
+  smobify_self ();  
 }
 
 Lookup::Lookup (Lookup const& s)
 {
   font_name_ = s.font_name_;
-  afm_l_ = 0;  
+  self_scm_ = SCM_EOL;
+  afm_l_ = 0;
+  smobify_self ();
+}
+
+SCM
+Lookup::mark_smob (SCM s)
+{
+  return s;  
+}
+
+int
+Lookup::print_smob (SCM s, SCM p, scm_print_state*)
+{
+  scm_puts ("#<Lookup >#", p);
+  return 1;
 }
 
+SCM
+Lookup::equal_p (SCM a , SCM b)
+{
+  return a == b ? SCM_BOOL_T : SCM_BOOL_F;
+}
 
+void
+Lookup::do_smobify_self ()
+{
+  
+}
+
+IMPLEMENT_UNSMOB(Lookup, lookup);
+IMPLEMENT_SMOBS(Lookup);
+
+SCM
+Lookup::make_lookup ()
+{
+  Lookup * l = new Lookup;
+  SCM ls = l->self_scm_;
+  scm_unprotect_object (ls);
+  return ls;
+}
 
 
 Molecule