X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Finclude%2Fglobal-context.hh;h=49436bcf87b04277b1bf8afa52d86d24c0bf4f44;hb=47db9a3883d726ca53e2133a3b2298f78dd6a32e;hp=bbb3095a11a43141ffbb35cf36347e8da8ae732e;hpb=474c8729dc274a30558102a015a01fa5882673db;p=lilypond.git diff --git a/lily/include/global-context.hh b/lily/include/global-context.hh index bbb3095a11..49436bcf87 100644 --- a/lily/include/global-context.hh +++ b/lily/include/global-context.hh @@ -1,9 +1,20 @@ /* - global-context.hh -- declare Global_context + This file is part of LilyPond, the GNU music typesetter. - source file of the GNU LilyPond music typesetter + Copyright (C) 1997--2015 Han-Wen Nienhuys - (c) 1997--2007 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 + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + + LilyPond is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with LilyPond. If not, see . */ #ifndef GLOBAL_CONTEXT_HH @@ -12,16 +23,16 @@ #include "context.hh" #include "pqueue.hh" -class Global_context : public virtual Context +class Global_context : public Context { PQueue extra_mom_pq_; Output_def *output_def_; - DECLARE_CLASSNAME(Global_context); + DECLARE_CLASSNAME (Global_context); friend class Output_def; public: - Global_context (Output_def *, Object_key *key); + Global_context (Output_def *); int get_moments_left () const; Moment sneaky_insert_extra_moment (Moment); void add_moment_to_process (Moment); @@ -35,7 +46,14 @@ public: virtual SCM get_output (); virtual Output_def *get_output_def () const; virtual Moment now_mom () const; - virtual Context *get_default_interpreter (); + virtual Context *get_default_interpreter (const string &context_id = ""); + + static Global_context *unsmob (SCM x) { + return dynamic_cast (Context::unsmob (x)); + } + static bool is_smob (SCM x) { + return Context::is_smob (x) && unsmob (x); + } Moment previous_moment () const; protected: