lily/include/prob.hh

   1 /*
   2   This file is part of LilyPond, the GNU music typesetter.
   3
   4   Copyright (C) 2004--2009  Jan Nieuwenhuizen <janneke@gnu.org>
   5
   6   LilyPond is free software: you can redistribute it and/or modify
   7   it under the terms of the GNU General Public License as published by
   8   the Free Software Foundation, either version 3 of the License, or
   9   (at your option) any later version.
  10
  11   LilyPond is distributed in the hope that it will be useful,
  12   but WITHOUT ANY WARRANTY; without even the implied warranty of
  13   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14   GNU General Public License for more details.
  15
  16   You should have received a copy of the GNU General Public License
  17   along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
  18 */
  19
  20 #ifndef PROPERTY_OBJECT_HH
  21 #define PROPERTY_OBJECT_HH
  22
  23 #include "stencil.hh"
  24 #include "virtual-methods.hh"
  25
  26
  27 /*
  28   A formatted "system" (A block of titling also is a Property_object)
  29
  30   To save memory, we don't keep around the System grobs, but put the
  31   formatted content of the grob is put into a
  32   Property_object. Page-breaking handles Property_object objects.
  33 */
  34
  35 class Prob
  36 {
  37   DECLARE_SMOBS (Prob);
  38   DECLARE_CLASSNAME(Prob);
  39
  40   void init_vars ();
  41 protected:
  42   SCM mutable_property_alist_;
  43   SCM immutable_property_alist_;
  44   SCM type_;
  45
  46   virtual void derived_mark () const;
  47   virtual SCM copy_mutable_properties () const;
  48   virtual void type_check_assignment (SCM,SCM) const;
  49
  50 public:
  51   Prob (SCM, SCM);
  52   Prob (Prob const &);
  53   virtual string name () const;
  54   SCM type () const { return type_; }
  55   SCM get_property_alist (bool _mutable) const;
  56   SCM internal_get_property (SCM sym) const;
  57   void instrumented_set_property (SCM, SCM, const char*, int, const char*);
  58   void internal_set_property (SCM sym, SCM val);
  59 };
  60
  61 DECLARE_UNSMOB(Prob,prob);
  62
  63 SCM ly_prob_set_property_x (SCM system, SCM sym, SCM value);
  64 SCM ly_prob_property (SCM prob, SCM sym, SCM val);
  65
  66 SCM ly_prob_type_p (SCM obj, SCM sym);
  67
  68 #endif /* PROPERTY_OBJECT_HH */