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) 2015--2020 by David Kastrup <dak@gnu.org> | 4 Copyright (C) 2015--2020 by David Kastrup <dak@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 |
11 LilyPond is distributed in the hope that it will be useful, | 11 LilyPond is distributed in the hope that it will be useful, |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | 12 but WITHOUT ANY WARRANTY; without even the implied warranty of |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
14 GNU General Public License for more details. | 14 GNU General Public License for more details. |
15 | 15 |
16 You should have received a copy of the GNU General Public License | 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/>. | 17 along with LilyPond. If not, see <http://www.gnu.org/licenses/>. |
18 */ | 18 */ |
19 | 19 |
20 #include "lily-imports.hh" | 20 #include "lily-imports.hh" |
21 | 21 |
22 namespace Guile_user { | 22 namespace Guile_user |
23 Scm_module module ("guile-user"); | 23 { |
| 24 Scm_module module ("guile-user"); |
24 | 25 |
25 Variable apply ("apply"); | 26 Variable apply ("apply"); |
26 Variable plus ("+"); | 27 Variable plus ("+"); |
27 Variable make_module ("make-module"); | 28 Variable make_module ("make-module"); |
28 #if GUILEV2 | 29 #if GUILEV2 |
29 Variable module_export_all_x ("module-export-all!"); | 30 Variable module_export_all_x ("module-export-all!"); |
30 #endif | 31 #endif |
31 Variable module_export_x ("module-export!"); | 32 Variable module_export_x ("module-export!"); |
32 Variable module_public_interface ("module-public-interface"); | 33 Variable module_public_interface ("module-public-interface"); |
33 Variable module_use_x ("module-use!"); | 34 Variable module_use_x ("module-use!"); |
34 Variable symbol_p ("symbol?"); | 35 Variable symbol_p ("symbol?"); |
35 Variable the_root_module ("the-root-module"); | 36 Variable the_root_module ("the-root-module"); |
36 } | 37 } |
37 | 38 |
38 namespace Display { | 39 namespace Display |
39 Scm_module module ("scm display-lily"); | 40 { |
| 41 Scm_module module ("scm display-lily"); |
40 | 42 |
41 Variable value_to_lily_string ("value->lily-string"); | 43 Variable value_to_lily_string ("value->lily-string"); |
42 } | 44 } |
43 | 45 |
44 namespace Lily { | 46 namespace Lily |
45 Scm_module module ("lily"); | 47 { |
| 48 Scm_module module ("lily"); |
46 | 49 |
47 Variable all_music_font_encodings ("all-music-font-encodings"); | 50 Variable all_music_font_encodings ("all-music-font-encodings"); |
48 Variable alterations_in_key ("alterations-in-key"); | 51 Variable alterations_in_key ("alterations-in-key"); |
49 Variable backend_testing ("backend-testing"); | 52 Variable backend_testing ("backend-testing"); |
50 Variable base_length ("base-length"); | 53 Variable base_length ("base-length"); |
51 Variable beam_exceptions ("beam-exceptions"); | 54 Variable beam_exceptions ("beam-exceptions"); |
52 Variable beat_structure ("beat-structure"); | 55 Variable beat_structure ("beat-structure"); |
53 Variable calc_repeat_slash_count ("calc-repeat-slash-count"); | 56 Variable calc_repeat_slash_count ("calc-repeat-slash-count"); |
54 Variable car_less ("car<"); | 57 Variable car_less ("car<"); |
55 Variable chordmodifiers ("chordmodifiers"); | 58 Variable chordmodifiers ("chordmodifiers"); |
56 Variable construct_chord_elements ("construct-chord-elements"); | 59 Variable construct_chord_elements ("construct-chord-elements"); |
57 Variable default_time_signature_settings ("default-time-signature-settings"); | 60 Variable default_time_signature_settings ("default-time-signature-settings"); |
58 Variable define_markup_command_internal ("define-markup-command-internal"); | 61 Variable define_markup_command_internal ("define-markup-command-internal"); |
59 Variable drum_pitch_names ("drumPitchNames"); | 62 Variable drum_pitch_names ("drumPitchNames"); |
60 Variable grob_compose_function ("grob::compose-function"); | 63 Variable grob_compose_function ("grob::compose-function"); |
61 Variable grob_offset_function ("grob::offset-function"); | 64 Variable grob_offset_function ("grob::offset-function"); |
62 Variable hash_table_to_alist ("hash-table->alist"); | 65 Variable hash_table_to_alist ("hash-table->alist"); |
63 Variable interpret_markup_list ("interpret-markup-list"); | 66 Variable interpret_markup_list ("interpret-markup-list"); |
64 Variable invalidate_alterations ("invalidate-alterations"); | 67 Variable invalidate_alterations ("invalidate-alterations"); |
65 Variable key_p ("key?"); | 68 Variable key_p ("key?"); |
66 Variable key_list_p ("key-list?"); | 69 Variable key_list_p ("key-list?"); |
67 Variable key_signature_interface_alteration_positions ("key-signature-interfac
e::alteration-positions"); | 70 Variable key_signature_interface_alteration_positions ("key-signature-interface:
:alteration-positions"); |
68 Variable layout_extract_page_properties ("layout-extract-page-properties"); | 71 Variable layout_extract_page_properties ("layout-extract-page-properties"); |
69 Variable lilypond_main ("lilypond-main"); | 72 Variable lilypond_main ("lilypond-main"); |
70 Variable line_markup ("line-markup"); | 73 Variable line_markup ("line-markup"); |
71 Variable f_location ("%location"); | 74 Variable f_location ("%location"); |
72 Variable lookup_font ("lookup-font"); | 75 Variable lookup_font ("lookup-font"); |
73 Variable lookup_markup_command ("lookup-markup-command"); | 76 Variable lookup_markup_command ("lookup-markup-command"); |
74 Variable lookup_markup_list_command ("lookup-markup-list-command"); | 77 Variable lookup_markup_list_command ("lookup-markup-list-command"); |
75 Variable ly_context_find ("ly:context-find"); | 78 Variable ly_context_find ("ly:context-find"); |
76 Variable ly_context_set_property_x ("ly:context-set-property!"); | 79 Variable ly_context_set_property_x ("ly:context-set-property!"); |
77 Variable ly_event_p ("ly:event?"); | 80 Variable ly_event_p ("ly:event?"); |
78 Variable ly_make_event_class ("ly:make-event-class"); | 81 Variable ly_make_event_class ("ly:make-event-class"); |
79 Variable ly_music_p ("ly:music?"); | 82 Variable ly_music_p ("ly:music?"); |
80 Variable make_concat_markup ("make-concat-markup"); | 83 Variable make_concat_markup ("make-concat-markup"); |
81 Variable make_music ("make-music"); | 84 Variable make_music ("make-music"); |
82 Variable make_safe_lilypond_module ("make-safe-lilypond-module"); | 85 Variable make_safe_lilypond_module ("make-safe-lilypond-module"); |
83 Variable make_span_event ("make-span-event"); | 86 Variable make_span_event ("make-span-event"); |
84 Variable markup_p ("markup?"); | 87 Variable markup_p ("markup?"); |
85 Variable markup_command_signature ("markup-command-signature"); | 88 Variable markup_command_signature ("markup-command-signature"); |
86 Variable markup_function_p ("markup-function?"); | 89 Variable markup_function_p ("markup-function?"); |
87 Variable markup_list_function_p ("markup-list-function?"); | 90 Variable markup_list_function_p ("markup-list-function?"); |
88 Variable markup_list_p ("markup-list?"); | 91 Variable markup_list_p ("markup-list?"); |
89 Variable midi_program ("midi-program"); | 92 Variable midi_program ("midi-program"); |
90 #if !GUILEV2 | 93 #if !GUILEV2 |
91 Variable module_export_all_x ("module-export-all!"); | 94 Variable module_export_all_x ("module-export-all!"); |
92 #endif | 95 #endif |
93 Variable f_parser ("%parser"); | 96 Variable f_parser ("%parser"); |
94 Variable percussion_p ("percussion?"); | 97 Variable percussion_p ("percussion?"); |
95 Variable pitchnames ("pitchnames"); | 98 Variable pitchnames ("pitchnames"); |
96 Variable pure_chain_offset_callback ("pure-chain-offset-callback"); | 99 Variable pure_chain_offset_callback ("pure-chain-offset-callback"); |
97 Variable remove_stencil_warnings ("remove-stencil-warnings"); | 100 Variable remove_stencil_warnings ("remove-stencil-warnings"); |
98 Variable scale_p ("scale?"); | 101 Variable scale_p ("scale?"); |
99 Variable scale_to_factor ("scale->factor"); | 102 Variable scale_to_factor ("scale->factor"); |
100 Variable scale_layout ("scale-layout"); | 103 Variable scale_layout ("scale-layout"); |
101 Variable scm_to_string ("scm->string"); | 104 Variable scm_to_string ("scm->string"); |
102 Variable score_lines_markup_list ("score-lines-markup-list"); | 105 Variable score_lines_markup_list ("score-lines-markup-list"); |
103 Variable score_markup ("score-markup"); | 106 Variable score_markup ("score-markup"); |
104 Variable scorify_music ("scorify-music"); | 107 Variable scorify_music ("scorify-music"); |
105 Variable span_bar_notify_grobs_of_my_existence ("span-bar::notify-grobs-of-my-
existence"); | 108 Variable span_bar_notify_grobs_of_my_existence ("span-bar::notify-grobs-of-my-ex
istence"); |
106 Variable stencil_whiteout ("stencil-whiteout"); | 109 Variable stencil_whiteout ("stencil-whiteout"); |
107 Variable symbol_list_p ("symbol-list?"); | 110 Variable symbol_list_p ("symbol-list?"); |
108 Variable tremolo_get_music_list ("tremolo::get-music-list"); | 111 Variable tremolo_get_music_list ("tremolo::get-music-list"); |
109 Variable type_name ("type-name"); | 112 Variable type_name ("type-name"); |
110 Variable volta_bracket_calc_hook_visibility ("volta-bracket::calc-hook-visibil
ity"); | 113 Variable volta_bracket_calc_hook_visibility ("volta-bracket::calc-hook-visibilit
y"); |
111 Variable write_performances_midis ("write-performances-midis"); | 114 Variable write_performances_midis ("write-performances-midis"); |
112 } | 115 } |
113 | 116 |
114 namespace Syntax { | 117 namespace Syntax |
115 Scm_module module ("scm ly-syntax-constructors"); | 118 { |
| 119 Scm_module module ("scm ly-syntax-constructors"); |
116 | 120 |
117 Variable add_lyrics ("add-lyrics"); | 121 Variable add_lyrics ("add-lyrics"); |
118 Variable argument_error ("argument-error"); | 122 Variable argument_error ("argument-error"); |
119 Variable composed_markup_list ("composed-markup-list"); | 123 Variable composed_markup_list ("composed-markup-list"); |
120 Variable context_change ("context-change"); | 124 Variable context_change ("context-change"); |
121 Variable context_specification ("context-specification"); | 125 Variable context_specification ("context-specification"); |
122 Variable create_script ("create-script"); | 126 Variable create_script ("create-script"); |
123 Variable create_script_function ("create-script-function"); | 127 Variable create_script_function ("create-script-function"); |
124 Variable event_chord ("event-chord"); | 128 Variable event_chord ("event-chord"); |
125 Variable lyric_combine ("lyric-combine"); | 129 Variable lyric_combine ("lyric-combine"); |
126 Variable lyric_event ("lyric-event"); | 130 Variable lyric_event ("lyric-event"); |
127 Variable multi_measure_rest ("multi-measure-rest"); | 131 Variable multi_measure_rest ("multi-measure-rest"); |
128 Variable music_function ("music-function"); | 132 Variable music_function ("music-function"); |
129 Variable music_function_call_error ("music-function-call-error"); | 133 Variable music_function_call_error ("music-function-call-error"); |
130 Variable partial_markup ("partial-markup"); | 134 Variable partial_markup ("partial-markup"); |
131 Variable partial_music_function ("partial-music-function"); | 135 Variable partial_music_function ("partial-music-function"); |
132 Variable partial_text_script ("partial-text-script"); | 136 Variable partial_text_script ("partial-text-script"); |
133 Variable property_override ("property-override"); | 137 Variable property_override ("property-override"); |
134 Variable property_revert ("property-revert"); | 138 Variable property_revert ("property-revert"); |
135 Variable property_set ("property-set"); | 139 Variable property_set ("property-set"); |
136 Variable property_unset ("property-unset"); | 140 Variable property_unset ("property-unset"); |
137 Variable repeat ("repeat"); | 141 Variable repeat ("repeat"); |
138 Variable repetition_chord ("repetition-chord"); | 142 Variable repetition_chord ("repetition-chord"); |
139 Variable sequential_music ("sequential-music"); | 143 Variable sequential_music ("sequential-music"); |
140 Variable simultaneous_music ("simultaneous-music"); | 144 Variable simultaneous_music ("simultaneous-music"); |
141 Variable tempo ("tempo"); | 145 Variable tempo ("tempo"); |
142 Variable unrelativable_music ("unrelativable-music"); | 146 Variable unrelativable_music ("unrelativable-music"); |
143 Variable void_music ("void-music"); | 147 Variable void_music ("void-music"); |
144 } | 148 } |
OLD | NEW |