#include "context.hh"
#include "pqueue.hh"
-class Global_context : public Context
+class Global_context : public Preinit<Global_context>, public Context
{
PQueue<Moment> extra_mom_pq_;
Output_def *output_def_;
+ virtual void derived_mark () const;
DECLARE_CLASSNAME (Global_context);
friend class Output_def;
public:
+ void pre_init ();
Global_context (Output_def *);
int get_moments_left () const;
Moment sneaky_insert_extra_moment (Moment);
virtual Moment now_mom () const;
virtual Context *get_default_interpreter (const string &context_id = "");
- static Global_context *unsmob (SCM x) {
- return dynamic_cast<Global_context *> (Context::unsmob (x));
- }
- static bool is_smob (SCM x) {
- return Context::is_smob (x) && unsmob (x);
- }
-
Moment previous_moment () const;
protected:
Moment prev_mom_;