1324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver/*
2324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver [The "BSD license"]
3324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver Copyright (c) 2005-2009 Terence Parr
4324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver All rights reserved.
5324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver
6324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver Redistribution and use in source and binary forms, with or without
7324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver modification, are permitted provided that the following conditions
8324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver are met:
9324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver 1. Redistributions of source code must retain the above copyright
10324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver    notice, this list of conditions and the following disclaimer.
11324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver 2. Redistributions in binary form must reproduce the above copyright
12324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver    notice, this list of conditions and the following disclaimer in the
13324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver    documentation and/or other materials provided with the distribution.
14324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver 3. The name of the author may not be used to endorse or promote products
15324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver    derived from this software without specific prior written permission.
16324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver
17324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
18324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
19324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
20324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
21324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
22324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
23324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
24324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
26324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver*/
28324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver
29324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver/** Template overrides to add debugging to AST stuff.  Dynamic inheritance
30324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver *  hierarchy is set up as ASTDbg : AST : Dbg : Python by code generator.
31324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver */
32324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruvergroup ASTDbg;
33324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver
34324c4644fee44b9898524c09511bd33c3f12e2dfBen GruverastAccessor() ::= <<
35324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruverdef setTreeAdaptor(self, adaptor):
36324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver<if(grammar.grammarIsRoot)>
37324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver    self._adaptor = DebugTreeAdaptor(self.dbg, adaptor)
38324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver<else>
39324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver    self._adaptor = adaptor # delegator sends dbg adaptor
40324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver<endif>
41324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver    <grammar.directDelegates:{g|<g:delegateName()>.setTreeAdaptor(self._adaptor)}>
42324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver
43324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruverdef getTreeAdaptor(self):
44324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver    return self._adaptor
45324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver
46324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruveradaptor = property(getTreeAdaptor, setTreeAdaptor)<\n>
47324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver>>
48324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver
49324c4644fee44b9898524c09511bd33c3f12e2dfBen GruvercreateListenerAndHandshake() ::= <<
50324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruverproxy = DebugEventSocketProxy(self, adaptor=<if(TREE_PARSER)>self.input.getTreeAdaptor()<else>self._adaptor<endif>,
51324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver                              debug=debug_socket, port=port)
52324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruverself.setDebugListener(proxy)
53324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruverself.adaptor.setDebugListener(proxy)
54324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruverself.input.setDebugListener(proxy)
55324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver#self.set<inputStreamType>(Debug<inputStreamType>(self.input, proxy))
56324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruverproxy.handshake()
57324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver>>
58324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver
59324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver@rewriteElement.pregen() ::= "self._dbg.location(<e.line>, <e.pos>)"
60