all repos — min @ 8f9bb0a462dae9300f337e0ead2bc6170a6b9825

A small but practical concatenative programming language.

lib/stack.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
import 
  ../core/types,
  ../core/parser, 
  ../core/interpreter, 
  ../core/utils

  # Common stack operations
  
define("stack")

  .symbol("id") do (i: In):
    discard
  
  .symbol("pop") do (i: In):
    discard i.pop
  
  .symbol("dup") do (i: In):
    i.push i.peek
  
  .symbol("dip") do (i: In):
    let q = i.pop
    if not q.isQuotation:
      i.error errNoQuotation
    let v = i.pop
    for item in q.qVal:
      i.push item
    i.push v
  
  .symbol("swap") do (i: In):
    let a = i.pop
    let b = i.pop
    i.push a
    i.push b
  
  .symbol("sip") do (i: In):
    let a = i.pop
    let b = i.pop
    if a.isQuotation and b.isQuotation:
      i.push b
      i.push a.qVal
      i.push b
    else:
      i.error(errIncorrect, "Two quotations are required on the stack")

  .finalize()