all repos — min @ b04b3cac317767d0b20cbc8cf1195bacdbba5d3c

A small but practical concatenative programming language.

primitives.nim

 1
 2
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 
import tables, strutils
import interpreter, utils

minsym "dup", ["any"]:
  STACK.add STACK.peek

minsym "pop", ["any"]:
  discard STACK.pop

minsym "swap", ["any", "any"]:
  let a = STACK.pop
  let b = STACK.pop
  STACK.add a
  STACK.add b

minsym "quote", ["any"]:
  let a = STACK.pop
  STACK.add TMinValue(kind: minQuotation, qVal: @[a])

minsym "i", []:
  discard

minsym "print", ["any"]:
  let a = STACK.peek
  printMinValue a
  echo ""

minsym "def", ["quotation", "any"]:
  var q = STACK.pop
  var v = STACK.pop
  if q.qVal.len != 1 or q.qVal[0].kind != minSymbol:
    q.valueError("def: Definition quotation not found on the stack.")
  if v.qVal.len != 1 or q.qVal[0].kind != minSymbol:
    v.valueError("def: Value quotation not found on the stack.")
  let defname = q.qVal[0].symVal
  let value = v.qVal[0]
  case value.kind:
    of minSymbol:
      if SYMBOLS.hasKey value.symVal:
        SYMBOLS[defname] = SYMBOLS[value.symVal] 
      else:
        value.valueError("Undefined symbol: '"&value.symVal&"'")
    else:
      SYMBOLS[defname] = proc(v: TMinValue) = STACK.add value

minalias ":", "def"
minalias "bind", "def"