[svn:parrot] r47087 - in trunk: examples/languages/squaak examples/pir/befunge tools/dev

[fperrad at svn.parrot.org]

Author: fperrad
Date: Fri May 28 13:17:32 2010
New Revision: 47087
URL: https://trac.parrot.org/parrot/changeset/47087

Log:
[languages] fix after r47051 (merge ops_massacre)

Modified:
   trunk/examples/languages/squaak/squaak.pir
   trunk/examples/pir/befunge/befunge.pir
   trunk/tools/dev/mk_language_shell.pl

Modified: trunk/examples/languages/squaak/squaak.pir
==============================================================================
--- trunk/examples/languages/squaak/squaak.pir	Fri May 28 12:51:56 2010	(r47086)
+++ trunk/examples/languages/squaak/squaak.pir	Fri May 28 13:17:32 2010	(r47087)
@@ -26,6 +26,7 @@
 
 .namespace [ 'Squaak';'Compiler' ]
 
+.loadlib 'io_ops'
 .loadlib 'squaak_group'
 
 .sub 'onload' :anon :load :init

Modified: trunk/examples/pir/befunge/befunge.pir
==============================================================================
--- trunk/examples/pir/befunge/befunge.pir	Fri May 28 12:51:56 2010	(r47086)
+++ trunk/examples/pir/befunge/befunge.pir	Fri May 28 13:17:32 2010	(r47087)
@@ -1,6 +1,8 @@
 # Copyright (C) 2002-2009, Parrot Foundation.
 # $Id$
 
+.loadlib 'io_ops'
+
 .include "debug.pir"
 .include "flow.pir"
 .include "io.pir"

Modified: trunk/tools/dev/mk_language_shell.pl
==============================================================================
--- trunk/tools/dev/mk_language_shell.pl	Fri May 28 12:51:56 2010	(r47086)
+++ trunk/tools/dev/mk_language_shell.pl	Fri May 28 13:17:32 2010	(r47087)
@@ -210,10 +210,11 @@
     load_bytecode 'distutils.pbc'
 
     .local int reqsvn
-    $P0 = open 'PARROT_REVISION', 'r'
-    $S0 = readline $P0
+    $P0 = new 'FileHandle'
+    $P0.'open'('PARROT_REVISION', 'r')
+    $S0 = $P0.'readline'()
     reqsvn = $S0
-    close $P0
+    $P0.'close'()
 
     .local pmc config
     config = get_config()
@@ -227,7 +228,7 @@
     $S0 = $I0
     $S1 .= $S0
     $S1 .= ")\n"
-    printerr $S1
+    print $S1
     end
   L1: