1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
#include "scalar.hh" #include "molecule.hh" #include "meter.hh" #include "paper-def.hh" #include "lookup.hh" Meter::Meter (Array<Scalar>a) :args (a) { breakable_b_ = true; } Molecule* Meter::brew_molecule_p()const { Symbol s = paper()->lookup_l ()->meter (args); return new Molecule (Atom (s)); } IMPLEMENT_IS_TYPE_B1(Meter,Item);