LEFT | RIGHT |
(no file at all) | |
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--2011 Han-Wen Nienhuys <hanwen@xs4all.nl> | 4 Copyright (C) 2004--2011 Han-Wen Nienhuys <hanwen@xs4all.nl> |
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 79 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
90 /* type predicates. */ | 90 /* type predicates. */ |
91 #include "global-context.hh" | 91 #include "global-context.hh" |
92 #include "input.hh" | 92 #include "input.hh" |
93 #include "item.hh" | 93 #include "item.hh" |
94 #include "music.hh" | 94 #include "music.hh" |
95 #include "music-function.hh" | 95 #include "music-function.hh" |
96 #include "paper-score.hh" | 96 #include "paper-score.hh" |
97 #include "performance.hh" | 97 #include "performance.hh" |
98 #include "spanner.hh" | 98 #include "spanner.hh" |
99 #include "stream-event.hh" | 99 #include "stream-event.hh" |
| 100 #include "unpure-pure-container.hh" |
100 | 101 |
101 void | 102 void |
102 init_func_doc () | 103 init_func_doc () |
103 { | 104 { |
104 ly_add_type_predicate ((void *) &is_direction, "direction"); | 105 ly_add_type_predicate ((void *) &is_direction, "direction"); |
105 ly_add_type_predicate ((void *) &is_music_function, "Music_function"); | 106 ly_add_type_predicate ((void *) &is_music_function, "Music_function"); |
106 ly_add_type_predicate ((void *) &ly_is_port, "port"); | 107 ly_add_type_predicate ((void *) &ly_is_port, "port"); |
107 ly_add_type_predicate ((void *) &ly_cheap_is_list, "list"); | 108 ly_add_type_predicate ((void *) &ly_cheap_is_list, "list"); |
108 ly_add_type_predicate ((void *) &unsmob_global_context, "Global_context"); | 109 ly_add_type_predicate ((void *) &unsmob_global_context, "Global_context"); |
109 ly_add_type_predicate ((void *) &unsmob_input, "Input"); | 110 ly_add_type_predicate ((void *) &unsmob_input, "Input"); |
110 ly_add_type_predicate ((void *) &unsmob_moment, "Moment"); | 111 ly_add_type_predicate ((void *) &unsmob_moment, "Moment"); |
111 ly_add_type_predicate ((void *) &unsmob_paper_score, "Paper_score"); | 112 ly_add_type_predicate ((void *) &unsmob_paper_score, "Paper_score"); |
112 ly_add_type_predicate ((void *) &unsmob_performance, "Performance"); | 113 ly_add_type_predicate ((void *) &unsmob_performance, "Performance"); |
| 114 ly_add_type_predicate ((void *) &is_unpure_pure_container, "unpure pure contai
ner"); |
113 | 115 |
114 ly_add_type_predicate ((void *) &is_axis, "axis"); | 116 ly_add_type_predicate ((void *) &is_axis, "axis"); |
115 ly_add_type_predicate ((void *) &is_number_pair, "number pair"); | 117 ly_add_type_predicate ((void *) &is_number_pair, "number pair"); |
116 ly_add_type_predicate ((void *) &ly_is_list, "list"); | 118 ly_add_type_predicate ((void *) &ly_is_list, "list"); |
117 ly_add_type_predicate ((void *) &ly_is_procedure, "procedure"); | 119 ly_add_type_predicate ((void *) &ly_is_procedure, "procedure"); |
118 ly_add_type_predicate ((void *) &ly_is_symbol, "symbol"); | 120 ly_add_type_predicate ((void *) &ly_is_symbol, "symbol"); |
119 ly_add_type_predicate ((void *) &scm_is_bool, "boolean"); | 121 ly_add_type_predicate ((void *) &scm_is_bool, "boolean"); |
120 ly_add_type_predicate ((void *) &scm_is_integer, "integer"); | 122 ly_add_type_predicate ((void *) &scm_is_integer, "integer"); |
121 ly_add_type_predicate ((void *) &scm_is_number, "number"); | 123 ly_add_type_predicate ((void *) &scm_is_number, "number"); |
122 ly_add_type_predicate ((void *) &scm_is_pair, "pair"); | 124 ly_add_type_predicate ((void *) &scm_is_pair, "pair"); |
123 ly_add_type_predicate ((void *) &scm_is_rational, "rational"); | 125 ly_add_type_predicate ((void *) &scm_is_rational, "rational"); |
124 ly_add_type_predicate ((void *) &scm_is_string, "string"); | 126 ly_add_type_predicate ((void *) &scm_is_string, "string"); |
125 ly_add_type_predicate ((void *) &scm_is_vector, "vector"); | 127 ly_add_type_predicate ((void *) &scm_is_vector, "vector"); |
126 ly_add_type_predicate ((void *) &unsmob_item, "Item"); | 128 ly_add_type_predicate ((void *) &unsmob_item, "Item"); |
127 ly_add_type_predicate ((void *) &unsmob_music, "Music"); | 129 ly_add_type_predicate ((void *) &unsmob_music, "Music"); |
128 ly_add_type_predicate ((void *) &unsmob_spanner, "Spanner"); | 130 ly_add_type_predicate ((void *) &unsmob_spanner, "Spanner"); |
129 ly_add_type_predicate ((void *) &unsmob_stream_event, "Stream_event"); | 131 ly_add_type_predicate ((void *) &unsmob_stream_event, "Stream_event"); |
130 } | 132 } |
131 | 133 |
132 ADD_SCM_INIT_FUNC (func_doc, init_func_doc); | 134 ADD_SCM_INIT_FUNC (func_doc, init_func_doc); |
LEFT | RIGHT |