Add a few additional builtins

tene · Dec 24, 2009 · cd124c2 · cd124c2
1 parent 013fd67
commit cd124c2
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 0 deletions.
diff --git a/setup.pir b/setup.pir
@@ -83,6 +83,7 @@ SOURCES
     .param pmc kv :slurpy :named
 
     $P1 = split "\n", <<'BUILTINS_PIR'
+steme/builtins/std.pir
 steme/builtins/say.pir
 steme/builtins/math.pir
 steme/builtins/cmp.pir

diff --git a/steme/builtins/std.pir b/steme/builtins/std.pir
@@ -0,0 +1,18 @@
+.sub list
+    .param pmc l :slurpy
+    .return (l)
+.end
+
+.sub dump
+    .param pmc a
+    .local pmc d
+    load_bytecode 'dumper.pbc'
+    d = get_root_global ['parrot'], '_dumper'
+    d(a)
+.end
+
+# Local Variables:
+#   mode: pir
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir: