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) 1998--2020 Jan Nieuwenhuizen <janneke@gnu.org> | 4 Copyright (C) 1998--2020 Jan Nieuwenhuizen <janneke@gnu.org> |
5 Han-Wen Nienhuys <hanwen@xs4all.nl> | 5 Han-Wen Nienhuys <hanwen@xs4all.nl> |
6 | 6 |
7 LilyPond is free software: you can redistribute it and/or modify | 7 LilyPond is free software: you can redistribute it and/or modify |
8 it under the terms of the GNU General Public License as published by | 8 it under the terms of the GNU General Public License as published by |
9 the Free Software Foundation, either version 3 of the License, or | 9 the Free Software Foundation, either version 3 of the License, or |
10 (at your option) any later version. | 10 (at your option) any later version. |
(...skipping 80 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
91 e += " "; | 91 e += " "; |
92 e += _f ("(load path: `%s')", global_path.to_string ()); | 92 e += _f ("(load path: `%s')", global_path.to_string ()); |
93 error (e); | 93 error (e); |
94 /* unreachable */ | 94 /* unreachable */ |
95 } | 95 } |
96 return s; | 96 return s; |
97 } | 97 } |
98 | 98 |
99 debug_output ("[" + s, true); | 99 debug_output ("[" + s, true); |
100 | 100 |
101 vector<char> chars = gulp_file (s, size); | 101 string result = gulp_file (s, size); |
102 string result (&chars[0], chars.size ()); | |
103 | 102 |
104 debug_output ("]\n", false); | 103 debug_output ("]\n", false); |
105 | 104 |
106 return result; | 105 return result; |
107 } | 106 } |
108 | 107 |
109 extern "C" { | 108 extern "C" { |
110 // maybe gdb 5.0 becomes quicker if it doesn't do fancy C++ typing? | 109 // maybe gdb 5.0 becomes quicker if it doesn't do fancy C++ typing? |
111 void | 110 void |
112 ly_display_scm (SCM s) | 111 ly_display_scm (SCM s) |
(...skipping 628 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
741 SCM b; | 740 SCM b; |
742 SCM c; | 741 SCM c; |
743 SCM d; | 742 SCM d; |
744 }; | 743 }; |
745 | 744 |
746 /* inserts at front, removing duplicates */ | 745 /* inserts at front, removing duplicates */ |
747 SCM ly_assoc_prepend_x (SCM alist, SCM key, SCM val) | 746 SCM ly_assoc_prepend_x (SCM alist, SCM key, SCM val) |
748 { | 747 { |
749 return scm_acons (key, val, scm_assoc_remove_x (alist, key)); | 748 return scm_acons (key, val, scm_assoc_remove_x (alist, key)); |
750 } | 749 } |
751 | |
LEFT | RIGHT |