1 # Based on GardenSnake - a parser generator demonstration program
2 # GardenSnake was released into the Public Domain by Andrew Dalke.
4 # Portions of this work are derived from Python's Grammar definition
5 # and may be covered under the Python copyright and license
7 # Andrew Dalke / Dalke Scientific Software, LLC
8 # 30 August 2006 / Cape Town, South Africa
10 # Modifications for inclusion in PLY distribution
12 from pprint
import pprint
14 from ply
import lex
, yacc
18 from soc
.decoder
.power_decoder
import create_pdecode
19 from nmigen
.back
.pysim
import Simulator
, Delay
20 from nmigen
import Module
, Signal
22 from soc
.decoder
.pseudo
.parser
import GardenSnakeCompiler
23 from soc
.decoder
.selectable_int
import SelectableInt
, selectconcat
25 ####### Test code #######
30 index <- (RS)[8*i:8*i+7]
31 RA <- [0]*56 || perm[0:7]
36 if index < 64 then index <- 0
47 index <- (RS)[8*i:8*i+7]
52 RA <- [0]*56|| perm[0:7]
58 if (RS)[63-n] = 0b1 then
68 else if a > EXTS(SI) then
77 in_range <- ((x | y) &
79 in_range <- (x + y) - (a + b)
84 src1 <- EXTZ((RA)[56:63])
86 in_range <- src21lo <= src1 & src1 <= src21hi
108 l
.append(1 if (num
& (1<<i
)) else 0)
113 def get_reg_hex(reg
):
114 return hex(reg
.value
)
118 def __init__(self
, sd
, regfile
):
121 self
.regfile
= regfile
123 self
[i
] = SelectableInt(0, 64)
125 def set_form(self
, form
):
128 def ___getitem__(self
, attr
):
129 print ("GPR getitem", attr
)
130 getform
= self
.sd
.sigforms
[self
.form
]
131 rnum
= getattr(getform
, attr
)
132 print ("GPR get", rnum
, rnum
, dir(rnum
))
134 print (l
[0]._as
_const
())
136 #print (x, x.value, dir(x))
137 #print (x.value, dir(x.value))
139 return self
.regfile
[rnum
]
142 def convert_to_python(pcode
):
144 gsc
= GardenSnakeCompiler()
146 tree
= gsc
.compile(pcode
, mode
="exec", filename
="string")
147 tree
= ast
.fix_missing_locations(tree
)
148 regsused
= {'read_regs': gsc
.parser
.read_regs
,
149 'write_regs': gsc
.parser
.write_regs
,
150 'uninit_regs': gsc
.parser
.uninit_regs
}
151 return astor
.to_source(tree
), regsused
156 gsc
= GardenSnakeCompiler()
158 # XXX unused! see GPR instead
162 gsc
.gpr
= GPR(gsc
.parser
.sd
, gsc
.regfile
)
164 _compile
= gsc
.compile
166 tree
= _compile(code
, mode
="single", filename
="string")
167 tree
= ast
.fix_missing_locations(tree
)
168 print ( ast
.dump(tree
) )
171 print (astor
.dump_tree(tree
))
173 source
= astor
.to_source(tree
)
178 # Set up the GardenSnake run-time environment
181 print ("-->", " ".join(map(str,args
)))
183 from soc
.decoder
.helpers
import (EXTS64
, EXTZ64
, ROTL64
, ROTL32
, MASK
,)
189 d
["SelectableInt"] = SelectableInt
190 d
["concat"] = selectconcat
194 gsc
.gpr
.set_form(form
)
195 getform
= gsc
.parser
.sd
.sigforms
[form
]._asdict
()
196 #print ("getform", form)
197 #for k, f in getform.items():
201 compiled_code
= compile(source
, mode
="exec", filename
="<string>")
205 instruction
= Signal(32)
207 m
.submodules
.decode
= decode
= gsc
.parser
.sd
208 comb
+= decode
.raw_opcode_in
.eq(instruction
)
215 print("0x{:X}".format(ins
& 0xffffffff))
217 # ask the decoder to decode this binary data (endian'd)
218 yield decode
.bigendian
.eq(0) # little / big?
219 yield instruction
.eq(ins
) # raw binary instr.
222 # read regs, drop them into dict for function
223 for rname
in gsc
.parser
.uninit_regs
:
224 d
[rname
] = SelectableInt(0, 64) # uninitialised (to zero)
225 print ("uninitialised", rname
, get_reg_hex(d
[rname
]))
227 for rname
in gsc
.parser
.read_regs
:
228 regidx
= yield getattr(decode
.sigforms
['X'], rname
)
229 d
[rname
] = gsc
.gpr
[regidx
]
230 print ("read reg", rname
, regidx
, get_reg_hex(d
[rname
]))
232 exec (compiled_code
, d
)
237 print (decode
.sigforms
['X'])
238 x
= yield decode
.sigforms
['X'].RS
239 ra
= yield decode
.sigforms
['X'].RA
240 print ("RA", ra
, d
['RA'])
243 for wname
in gsc
.parser
.write_regs
:
245 print ("write regs", wname
, d
[wname
], reg
)
247 gsc
.gpr
[regidx
] = d
[wname
]
249 sim
.add_process(process
)
250 with sim
.write_vcd("simulator.vcd", "simulator.gtkw",
251 traces
=decode
.ports()):
254 for i
in range(len(gsc
.gpr
)):
255 print ("regfile", i
, get_reg_hex(gsc
.gpr
[i
]))
258 if __name__
== '__main__':