1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
// Copyright 1998,1999 Zanshin Inc. <http://www.zanshin.com/>
// The contents of this file are subject to the Zanshin Public License Version
// 1.0 (the "License"); you may not use this file except in compliance with the
// License. You should have received a copy of the License with Latte; see
// the file COPYING. You may also obtain a copy of the License at
// <http://www.zanshin.com/ZPL.html>.
//
// Software distributed under the License is distributed on an "AS IS" basis,
// WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
// for the specific language governing rights and limitations under the
// License.
//
// The Original Code is Latte.
//
// The Initial Developer of the Original Code is Zanshin, Inc.
#include <latte.h>
#include <latte-log.h>
#include <mutable.h>
using namespace std;
Latte_VarRef::Latte_VarRef(const Latte_Wstate &ws,
const Latte_FileLoc &loc,
const shstring &name) :
Latte_Tangible(ws, loc), shstring(name), m_depth_offset_known(0)
{
}
Latte_VarRef::Latte_VarRef(const Latte_VarRef &other) :
Latte_Tangible(other), shstring(other.name()),
m_depth(other.m_depth), m_offset(other.m_offset),
m_depth_offset_known(other.m_depth_offset_known)
{
}
Refcounter<Latte_Obj> &
Latte_VarRef::lookup(Latte_Activation &activation) const
{
if (!m_depth_offset_known) {
try {
activation.env()->lookup(*this, mutate(m_depth), mutate(m_offset));
} catch(const Latte_BindingEnv::NotFound &) {
throw Undefined(fileloc(), name());
}
mutate(m_depth_offset_known) = 1;
}
return activation.lookup(m_depth, m_offset);
}
Refcounter<Latte_Obj>
Latte_VarRef::do_eval(Latte_Activation &activation)
{
return Latte_WsNode::wrap(*(lookup(activation)), wstate());
}
void
Latte_VarRef::visit(Latte_Visitor &visitor)
{
visitor.visit_varref(*this);
}
void
Latte_VarRef::render(ostream &out) const
{
out << '\\';
out << name();
}
|
