bfc/libjs/stdlib.js

const global_obj = {}
const function_defs = {}
const warnings = {}
const builtins = {
  assign: function (ref, value) {
    if (!ref.name) {
      console.error('Argument 1 of assign must always be a VariableReference')
      process.exit(1)
    }
    global_obj[ref.name] = value.value
  },
  log: function (ref) {
    console.log(ref.value)
  },
  ref: function (refname) {
    return {
      name: refname,
      value: global_obj[refname]
    }
  },
  def: function (prop, body) {
    let methods = Object.keys(function_defs)
    if (methods.includes(prop.name)) {
      console.warn("Warning! Redefining function, did you mean to do this?")
    }
    function_defs[prop.name] = body;
  },
  repeat: function (amount, body) {
    for (let i = 0 ; i < amount.value; i++) {
        body.bind(_)() 
    }
  },
  eQ: function (arg1, arg2) {
    return {
      value: arg1.value === arg2.value
    }
  },
  eq: function (arg1, arg2) {
    return {
      value: arg1.value == arg2.value
    }
  },
  if: function (pred, body_true, body_false) {
    if (pred.value) {
      body_true.bind(_)()
    } else {
      if (body_false) {
        body_false.bind(_)()
      }
    }
  },
  and: function (pred1, pred2) {
    return pred1 && pred2
  },
  or: function (pred1, pred2) { 
    return pred1 || pred2
  },
  neg: function (pred) {
    return !pred
  },
}


const my_handler = {
  get: function (target, prop) {
    let methods = Object.keys(builtins)
    if (methods.includes(prop)) {
      return builtins[prop]
    } else {
      methods = Object.keys(function_defs)
      if (methods.includes(prop)) {
        return function_defs[prop]
      } else {
        console.error("Undefined function call! No such function: ", prop)
      }
    }
  }, 
  set: function (target, prop, data) {
    if (prop === 'w') data.map((w) => warnings.w = true)
    else console.error("Attempting to set unknown property on interpreter! How did you do that?")
  }
}

const proxy_obj = new Proxy({}, my_handler)
let _

module.exports = function (self) {
  _ = self
  return proxy_obj
}