source file of the GNU LilyPond music typesetter
- (c) 1997--1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
-
#include "atom.hh"
#include "interval.hh"
#include "string.hh"
#include "dimensions.hh"
#include "lookup.hh"
#include "main.hh"
+#include "global-ctor.hh"
-inline bool
-Atom::check_infinity_b ()const
+Atom::Atom(SCM s)
{
- bool ridiculous = false;
-#ifndef NDEBUG
-
- /* infinity checks. */
- for (int a = X_AXIS; a < NO_AXES; a++)
- {
- Axis ax = (Axis)a;
- if (abs (off_[ax]) >= 100 CM)
- {
- warning (_f ("ridiculous dimension: %s, %s", axis_name_str (ax),
- global_lookup_l->print_dimen (off_[ax])));
-
- if (experimental_features_global_b)
- assert (false);
-
- ( (Atom*)this)->off_[ax] = 0.0;
- ridiculous = true;
- }
- }
-#endif
- return ridiculous;
+ func_ = s;
}
-void
-Atom::print () const
+#ifdef ATOM_SMOB
+int
+Atom::smob_display (SCM smob, SCM port, scm_print_state*)
{
-#ifndef NPRINT
- DOUT << "string: " << str_ << '\n';
-
- DOUT << "dim:";
- for (Axis i=X_AXIS; i < NO_AXES; incr (i))
- DOUT << axis_name_str (i) << " = " << dim_[i].str ();
+ Atom* a =(Atom*) SCM_CDR(smob);
+ String i (a->off_.str ());
+
+ scm_puts ("#<Atom ", port);
+ scm_puts (i.ch_C(), port);
+ gh_display (a->func_);
+ scm_puts (">", port);
- DOUT << "\noffset: " << off_.str ();
-#endif
+ /* non-zero means success */
+ return 1;
}
-Box
-Atom::extent () const
+
+scm_sizet
+Atom::smob_free (SCM smob)
{
- Box b (dim_);
- b.translate (off_);
- return b;
+ Atom * a= (Atom*) SCM_CDR(smob);
+ delete a;
+ return sizeof (Atom);
}
-
-Atom::Atom ()
- : dim_ (Interval (0,0),Interval (0,0))
+SCM
+Atom::smob_mark (SCM smob)
{
- /*
- urg
- We should probably make Atom an abstract base class to
- derive Ps_atom and Tex_atom from.
- But Atom is used as a simple type *everywhere*,
- and we don't have virtual contructors.
- */
- lambda_ = 0;
- str_ = global_lookup_l->unknown_str ();
+ Atom * a= (Atom*) SCM_CDR(smob);
+ scm_gc_mark (a->func_);
+ return a->font_;
}
-Atom::Atom (String s, Box b)
- : dim_ (b)
+long Atom::smob_tag_;
+
+void
+Atom::init_smob ()
{
- lambda_ = 0;
- str_ = s;
+ static scm_smobfuns type_rec;
+
+ type_rec.mark = smob_mark;
+ type_rec.free = smob_free;
+ type_rec.print = smob_display;
+ type_rec.equalp = 0;
+
+ smob_tag_ = scm_newsmob (&type_rec);
}
-String
-Atom::str () const
+SCM
+Atom::make_smob () const
{
- return String ("Atom (\'") + str_ + "\', (" + dim_.x ().str () + ", "
- + dim_.y ().str () + "))";
+ SCM smob;
+ SCM_NEWCELL (smob);
+ SCM_SETCAR (smob, smob_tag_);
+ SCM_SETCDR (smob, this);
+ return smob;
}
-Offset
-Atom::offset () const
+SCM
+Atom::make_atom (SCM outputfunc)
{
- return off_;
+ Atom * a= new Atom(outputfunc);
+ return a->make_smob ();
}
-
-
-void
-Atom::translate_axis (Real r, Axis a)
+SCM
+Atom::copy_self () const
{
- off_[a] += r;
- check_infinity_b ();
+ return (new Atom (*this))->make_smob ();
}
-void
-Atom::translate (Offset o)
+bool
+Atom::Atom_b (SCM obj)
{
- off_ += o;
- check_infinity_b ();
+ return(SCM_NIMP(obj) && SCM_CAR(obj) == smob_tag_);
}
-bool
-Atom::empty() const
+Atom*
+Atom::atom_l (SCM a)
{
- return (dim_.y().length() == 0);
+ assert (Atom_b (a));
+ return (Atom*) SCM_CDR(a);
}
+
+
+ADD_GLOBAL_CTOR_WITHNAME(atomsmob, Atom::init_smob);
+#endif
+
+