src/forth.jl

   1 module forth
   2
   3 RS = Array{Int64, 1}()
   4 DS = Array{Int64, 1}()
   5
   6 primitives = Array{Expr,1}()
   7 memory = Array{Int,1}()
   8 headers = Array{Tuple{AbstractString, Int},1}
   9
  10 function addPrim(name::AbstractString, expr::Expr)
  11     push!(primitives, expr)
  12     push!(memory, -length(primitives))
  13     push!(headers, length(memory))
  14 end
  15
  16 addPrim("docol", :(begin
  17
  18 end))
  19
  20 end