paul@68 | 1 | #!/usr/bin/env python |
paul@68 | 2 | |
paul@68 | 3 | """ |
paul@68 | 4 | A really simple virtual processor employing a simple set of instructions which |
paul@68 | 5 | ignore low-level operations and merely concentrate on variable access, structure |
paul@68 | 6 | access, structure allocation and function invocations. |
paul@68 | 7 | |
paul@180 | 8 | Copyright (C) 2007, 2008, 2009 Paul Boddie <paul@boddie.org.uk> |
paul@68 | 9 | |
paul@68 | 10 | This program is free software; you can redistribute it and/or modify it under |
paul@68 | 11 | the terms of the GNU General Public License as published by the Free Software |
paul@68 | 12 | Foundation; either version 3 of the License, or (at your option) any later |
paul@68 | 13 | version. |
paul@68 | 14 | |
paul@68 | 15 | This program is distributed in the hope that it will be useful, but WITHOUT |
paul@68 | 16 | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS |
paul@68 | 17 | FOR A PARTICULAR PURPOSE. See the GNU General Public License for more |
paul@68 | 18 | details. |
paul@68 | 19 | |
paul@68 | 20 | You should have received a copy of the GNU General Public License along with |
paul@68 | 21 | this program. If not, see <http://www.gnu.org/licenses/>. |
paul@68 | 22 | |
paul@68 | 23 | -------- |
paul@68 | 24 | |
paul@68 | 25 | The execution model of the virtual processor involves the following things: |
paul@68 | 26 | |
paul@145 | 27 | * Memory contains constants, global variable |
paul@145 | 28 | references and program code |
paul@145 | 29 | |
paul@145 | 30 | * PC (program counter) stack contains the return address associated |
paul@145 | 31 | with each function invocation |
paul@145 | 32 | |
paul@145 | 33 | * Frame stack contains invocation frames in use and in |
paul@145 | 34 | preparation plus temporary storage |
paul@145 | 35 | |
paul@145 | 36 | * Local frame pointer stack refers to the frames in the frame stack |
paul@145 | 37 | |
paul@117 | 38 | * Invocation frame pointer stack |
paul@145 | 39 | |
paul@117 | 40 | * Exception handler stack |
paul@68 | 41 | |
paul@145 | 42 | * Exception handler locals stack refers to the state of the local frame |
paul@145 | 43 | pointer stack |
paul@145 | 44 | |
paul@145 | 45 | * Exception handler PC stack refers to the state of the PC stack |
paul@68 | 46 | |
paul@145 | 47 | * Registers: current value, |
paul@145 | 48 | boolean status value, |
paul@145 | 49 | source value, |
paul@145 | 50 | current result, |
paul@145 | 51 | current exception, |
paul@145 | 52 | current callable |
paul@68 | 53 | """ |
paul@68 | 54 | |
paul@246 | 55 | from micropython.program import ReplaceableContext, PlaceholderContext, FragmentObject |
paul@232 | 56 | import operator |
paul@182 | 57 | |
paul@68 | 58 | class IllegalInstruction(Exception): |
paul@68 | 59 | pass |
paul@68 | 60 | |
paul@68 | 61 | class IllegalAddress(Exception): |
paul@180 | 62 | def __init__(self, address): |
paul@180 | 63 | self.address = address |
paul@180 | 64 | def __repr__(self): |
paul@180 | 65 | return "IllegalAddress(%r)" % self.address |
paul@180 | 66 | def __str__(self): |
paul@180 | 67 | return repr(self) |
paul@68 | 68 | |
paul@68 | 69 | class EmptyPCStack(Exception): |
paul@68 | 70 | pass |
paul@68 | 71 | |
paul@92 | 72 | class EmptyFrameStack(Exception): |
paul@68 | 73 | pass |
paul@68 | 74 | |
paul@194 | 75 | class BreakpointReached(Exception): |
paul@194 | 76 | pass |
paul@194 | 77 | |
paul@68 | 78 | class RSVPMachine: |
paul@68 | 79 | |
paul@68 | 80 | "A really simple virtual processor." |
paul@68 | 81 | |
paul@246 | 82 | def __init__(self, memory, objlist, paramlist, true_constant, false_constant, pc=None, debug=0, abort_upon_exception=0): |
paul@68 | 83 | |
paul@68 | 84 | """ |
paul@68 | 85 | Initialise the processor with a 'memory' (a list of values containing |
paul@196 | 86 | instructions and data), the object and parameter lists 'objlist' and |
paul@196 | 87 | 'paramlist', the addresses 'true_constant' and 'false_constant', and the |
paul@196 | 88 | optional program counter 'pc'. |
paul@68 | 89 | """ |
paul@68 | 90 | |
paul@68 | 91 | self.memory = memory |
paul@202 | 92 | self._objlist = objlist |
paul@202 | 93 | self._paramlist = paramlist |
paul@181 | 94 | self.objlist = objlist.as_raw() |
paul@181 | 95 | self.paramlist = paramlist.as_raw() |
paul@196 | 96 | self.true_constant = true_constant |
paul@196 | 97 | self.false_constant = false_constant |
paul@196 | 98 | |
paul@68 | 99 | self.pc = pc or 0 |
paul@68 | 100 | self.debug = debug |
paul@246 | 101 | self.abort_upon_exception = abort_upon_exception |
paul@117 | 102 | |
paul@117 | 103 | # Stacks. |
paul@117 | 104 | |
paul@68 | 105 | self.pc_stack = [] |
paul@68 | 106 | self.frame_stack = [] |
paul@143 | 107 | self.local_sp_stack = [0] |
paul@117 | 108 | self.invocation_sp_stack = [] |
paul@145 | 109 | self.handler_stack = [len(self.memory) - 1] # final handler is the end of the code |
paul@145 | 110 | self.handler_local_sp_stack = [] |
paul@145 | 111 | self.handler_pc_stack = [] |
paul@117 | 112 | |
paul@117 | 113 | # Registers. |
paul@117 | 114 | |
paul@119 | 115 | self.instruction = None |
paul@119 | 116 | self.operand = None |
paul@117 | 117 | self.value = None |
paul@117 | 118 | self.status = None |
paul@117 | 119 | self.source = None |
paul@132 | 120 | self.callable = None |
paul@117 | 121 | self.result = None |
paul@117 | 122 | self.exception = None |
paul@68 | 123 | |
paul@146 | 124 | # Constants. |
paul@146 | 125 | |
paul@221 | 126 | cls = self._get_class("__builtins__", "AttributeError") |
paul@221 | 127 | self.attr_error = cls.location |
paul@221 | 128 | self.attr_error_instance = cls.instance_template_location |
paul@221 | 129 | cls = self._get_class("__builtins__", "TypeError") |
paul@221 | 130 | self.type_error = cls.location |
paul@221 | 131 | self.type_error_instance = cls.instance_template_location |
paul@221 | 132 | cls = self._get_class("__builtins__", "IndexError") |
paul@221 | 133 | self.index_error = cls.location |
paul@221 | 134 | self.index_error_instance = cls.instance_template_location |
paul@181 | 135 | |
paul@181 | 136 | # Native class constants. |
paul@181 | 137 | |
paul@221 | 138 | cls = self._get_class("__builtins__", "int") |
paul@221 | 139 | self.int_class = cls.location |
paul@221 | 140 | self.int_instance = cls.instance_template_location |
paul@221 | 141 | cls = self._get_class("__builtins__", "list") |
paul@246 | 142 | self.list_class = cls.location |
paul@221 | 143 | self.list_instance = cls.instance_template_location |
paul@246 | 144 | cls = self._get_class("__builtins__", "tuple") |
paul@246 | 145 | self.tuple_class = cls.location |
paul@146 | 146 | |
paul@194 | 147 | # Debugging attributes. |
paul@194 | 148 | |
paul@194 | 149 | self.breakpoints = set() |
paul@194 | 150 | |
paul@221 | 151 | def _get_class(self, module, name): |
paul@221 | 152 | return self._objlist.access(module, name).get_value() |
paul@221 | 153 | |
paul@162 | 154 | # Debugging methods. |
paul@162 | 155 | |
paul@137 | 156 | def dump(self): |
paul@138 | 157 | print "PC", self.pc, "->", self.load(self.pc) |
paul@137 | 158 | print "PC stack", self.pc_stack |
paul@137 | 159 | print "Frame stack", self.frame_stack |
paul@137 | 160 | print "Local stack pointers", self.local_sp_stack |
paul@137 | 161 | print "Invocation stack pointers", self.invocation_sp_stack |
paul@137 | 162 | print "Handler stack", self.handler_stack |
paul@145 | 163 | print "Handler frame stack", self.handler_local_sp_stack |
paul@145 | 164 | print "Handler PC stack", self.handler_pc_stack |
paul@137 | 165 | print |
paul@137 | 166 | print "Instruction", self.instruction |
paul@137 | 167 | print "Operand", self.operand |
paul@137 | 168 | print "Value", self.value |
paul@137 | 169 | print "Status", self.status |
paul@137 | 170 | print "Source", self.source |
paul@137 | 171 | print "Callable", self.callable |
paul@137 | 172 | print "Result", self.result |
paul@137 | 173 | print "Exception", self.exception |
paul@137 | 174 | |
paul@162 | 175 | def show(self): |
paul@162 | 176 | self.show_memory(self.memory, 0) |
paul@162 | 177 | |
paul@162 | 178 | def show_pc(self, run_in=10): |
paul@162 | 179 | start = max(0, self.pc - run_in) |
paul@162 | 180 | end = self.pc + run_in |
paul@162 | 181 | memory = self.memory[start:end] |
paul@162 | 182 | self.show_memory(memory, start) |
paul@162 | 183 | |
paul@162 | 184 | def show_memory(self, memory, start): |
paul@162 | 185 | for i, x in enumerate(memory): |
paul@162 | 186 | location = start + i |
paul@162 | 187 | if location == self.pc: |
paul@162 | 188 | print "->", |
paul@162 | 189 | else: |
paul@162 | 190 | print " ", |
paul@162 | 191 | print "%5d %r" % (location, x) |
paul@162 | 192 | |
paul@162 | 193 | def step(self, dump=0): |
paul@138 | 194 | self.execute() |
paul@162 | 195 | self.show_pc() |
paul@162 | 196 | if dump: |
paul@162 | 197 | self.dump() |
paul@162 | 198 | |
paul@194 | 199 | def set_break(self, location): |
paul@194 | 200 | self.breakpoints.add(location) |
paul@194 | 201 | |
paul@162 | 202 | # Internal operations. |
paul@138 | 203 | |
paul@68 | 204 | def load(self, address): |
paul@68 | 205 | |
paul@68 | 206 | "Return the value at the given 'address'." |
paul@68 | 207 | |
paul@68 | 208 | try: |
paul@68 | 209 | return self.memory[address] |
paul@68 | 210 | except IndexError: |
paul@180 | 211 | raise IllegalAddress(address) |
paul@180 | 212 | except TypeError: |
paul@180 | 213 | raise IllegalAddress(address) |
paul@68 | 214 | |
paul@68 | 215 | def save(self, address, value): |
paul@68 | 216 | |
paul@68 | 217 | "Save to the given 'address' the specified 'value'." |
paul@68 | 218 | |
paul@68 | 219 | try: |
paul@68 | 220 | self.memory[address] = value |
paul@68 | 221 | except IndexError: |
paul@180 | 222 | raise IllegalAddress(address) |
paul@180 | 223 | except TypeError: |
paul@180 | 224 | raise IllegalAddress(address) |
paul@68 | 225 | |
paul@68 | 226 | def new(self, size): |
paul@68 | 227 | |
paul@68 | 228 | """ |
paul@68 | 229 | Allocate space of the given 'size', returning the address of the space. |
paul@68 | 230 | """ |
paul@68 | 231 | |
paul@68 | 232 | addr = len(self.memory) |
paul@68 | 233 | for i in range(0, size): |
paul@68 | 234 | self.memory.append(None) |
paul@68 | 235 | return addr |
paul@68 | 236 | |
paul@68 | 237 | def push_pc(self, data): |
paul@68 | 238 | |
paul@68 | 239 | "Push 'data' onto the PC stack." |
paul@68 | 240 | |
paul@68 | 241 | self.pc_stack.append(data) |
paul@68 | 242 | |
paul@68 | 243 | def pull_pc(self): |
paul@68 | 244 | |
paul@68 | 245 | "Pull a value from the PC stack and return it." |
paul@68 | 246 | |
paul@68 | 247 | try: |
paul@68 | 248 | return self.pc_stack.pop() |
paul@68 | 249 | except IndexError: |
paul@68 | 250 | raise EmptyPCStack |
paul@68 | 251 | |
paul@90 | 252 | def run(self): |
paul@68 | 253 | |
paul@68 | 254 | "Execute code in the memory, starting from the current PC address." |
paul@68 | 255 | |
paul@228 | 256 | breakpoint = 0 |
paul@228 | 257 | |
paul@68 | 258 | try: |
paul@68 | 259 | while 1: |
paul@90 | 260 | self.execute() |
paul@68 | 261 | except EmptyPCStack: |
paul@68 | 262 | pass |
paul@228 | 263 | except BreakpointReached: |
paul@228 | 264 | breakpoint = 1 |
paul@68 | 265 | |
paul@221 | 266 | print "Execution terminated", |
paul@221 | 267 | if self.exception is not None: |
paul@222 | 268 | ref = self.exception |
paul@222 | 269 | addr = self.load(ref + 1) |
paul@221 | 270 | print "with exception:", self.load(ref) |
paul@222 | 271 | print "At address %d: %r" % (addr, self.load(addr)) |
paul@228 | 272 | elif breakpoint: |
paul@228 | 273 | print "with breakpoint." |
paul@228 | 274 | print "At address", self.pc |
paul@221 | 275 | else: |
paul@221 | 276 | print "successfully." |
paul@221 | 277 | |
paul@228 | 278 | def test(self, module): |
paul@228 | 279 | |
paul@228 | 280 | """ |
paul@228 | 281 | Test the code in the memory by running the code and investigating the |
paul@228 | 282 | contents of variables. Use 'module' to identify result variables. |
paul@228 | 283 | """ |
paul@228 | 284 | |
paul@228 | 285 | self.run() |
paul@228 | 286 | success = 1 |
paul@228 | 287 | |
paul@229 | 288 | if self.exception is None: |
paul@229 | 289 | for name in module.keys(): |
paul@229 | 290 | if name.startswith("result"): |
paul@229 | 291 | label, expected = name.split("_") |
paul@229 | 292 | attr = module[name] |
paul@228 | 293 | |
paul@229 | 294 | # NOTE: Assumptions about headers and content made. |
paul@228 | 295 | |
paul@229 | 296 | attr_location = module.location + 1 + attr.position |
paul@229 | 297 | context, ref = self.load(attr_location) |
paul@228 | 298 | |
paul@243 | 299 | if ref is not None: |
paul@243 | 300 | content = self.load(ref + 1) |
paul@243 | 301 | print label, expected, content |
paul@243 | 302 | success = success and (int(expected) == content) |
paul@243 | 303 | else: |
paul@243 | 304 | print label, expected, "missing" |
paul@243 | 305 | success = 0 |
paul@228 | 306 | |
paul@229 | 307 | return success |
paul@229 | 308 | else: |
paul@229 | 309 | return 0 |
paul@228 | 310 | |
paul@90 | 311 | def execute(self): |
paul@90 | 312 | |
paul@90 | 313 | "Execute code in the memory at the current PC address." |
paul@90 | 314 | |
paul@194 | 315 | if self.pc in self.breakpoints: |
paul@194 | 316 | self.breakpoints.remove(self.pc) |
paul@194 | 317 | raise BreakpointReached |
paul@194 | 318 | |
paul@119 | 319 | self.instruction = self.load(self.pc) |
paul@118 | 320 | |
paul@118 | 321 | # Process any inputs of the instruction. |
paul@118 | 322 | |
paul@119 | 323 | self.process_inputs() |
paul@137 | 324 | |
paul@137 | 325 | # Perform the instruction itself. |
paul@137 | 326 | |
paul@137 | 327 | next_pc = self.perform(self.instruction) |
paul@118 | 328 | |
paul@119 | 329 | # Update the program counter. |
paul@118 | 330 | |
paul@119 | 331 | if next_pc is None: |
paul@119 | 332 | self.pc += 1 |
paul@119 | 333 | else: |
paul@119 | 334 | self.pc = next_pc |
paul@118 | 335 | |
paul@137 | 336 | def get_method(self, instruction): |
paul@137 | 337 | |
paul@137 | 338 | "Return the handler method for the given 'instruction'." |
paul@119 | 339 | |
paul@137 | 340 | instruction_name = instruction.__class__.__name__ |
paul@137 | 341 | if self.debug: |
paul@137 | 342 | print "%8d %s" % (self.pc, instruction_name) |
paul@119 | 343 | method = getattr(self, instruction_name, None) |
paul@90 | 344 | if method is None: |
paul@119 | 345 | raise IllegalInstruction, (self.pc, instruction_name) |
paul@118 | 346 | return method |
paul@118 | 347 | |
paul@137 | 348 | def perform(self, instruction): |
paul@137 | 349 | |
paul@137 | 350 | "Perform the 'instruction', returning the next PC value or None." |
paul@137 | 351 | |
paul@137 | 352 | self.operand = instruction.get_operand() |
paul@137 | 353 | method = self.get_method(instruction) |
paul@137 | 354 | return method() |
paul@137 | 355 | |
paul@119 | 356 | def process_inputs(self): |
paul@118 | 357 | |
paul@118 | 358 | """ |
paul@119 | 359 | Process any inputs of the current instruction. This permits any directly |
paul@118 | 360 | connected sub-instructions to produce the effects that separate |
paul@118 | 361 | instructions would otherwise have. |
paul@118 | 362 | """ |
paul@118 | 363 | |
paul@190 | 364 | value = self.value |
paul@174 | 365 | if self.instruction.source is not None: |
paul@174 | 366 | self.perform(self.instruction.source) |
paul@174 | 367 | self.source = self.value |
paul@190 | 368 | self.value = value |
paul@174 | 369 | if self.instruction.input is not None: |
paul@174 | 370 | self.perform(self.instruction.input) |
paul@90 | 371 | |
paul@68 | 372 | def jump(self, addr, next): |
paul@68 | 373 | |
paul@68 | 374 | """ |
paul@68 | 375 | Jump to the subroutine at (or identified by) 'addr'. If 'addr' |
paul@68 | 376 | identifies a library function then invoke the library function and set |
paul@68 | 377 | PC to 'next' afterwards; otherwise, set PC to 'addr'. |
paul@68 | 378 | """ |
paul@68 | 379 | |
paul@181 | 380 | # Trap library functions introduced through the use of strings instead |
paul@181 | 381 | # of proper locations. |
paul@181 | 382 | |
paul@68 | 383 | if isinstance(addr, str): |
paul@196 | 384 | handler = self.native_functions[addr](self) |
paul@196 | 385 | if handler is None: |
paul@196 | 386 | return next |
paul@196 | 387 | else: |
paul@196 | 388 | return handler |
paul@68 | 389 | else: |
paul@138 | 390 | self.push_pc(self.pc + 1) |
paul@119 | 391 | return addr |
paul@68 | 392 | |
paul@68 | 393 | # Instructions. |
paul@68 | 394 | |
paul@98 | 395 | def LoadConst(self): |
paul@223 | 396 | self.value = self.operand, self.operand |
paul@223 | 397 | |
paul@237 | 398 | def LoadClass(self): |
paul@237 | 399 | self.value = PlaceholderContext, self.operand |
paul@237 | 400 | |
paul@223 | 401 | def LoadFunction(self): |
paul@237 | 402 | self.value = ReplaceableContext, self.operand |
paul@68 | 403 | |
paul@68 | 404 | def LoadName(self): |
paul@117 | 405 | frame = self.local_sp_stack[-1] |
paul@119 | 406 | self.value = self.frame_stack[frame + self.operand] |
paul@68 | 407 | |
paul@68 | 408 | def StoreName(self): |
paul@117 | 409 | frame = self.local_sp_stack[-1] |
paul@230 | 410 | self.frame_stack[frame + self.operand] = self.source # uses the source value |
paul@68 | 411 | |
paul@72 | 412 | LoadTemp = LoadName |
paul@203 | 413 | |
paul@203 | 414 | def StoreTemp(self): |
paul@203 | 415 | frame = self.local_sp_stack[-1] |
paul@203 | 416 | self.frame_stack[frame + self.operand] = self.value |
paul@72 | 417 | |
paul@72 | 418 | def LoadAddress(self): |
paul@119 | 419 | # Preserve context (potentially null). |
paul@119 | 420 | self.value = self.load(self.operand) |
paul@72 | 421 | |
paul@117 | 422 | def LoadAddressContext(self): |
paul@191 | 423 | context, ref = self.load(self.operand) |
paul@191 | 424 | inst_context, inst_ref = self.value |
paul@194 | 425 | self.value = inst_ref, ref |
paul@194 | 426 | |
paul@194 | 427 | def LoadAddressContextCond(self): |
paul@194 | 428 | context, ref = self.load(self.operand) |
paul@194 | 429 | inst_context, inst_ref = self.value |
paul@223 | 430 | self.value = self._LoadAddressContextCond(context, ref, inst_ref) |
paul@72 | 431 | |
paul@72 | 432 | def StoreAddress(self): |
paul@119 | 433 | # Preserve context. |
paul@190 | 434 | self.save(self.operand, self.source) |
paul@72 | 435 | |
paul@223 | 436 | def StoreAddressContext(self): |
paul@223 | 437 | # Overwrite context if null. |
paul@223 | 438 | context_context, context_ref = self.value |
paul@223 | 439 | source_context, source_ref = self.source |
paul@237 | 440 | if source_context is ReplaceableContext: |
paul@223 | 441 | context = context_ref |
paul@223 | 442 | else: |
paul@223 | 443 | context = source_context |
paul@223 | 444 | self.save(self.operand, (context, source_ref)) |
paul@223 | 445 | |
paul@233 | 446 | def MakeInstance(self): |
paul@138 | 447 | size = self.operand |
paul@138 | 448 | context, ref = self.value |
paul@184 | 449 | # NOTE: Referencing the instance template. |
paul@184 | 450 | addr = self._MakeObject(size, ref - 1) |
paul@184 | 451 | # Introduce object as context for the new object. |
paul@185 | 452 | self.value = addr, addr |
paul@72 | 453 | |
paul@246 | 454 | def MakeFragment(self): |
paul@246 | 455 | size = self.operand |
paul@246 | 456 | addr = self._MakeFragment(size) |
paul@246 | 457 | # NOTE: Context is not relevant for fragments. |
paul@246 | 458 | self.value = None, addr |
paul@246 | 459 | |
paul@118 | 460 | def LoadAttr(self): |
paul@118 | 461 | context, ref = self.value |
paul@127 | 462 | # Retrieved context should already be appropriate for the instance. |
paul@184 | 463 | # NOTE: Adding 1 to skip any header. |
paul@174 | 464 | self.value = self.load(ref + self.operand + 1) |
paul@118 | 465 | |
paul@118 | 466 | def StoreAttr(self): |
paul@119 | 467 | context, ref = self.value |
paul@129 | 468 | # Target should already be an instance. |
paul@184 | 469 | # NOTE: Adding 1 to skip any header. |
paul@174 | 470 | self.save(ref + self.operand + 1, self.source) |
paul@119 | 471 | |
paul@119 | 472 | def LoadAttrIndex(self): |
paul@118 | 473 | context, ref = self.value |
paul@182 | 474 | data = self.load(ref) |
paul@182 | 475 | element = self.objlist[data.classcode + self.operand] |
paul@238 | 476 | |
paul@238 | 477 | if element is not None: |
paul@242 | 478 | attr_index, static_attr, offset = element |
paul@238 | 479 | if attr_index == self.operand: |
paul@242 | 480 | if static_attr: |
paul@242 | 481 | self.value = self.load(offset) # offset is address of class/module attribute |
paul@238 | 482 | else: |
paul@238 | 483 | self.value = self.load(ref + offset) |
paul@238 | 484 | return |
paul@238 | 485 | |
paul@238 | 486 | self.exception = self._MakeObject(2, self.attr_error_instance) |
paul@238 | 487 | return self.RaiseException() |
paul@118 | 488 | |
paul@226 | 489 | # LoadAttrIndexContext not defined. |
paul@194 | 490 | |
paul@194 | 491 | def LoadAttrIndexContextCond(self): |
paul@238 | 492 | inst_context, inst_ref = self.value |
paul@238 | 493 | data = self.load(inst_ref) |
paul@194 | 494 | element = self.objlist[data.classcode + self.operand] |
paul@238 | 495 | |
paul@238 | 496 | if element is not None: |
paul@242 | 497 | attr_index, static_attr, offset = element |
paul@238 | 498 | if attr_index == self.operand: |
paul@242 | 499 | if static_attr: |
paul@242 | 500 | loaded_context, loaded_ref = self.load(offset) # offset is address of class/module attribute |
paul@242 | 501 | if data.attrcode is None: # absent attrcode == class/module |
paul@238 | 502 | self.value = loaded_context, loaded_ref |
paul@238 | 503 | else: |
paul@238 | 504 | self.value = self._LoadAddressContextCond(loaded_context, loaded_ref, inst_ref) |
paul@223 | 505 | else: |
paul@238 | 506 | self.value = self.load(inst_ref + offset) |
paul@238 | 507 | return |
paul@238 | 508 | |
paul@238 | 509 | self.exception = self._MakeObject(2, self.attr_error_instance) |
paul@238 | 510 | return self.RaiseException() |
paul@194 | 511 | |
paul@129 | 512 | def StoreAttrIndex(self): |
paul@129 | 513 | context, ref = self.value |
paul@182 | 514 | data = self.load(ref) |
paul@182 | 515 | element = self.objlist[data.classcode + self.operand] |
paul@238 | 516 | |
paul@238 | 517 | if element is not None: |
paul@242 | 518 | attr_index, static_attr, offset = element |
paul@238 | 519 | if attr_index == self.operand: |
paul@242 | 520 | if static_attr: |
paul@238 | 521 | self.exception = self._MakeObject(2, self.type_error_instance) |
paul@238 | 522 | return self.RaiseException() |
paul@238 | 523 | else: |
paul@238 | 524 | self.save(ref + offset, self.source) |
paul@238 | 525 | return |
paul@238 | 526 | |
paul@238 | 527 | self.exception = self._MakeObject(2, self.attr_error_instance) |
paul@238 | 528 | return self.RaiseException() |
paul@118 | 529 | |
paul@127 | 530 | # NOTE: LoadAttrIndexContext is a possibility if a particular attribute can always be overridden. |
paul@127 | 531 | |
paul@98 | 532 | def MakeFrame(self): |
paul@117 | 533 | self.invocation_sp_stack.append(len(self.frame_stack)) |
paul@119 | 534 | self.frame_stack.extend([None] * self.operand) |
paul@98 | 535 | |
paul@98 | 536 | def DropFrame(self): |
paul@117 | 537 | self.local_sp_stack.pop() |
paul@117 | 538 | frame = self.invocation_sp_stack.pop() |
paul@117 | 539 | self.frame_stack = self.frame_stack[:frame] # reset stack before call |
paul@98 | 540 | |
paul@129 | 541 | def StoreFrame(self): |
paul@129 | 542 | frame = self.invocation_sp_stack[-1] # different from the current frame after MakeFrame |
paul@129 | 543 | self.frame_stack[frame + self.operand] = self.value |
paul@129 | 544 | |
paul@129 | 545 | def StoreFrameIndex(self): |
paul@184 | 546 | context, ref = self.value |
paul@129 | 547 | frame = self.invocation_sp_stack[-1] # different from the current frame after MakeFrame |
paul@182 | 548 | data = self.load(ref) |
paul@190 | 549 | element = self.paramlist[data.funccode + self.operand] |
paul@238 | 550 | |
paul@238 | 551 | if element is not None: |
paul@238 | 552 | # NOTE: Need to ensure correct positioning where a context has been generated. |
paul@238 | 553 | param_index, offset = element |
paul@238 | 554 | if param_index == self.operand: |
paul@238 | 555 | self.frame_stack[frame + offset] = self.source |
paul@238 | 556 | return |
paul@238 | 557 | |
paul@238 | 558 | self.exception = self._MakeObject(2, self.type_error_instance) |
paul@238 | 559 | return self.RaiseException() |
paul@129 | 560 | |
paul@132 | 561 | def LoadCallable(self): |
paul@132 | 562 | context, ref = self.value |
paul@182 | 563 | data = self.load(ref) |
paul@219 | 564 | self.callable = data.codeaddr |
paul@132 | 565 | |
paul@132 | 566 | def StoreCallable(self): |
paul@132 | 567 | context, ref = self.value |
paul@134 | 568 | # NOTE: Should improve the representation and permit direct saving. |
paul@182 | 569 | data = self.load(ref) |
paul@233 | 570 | self.save(ref, data.with_callable(self.callable)) |
paul@132 | 571 | |
paul@132 | 572 | def LoadContext(self): |
paul@132 | 573 | context, ref = self.value |
paul@218 | 574 | # NOTE: Omission of the context of the context would make things like |
paul@218 | 575 | # NOTE: self() inside methods impossible. |
paul@218 | 576 | self.value = context, context |
paul@132 | 577 | |
paul@222 | 578 | def CheckContext(self): |
paul@237 | 579 | self.status = self.value[1] is not ReplaceableContext |
paul@222 | 580 | |
paul@234 | 581 | def CheckClass(self): |
paul@234 | 582 | context, ref = self.value |
paul@237 | 583 | if ref in (ReplaceableContext, PlaceholderContext): |
paul@237 | 584 | self.status = 0 |
paul@237 | 585 | return |
paul@237 | 586 | |
paul@234 | 587 | data = self.load(ref) |
paul@222 | 588 | |
paul@222 | 589 | # Classes are not themselves usable as the self argument. |
paul@222 | 590 | # NOTE: This may change at some point. |
paul@222 | 591 | # However, where classes appear as the context, instance |
paul@222 | 592 | # compatibility is required in the first argument. |
paul@222 | 593 | |
paul@234 | 594 | self.status = data.attrcode is None # absent attrcode == class |
paul@222 | 595 | |
paul@132 | 596 | def CheckFrame(self): |
paul@215 | 597 | (nargs, ndefaults, has_star) = self.operand |
paul@215 | 598 | |
paul@215 | 599 | # The frame is actually installed as the locals. |
paul@215 | 600 | # Retrieve the context from the first local. |
paul@215 | 601 | |
paul@215 | 602 | frame = self.local_sp_stack[-1] |
paul@215 | 603 | nlocals = len(self.frame_stack[frame:]) |
paul@134 | 604 | |
paul@234 | 605 | # NOTE: Not testing (nlocals <= nargs or has_star) due to imprecise |
paul@234 | 606 | # NOTE: invocation frame removal (after frame adjustment). |
paul@234 | 607 | |
paul@234 | 608 | if not ((nargs - ndefaults) <= nlocals): |
paul@234 | 609 | raise Exception, "CheckFrame %r (%r <= %r <= %r)" % (self.operand, nargs - ndefaults, nlocals, nargs) |
paul@222 | 610 | self.exception = self._MakeObject(2, self.type_error_instance) |
paul@221 | 611 | return self.RaiseException() |
paul@215 | 612 | |
paul@215 | 613 | def FillDefaults(self): |
paul@233 | 614 | context, ref = self.value |
paul@233 | 615 | (nargs, ndefaults) = self.operand |
paul@215 | 616 | |
paul@215 | 617 | # The frame is actually installed as the locals. |
paul@215 | 618 | |
paul@215 | 619 | frame = self.local_sp_stack[-1] |
paul@215 | 620 | nlocals = len(self.frame_stack[frame:]) |
paul@134 | 621 | |
paul@190 | 622 | # Support population of defaults. |
paul@190 | 623 | # This involves copying the "attributes" of a function into the frame. |
paul@190 | 624 | |
paul@215 | 625 | default = nlocals - (nargs - ndefaults) |
paul@215 | 626 | self.frame_stack.extend([None] * (nargs - nlocals)) |
paul@215 | 627 | pos = nlocals |
paul@190 | 628 | |
paul@215 | 629 | while pos < nargs: |
paul@190 | 630 | self.frame_stack[frame + pos] = self.load(ref + default + 1) # skip header |
paul@190 | 631 | default += 1 |
paul@190 | 632 | pos += 1 |
paul@117 | 633 | |
paul@134 | 634 | def CheckSelf(self): |
paul@134 | 635 | context, ref = self.value |
paul@234 | 636 | context_context, context_ref = self.source |
paul@135 | 637 | |
paul@145 | 638 | # Check the details of the proposed context and the target's context. |
paul@135 | 639 | |
paul@234 | 640 | self.status = self._CheckInstance(ref, context_ref) |
paul@124 | 641 | |
paul@230 | 642 | def JumpInFrame(self): |
paul@230 | 643 | codeaddr = self.callable |
paul@230 | 644 | return self.jump(codeaddr, self.pc + 1) # return to the instruction after this one |
paul@230 | 645 | |
paul@132 | 646 | def JumpWithFrame(self): |
paul@219 | 647 | codeaddr = self.callable |
paul@132 | 648 | self.local_sp_stack.append(self.invocation_sp_stack[-1]) # adopt the invocation frame |
paul@138 | 649 | return self.jump(codeaddr, self.pc + 1) # return to the instruction after this one |
paul@98 | 650 | |
paul@215 | 651 | def JumpWithFrameDirect(self): |
paul@215 | 652 | operand = self.operand |
paul@215 | 653 | self.local_sp_stack.append(self.invocation_sp_stack[-1]) # adopt the invocation frame |
paul@215 | 654 | return self.jump(operand, self.pc + 1) # return to the instruction after this one |
paul@215 | 655 | |
paul@132 | 656 | def ExtendFrame(self): |
paul@138 | 657 | self.frame_stack.extend([None] * self.operand) |
paul@98 | 658 | |
paul@137 | 659 | def AdjustFrame(self): |
paul@234 | 660 | self.invocation_sp_stack[-1] += self.operand |
paul@137 | 661 | |
paul@68 | 662 | def Return(self): |
paul@138 | 663 | return self.pull_pc() |
paul@68 | 664 | |
paul@117 | 665 | def LoadResult(self): |
paul@117 | 666 | self.value = self.result |
paul@117 | 667 | |
paul@117 | 668 | def StoreResult(self): |
paul@117 | 669 | self.result = self.value |
paul@117 | 670 | |
paul@118 | 671 | def Jump(self): |
paul@119 | 672 | return self.operand |
paul@98 | 673 | |
paul@68 | 674 | def JumpIfTrue(self): |
paul@117 | 675 | if self.status: |
paul@119 | 676 | return self.operand |
paul@68 | 677 | |
paul@68 | 678 | def JumpIfFalse(self): |
paul@117 | 679 | if not self.status: |
paul@119 | 680 | return self.operand |
paul@68 | 681 | |
paul@129 | 682 | def LoadException(self): |
paul@197 | 683 | self.value = self.exception, self.exception |
paul@129 | 684 | |
paul@129 | 685 | def StoreException(self): |
paul@145 | 686 | self.exception = self.value[1] |
paul@129 | 687 | |
paul@232 | 688 | def ClearException(self): |
paul@232 | 689 | self.exception = None |
paul@232 | 690 | |
paul@129 | 691 | def RaiseException(self): |
paul@221 | 692 | # NOTE: Adding the program counter as the first attribute. |
paul@222 | 693 | self.save(self.exception + 1, self.pc) |
paul@221 | 694 | # Jumping to the current handler. |
paul@246 | 695 | if self.abort_upon_exception: |
paul@246 | 696 | raise Exception |
paul@145 | 697 | return self.handler_stack[-1] |
paul@129 | 698 | |
paul@129 | 699 | def PushHandler(self): |
paul@129 | 700 | self.handler_stack.append(self.operand) |
paul@145 | 701 | self.handler_local_sp_stack.append(len(self.local_sp_stack)) |
paul@145 | 702 | self.handler_pc_stack.append(len(self.pc_stack)) |
paul@129 | 703 | |
paul@129 | 704 | def PopHandler(self): |
paul@145 | 705 | # Reduce the local frame pointer stack to refer to the handler's frame. |
paul@145 | 706 | self.local_sp_stack = self.local_sp_stack[:self.handler_local_sp_stack.pop()] |
paul@145 | 707 | # Reduce the PC stack to discard all superfluous return addresses. |
paul@145 | 708 | self.pc_stack = self.pc_stack[:self.handler_pc_stack.pop()] |
paul@129 | 709 | self.handler_stack.pop() |
paul@129 | 710 | |
paul@129 | 711 | def CheckException(self): |
paul@181 | 712 | self.status = self.exception is not None and self._CheckInstance(self.exception, self.value[1]) |
paul@129 | 713 | |
paul@129 | 714 | def TestIdentity(self): |
paul@145 | 715 | self.status = self.value[1] == self.source[1] |
paul@129 | 716 | |
paul@129 | 717 | def TestIdentityAddress(self): |
paul@129 | 718 | self.status = self.value[1] == self.operand |
paul@129 | 719 | |
paul@129 | 720 | # LoadBoolean is implemented in the generated code. |
paul@129 | 721 | # StoreBoolean is implemented by testing against the True value. |
paul@68 | 722 | |
paul@132 | 723 | def InvertBoolean(self): |
paul@132 | 724 | self.status = not self.status |
paul@132 | 725 | |
paul@145 | 726 | # Common implementation details. |
paul@145 | 727 | |
paul@145 | 728 | def _CheckInstance(self, ref, cls): |
paul@182 | 729 | data = self.load(ref) |
paul@182 | 730 | target_data = self.load(cls) |
paul@145 | 731 | |
paul@223 | 732 | # Insist on instance vs. class. |
paul@223 | 733 | |
paul@242 | 734 | if data.attrcode is None: # absent attrcode == class/module |
paul@223 | 735 | return 0 |
paul@191 | 736 | |
paul@207 | 737 | if target_data.attrcode is not None: # present attrcode == instance |
paul@191 | 738 | return 0 |
paul@191 | 739 | |
paul@145 | 740 | # Find the table entry for the descendant. |
paul@145 | 741 | |
paul@182 | 742 | element = self.objlist[target_data.classcode + data.attrcode] |
paul@238 | 743 | |
paul@220 | 744 | if element is not None: |
paul@242 | 745 | attr_index, static_attr, offset = element |
paul@220 | 746 | return attr_index == data.attrcode |
paul@220 | 747 | else: |
paul@220 | 748 | return 0 |
paul@181 | 749 | |
paul@181 | 750 | def _MakeObject(self, size, ref): |
paul@203 | 751 | # Load the template. |
paul@182 | 752 | data = self.load(ref) |
paul@181 | 753 | addr = self.new(size) |
paul@203 | 754 | # Save the header, overriding the size. |
paul@203 | 755 | self.save(addr, data.with_size(size)) |
paul@181 | 756 | return addr |
paul@181 | 757 | |
paul@246 | 758 | def _MakeFragment(self, size): |
paul@246 | 759 | # Reserve twice the amount of space. |
paul@246 | 760 | addr = self.new(size * 2) |
paul@246 | 761 | # Save the header, overriding the size. |
paul@246 | 762 | self.save(addr, FragmentObject(size, size * 2)) |
paul@246 | 763 | return addr |
paul@246 | 764 | |
paul@223 | 765 | def _LoadAddressContextCond(self, context, ref, inst_ref): |
paul@191 | 766 | # Check the instance context against the target's context. |
paul@230 | 767 | # This provides the context overriding for methods. |
paul@238 | 768 | if context is ReplaceableContext or context is not PlaceholderContext and self._CheckInstance(inst_ref, context): |
paul@191 | 769 | # Replace the context with the instance. |
paul@191 | 770 | return inst_ref, ref |
paul@191 | 771 | else: |
paul@191 | 772 | return context, ref |
paul@191 | 773 | |
paul@181 | 774 | # Native function implementations. |
paul@181 | 775 | |
paul@244 | 776 | def builtins_int_arithmetic_op(self, op): |
paul@181 | 777 | frame = self.local_sp_stack[-1] |
paul@181 | 778 | |
paul@181 | 779 | # Get operands addresses. |
paul@181 | 780 | |
paul@181 | 781 | left_context, left = self.frame_stack[frame] |
paul@181 | 782 | right_context, right = self.frame_stack[frame + 1] |
paul@181 | 783 | |
paul@181 | 784 | # Test operand suitability. |
paul@232 | 785 | # NOTE: Support other types. |
paul@181 | 786 | |
paul@232 | 787 | if not (self._CheckInstance(left, self.int_class) and self._CheckInstance(right, self.int_class)): |
paul@222 | 788 | self.exception = self._MakeObject(2, self.type_error_instance) |
paul@181 | 789 | return self.RaiseException() |
paul@181 | 790 | |
paul@181 | 791 | # NOTE: Assume single location for data. |
paul@181 | 792 | |
paul@181 | 793 | left_data = left + 1 |
paul@181 | 794 | right_data = right + 1 |
paul@181 | 795 | |
paul@181 | 796 | # Make a new object. |
paul@181 | 797 | |
paul@221 | 798 | addr = self._MakeObject(2, self.int_instance) |
paul@196 | 799 | |
paul@196 | 800 | # Store the result. |
paul@196 | 801 | # NOTE: The data is considered ready to use. |
paul@196 | 802 | |
paul@244 | 803 | self.save(addr + 1, op(self.load(left_data), self.load(right_data))) |
paul@181 | 804 | |
paul@187 | 805 | # Return the new object. |
paul@187 | 806 | # Introduce object as context for the new object. |
paul@181 | 807 | |
paul@187 | 808 | self.result = addr, addr |
paul@181 | 809 | |
paul@244 | 810 | def builtins_int_add(self): |
paul@244 | 811 | return self.builtins_int_arithmetic_op(operator.add) |
paul@244 | 812 | |
paul@244 | 813 | def builtins_int_sub(self): |
paul@244 | 814 | return self.builtins_int_arithmetic_op(operator.sub) |
paul@244 | 815 | |
paul@196 | 816 | def builtins_int_bool(self): |
paul@196 | 817 | frame = self.local_sp_stack[-1] |
paul@196 | 818 | |
paul@196 | 819 | # Get operands addresses. |
paul@196 | 820 | |
paul@196 | 821 | left_context, left = self.frame_stack[frame] |
paul@196 | 822 | |
paul@196 | 823 | # Test operand suitability. |
paul@196 | 824 | |
paul@221 | 825 | if not self._CheckInstance(left, self.int_class): |
paul@222 | 826 | self.exception = self._MakeObject(2, self.type_error_instance) |
paul@196 | 827 | return self.RaiseException() |
paul@196 | 828 | |
paul@196 | 829 | # NOTE: Assume single location for data. |
paul@196 | 830 | |
paul@196 | 831 | left_data = left + 1 |
paul@196 | 832 | |
paul@196 | 833 | # Test the data. |
paul@196 | 834 | # NOTE: The data is considered ready to use. |
paul@196 | 835 | |
paul@196 | 836 | if self.load(left_data) != 0: |
paul@196 | 837 | self.result = self.true_constant, self.true_constant |
paul@196 | 838 | else: |
paul@196 | 839 | self.result = self.false_constant, self.false_constant |
paul@196 | 840 | |
paul@216 | 841 | def builtins_int_neg(self): |
paul@216 | 842 | frame = self.local_sp_stack[-1] |
paul@216 | 843 | |
paul@216 | 844 | # Get operands addresses. |
paul@216 | 845 | |
paul@216 | 846 | left_context, left = self.frame_stack[frame] |
paul@216 | 847 | |
paul@216 | 848 | # Test operand suitability. |
paul@216 | 849 | |
paul@221 | 850 | if not self._CheckInstance(left, self.int_class): |
paul@222 | 851 | self.exception = self._MakeObject(2, self.type_error_instance) |
paul@216 | 852 | return self.RaiseException() |
paul@216 | 853 | |
paul@216 | 854 | # NOTE: Assume single location for data. |
paul@216 | 855 | |
paul@216 | 856 | left_data = left + 1 |
paul@216 | 857 | |
paul@216 | 858 | # Make a new object. |
paul@216 | 859 | |
paul@221 | 860 | addr = self._MakeObject(2, self.int_instance) |
paul@216 | 861 | |
paul@216 | 862 | # Store the result. |
paul@216 | 863 | # NOTE: The data is considered ready to use. |
paul@216 | 864 | |
paul@216 | 865 | self.save(addr + 1, -self.load(left_data)) |
paul@216 | 866 | |
paul@216 | 867 | # Return the new object. |
paul@216 | 868 | # Introduce object as context for the new object. |
paul@216 | 869 | |
paul@216 | 870 | self.result = addr, addr |
paul@216 | 871 | |
paul@232 | 872 | def builtins_int_op(self, op, true_if_incompatible): |
paul@232 | 873 | frame = self.local_sp_stack[-1] |
paul@232 | 874 | |
paul@232 | 875 | # Get operands addresses. |
paul@232 | 876 | |
paul@232 | 877 | left_context, left = self.frame_stack[frame] |
paul@232 | 878 | right_context, right = self.frame_stack[frame + 1] |
paul@232 | 879 | |
paul@232 | 880 | # Test operand suitability. |
paul@232 | 881 | # NOTE: Support other types. |
paul@232 | 882 | # NOTE: Handle comparisons of incompatible types more appropriately. |
paul@232 | 883 | |
paul@232 | 884 | if not (self._CheckInstance(left, self.int_class) and self._CheckInstance(right, self.int_class)): |
paul@232 | 885 | if true_if_incompatible: |
paul@232 | 886 | self.result = self.true_constant, self.true_constant |
paul@232 | 887 | else: |
paul@232 | 888 | self.result = self.false_constant, self.false_constant |
paul@232 | 889 | return |
paul@232 | 890 | |
paul@232 | 891 | # NOTE: Assume single location for data. |
paul@232 | 892 | |
paul@232 | 893 | left_data = left + 1 |
paul@232 | 894 | right_data = right + 1 |
paul@232 | 895 | |
paul@232 | 896 | # Test the data. |
paul@232 | 897 | # NOTE: The data is considered ready to use. |
paul@232 | 898 | |
paul@232 | 899 | if op(self.load(left_data), self.load(right_data)): |
paul@232 | 900 | self.result = self.true_constant, self.true_constant |
paul@232 | 901 | else: |
paul@232 | 902 | self.result = self.false_constant, self.false_constant |
paul@232 | 903 | |
paul@232 | 904 | def builtins_int_lt(self): |
paul@232 | 905 | return self.builtins_int_op(operator.lt, 0) |
paul@232 | 906 | |
paul@240 | 907 | def builtins_int_le(self): |
paul@240 | 908 | return self.builtins_int_op(operator.le, 0) |
paul@240 | 909 | |
paul@232 | 910 | def builtins_int_gt(self): |
paul@232 | 911 | return self.builtins_int_op(operator.gt, 0) |
paul@232 | 912 | |
paul@240 | 913 | def builtins_int_ge(self): |
paul@240 | 914 | return self.builtins_int_op(operator.ge, 0) |
paul@240 | 915 | |
paul@232 | 916 | def builtins_int_eq(self): |
paul@232 | 917 | return self.builtins_int_op(operator.eq, 0) |
paul@232 | 918 | |
paul@232 | 919 | def builtins_int_ne(self): |
paul@232 | 920 | return self.builtins_int_op(operator.ne, 1) |
paul@232 | 921 | |
paul@197 | 922 | def builtins_bool_bool(self): |
paul@197 | 923 | frame = self.local_sp_stack[-1] |
paul@197 | 924 | |
paul@197 | 925 | # Get operands addresses. |
paul@197 | 926 | |
paul@197 | 927 | left_context, left = self.frame_stack[frame] |
paul@197 | 928 | self.result = left, left |
paul@197 | 929 | |
paul@203 | 930 | def builtins_list_new(self): |
paul@203 | 931 | frame = self.local_sp_stack[-1] |
paul@203 | 932 | |
paul@243 | 933 | # The first parameter should be empty. |
paul@203 | 934 | # NOTE: Specific copying of tuples/lists. |
paul@203 | 935 | |
paul@243 | 936 | args_context, args = self.frame_stack[frame + 1] |
paul@246 | 937 | |
paul@246 | 938 | # Test operand suitability. |
paul@203 | 939 | |
paul@246 | 940 | if self._CheckInstance(args, self.list_class): |
paul@246 | 941 | _x, sequence = self.load(args + 1) |
paul@246 | 942 | header = self.load(sequence) |
paul@246 | 943 | size = header.occupied_size |
paul@246 | 944 | elif self._CheckInstance(args, self.tuple_class): |
paul@246 | 945 | sequence = args |
paul@246 | 946 | header = self.load(sequence) |
paul@246 | 947 | size = header.size |
paul@246 | 948 | else: |
paul@246 | 949 | self.exception = self._MakeObject(2, self.type_error_instance) |
paul@246 | 950 | return self.RaiseException() |
paul@203 | 951 | |
paul@246 | 952 | # Copy the sequence contents. |
paul@246 | 953 | |
paul@246 | 954 | new_fragment = self._MakeFragment(size) |
paul@246 | 955 | for i in range(1, size): |
paul@246 | 956 | self.save(new_fragment + i, self.load(sequence + i)) |
paul@246 | 957 | |
paul@246 | 958 | # Make the list instance. |
paul@246 | 959 | |
paul@246 | 960 | addr = self._MakeObject(2, self.list_instance) |
paul@246 | 961 | self.save(addr + 1, (None, new_fragment)) |
paul@246 | 962 | |
paul@246 | 963 | self.result = addr, addr |
paul@203 | 964 | |
paul@216 | 965 | def builtins_list_getitem(self): |
paul@216 | 966 | frame = self.local_sp_stack[-1] |
paul@216 | 967 | |
paul@246 | 968 | # Get the operand address. |
paul@216 | 969 | |
paul@216 | 970 | item_context, item = self.frame_stack[frame + 1] |
paul@216 | 971 | |
paul@246 | 972 | # Get the list address. |
paul@246 | 973 | |
paul@246 | 974 | obj_context, obj = self.frame_stack[frame] |
paul@246 | 975 | |
paul@246 | 976 | # Get the fragment address. |
paul@246 | 977 | # NOTE: Assume single location for header. |
paul@216 | 978 | |
paul@246 | 979 | _x, fragment = self.load(obj + 1) |
paul@246 | 980 | |
paul@246 | 981 | # Get the fragment header. |
paul@246 | 982 | |
paul@246 | 983 | header = self.load(fragment) |
paul@246 | 984 | nelements = header.occupied_size - 1 |
paul@246 | 985 | |
paul@246 | 986 | # NOTE: Assume single location for data and header. |
paul@216 | 987 | |
paul@216 | 988 | item_pos = self.load(item + 1) |
paul@216 | 989 | if item_pos >= 0 and item_pos < nelements: |
paul@216 | 990 | pass |
paul@216 | 991 | elif item_pos < 0 and item_pos >= -nelements: |
paul@216 | 992 | item_pos = nelements + item_pos |
paul@216 | 993 | else: |
paul@222 | 994 | self.exception = self._MakeObject(2, self.index_error_instance) |
paul@216 | 995 | return self.RaiseException() |
paul@216 | 996 | |
paul@246 | 997 | # NOTE: Assume single location for header. |
paul@246 | 998 | |
paul@246 | 999 | self.result = self.load(fragment + 1 + item_pos) |
paul@246 | 1000 | |
paul@246 | 1001 | def builtins_list_len(self): |
paul@246 | 1002 | frame = self.local_sp_stack[-1] |
paul@246 | 1003 | |
paul@246 | 1004 | # Get the list address. |
paul@246 | 1005 | |
paul@246 | 1006 | obj_context, obj = self.frame_stack[frame] |
paul@246 | 1007 | |
paul@246 | 1008 | # Get the fragment address. |
paul@246 | 1009 | # NOTE: Assume single location for header. |
paul@246 | 1010 | |
paul@246 | 1011 | _x, fragment = self.load(obj + 1) |
paul@246 | 1012 | |
paul@246 | 1013 | # Get the fragment header. |
paul@246 | 1014 | |
paul@246 | 1015 | header = self.load(fragment) |
paul@246 | 1016 | nelements = header.occupied_size - 1 |
paul@246 | 1017 | |
paul@246 | 1018 | # Make a new object. |
paul@246 | 1019 | |
paul@246 | 1020 | addr = self._MakeObject(2, self.int_instance) |
paul@246 | 1021 | |
paul@246 | 1022 | # Store the result. |
paul@246 | 1023 | # NOTE: The data is considered ready to use. |
paul@246 | 1024 | |
paul@246 | 1025 | self.save(addr + 1, nelements) |
paul@246 | 1026 | |
paul@246 | 1027 | # Return the new object. |
paul@246 | 1028 | # Introduce object as context for the new object. |
paul@246 | 1029 | |
paul@246 | 1030 | self.result = addr, addr |
paul@246 | 1031 | |
paul@246 | 1032 | def builtins_list_append(self): |
paul@246 | 1033 | frame = self.local_sp_stack[-1] |
paul@246 | 1034 | |
paul@246 | 1035 | # Get operand address. |
paul@246 | 1036 | |
paul@246 | 1037 | arg_context, arg = self.frame_stack[frame + 1] |
paul@246 | 1038 | |
paul@246 | 1039 | # Get the list address. |
paul@246 | 1040 | |
paul@246 | 1041 | obj_context, obj = self.frame_stack[frame] |
paul@246 | 1042 | |
paul@246 | 1043 | # Get the fragment address. |
paul@246 | 1044 | # NOTE: Assume single location for header. |
paul@246 | 1045 | |
paul@246 | 1046 | _x, fragment = self.load(obj + 1) |
paul@246 | 1047 | |
paul@246 | 1048 | # Get the fragment header. |
paul@246 | 1049 | |
paul@246 | 1050 | header = self.load(fragment) |
paul@246 | 1051 | |
paul@246 | 1052 | # Attempt to add the reference. |
paul@246 | 1053 | |
paul@246 | 1054 | if header.occupied_size < header.allocated_size: |
paul@246 | 1055 | self.save(fragment + header.occupied_size, (arg_context, arg)) |
paul@246 | 1056 | header.occupied_size += 1 |
paul@246 | 1057 | else: |
paul@246 | 1058 | |
paul@246 | 1059 | # Make a new fragment, maintaining more space than currently |
paul@246 | 1060 | # occupied in order to avoid reallocation. |
paul@246 | 1061 | |
paul@246 | 1062 | new_fragment = self._MakeFragment(header.allocated_size) |
paul@246 | 1063 | |
paul@246 | 1064 | # Copy existing elements. |
paul@246 | 1065 | |
paul@246 | 1066 | for i in range(1, header.allocated_size): |
paul@246 | 1067 | self.save(new_fragment + i, self.load(fragment + i)) |
paul@246 | 1068 | |
paul@246 | 1069 | self.save(new_fragment + header.allocated_size, (arg_context, arg)) |
paul@246 | 1070 | |
paul@246 | 1071 | # Set the new fragment in the object. |
paul@246 | 1072 | # NOTE: The old fragment could be deallocated. |
paul@246 | 1073 | |
paul@246 | 1074 | self.save(obj + 1, (None, new_fragment)) |
paul@216 | 1075 | |
paul@208 | 1076 | def builtins_object_init(self): |
paul@208 | 1077 | pass |
paul@208 | 1078 | |
paul@181 | 1079 | native_functions = { |
paul@241 | 1080 | |
paul@241 | 1081 | # Native method implementations: |
paul@241 | 1082 | |
paul@181 | 1083 | "__builtins__.int.__add__" : builtins_int_add, |
paul@241 | 1084 | "__builtins__.int.__radd__" : builtins_int_add, # NOTE: To be made distinct. |
paul@244 | 1085 | "__builtins__.int.__sub__" : builtins_int_sub, |
paul@240 | 1086 | "__builtins__.int.__iadd__" : builtins_int_add, |
paul@196 | 1087 | "__builtins__.int.__bool__" : builtins_int_bool, |
paul@216 | 1088 | "__builtins__.int.__neg__" : builtins_int_neg, |
paul@232 | 1089 | "__builtins__.int.__lt__" : builtins_int_lt, |
paul@240 | 1090 | "__builtins__.int.__le__" : builtins_int_le, |
paul@232 | 1091 | "__builtins__.int.__gt__" : builtins_int_gt, |
paul@240 | 1092 | "__builtins__.int.__ge__" : builtins_int_ge, |
paul@232 | 1093 | "__builtins__.int.__eq__" : builtins_int_eq, |
paul@232 | 1094 | "__builtins__.int.__ne__" : builtins_int_ne, |
paul@197 | 1095 | "__builtins__.bool.__bool__" : builtins_bool_bool, |
paul@241 | 1096 | "__builtins__.list.__getitem__" : builtins_list_getitem, |
paul@246 | 1097 | "__builtins__.list.__len__" : builtins_list_len, |
paul@246 | 1098 | "__builtins__.list.append" : builtins_list_append, |
paul@241 | 1099 | "__builtins__.object.__init__" : builtins_object_init, # NOTE: A no-operation. |
paul@241 | 1100 | "__builtins__.BaseException.__init__" : builtins_object_init, # NOTE: To be made distinct, potentially in the builtins module. |
paul@241 | 1101 | |
paul@241 | 1102 | # Native instantiators: |
paul@241 | 1103 | |
paul@203 | 1104 | "__builtins__.list" : builtins_list_new, |
paul@181 | 1105 | } |
paul@145 | 1106 | |
paul@228 | 1107 | # Convenience functions. |
paul@228 | 1108 | |
paul@246 | 1109 | def machine(program, with_builtins=0, debug=0, abort_upon_exception=0): |
paul@228 | 1110 | print "Making the image..." |
paul@228 | 1111 | code = program.get_image(with_builtins) |
paul@228 | 1112 | print "Getting raw structures..." |
paul@228 | 1113 | ot = program.get_object_table() |
paul@228 | 1114 | pt = program.get_parameter_table() |
paul@228 | 1115 | objlist = ot.as_list() |
paul@228 | 1116 | paramlist = pt.as_list() |
paul@228 | 1117 | print "Getting raw image..." |
paul@228 | 1118 | rc = program.get_raw_image() |
paul@228 | 1119 | print "Initialising the machine..." |
paul@228 | 1120 | importer = program.get_importer() |
paul@228 | 1121 | true_constant = importer.get_constant(True).location |
paul@228 | 1122 | false_constant = importer.get_constant(False).location |
paul@246 | 1123 | rm = RSVPMachine(rc, objlist, paramlist, true_constant, false_constant, debug=debug, abort_upon_exception=abort_upon_exception) |
paul@228 | 1124 | rm.pc = program.code_location |
paul@241 | 1125 | print "Returning program occupying %d locations." % len(rm.memory) |
paul@228 | 1126 | return rm |
paul@228 | 1127 | |
paul@68 | 1128 | # vim: tabstop=4 expandtab shiftwidth=4 |