X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Ffont-metric.cc;h=77f02df579c9beaedc747dcf7d565f4e00c1d5ed;hb=8cf69a467ad7650f5ca9da6fe2dfd4c7c088b239;hp=ab0f8f47e36a7a4c53e6e546836c73276a63c107;hpb=bf090c279f6f8e0ebbffc72d7ee435172dfaddc8;p=lilypond.git diff --git a/lily/font-metric.cc b/lily/font-metric.cc index ab0f8f47e3..77f02df579 100644 --- a/lily/font-metric.cc +++ b/lily/font-metric.cc @@ -1,7 +1,7 @@ /* This file is part of LilyPond, the GNU music typesetter. - Copyright (C) 1999--2014 Han-Wen Nienhuys + Copyright (C) 1999--2015 Han-Wen Nienhuys LilyPond is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by @@ -63,6 +63,7 @@ Font_metric::Font_metric () } Font_metric::Font_metric (Font_metric const &) + : Smob () { } @@ -94,26 +95,24 @@ Font_metric::derived_mark () const } SCM -Font_metric::mark_smob (SCM s) +Font_metric::mark_smob () const { - Font_metric *m = (Font_metric *) SCM_CELL_WORD_1 (s); - m->derived_mark (); - return m->description_; + derived_mark (); + return description_; } int -Font_metric::print_smob (SCM s, SCM port, scm_print_state *) +Font_metric::print_smob (SCM port, scm_print_state *) const { - Font_metric *m = Font_metric::unsmob (s); scm_puts ("#<", port); - scm_puts (m->class_name (), port); + scm_puts (class_name (), port); scm_puts (" ", port); - scm_write (m->description_, port); + scm_write (description_, port); scm_puts (">", port); return 1; } -const char Font_metric::type_p_name_[] = "ly:font-metric?"; +const char * const Font_metric::type_p_name_ = "ly:font-metric?"; SCM Font_metric::font_file_name () const @@ -148,7 +147,9 @@ Font_metric::sub_fonts () const Stencil Font_metric::text_stencil (Output_def *state, - const string&, bool) const + const string&, + bool, + const string&) const { (void) state;