Changeset 15 for trunk/thune/boot.c

Show
Ignore:
Timestamp:
02/02/06 00:26:50 (3 years ago)
Author:
krobillard
Message:

Thune - Added dup2, tuck, recurse, lt?.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • trunk/thune/boot.c

    r5 r15  
    22static char _bootScript[] = 
    33  "context! [\n" 
    4   "  opcode!  3 'drop   make :drop\n" 
    5   "  opcode!  4 'dup    make :dup\n" 
    6   "  opcode!  5 'over   make :over\n" 
    7   "  opcode!  6 'swap   make :swap\n" 
    8   "  opcode!  7 'nip    make :nip\n" 
    9   "  opcode!  8 'do     make :xx-do\n" 
    10   "  opcode!  9 'func   make :func\n" 
    11   "  opcode! 10 'iter   make :iter\n" 
    12   "  opcode! 11 'loop   make :loop\n" 
    13   "  opcode! 12 'return make :return\n" 
    14   "  opcode! 13 'throw  make :throw\n" 
    15   "  opcode! 14 'try    make :try\n" 
    16   "  opcode! 15 'ift    make :ift\n" 
    17   "  opcode! 16 'iff    make :iff\n" 
    18   "  opcode! 17 'halt   make :halt\n" 
    19   "  opcode! 18 'quit   make :quit\n" 
     4  "  opcode!  0 'nop     make :nop\n" 
     5  "  opcode!  3 'drop    make :drop\n" 
     6  "  opcode!  4 'dup     make :dup\n" 
     7  "  opcode!  5 'dup2    make :dup2\n" 
     8  "  opcode!  6 'over    make :over\n" 
     9  "  opcode!  7 'swap    make :swap\n" 
     10  "  opcode!  8 'nip     make :nip\n" 
     11  "  opcode!  9 'tuck    make :tuck\n" 
     12  "  opcode! 10 'do      make :xx-do\n" 
     13  "  opcode! 11 'func    make :func\n" 
     14  "  opcode! 12 'iter    make :iter\n" 
     15  "  opcode! 13 'recurse make :recurse\n" 
     16  "  opcode! 14 'loop    make :loop\n" 
     17  "  opcode! 15 'return  make :return\n" 
     18  "  opcode! 16 'throw   make :throw\n" 
     19  "  opcode! 17 'try     make :try\n" 
     20  "  opcode! 18 'ift     make :ift\n" 
     21  "  opcode! 19 'iff     make :iff\n" 
     22  "  opcode! 20 'halt    make :halt\n" 
     23  "  opcode! 21 'quit    make :quit\n" 
    2024  "] make :urlan-ops\n" 
    2125;