[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