1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396 |
- import modelverse_kernel.primitives as primitive_functions
- import modelverse_kernel.compiled as compiled_functions
- from modelverse_kernel.request_handler import RequestHandler
- import modelverse_kernel.jit as jit
- from collections import defaultdict
- import sys
- import time
- if sys.version > '3': # pragma: no cover
- string_types = (str,)
- else:
- string_types = (str, unicode)
- class ModelverseKernel(object):
-
- counter = 0
- def __init__(self, root):
- self.root = root
- self.returnvalue = None
- # request_handlers is a dictionary of tasknames to dictionaries of operations
- # to request handlers. In generics notation:
- #
- # Dictionary<
- # Username,
- # Dictionary<
- # Operation,
- # RequestHandler>>
- #
- self.request_handlers = {}
- self.allow_compiled = True
- #self.allow_compiled = False
- # `self.jit` handles most JIT-related functionality.
- self.jit = jit.ModelverseJit()
- self.jit.compiled_function_lookup = lambda func_name : getattr(compiled_functions, func_name, None)
- self.debug_info = defaultdict(list)
- def execute_yields(self, taskname, operation, params, reply):
- self.taskname = taskname
- if taskname not in self.request_handlers:
- self.request_handlers[taskname] = {}
- if operation not in self.request_handlers[taskname]:
- # Create the generator for the function to execute
- self.request_handlers[taskname][operation] = RequestHandler()
- handler = self.request_handlers[taskname][operation]
- if not handler.is_active():
- handler.push_generator(getattr(self, operation)(taskname, *params))
- return handler.handle_request(reply)
- def execute_rule(self, taskname):
- task_root, = yield [("RD", [self.root, taskname])]
- if task_root is None:
- yield None
- else:
- task_frame, = yield [("RD", [task_root, "frame"])]
- self.inst, phase = yield [("RD", [task_frame, "IP"]),
- ("RD", [task_frame, "phase"]),
- ]
- self.new_debug, self.phase_v, inst_v = \
- yield [("RD", [self.inst, "__debug"]),
- ("RV", [phase]),
- ("RV", [self.inst]),
- ]
- if self.new_debug is not None:
- if self.debug_info[taskname]:
- self.debug_info[taskname][-1], = yield [("RV", [self.new_debug])]
- if self.phase_v == "finish":
- gen = self.helper_init(task_root)
- elif self.inst is None:
- print("No instruction pointer found...")
- print(locals())
- print("Phase: " + str(self.phase_v))
- print("Debug: " + str(self.debug_info[taskname]))
- raise Exception("Instruction pointer could not be found!")
- elif isinstance(self.phase_v, string_types):
- if self.phase_v == "init" and self.jit.is_jittable_entry_point(self.inst):
- #print("%-30s(%s)" % ("COMPILED " + str(self.jit.jitted_entry_points[self.inst]), phase_v))
- gen = self.execute_jit(task_root, self.inst, taskname, store=True)
- elif inst_v is None:
- raise Exception("%s: error understanding command (%s, %s)" % (self.debug_info[taskname], inst_v, self.phase_v))
- else:
- #print("%-30s(%s) -- %s" % (inst_v["value"], self.phase_v, taskname))
- gen = self.get_inst_phase_generator(inst_v, self.phase_v, task_root)
- elif inst_v is None:
- raise Exception("%s: error understanding command (%s, %s)" % (self.debug_info[taskname], inst_v, self.phase_v))
- elif inst_v["value"] == "call":
- #print("%-30s(%s)" % ("call", "param"))
- gen = self.call_param(task_root)
- else:
- raise Exception("%s: error understanding command (%s, %s)" % (self.debug_info[taskname], inst_v, self.phase_v))
- def handle_jit_failed(exception):
- # Try again, but this time without the JIT.
- gen = self.get_inst_phase_generator(inst_v, self.phase_v, task_root)
- yield [("TAIL_CALL", [gen])]
- yield [("TRY", [])]
- yield [("CATCH", [jit.JitCompilationFailedException, handle_jit_failed])]
- yield [("CALL", [gen])]
- yield [("END_TRY", [])]
- def execute_jit_internal(self, task_root, inst, taskname, params):
- inst, = yield [("RD", [inst, "body"])]
- result, = yield [("CALL_ARGS", [self.execute_jit, [task_root, inst, taskname, params, False]])]
- raise primitive_functions.PrimitiveFinished(result)
-
- def get_inst_phase_generator(self, inst_v, phase_v, task_root):
- """Gets a generator for the given instruction in the given phase,
- for the specified task root."""
- #print("%-30s(%s) -- %s" % (inst_v["value"], phase_v, taskname))
- return getattr(self, "%s_%s" % (inst_v["value"], phase_v))(task_root)
- ##########################
- ### Process primitives ###
- ##########################
- def load_primitives(self, taskname):
- yield [("CALL_ARGS",
- [self.load_primitives_from, (taskname, 'primitives', primitive_functions)])]
- def load_primitives_from(self, taskname, source_name, source):
- hierarchy, = yield [("RD", [self.root, "__hierarchy"])]
- primitives, = yield [("RD", [hierarchy, source_name])]
- keys, = yield [("RDK", [primitives])]
- function_names = yield [("RV", [f]) for f in keys]
- signatures = yield [("RDN", [primitives, f]) for f in keys]
- bodies = yield [("RD", [f, "body"]) for f in signatures]
- for i in range(len(keys)):
- self.jit.register_compiled(
- bodies[i],
- getattr(source, function_names[i]),
- function_names[i])
- def print_instruction(self, inst, indent, nested_indent=None):
- """
- intrinsics = {"integer_addition": (lambda x, y: "(%s + %s)" % (x, y)),
- "string_join": (lambda x, y: "(str(%s) + str(%s))" % (x, y)),
- }
- """
- intrinsics = {}
- if nested_indent is None:
- nested_indent = indent
- inst_type, = yield [("RV", [inst])]
- instruction = "(no_printer_for_%s)" % inst_type["value"]
- prev = ""
- if inst_type["value"] == "if":
- cond, true, false = yield [("RD", [inst, "cond"]),
- ("RD", [inst, "then"]),
- ("RD", [inst, "else"])]
- (prev_cond, instruction_cond), = yield [("CALL_ARGS", [self.print_instruction, (cond, 0, indent)])]
- (prev_true, instruction_true), = yield [("CALL_ARGS", [self.print_instruction, (true, indent+1)])]
- if false:
- (prev_false, instruction_false), = yield [("CALL_ARGS", [self.print_instruction, (false, indent+1)])]
- false = (" " * indent + "else:\n%s%s") % (prev_false, instruction_false)
- else:
- false = ""
- instruction = prev_cond + " " * indent + "val_%s, = yield [('RV', [%s])]\n" % (instruction_cond, instruction_cond) + " " * indent + "if (val_%s):\n" % instruction_cond + prev_true + instruction_true + false
- elif inst_type["value"] == "constant":
- node, = yield [("RD", [inst, "node"])]
- node_value, = yield [("RV", [node])]
- if node_value is not None:
- # There is a value to the node, so replicate the value
- if isinstance(node_value, (str, unicode)):
- value = '"%s"' % node_value.replace('"', '\\"').replace("'", "\\'").replace('\t', '\\t').replace('\n', '\\n')
- else:
- value = str(node_value)
- instruction = "constant_" + str(ModelverseKernel.counter)
- ModelverseKernel.counter += 1
- prev = " " * nested_indent + instruction + ", = yield [('CNV', [" + value + "])]\n"
- else:
- # Node is None, meaning that it was not about the value, but the node itself...
- instruction = str(node)
- elif inst_type["value"] == "return":
- value, = yield [("RD", [inst, "value"])]
- if value:
- (prev_value, instruction_value), = yield [("CALL_ARGS", [self.print_instruction, (value, 0, indent)])]
- instruction = prev_value + " " * indent + "raise PrimitiveFinished(%s)\n" % instruction_value
- else:
- instruction = " " * indent + "raise PrimitiveFinished(None)\n"
- elif inst_type["value"] == "declare":
- instruction = ""
- elif inst_type["value"] == "global":
- instruction = ""
- elif inst_type["value"] == "break":
- instruction = " " * indent + "break\n"
- elif inst_type["value"] == "continue":
- instruction = " " * indent + "continue\n"
- elif inst_type["value"] == "input":
- prev = " " * nested_indent + "_inputs, = yield [('RD', [_root, 'input'])]\n" + \
- " " * nested_indent + "while 1:\n" + \
- " " * (nested_indent + 1) + "val, = yield [('RD', [_inputs, 'value'])]\n" + \
- " " * (nested_indent + 1) + "if val is not None:\n" + \
- " " * (nested_indent + 2) + "val_e, = yield [('RDE', [_inputs, 'value'])]\n" + \
- " " * (nested_indent + 2) + "yield [('DE', [val_e])]\n" + \
- " " * (nested_indent + 2) + "val_e, = yield [('RDE', [_root, 'input'])]\n" + \
- " " * (nested_indent + 2) + "yield [('DE', [val_e])]\n" + \
- " " * (nested_indent + 2) + "nxt, = yield [('RD', [_inputs, 'next'])]\n" + \
- " " * (nested_indent + 2) + "yield [('CD', [_root, 'input', nxt])]\n" + \
- " " * (nested_indent + 2) + "_result = val\n" + \
- " " * (nested_indent + 2) + "break\n" + \
- " " * (nested_indent + 1)+ "else:\n" + \
- " " * (nested_indent + 2) + "yield None\n"
- instruction = "_result"
- elif inst_type["value"] == "output":
- value, = yield [("RD", [inst, "value"])]
- (prev, inst), = yield [("CALL_ARGS", [self.print_instruction, (value, 0, indent)])]
- instruction = prev + \
- " " * indent + "_outputs, = yield [('RD', [_root, 'last_output'])]\n" + \
- " " * indent + "_outputs_e, = yield [('RDE', [_root, 'last_output'])]\n" + \
- " " * indent + "yield [('CD', [_outputs, 'value', %s])]\n" % inst + \
- " " * indent + "_new, = yield [('CN', [])]\n" + \
- " " * indent + "yield [('CD', [_outputs, 'next', _new])]\n" + \
- " " * indent + "yield [('DE', [_outputs_e])]\n" + \
- " " * indent + "yield [('CD', [_root, 'last_output', _new])]\n"
- elif inst_type["value"] == "resolve":
- value, = yield [("RD", [inst, "var"])]
- str_value, = yield [("RV", [value])]
- if str_value:
- # Is a global
- prev = \
- " " * nested_indent + "%s, = yield [('RD', [_globs, '%s'])]\n" % (str_value, str_value) + \
- " " * nested_indent + "%s, = yield [('RD', [%s, 'value'])]\n" % (str_value, str_value)
- instruction = str_value
- if self.jit.get_global_body_id(str_value) is None:
- val, = yield [("RD", [self.root, self.taskname])]
- val, = yield [("RD", [val, 'globals'])]
- val, = yield [("RD", [val, str_value])]
- val, = yield [("RD", [val, 'value'])]
- val, = yield [("RD", [val, 'body'])]
- print("Registering global " + str(str_value) + " using " + str(val))
- self.jit.register_global(val, str_value)
- else:
- # Is a local
- instruction = "var_%s" % value
- elif inst_type["value"] == "assign":
- var, val = yield [("RD", [inst, "var"]),
- ("RD", [inst, "value"])]
- (prev_var, instruction_var), (prev_val, instruction_val) = \
- yield [("CALL_ARGS", [self.print_instruction, (var, 0, indent)]),
- ("CALL_ARGS", [self.print_instruction, (val, 0, indent)])]
- instruction = prev_val + " " * indent + instruction_var + " = " + instruction_val + "\n"
- if prev_var:
- # Got something to do before the variable is usable, so this is a global!
- # Therefore we actually do the operation in the Modelverse as well!
- instruction += \
- " " * nested_indent + "_var, = yield [('RD', [_globs, '%s'])]\n" % instruction_var + \
- " " * nested_indent + "if _var is None:\n" + \
- " " * (nested_indent + 1) + "_var, = yield [('CN', [])]\n" + \
- " " * (nested_indent + 1) + "yield [('CD', [_globs, '%s', _var])]\n" % instruction_var + \
- " " * nested_indent + "_old_edge, = yield [('RDE', [_var, 'value'])]\n" + \
- " " * nested_indent + "yield [('CD', [_var, 'value', %s])]\n" % instruction_var + \
- " " * nested_indent + "yield [('DE', [_old_edge])]\n" + \
- " " * nested_indent + "_mvk.jit.register_global('%s', %s)\n" % (instruction_var, instruction_var)
- elif inst_type["value"] == "call":
- func_name, = yield [("RD", [inst, "func"])]
- (prev_func_name, func_name), = yield [("CALL_ARGS", [self.print_instruction, (func_name, nested_indent, nested_indent)])]
- param_list = {}
- param, = yield [("RD", [inst, "params"])]
- computation = ""
- while param:
- value, = yield [("RD", [param, "value"])]
- name, = yield [("RD", [param, "name"])]
- name, = yield [("RV", [name])]
- (prev_res, instruction_res), param = \
- yield [("CALL_ARGS", [self.print_instruction, (value, 0, nested_indent)]),
- ("RD", [param, "next_param"])]
- computation += prev_res
- param_list[name] = instruction_res
- if func_name in intrinsics:
- #instruction = " " * indent + intrinsics[func_name](*param_list)
- # TODO
- pass
- else:
- value = "func_result_" + str(ModelverseKernel.counter)
- ModelverseKernel.counter += 1
- param_list = "{" + ", ".join(["'%s': %s" % (k, v) for k, v in param_list.items()]) + "}"
- actual_computation = "%s, = yield [('CALL_ARGS', [_mvk.execute_jit_internal, (_root, %s, _taskname, %s)])]\n" % (value, func_name, param_list)
- if indent == 0:
- # No indent, meaning that we use it inline
- # Therefore, we output the prev and value individually
- prev, instruction = prev_func_name + computation + " " * nested_indent + actual_computation, value
- else:
- # Some indentation, meaning that we don't even use the return value
- # Therefore, we only do the yield
- prev, instruction = prev_func_name + computation, " " * indent + actual_computation
- elif inst_type["value"] == "access":
- value, = yield [("RD", [inst, "var"])]
- (prev, instruction), = yield [("CALL_ARGS", [self.print_instruction, (value, 0, nested_indent)])]
- elif inst_type["value"] == "while":
- cond, body = yield [("RD", [inst, "cond"]),
- ("RD", [inst, "body"])]
- (prev_cond, instruction_cond), (prev_body, instruction_body) = \
- yield [("CALL_ARGS", [self.print_instruction, (cond, 0, indent+1)]),
- ("CALL_ARGS", [self.print_instruction, (body, indent+1)])]
- instruction = " " * indent + "while 1:\n" + prev_cond + \
- " " * (indent + 1) + "val_%s, = yield [('RV', [%s])]\n" % (instruction_cond, instruction_cond) + \
- " " * (indent + 1) + "if not (val_%s):\n" % instruction_cond + \
- " " * (indent + 2) + "break\n" + \
- prev_body + instruction_body
- next_inst, = yield [("RD", [inst, "next"])]
- if next_inst:
- (prev_next, inst_next), = yield [("CALL_ARGS", [self.print_instruction, (next_inst, indent)])]
- next_inst = prev_next + inst_next
- else:
- next_inst = ""
- raise primitive_functions.PrimitiveFinished((prev, instruction + next_inst))
- def read_function(self, inst, suggested_name):
- initial_instruction = inst
- (params, _, is_mutable), = yield [("CALL_ARGS", [self.jit.jit_signature, (inst,)])]
- #if suggested_name is None or is_mutable:
- if is_mutable:
- print("Ignoring mutable or unreadable: %s" % suggested_name)
- raise jit.JitCompilationFailedException("FAIL")
- print("Reading function: %s" % suggested_name)
- (prev, printed), = yield [("CALL_ARGS", [self.print_instruction, (inst, 1)])]
- preamble = " _globs, = yield [('RD', [kwargs['task_root'], 'globals'])]\n" + \
- " _root = kwargs['task_root']\n" + \
- " _taskname = kwargs['taskname']\n" + \
- " _mvk = kwargs['mvk']\n"
- printed = preamble + prev + printed
- print("Total printed function: ")
- if params:
- func = "def " + suggested_name + "(" + ", ".join([chr(ord('a') + i) for i in range(len(params))]) + ", **kwargs):\n" + "".join([" var_%s = %s\n" % (param, chr(ord('a') + i)) for i, param in enumerate(params)]) + printed
- else:
- func = "def " + suggested_name + "(**kwargs):\n" + printed
-
- print(func)
- # To write out all generated functions
- #with open('/tmp/junk/%s' % suggested_name, 'w') as f:
- # f.write(func)
- raise primitive_functions.PrimitiveFinished(func)
- def jit_compile(self, task_root, inst):
- # Try to retrieve the suggested name.
- suggested_name = self.jit.get_global_name(inst)
- if suggested_name is None:
- suggested_name = "func_%s" % str(inst)
- # Have the JIT compile the function.
- if inst is None:
- raise ValueError('body_id cannot be None: ' + str(suggested_name))
- elif inst in self.jit.jitted_entry_points:
- raise primitive_functions.PrimitiveFinished(
- self.jit.jit_globals[self.jit.jitted_entry_points[inst]])
- compiled_func = self.jit.lookup_compiled_body(inst)
- if compiled_func is None:
- compiled_func, = yield [("CALL_ARGS", [self.read_function, (inst, suggested_name)])]
- exec(str(compiled_func), self.jit.jit_globals)
- compiled_func = self.jit.jit_globals[suggested_name]
- self.jit.register_compiled(inst, compiled_func, suggested_name)
- raise primitive_functions.PrimitiveFinished(compiled_func)
- def execute_jit(self, task_root, inst, taskname, params = {}, store=False):
- # execute_jit
- try:
- task_frame, = yield [("RD", [task_root, "frame"])]
- symbols, = yield [("RD", [task_frame, "symbols"])]
- dict_keys_ref, = yield [("RDK", [symbols])]
- dict_keys_ref_n = yield [("RD", [i, "name"]) for i in dict_keys_ref]
- dict_keys = yield [("RV", [i]) for i in dict_keys_ref_n]
- dict_values_elem = yield [("RDN", [symbols, i]) for i in dict_keys_ref]
- dict_values = yield [("RD", [i, "value"]) for i in dict_values_elem]
- parameters = dict(list(zip(dict_keys, dict_values)))
- parameters.update(params)
- except:
- parameters = params
- parameters["root"] = self.root
- parameters["task_root"] = task_root
- parameters["taskname"] = taskname
- parameters["mvk"] = self
- # Have the JIT compile the function.
- compiled_func, = yield [("CALL_ARGS", [self.jit_compile, (task_root, inst)])]
- # Run the compiled function.
- results = yield [("CALL_KWARGS", [compiled_func, parameters])]
- if results is None:
- raise Exception("%s: primitive finished without returning a value!" % (self.debug_info[taskname]))
- else:
- result, = results
- if store:
- # Clean up the current stack, as if a return happened
- old_frame, exception_return = yield [
- ("RD", [task_frame, "prev"]),
- ("RD", [task_frame, primitive_functions.EXCEPTION_RETURN_KEY])]
- #if self.debug_info[self.taskname]:
- # self.debug_info[self.taskname].pop()
- if exception_return is not None:
- # The caller has requested that we throw an exception instead of injecting
- # the return value into the caller's frame. Read the comment at
- # primitive_functions.EXCEPTION_RETURN_KEY for the rationale behind this design.
- yield [("CD", [task_root, "frame", old_frame]),
- ("DN", [task_frame])]
- raise primitive_functions.InterpretedFunctionFinished(result)
- else:
- lnk, = yield [("RDE", [old_frame, "returnvalue"])]
- _, _, _, _ = yield [("CD", [old_frame, "returnvalue", result]),
- ("CD", [task_root, "frame", old_frame]),
- ("DE", [lnk]),
- ("DN", [task_frame]),
- ]
- else:
- raise primitive_functions.PrimitiveFinished(result)
- ########################################
- ### Execute input and output methods ###
- ########################################
- def get_output(self, taskname):
- task_root, = yield [("RD", [self.root, taskname])]
- first_output, = yield [("RD", [task_root, "output"])]
- next_output, rv = yield [("RD", [first_output, "next"]),
- ("RD", [first_output, "value"]),
- ]
- if next_output is None:
- self.success = False
- self.returnvalue = None
- else:
- rv_value, _, _ = \
- yield [("RV", [rv]),
- ("CD", [task_root, "output", next_output]),
- ("DN", [first_output]),
- ]
- self.returnvalue = rv_value
- self.success = True
- def set_input(self, taskname, value):
- task_root, = yield [("RD", [self.root, taskname])]
- old_input, link, new_input, new_value = \
- yield [("RD", [task_root, "last_input"]),
- ("RDE", [task_root, "last_input"]),
- ("CN", []),
- ("CNV", [value]),
- ]
- _, _, _, _ = yield [("CD", [task_root, "last_input", new_input]),
- ("CD", [old_input, "next", new_input]),
- ("CD", [old_input, "value", new_value]),
- ("DE", [link])
- ]
- self.returnvalue = {"id": 100, "value": "success"}
- #############################################
- ### Transformation rules for instructions ###
- #############################################
- def continue_init(self, task_root):
- task_frame, = yield [("RD", [task_root, "frame"])]
- inst, = yield [("RD", [task_frame, "IP"])]
- while_inst, = yield [("RD", [inst, "while"])]
- old_evalstack_link, old_phase_link, evalstack_roots = \
- yield [("RDE", [task_frame, "evalstack"]),
- ("RDE", [task_frame, "phase"]),
- ("RRD", [while_inst, self.taskname]),
- ]
- if len(evalstack_roots) == 1:
- evalstack_root = evalstack_roots[0]
- else:
- print("Got roots: " + str(evalstack_roots))
- raise Exception("Could not process continue statement!")
- prev_evalstack_roots, old_evalstack_phase_link = \
- yield [("RRD", [evalstack_root, "prev"]),
- ("RDE", [evalstack_root, "phase"]),
- ]
- if len(prev_evalstack_roots) == 1:
- prev_evalstack_root = prev_evalstack_roots[0]
- else:
- raise Exception("Could not process continue statement!")
- new_evalstack_root, new_phase_while, new_phase_inst, prev_evalstack_root_link = \
- yield [("CN", []),
- ("CNV", ["init"]),
- ("CNV", ["finish"]),
- ("RDE", [prev_evalstack_root, "prev"]),
- ]
- _, _, _, _, _, _, _, _ = \
- yield [("CD", [task_frame, "evalstack", new_evalstack_root]),
- ("CD", [new_evalstack_root, "prev", evalstack_root]),
- ("CD", [task_frame, "phase", new_phase_inst]),
- ("CD", [evalstack_root, "phase", new_phase_while]),
- ("DE", [old_evalstack_link]),
- ("DE", [prev_evalstack_root_link]),
- ("DE", [old_phase_link]),
- ("DE", [old_evalstack_phase_link]),
- ]
- def break_init(self, task_root):
- task_frame, = yield [("RD", [task_root, "frame"])]
- inst, = yield [("RD", [task_frame, "IP"])]
- while_inst, = yield [("RD", [inst, "while"])]
- old_evalstack_link, old_phase_link, evalstack_roots = \
- yield [("RDE", [task_frame, "evalstack"]),
- ("RDE", [task_frame, "phase"]),
- ("RRD", [while_inst, self.taskname]),
- ]
- if len(evalstack_roots) == 1:
- evalstack_root = evalstack_roots[0]
- else:
- raise Exception("Could not process break statement!")
- prev_evalstack_roots, old_evalstack_phase_link = \
- yield [("RRD", [evalstack_root, "prev"]),
- ("RDE", [evalstack_root, "phase"]),
- ]
- if len(prev_evalstack_roots) == 1:
- prev_evalstack_root = prev_evalstack_roots[0]
- else:
- raise Exception("Could not process break statement!")
- new_evalstack_root, new_phase_while, new_phase_inst, prev_evalstack_root_link = \
- yield [("CN", []),
- ("CNV", ["finish"]),
- ("CNV", ["finish"]),
- ("RDE", [prev_evalstack_root, "prev"]),
- ]
- _, _, _, _, _, _, _, _ = \
- yield [("CD", [task_frame, "evalstack", new_evalstack_root]),
- ("CD", [new_evalstack_root, "prev", evalstack_root]),
- ("CD", [task_frame, "phase", new_phase_inst]),
- ("CD", [evalstack_root, "phase", new_phase_while]),
- ("DE", [old_evalstack_link]),
- ("DE", [prev_evalstack_root_link]),
- ("DE", [old_phase_link]),
- ("DE", [old_evalstack_phase_link]),
- ]
- def if_init(self, task_root):
- task_frame, = yield [("RD", [task_root, "frame"])]
- evalstack, evalstack_link = \
- yield [("RD", [task_frame, "evalstack"]),
- ("RDE", [task_frame, "evalstack"]),
- ]
- inst, ip_link = yield [("RD", [task_frame, "IP"]),
- ("RDE", [task_frame, "IP"]),
- ]
- cond, = yield [("RD", [inst, "cond"])]
- new_evalstack, new_phase = \
- yield [("CN", []),
- ("CNV", ["cond"]),
- ]
- _, _, _, _, _, _, _ = \
- yield [("CD", [task_frame, "evalstack", new_evalstack]),
- ("CD", [new_evalstack, "prev", evalstack]),
- ("CD", [task_frame, "IP", cond]),
- ("CD", [evalstack, "inst", inst]),
- ("CD", [evalstack, "phase", new_phase]),
- ("DE", [evalstack_link]),
- ("DE", [ip_link]),
- ]
- def if_cond(self, task_root):
- task_frame, = yield [("RD", [task_root, "frame"])]
- returnvalue, inst = yield [("RD", [task_frame, "returnvalue"]),
- ("RD", [task_frame, "IP"]),
- ]
- returnvalue_v, = yield [("RV", [returnvalue])]
- _else, = yield [("RD", [inst, "else"])]
- if returnvalue_v:
- phase_link, evalstack, evalstack_link, ip_link, _then, new_evalstack, evalstack_phase, new_phase = \
- yield [("RDE", [task_frame, "phase"]),
- ("RD", [task_frame, "evalstack"]),
- ("RDE", [task_frame, "evalstack"]),
- ("RDE", [task_frame, "IP"]),
- ("RD", [inst, "then"]),
- ("CN", []),
- ("CNV", ["finish"]),
- ("CNV", ["init"]),
- ]
- _, _, _, _, _, _, _, _, _ = \
- yield [("CD", [task_frame, "evalstack", new_evalstack]),
- ("CD", [task_frame, "IP", _then]),
- ("CD", [new_evalstack, "prev", evalstack]),
- ("CD", [evalstack, "inst", inst]),
- ("CD", [evalstack, "phase", evalstack_phase]),
- ("CD", [task_frame, "phase", new_phase]),
- ("DE", [evalstack_link]),
- ("DE", [ip_link]),
- ("DE", [phase_link]),
- ]
- elif _else is None:
- phase_link, new_phase = \
- yield [("RDE", [task_frame, "phase"]),
- ("CNV", ["finish"]),
- ]
- _, _ = yield [("CD", [task_frame, "phase", new_phase]),
- ("DE", [phase_link]),
- ]
- else:
- phase_link, evalstack, evalstack_link, ip_link = \
- yield [("RDE", [task_frame, "phase"]),
- ("RD", [task_frame, "evalstack"]),
- ("RDE", [task_frame, "evalstack"]),
- ("RDE", [task_frame, "IP"]),
- ]
- new_evalstack, new_phase, evalstack_phase = \
- yield [("CN", []),
- ("CNV", ["init"]),
- ("CNV", ["finish"]),
- ]
- _, _, _, _, _, _, _, _, _ = \
- yield [("CD", [task_frame, "evalstack", new_evalstack]),
- ("CD", [task_frame, "IP", _else]),
- ("CD", [new_evalstack, "prev", evalstack]),
- ("CD", [evalstack, "inst", inst]),
- ("CD", [evalstack, "phase", evalstack_phase]),
- ("CD", [task_frame, "phase", new_phase]),
- ("DE", [evalstack_link]),
- ("DE", [ip_link]),
- ("DE", [phase_link]),
- ]
- def while_init(self, task_root):
- task_frame, = yield [("RD", [task_root, "frame"])]
- evalstack, evalstack_link, ip_link, inst = \
- yield [("RD", [task_frame, "evalstack"]),
- ("RDE", [task_frame, "evalstack"]),
- ("RDE", [task_frame, "IP"]),
- ("RD", [task_frame, "IP"]),
- ]
- cond, new_evalstack, new_phase = \
- yield [("RD", [inst, "cond"]),
- ("CN", []),
- ("CNV", ["cond"]),
- ]
- _, _, _, _, _, _, _ = \
- yield [("CD", [task_frame, "evalstack", new_evalstack]),
- ("CD", [new_evalstack, "prev", evalstack]),
- ("CD", [task_frame, "IP", cond]),
- ("CD", [evalstack, "phase", new_phase]),
- ("CD", [evalstack, "inst", inst]),
- ("DE", [evalstack_link]),
- ("DE", [ip_link]),
- ]
- def while_cond(self, task_root):
- task_frame, = yield [("RD", [task_root, "frame"])]
- returnvalue, = yield [("RD", [task_frame, "returnvalue"])]
- returnvalue_v, = yield [("RV", [returnvalue])]
- if returnvalue_v:
- phase_link, evalstack, evalstack_link, ip_link, inst = \
- yield [("RDE", [task_frame, "phase"]),
- ("RD", [task_frame, "evalstack"]),
- ("RDE", [task_frame, "evalstack"]),
- ("RDE", [task_frame, "IP"]),
- ("RD", [task_frame, "IP"]),
- ]
- body, = yield [("RD", [inst, "body"])]
- new_evalstack, new_phase, evalstack_phase = \
- yield [("CN", []),
- ("CNV", ["init"]),
- ("CNV", ["init"]),
- ]
- _, _, _, _, _, _, _, _, _ = \
- yield [("CD", [task_frame, "IP", body]),
- ("CD", [task_frame, "phase", new_phase]),
- ("CD", [task_frame, "evalstack", new_evalstack]),
- ("CD", [new_evalstack, "prev", evalstack]),
- ("CD", [evalstack, "inst", inst]),
- ("CD", [evalstack, "phase", evalstack_phase]),
- ("DE", [evalstack_link]),
- ("DE", [ip_link]),
- ("DE", [phase_link]),
- ]
- # Check if we already have a taskname link to the evalstack
- links, = yield [("RD", [evalstack, self.taskname])]
- if links is None:
- yield [("CD", [evalstack, self.taskname, inst])]
- else:
- phase_link, new_phase = \
- yield [("RDE", [task_frame, "phase"]),
- ("CNV", ["finish"]),
- ]
- _, _ = yield [("CD", [task_frame, "phase", new_phase]),
- ("DE", [phase_link])
- ]
- def access_init(self, task_root):
- task_frame, = yield [("RD", [task_root, "frame"])]
- evalstack, evalstack_link, inst, ip_link = \
- yield [("RD", [task_frame, "evalstack"]),
- ("RDE", [task_frame, "evalstack"]),
- ("RD", [task_frame, "IP"]),
- ("RDE", [task_frame, "IP"]),
- ]
- var, new_evalstack, new_phase = \
- yield [("RD", [inst, "var"]),
- ("CN", []),
- ("CNV", ["eval"]),
- ]
- _, _, _, _, _, _, _ = \
- yield [("CD", [task_frame, "IP", var]),
- ("CD", [task_frame, "evalstack", new_evalstack]),
- ("CD", [new_evalstack, "prev", evalstack]),
- ("CD", [evalstack, "inst", inst]),
- ("CD", [evalstack, "phase", new_phase]),
- ("DE", [evalstack_link]),
- ("DE", [ip_link]),
- ]
- def access_eval(self, task_root):
- task_frame, = yield [("RD", [task_root, "frame"])]
- phase_link, returnvalue_link, returnvalue = \
- yield [("RDE", [task_frame, "phase"]),
- ("RDE", [task_frame, "returnvalue"]),
- ("RD", [task_frame, "returnvalue"]),
- ]
- value, new_phase = yield [("RD", [returnvalue, "value"]),
- ("CNV", ["finish"]),
- ]
- _, _, _, _ = yield [("CD", [task_frame, "phase", new_phase]),
- ("CD", [task_frame, "returnvalue", value]),
- ("DE", [phase_link]),
- ("DE", [returnvalue_link]),
- ]
- def resolve_init(self, task_root):
- task_frame, = yield [("RD", [task_root, "frame"])]
- symbols, evalstack, evalstack_link, ip_link, inst = \
- yield [("RD", [task_frame, "symbols"]),
- ("RD", [task_frame, "evalstack"]),
- ("RDE", [task_frame, "evalstack"]),
- ("RDE", [task_frame, "IP"]),
- ("RD", [task_frame, "IP"]),
- ]
- var, = yield [("RD", [inst, "var"])]
- variable, = yield [("RDN", [symbols, var])]
- if variable is None:
- phase_link, returnvalue_link, _globals, var_name = \
- yield [("RDE", [task_frame, "phase"]),
- ("RDE", [task_frame, "returnvalue"]),
- ("RD", [task_root, "globals"]),
- ("RV", [var]),
- ]
- variable, new_phase = \
- yield [("RD", [_globals, var_name]),
- ("CNV", ["finish"]),
- ]
- if variable is None:
- globs, = yield [("RDK", [_globals])]
- print("Globals: " + str(globs))
- globs = yield [("RV", [i]) for i in globs]
- print("Resolved globals: " + str(globs))
- raise Exception(jit.GLOBAL_NOT_FOUND_MESSAGE_FORMAT % var_name)
- # Resolved a global, so this is a string
- # Potentially, this might even be a function that we have precompiled already!
- # So check whether this is the case or not
- if self.allow_compiled:
- compiled_function = getattr(compiled_functions, var_name, None)
- if compiled_function is not None:
- # We have a compiled function ready!
- # Now we have to bind the ID to the compiled functions
- # For this, we read out the body of the resolved data
- compiler_val, = yield [("RD", [variable, "value"])]
- compiler_body, = yield [("RD", [compiler_val, "body"])]
- self.jit.register_compiled(compiler_body, compiled_function, var_name)
- # If we're dealing with a function, then we might want to figure out what its body id
- # is now so we can suggest a name to the JIT later.
- if self.jit.get_global_body_id(var_name) is None:
- compiler_val, = yield [("RD", [variable, "value"])]
- if compiler_val is not None:
- compiler_body, = yield [("RD", [compiler_val, "body"])]
- if compiler_body is not None:
- self.jit.register_global(compiler_body, var_name)
- else:
- phase_link, returnvalue_link, new_phase = \
- yield [("RDE", [task_frame, "phase"]),
- ("RDE", [task_frame, "returnvalue"]),
- ("CNV", ["finish"]),
- ]
- _, _, _, _ = yield [("CD", [task_frame, "phase", new_phase]),
- ("CD", [task_frame, "returnvalue", variable]),
- ("DE", [phase_link]),
- ("DE", [returnvalue_link]),
- ]
- def assign_init(self, task_root):
- task_frame, = yield [("RD", [task_root, "frame"])]
- evalstack, evalstack_link, ip_link, inst = \
- yield [("RD", [task_frame, "evalstack"]),
- ("RDE", [task_frame, "evalstack"]),
- ("RDE", [task_frame, "IP"]),
- ("RD", [task_frame, "IP"]),
- ]
- var, new_evalstack, new_phase = \
- yield [("RD", [inst, "var"]),
- ("CN", []),
- ("CNV", ["value"]),
- ]
- _, _, _, _, _, _, _ = \
- yield [("CD", [task_frame, "IP", var]),
- ("CD", [task_frame, "evalstack", new_evalstack]),
- ("CD", [new_evalstack, "prev", evalstack]),
- ("CD", [evalstack, "inst", inst]),
- ("CD", [evalstack, "phase", new_phase]),
- ("DE", [evalstack_link]),
- ("DE", [ip_link]),
- ]
- def assign_value(self, task_root):
- task_frame, = yield [("RD", [task_root, "frame"])]
- phase_link, evalstack, returnvalue, evalstack_link, ip_link, inst = \
- yield [("RDE", [task_frame, "phase"]),
- ("RD", [task_frame, "evalstack"]),
- ("RD", [task_frame, "returnvalue"]),
- ("RDE", [task_frame, "evalstack"]),
- ("RDE", [task_frame, "IP"]),
- ("RD", [task_frame, "IP"]),
- ]
- value, new_evalstack, new_phase, evalstack_phase = \
- yield [("RD", [inst, "value"]),
- ("CN", []),
- ("CNV", ["init"]),
- ("CNV", ["assign"]),
- ]
- _, _, _, _, _, _, _, _, _, _ = \
- yield [("CD", [task_frame, "variable", returnvalue]),
- ("CD", [task_frame, "phase", new_phase]),
- ("CD", [task_frame, "evalstack", new_evalstack]),
- ("CD", [new_evalstack, "prev", evalstack]),
- ("CD", [evalstack, "inst", inst]),
- ("CD", [evalstack, "phase", evalstack_phase]),
- ("CD", [task_frame, "IP", value]),
- ("DE", [evalstack_link]),
- ("DE", [phase_link]),
- ("DE", [ip_link]),
- ]
- def assign_assign(self, task_root):
- task_frame, = yield [("RD", [task_root, "frame"])]
- phase_link, returnvalue, variable_link, variable = \
- yield [("RDE", [task_frame, "phase"]),
- ("RD", [task_frame, "returnvalue"]),
- ("RDE", [task_frame, "variable"]),
- ("RD", [task_frame, "variable"]),
- ]
- value_link, new_phase = \
- yield [("RDE", [variable, "value"]),
- ("CNV", ["finish"]),
- ]
- _, _, _, _, _ = yield [("CD", [task_frame, "phase", new_phase]),
- ("CD", [variable, "value", returnvalue]),
- ("DE", [variable_link]),
- ("DE", [value_link]),
- ("DE", [phase_link]),
- ]
-
- def return_init(self, task_root):
- task_frame, = yield [("RD", [task_root, "frame"])]
- inst, = yield [("RD", [task_frame, "IP"])]
- value, = yield [("RD", [inst, "value"])]
- if value is None:
- prev_frame, = yield [("RD", [task_frame, "prev"])]
- # If the callee's frame is marked with the '__exception_return' key, then
- # we need to throw an exception instead of just finishing here. This design
- # gives us O(1) state reads per jit-interpreter transition.
- exception_return, = yield [("RD", [task_frame, primitive_functions.EXCEPTION_RETURN_KEY])]
- if prev_frame is None:
- _, = yield [("DN", [task_root])]
- del self.debug_info[self.taskname]
- #print("Cleanup task " + str(self.taskname))
- else:
- if self.debug_info[self.taskname]:
- self.debug_info[self.taskname].pop()
- _, _ = yield [("CD", [task_root, "frame", prev_frame]),
- ("DN", [task_frame]),
- ]
- if exception_return is not None:
- raise primitive_functions.InterpretedFunctionFinished(None)
- else:
- evalstack, evalstack_link, ip_link, new_evalstack, evalstack_phase = \
- yield [("RD", [task_frame, "evalstack"]),
- ("RDE", [task_frame, "evalstack"]),
- ("RDE", [task_frame, "IP"]),
- ("CN", []),
- ("CNV", ["eval"]),
- ]
- _, _, _, _, _, _, _ = \
- yield [("CD", [task_frame, "evalstack", new_evalstack]),
- ("CD", [new_evalstack, "prev", evalstack]),
- ("CD", [evalstack, "inst", inst]),
- ("CD", [evalstack, "phase", evalstack_phase]),
- ("CD", [task_frame, "IP", value]),
- ("DE", [evalstack_link]),
- ("DE", [ip_link]),
- ]
- def return_eval(self, task_root):
- if self.debug_info[self.taskname]:
- self.debug_info[self.taskname].pop()
- task_frame, = yield [("RD", [task_root, "frame"])]
- prev_frame, = yield [("RD", [task_frame, "prev"])]
- if prev_frame is None:
- _, = yield [("DN", [task_root])]
- del self.debug_info[self.taskname]
- exception_return, returnvalue = yield [
- ("RD", [task_frame, primitive_functions.EXCEPTION_RETURN_KEY]),
- ("RD", [task_frame, "returnvalue"])]
- # If the callee's frame is marked with the '__exception_return' key, then
- # we need to throw an exception instead of just finishing here. This design
- # gives us O(1) state reads per jit-interpreter transition.
- if exception_return is not None:
- yield [
- ("CD", [task_root, "frame", prev_frame]),
- ("DN", [task_frame])]
- raise primitive_functions.InterpretedFunctionFinished(returnvalue)
- else:
- old_returnvalue_link, = yield [("RDE", [prev_frame, "returnvalue"])]
- yield [
- ("CD", [task_root, "frame", prev_frame]),
- ("CD", [prev_frame, "returnvalue", returnvalue]),
- ("DE", [old_returnvalue_link]),
- ("DN", [task_frame])]
- def constant_init(self, task_root):
- task_frame, = yield [("RD", [task_root, "frame"])]
- phase_link, returnvalue_link, inst = \
- yield [("RDE", [task_frame, "phase"]),
- ("RDE", [task_frame, "returnvalue"]),
- ("RD", [task_frame, "IP"]),
- ]
- node, new_phase = yield [("RD", [inst, "node"]),
- ("CNV", ["finish"]),
- ]
- _, _, _, _ = yield [("CD", [task_frame, "phase", new_phase]),
- ("CD", [task_frame, "returnvalue", node]),
- ("DE", [returnvalue_link]),
- ("DE", [phase_link]),
- ]
- def helper_init(self, task_root):
- task_frame, = yield [("RD", [task_root, "frame"])]
- inst, = yield [("RD", [task_frame, "IP"])]
- next, = yield [("RD", [inst, "next"])]
- if next is None:
- ip_link, phase_link, evalstack_top = \
- yield [("RDE", [task_frame, "IP"]),
- ("RDE", [task_frame, "phase"]),
- ("RD", [task_frame, "evalstack"]),
- ]
- evalstack, = yield [("RD", [evalstack_top, "prev"])]
- evalstack_inst, evalstack_phase, evalstack_inst_link, evalstack_phase_link = \
- yield [("RD", [evalstack, "inst"]),
- ("RD", [evalstack, "phase"]),
- ("RDE", [evalstack, "inst"]),
- ("RDE", [evalstack, "phase"]),
- ]
- _, _, _, _, _, _, _, _ = \
- yield [("CD", [task_frame, "evalstack", evalstack]),
- ("CD", [task_frame, "IP", evalstack_inst]),
- ("CD", [task_frame, "phase", evalstack_phase]),
- ("DE", [ip_link]),
- ("DE", [phase_link]),
- ("DE", [evalstack_inst_link]),
- ("DE", [evalstack_phase_link]),
- ("DN", [evalstack_top]),
- ]
- else:
- ip_link, phase_link, new_phase = \
- yield [("RDE", [task_frame, "IP"]),
- ("RDE", [task_frame, "phase"]),
- ("CNV", ["init"]),
- ]
- _, _, _, _ = yield [("CD", [task_frame, "IP", next]),
- ("CD", [task_frame, "phase", new_phase]),
- ("DE", [ip_link]),
- ("DE", [phase_link]),
- ]
- def call_init(self, task_root):
- task_frame, = yield [("RD", [task_root, "frame"])]
- symbols, evalstack, evalstack_link, ip_link, inst = \
- yield [("RD", [task_frame, "symbols"]),
- ("RD", [task_frame, "evalstack"]),
- ("RDE", [task_frame, "evalstack"]),
- ("RDE", [task_frame, "IP"]),
- ("RD", [task_frame, "IP"]),
- ]
- func, params = yield [("RD", [inst, "func"]),
- ("RD", [inst, "params"]),
- ]
-
- if params is None:
- new_evalstack, evalstack_phase = \
- yield [("CN", []),
- ("CNV", ["call"]),
- ]
- _, _, _, _, _, _, _ = \
- yield [("CD", [task_frame, "evalstack", new_evalstack]),
- ("CD", [new_evalstack, "prev", evalstack]),
- ("CD", [evalstack, "inst", inst]),
- ("CD", [evalstack, "phase", evalstack_phase]),
- ("CD", [task_frame, "IP", func]),
- ("DE", [evalstack_link]),
- ("DE", [ip_link]),
- ]
- else:
- new_evalstack,= yield [("CN", [])]
- _, _, _, _, _, _, _ = \
- yield [("CD", [task_frame, "evalstack", new_evalstack]),
- ("CD", [new_evalstack, "prev", evalstack]),
- ("CD", [evalstack, "inst", inst]),
- ("CD", [evalstack, "phase", params]),
- ("CD", [task_frame, "IP", func]),
- ("DE", [evalstack_link]),
- ("DE", [ip_link]),
- ]
- def call_call(self, task_root):
- self.debug_info[self.taskname].append("None")
- task_frame, = yield [("RD", [task_root, "frame"])]
- inst, = yield [("RD", [task_frame, "IP"])]
- param, = yield [("RD", [inst, "last_param"])]
- if param is None:
- returnvalue, = yield [("RD", [task_frame, "returnvalue"])]
- body, = yield [("RD", [returnvalue, "body"])]
- self.jit.mark_entry_point(body)
- phase_link, frame_link, prev_phase, new_phase, new_frame, new_evalstack, new_symbols, new_returnvalue = \
- yield [("RDE", [task_frame, "phase"]),
- ("RDE", [task_root, "frame"]),
- ("CNV", ["finish"]),
- ("CNV", ["init"]),
- ("CN", []),
- ("CN", []),
- ("CN", []),
- ("CN", []),
- ]
- _, _, _, _, _, _, _, _, _, _, _ = \
- yield [("CD", [task_root, "frame", new_frame]),
- ("CD", [new_frame, "evalstack", new_evalstack]),
- ("CD", [new_frame, "symbols", new_symbols]),
- ("CD", [new_frame, "returnvalue", new_returnvalue]),
- ("CD", [new_frame, "caller", inst]),
- ("CD", [new_frame, "phase", new_phase]),
- ("CD", [new_frame, "IP", body]),
- ("CD", [new_frame, "prev", task_frame]),
- ("CD", [task_frame, "phase", prev_phase]),
- ("DE", [phase_link]),
- ("DE", [frame_link]),
- ]
- else:
- newer_frames, invoking_frames = \
- yield [("RRD", [task_frame, "prev"]),
- ("RRD", [inst, "caller"]),
- ]
- new_frame = self.find_overlapping(newer_frames, invoking_frames)
- phase_link, frame_link, new_symbols, new_IP = \
- yield [("RDE", [task_frame, "phase"]),
- ("RDE", [task_root, "frame"]),
- ("RD", [new_frame, "symbols"]),
- ("RD", [new_frame, "IP"]),
- ]
- signature, = yield [("RRD", [new_IP, "body"])]
- signature = signature[0]
- sig_params, last_param = \
- yield [("RD", [signature, "params"]),
- ("RD", [inst, "last_param"]),
- ]
- self.jit.mark_entry_point(new_IP)
-
- name, = yield [("RD", [last_param, "name"])]
- name_value, = yield [("RV", [name])]
- returnvalue, formal_parameter, new_phase, variable = \
- yield [("RD", [task_frame, "returnvalue"]),
- ("RD", [sig_params, name_value]),
- ("CNV", ["finish"]),
- ("CN", []),
- ]
- _, _, _, t1 = yield [("CD", [task_root, "frame", new_frame]),
- ("CD", [task_frame, "phase", new_phase]),
- ("CD", [variable, "value", returnvalue]),
- ("CE", [new_symbols, variable]),
- ]
- _, _, _ = yield [("CE", [t1, formal_parameter]),
- ("DE", [frame_link]),
- ("DE", [phase_link]),
- ]
- def find_overlapping(self, a, b):
- newer_frames = set(a)
- invoking_frames = set(b)
- matches = list(newer_frames.intersection(invoking_frames))
- if len(matches) == 1:
- return matches[0]
- elif len(matches) > 1:
- raise Exception("Error: multiple overlapping elements")
- else:
- raise Exception("Error: could not find any overlap")
- def call_param(self, task_root):
- task_frame, = yield [("RD", [task_root, "frame"])]
- inst, phase = yield [("RD", [task_frame, "IP"]),
- ("RD", [task_frame, "phase"]),
- ]
- params, last_param = \
- yield [("RD", [inst, "params"]),
- ("RD", [inst, "last_param"]),
- ]
- next_param, = yield [("RD", [params, "next_param"])]
- if params == phase:
- phase_link, ip_link, returnvalue, param_value, evalstack, evalstack_link = \
- yield [("RDE", [task_frame, "phase"]),
- ("RDE", [task_frame, "IP"]),
- ("RD", [task_frame, "returnvalue"]),
- ("RD", [params, "value"]),
- ("RD", [task_frame, "evalstack"]),
- ("RDE", [task_frame, "evalstack"]),
- ]
- body, = yield [("RD", [returnvalue, "body"])]
- new_frame, prev_evalstack, new_phase, prev_phase, new_evalstack, new_symbols, new_returnvalue = \
- yield [("CN", []),
- ("CN", []),
- ("CNV", ["init"]),
- ("CNV", ["init"]),
- ("CN", []),
- ("CN", []),
- ("CN", []),
- ]
- _, _, _, _, _, _, _, _, _, _, _, _, _, _, _ = \
- yield [("CD", [new_frame, "evalstack", new_evalstack]),
- ("CD", [new_frame, "symbols", new_symbols]),
- ("CD", [new_frame, "returnvalue", new_returnvalue]),
- ("CD", [new_frame, "caller", inst]),
- ("CD", [new_frame, "phase", new_phase]),
- ("CD", [new_frame, "IP", body]),
- ("CD", [new_frame, "prev", task_frame]),
- ("CD", [task_frame, "phase", prev_phase]),
- ("CD", [task_frame, "IP", param_value]),
- ("CD", [prev_evalstack, "prev", evalstack]),
- ("CD", [evalstack, "inst", inst]),
- ("CD", [task_frame, "evalstack", prev_evalstack]),
- ("DE", [evalstack_link]),
- ("DE", [ip_link]),
- ("DE", [phase_link]),
- ]
- if next_param is not None:
- _ = yield [("CD", [evalstack, "phase", next_param])]
- else:
- evalstack_phase, = \
- yield [("CNV", ["call"])]
- _ = yield [("CD", [evalstack, "phase", evalstack_phase])]
- else:
- frame_link, phase_link, newer_frames, invoking_frames = \
- yield [("RDE", [task_root, "frame"]),
- ("RDE", [task_frame, "phase"]),
- ("RRD", [task_frame, "prev"]),
- ("RRD", [inst, "caller"]),
- ]
- new_frame = self.find_overlapping(newer_frames, invoking_frames)
- ip_link, evalstack, evalstack_link, new_symbols, new_IP = \
- yield [("RDE", [task_frame, "IP"]),
- ("RD", [task_frame, "evalstack"]),
- ("RDE", [task_frame, "evalstack"]),
- ("RD", [new_frame, "symbols"]),
- ("RD", [new_frame, "IP"]),
- ]
- signature, = yield [("RRD", [new_IP, "body"])]
- signature = signature[0]
- sig_params, = yield [("RD", [signature, "params"])]
- if last_param == phase:
- prev_param, = \
- yield [("RRD", [last_param, "next_param"])]
- prev_param = prev_param[0]
- name, = yield [("RD", [prev_param, "name"])]
- name_value, = \
- yield [("RV", [name])]
- evalstack_phase, = \
- yield [("CNV", ["call"])]
- _ = yield [("CD", [evalstack, "phase", evalstack_phase])]
- formal_parameter, param_value = \
- yield [("RD", [sig_params, name_value]),
- ("RD", [last_param, "value"]),
- ]
- else:
- param_b, = yield [("RD", [task_frame, "phase"])]
- param_c, param_a = \
- yield [("RD", [param_b, "next_param"]),
- ("RRD", [param_b, "next_param"]),
- ]
- param_a = param_a[0]
- name, param_value = \
- yield [("RD", [param_a, "name"]),
- ("RD", [param_b, "value"]),
- ]
- name_value, = \
- yield [("RV", [name])]
- formal_parameter, _ = \
- yield [("RD", [sig_params, name_value]),
- ("CD", [evalstack, "phase", param_c]),
- ]
- new_phase, new_evalstack, variable, returnvalue = \
- yield [("CNV", ["init"]),
- ("CN", []),
- ("CN", []),
- ("RD", [task_frame, "returnvalue"]),
- ]
- _, _, _, _, _, _ = \
- yield [("CD", [task_frame, "evalstack", new_evalstack]),
- ("CD", [new_evalstack, "prev", evalstack]),
- ("CD", [evalstack, "inst", inst]),
- ("CD", [task_frame, "phase", new_phase]),
- ("CD", [task_frame, "IP", param_value]),
- ("CD", [variable, "value", returnvalue]),
- ]
- t1, = yield [("CE", [new_symbols, variable])]
- _, _, _, _ = \
- yield [("CE", [t1, formal_parameter]),
- ("DE", [phase_link]),
- ("DE", [ip_link]),
- ("DE", [evalstack_link]),
- ]
- def input_init(self, task_root):
- task_frame, = yield [("RD", [task_root, "frame"])]
- returnvalue_link, _input = \
- yield [("RDE", [task_frame, "returnvalue"]),
- ("RD", [task_root, "input"]),
- ]
- value, next, phase_link = \
- yield [("RD", [_input, "value"]),
- ("RD", [_input, "next"]),
- ("RDE", [task_frame, "phase"]),
- ]
- if value is not None:
- v = yield [("RV", [value])]
- _, _, finish = \
- yield [("CD", [task_frame, "returnvalue", value]),
- ("CD", [task_root, "input", next]),
- ("CNV", ["finish"]),
- ]
- _, _, _, _ = \
- yield [("CD", [task_frame, "phase", finish]),
- ("DN", [_input]),
- ("DE", [returnvalue_link]),
- ("DE", [phase_link]),
- ]
- self.input_value = value
- else:
- # No input yet, so just wait and don't advance IP or phase
- self.input_value = None
- ex = primitive_functions.SleepKernel(0.1, True)
- raise ex
- def output_init(self, task_root):
- task_frame, = yield [("RD", [task_root, "frame"])]
- evalstack, evalstack_link, ip_link, inst = \
- yield [("RD", [task_frame, "evalstack"]),
- ("RDE", [task_frame, "evalstack"]),
- ("RDE", [task_frame, "IP"]),
- ("RD", [task_frame, "IP"]),
- ]
- value, new_evalstack, evalstack_phase = \
- yield [("RD", [inst, "value"]),
- ("CN", []),
- ("CNV", ["output"]),
- ]
- _, _, _, _, _, _, _ = \
- yield [("CD", [task_frame, "evalstack", new_evalstack]),
- ("CD", [new_evalstack, "prev", evalstack]),
- ("CD", [evalstack, "inst", inst]),
- ("CD", [evalstack, "phase", evalstack_phase]),
- ("CD", [task_frame, "IP", value]),
- ("DE", [evalstack_link]),
- ("DE", [ip_link]),
- ]
- def output_output(self, task_root):
- task_frame, = yield [("RD", [task_root, "frame"])]
- returnvalue_link, returnvalue, last_output, phase_link, last_output_link, new_last_output, finish = \
- yield [("RDE", [task_frame, "returnvalue"]),
- ("RD", [task_frame, "returnvalue"]),
- ("RD", [task_root, "last_output"]),
- ("RDE", [task_frame, "phase"]),
- ("RDE", [task_root, "last_output"]),
- ("CN", []),
- ("CNV", ["finish"]),
- ]
- _, _, _, _, _, _ = \
- yield [("CD", [last_output, "value", returnvalue]),
- ("CD", [last_output, "next", new_last_output]),
- ("CD", [task_root, "last_output", new_last_output]),
- ("CD", [task_frame, "phase", finish]),
- ("DE", [last_output_link]),
- ("DE", [phase_link]),
- ]
- def declare_init(self, task_root):
- task_frame, = yield [("RD", [task_root, "frame"])]
- inst, = yield [("RD", [task_frame, "IP"])]
- new_var, symbols, phase_link, empty_node, new_phase = \
- yield [("RD", [inst, "var"]),
- ("RD", [task_frame, "symbols"]),
- ("RDE", [task_frame, "phase"]),
- ("CN", []),
- ("CNV", ["finish"]),
- ]
- exists, = yield [("RDN", [symbols, new_var])]
- if exists is None:
- new_edge, = yield [("CE", [symbols, empty_node])]
- _ = yield [("CE", [new_edge, new_var])]
- _, _ = yield [("CD", [task_frame, "phase", new_phase]),
- ("DE", [phase_link]),
- ]
- def global_init(self, task_root):
- task_frame, = yield [("RD", [task_root, "frame"])]
- inst, = yield [("RD", [task_frame, "IP"])]
- new_var, global_symbols, phase_link, empty_node, new_phase = \
- yield [("RD", [inst, "var"]),
- ("RD", [task_root, "globals"]),
- ("RDE", [task_frame, "phase"]),
- ("CN", []),
- ("CNV", ["finish"]),
- ]
- value, = yield [("RV", [new_var])]
- exists, = yield [("RDE", [global_symbols, value])]
- if exists is not None:
- yield [("DE", [exists])]
-
- yield [("CD", [global_symbols, value, empty_node])]
- _, _ = yield [("CD", [task_frame, "phase", new_phase]),
- ("DE", [phase_link])
- ]
|