OLD | NEW |
1 /* | 1 /* |
2 This file is part of LilyPond, the GNU music typesetter. | 2 This file is part of LilyPond, the GNU music typesetter. |
3 | 3 |
4 Copyright (C) 2004--2019 Jan Nieuwenhuizen <janneke@gnu.org> | 4 Copyright (C) 2004--2019 Jan Nieuwenhuizen <janneke@gnu.org> |
5 | 5 |
6 LilyPond is free software: you can redistribute it and/or modify | 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 | 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 | 8 the Free Software Foundation, either version 3 of the License, or |
9 (at your option) any later version. | 9 (at your option) any later version. |
10 | 10 |
(...skipping 23 matching lines...) Expand all Loading... |
34 | 34 |
35 class Prob : public Smob<Prob> | 35 class Prob : public Smob<Prob> |
36 { | 36 { |
37 public: | 37 public: |
38 int print_smob (SCM, scm_print_state *) const; | 38 int print_smob (SCM, scm_print_state *) const; |
39 SCM mark_smob () const; | 39 SCM mark_smob () const; |
40 static SCM equal_p (SCM, SCM); | 40 static SCM equal_p (SCM, SCM); |
41 static const char * const type_p_name_; | 41 static const char * const type_p_name_; |
42 virtual ~Prob (); | 42 virtual ~Prob (); |
43 private: | 43 private: |
44 DECLARE_CLASSNAME (Prob); | 44 VIRTUAL_CLASS_NAME (Prob); |
45 | 45 |
46 void init_vars (); | 46 void init_vars (); |
47 protected: | 47 protected: |
48 SCM mutable_property_alist_; | 48 SCM mutable_property_alist_; |
49 SCM immutable_property_alist_; | 49 SCM immutable_property_alist_; |
50 SCM type_; | 50 SCM type_; |
51 | 51 |
52 virtual void derived_mark () const; | 52 virtual void derived_mark () const; |
53 virtual SCM copy_mutable_properties () const; | 53 virtual SCM copy_mutable_properties () const; |
54 virtual void type_check_assignment (SCM, SCM) const; | 54 virtual void type_check_assignment (SCM, SCM) const; |
(...skipping 15 matching lines...) Expand all Loading... |
70 void transpose (Pitch p); | 70 void transpose (Pitch p); |
71 }; | 71 }; |
72 | 72 |
73 | 73 |
74 SCM ly_prob_set_property_x (SCM system, SCM sym, SCM value); | 74 SCM ly_prob_set_property_x (SCM system, SCM sym, SCM value); |
75 SCM ly_prob_property (SCM prob, SCM sym, SCM val); | 75 SCM ly_prob_property (SCM prob, SCM sym, SCM val); |
76 | 76 |
77 SCM ly_prob_type_p (SCM obj, SCM sym); | 77 SCM ly_prob_type_p (SCM obj, SCM sym); |
78 | 78 |
79 #endif /* PROPERTY_OBJECT_HH */ | 79 #endif /* PROPERTY_OBJECT_HH */ |
OLD | NEW |