[svn:parrot] r40050 - branches/ops_pct/compilers/opsc

bacek at svn.parrot.org bacek at svn.parrot.org
Mon Jul 13 12:14:32 UTC 2009


Author: bacek
Date: Mon Jul 13 12:14:32 2009
New Revision: 40050
URL: https://trac.parrot.org/parrot/changeset/40050

Log:
[opsc] Add slurp to builtins

Modified:
   branches/ops_pct/compilers/opsc/builtins.pir

Modified: branches/ops_pct/compilers/opsc/builtins.pir
==============================================================================
--- branches/ops_pct/compilers/opsc/builtins.pir	Mon Jul 13 12:14:01 2009	(r40049)
+++ branches/ops_pct/compilers/opsc/builtins.pir	Mon Jul 13 12:14:32 2009	(r40050)
@@ -100,6 +100,15 @@
     die why
 .end
 
+.sub 'slurp'
+    .param string file
+    .local pmc pio
+    pio  = open file
+    $S0  = pio.'readall'()
+    close pio
+    .return ($S0)
+.end
+
 
 # Local Variables:
 #   mode: pir


More information about the parrot-commits mailing list