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) 1997--2015 Jan Nieuwenhuizen <janneke@gnu.org> | 4 Copyright (C) 1997--2015 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 344 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
355 | 355 |
356 SCM | 356 SCM |
357 Source_file::get_port () const | 357 Source_file::get_port () const |
358 { | 358 { |
359 return str_port_; | 359 return str_port_; |
360 } | 360 } |
361 | 361 |
362 /****************************************************************/ | 362 /****************************************************************/ |
363 | 363 |
364 | 364 |
365 const char Source_file::type_p_name_[] = "ly:source-file?"; | 365 const char * const Source_file::type_p_name_ = "ly:source-file?"; |
366 | 366 |
367 SCM | 367 SCM |
368 Source_file::mark_smob () const | 368 Source_file::mark_smob () const |
369 { | 369 { |
370 return str_port_; | 370 return str_port_; |
371 } | 371 } |
372 | 372 |
373 int | 373 int |
374 Source_file::print_smob (SCM port, scm_print_state *) const | 374 Source_file::print_smob (SCM port, scm_print_state *) const |
375 { | 375 { |
376 scm_puts ("#<Source_file ", port); | 376 scm_puts ("#<Source_file ", port); |
377 scm_puts (name_.c_str (), port); | 377 scm_puts (name_.c_str (), port); |
378 | 378 |
379 /* Do not print properties, that is too much hassle. */ | 379 /* Do not print properties, that is too much hassle. */ |
380 scm_puts (" >", port); | 380 scm_puts (" >", port); |
381 return 1; | 381 return 1; |
382 } | 382 } |
OLD | NEW |