[svn:parrot] r47326 - in trunk/examples/languages/squaak: . src/builtins

fperrad at svn.parrot.org fperrad at svn.parrot.org
Thu Jun 3 08:45:54 UTC 2010


Author: fperrad
Date: Thu Jun  3 08:45:54 2010
New Revision: 47326
URL: https://trac.parrot.org/parrot/changeset/47326

Log:
[squaak] refactor without dynops IO

Modified:
   trunk/examples/languages/squaak/squaak.pir
   trunk/examples/languages/squaak/src/builtins/say.pir

Modified: trunk/examples/languages/squaak/squaak.pir
==============================================================================
--- trunk/examples/languages/squaak/squaak.pir	Thu Jun  3 08:39:08 2010	(r47325)
+++ trunk/examples/languages/squaak/squaak.pir	Thu Jun  3 08:45:54 2010	(r47326)
@@ -26,8 +26,6 @@
 
 .namespace [ 'Squaak';'Compiler' ]
 
-.loadlib 'io_ops'
-
 .sub 'onload' :anon :load :init
     load_bytecode 'PCT.pbc'
 

Modified: trunk/examples/languages/squaak/src/builtins/say.pir
==============================================================================
--- trunk/examples/languages/squaak/src/builtins/say.pir	Thu Jun  3 08:39:08 2010	(r47325)
+++ trunk/examples/languages/squaak/src/builtins/say.pir	Thu Jun  3 08:45:54 2010	(r47326)
@@ -24,9 +24,13 @@
     .return ()
 .end
 
+.include 'stdio.pasm'
+
 .sub 'read'
-    $P0 = getstdin
-    $S0 = readline $P0
+    .local pmc stdin
+    $P0 = getinterp
+    stdin = $P0.'stdhandle'(.PIO_STDIN_FILENO)
+    $S0 = stdin.'readline'()
     .return ($S0)
 .end
 


More information about the parrot-commits mailing list