Changeset 152 for trunk/thune/boot.c

Timestamp:

05/14/06 02:10:45 (3 years ago)

Author:

krobillard

Message:

Thune -
'do now dispatches function!, call!, & code!
'as handles all word types.
'index? returns atom if TOS is a word.
Started implementing 'foreach.
true & false are now infused.
Fixed unitialized word.wordBlk and leak in ur_tokenize().

Files:

• trunk/thune/boot.c (modified) (3 diffs)

trunk/thune/boot.c

@@ -2 +2 @@
 static char _bootScript[] =
   "context! [\n"
+  "  logic! 1 make :true\n"
+  "  logic! 0 make :false\n"
   "  opcode!  0 'nop     make :nop\n"
   "  opcode!  3 'drop    make :drop\n"
@@ -29 +31 @@
   "  opcode! 27 'verify.2  make :verify.2\n"
   "  opcode! 28 'verify.3  make :verify.3\n"
+  "  opcode! 30 'foreach   make :foreach\n"
   "] make :urlan-ops\n"
 ;
 
 static char _envScript[] =
-  "logic! 1 make dup dup :true :yes :on\n"
-  "logic! 0 make dup dup :false :no :off\n"
+  "logic! 1 make dup :yes :on\n"
+  "logic! 0 make dup :no :off\n"
   "char! 10 make :eol\n"
   "[quit] proc :q\n"
@@ -42 +45 @@
   "[read to-block urlan-ops infuse] proc :load\n"
   "[select do] proc :case\n"
-  ";(block cond -- )\n"
   "[\n"
   "  dup do iff (drop drop return)\n"
   "  over do recurse\n"
   "]\n"
-  "proc :while\n"
+  "proc :while  ;(block cond -- )\n"
+  "[\n"
+  "  dup zero? ift (drop drop return)\n"
+  "  over do 1 sub recurse\n"
+  "]\n"
+  "proc :loop   ;(block count -- )\n"
   "[error! swap make throw] proc :error\n"
-  "; (env body -- proc)\n"
-  "[swap context bind proc] proc :proc.env\n"
-  "; (data rules -- pos)\n"
-  "[[some none] 2 poke parse] proc :parse.some\n"
+  "[swap context bind proc] proc :proc.env      ;(env body -- proc)\n"
+  "[[some none] 2 poke parse] proc :parse.some  ;(data rules -- pos)\n"
   "3.14159265358979323846 :pi\n"
   "[\n"