Changeset 2945 for src/pge

Timestamp:

05/10/05 21:35:00 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4498

Message:

* external parrot should be able to play with subrules too

Location:

src/pge

Files:

• run_pge.imc (modified) (1 diff)
• run_pge.pbc (modified) (previous)

src/pge/run_pge.imc

@@ -1 +1 @@
 .sub _main
+    .local int spi, spc
+    .local pmc args, match, add_rule
     .include "iglobals.pasm"
-    getinterp $P0
-    set $P0, $P0[.IGLOBALS_ARGV_LIST]
-    $S1 = $P0[1]
-    $S2 = $P0[2]
     load_bytecode "PGE-Hs.pbc"
-    $P0 = find_global "PGE::Hs", "match"
-    $S0 = $P0($S1, $S2)
+
+    getinterp args
+    set args, args[.IGLOBALS_ARGV_LIST]
+    spi = 3
+    spc = elements args
+    add_rule = find_global "PGE::Hs", "add_rule"
+
+  subrules:
+    unless spi < spc goto do_match
+    $S1 = args[spi]
+    inc spi
+    $S2 = args[spi]
+    inc spi
+    add_rule($S1, $S2)
+  do_match:
+    match = find_global "PGE::Hs", "match"
+    $S1 = args[1]
+    $S2 = args[2]
+    $S0 = match($S1, $S2)
     print $S0
 .end