From 0d777b24c5851abba18d53379c184e42e259d0ae Mon Sep 17 00:00:00 2001 From: fred <fred> Date: Tue, 26 Mar 2002 23:24:38 +0000 Subject: [PATCH] lilypond-1.3.71 --- lily/lookup.cc | 46 +++++++++++++++++++++++++++++++++++++++++++--- 1 file changed, 43 insertions(+), 3 deletions(-) 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 -- 2.39.5