iframe-proxy | Sunbelt Computer Software

72 lines (67 loc) · 2.29 KB

from ast import *
from interp_Ldyn import Tagged
from interp_Llambda import ClosureTuple
from interp_Clambda import InterpClambda
from utils import *
class InterpCany(InterpClambda):
  # hook to be overridden
  def interp_getitem(self, aggregate, index):
      return aggregate[index]
  # hook to be overridden
  def interp_setitem(self, aggregate, index, value):
      aggregate[index] = value
  # hook to be overridden    
  def interp_len(self, aggregate):
      return len(aggregate)
  def interp_exp(self, e, env):
    match e:
      case Call(Name('make_any'), [value, tag]):
        v = self.interp_exp(value, env)
        t = self.interp_exp(tag, env)
        return Tagged(v, t)
      case Call(Name('exit'), []):
        trace('exiting!')
        exit(0)
      case TagOf(value):
        v = self.interp_exp(value, env)
        match v:
          case Tagged(val, tag):
            return tag
          case _:
            raise Exception('interp TagOf unexpected ' + repr(v))
      case ValueOf(value, typ):
        v = self.interp_exp(value, env)
        match v:
          case Tagged(val, tag):
            return val
          case _:
            raise Exception('interp ValueOf unexpected ' + repr(v))
      case Call(Name(atl), [tup, index]) \
          if atl == 'any_load' or atl == 'any_load_unsafe':
        tv = self.interp_exp(tup, env)
        n = self.interp_exp(index, env)
        match tv:
          case Tagged(v, tag):
            return self.interp_getitem(v, n)
          case _:
            raise Exception('interp any_load unexpected ' + repr(tv))
      case Call(Name(ats), [tup, index, value]) \
        if ats == 'any_store' or ats == 'any_store_unsafe':
        tv = self.interp_exp(tup, env)
        n = self.interp_exp(index, env)
        val = self.interp_exp(value, env)
        match tv:
          case Tagged(v, tag):
            self.interp_setitem(v, n, val)
            return None
          case _:
            raise Exception('interp any_store unexpected ' + repr(tv))
      case Call(Name('any_len'), [value]):
        v = self.interp_exp(value, env)
        match v:
          case Tagged(value, tag):
            return self.interp_len(value)
          case _:
            raise Exception('interp any_len unexpected ' + repr(v))
      case _:
        return super().interp_exp(e, env)

Sunbelt Computer Software

PL/B Language Development and Support

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Uh oh!

Sunbelt Computer Software

PL/B Language Development and Support

Uh oh!

FilesExpand file tree

interp_Cany.py

Latest commit

History

interp_Cany.py

File metadata and controls