[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