- error (_ ("unknown paper variable `") + s+"'");
- Real * p = scope_p_->elem (s)->real ();
- Real r = *p;
- delete p;
- return r;
+ error (_f ("unknown paper variable: `%s\'", s));
+ Real * p = scope_p_->elem (s)->access_Real (false);
+ if (!p)
+ {
+ error (_ ("not a real variable"));
+ return 0.0;
+ }
+
+ return *p;
- assert (l != lookup_p_);
- delete lookup_p_;
- lookup_p_ = l;
- lookup_p_->paper_l_ = this;
+ if (lookup_p_assoc_p_->elt_b (i))
+ {
+ delete lookup_p_assoc_p_->elem (i);
+ }
+ l ->paper_l_ = this;
+ (*lookup_p_assoc_p_)[i] = l;
for (Assoc_iter<String,Identifier*> i (*scope_p_); i.ok (); i++)
{
DOUT << i.key () << "= ";
for (Assoc_iter<String,Identifier*> i (*scope_p_); i.ok (); i++)
{
DOUT << i.key () << "= ";
for (Assoc_iter<String,Identifier*> i (*scope_p_); i.ok (); i++)
s += String ("\\def\\mudelapaper") + i.key ()
+ "{" + i.val ()->str () + "}\n";
for (Assoc_iter<String,Identifier*> i (*scope_p_); i.ok (); i++)
s += String ("\\def\\mudelapaper") + i.key ()
+ "{" + i.val ()->str () + "}\n";