sexp-template/src/core.js

const AST = require('./ast')
const OsloError = require('./osloError')

module.exports = {
  '+': (a, b) => new AST.Number({ value: a.value + b.value }),
  '-': (a, b) => new AST.Number({ value: a.value - b.value }),
  '*': (a, b) => new AST.Number({ value: a.value * b.value }),
  '/': (a, b) => new AST.Number({ value: a.value / b.value }),
  '=': (a, b) => new AST.Boolean({ value: a.value === b.value }),
  '>': (a, b) => new AST.Boolean({ value: a.value > b.value }),
  '<': (a, b) => new AST.Boolean({ value: a.value < b.value }),
  '>=': (a, b) => new AST.Boolean({ value: a.value >= b.value }),
  '<=': (a, b) => new AST.Boolean({ value: a.value <= b.value }),
  'list': (...args) => { return new AST.List({ elements: args }) },
  'length': xs => new AST.Number({ value: xs.elements.length }),
  'cons': (x, xs) => new AST.List({ elements: [x, ...xs.elements] }),
  'head': xs => xs.elements[0],
  'tail': xs => new AST.List({ elements: xs.elements.slice(1) }),
}