develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33701 - trunk/compilers/pct/src/PCT

From:
pmichaud
Date:
December 8, 2008 23:29
Subject:
[svn:parrot] r33701 - trunk/compilers/pct/src/PCT
Message ID:
20081209072909.661DDCB9AF@x12.develooper.com
Author: pmichaud
Date: Mon Dec  8 23:29:08 2008
New Revision: 33701

Modified:
   trunk/compilers/pct/src/PCT/HLLCompiler.pir

Log:
[pct]: workaround for missing interactive readline in FileHandle


Modified: trunk/compilers/pct/src/PCT/HLLCompiler.pir
==============================================================================
--- trunk/compilers/pct/src/PCT/HLLCompiler.pir	(original)
+++ trunk/compilers/pct/src/PCT/HLLCompiler.pir	Mon Dec  8 23:29:08 2008
@@ -533,7 +533,8 @@
     .local pmc stdin
     .local int has_readline
     stdin = getstdin
-    has_readline = stdin.'set_readline_interactive'(1)
+    has_readline = -1
+    # has_readline = stdin.'set_readline_interactive'(1)
     encoding = adverbs['encoding']
     if encoding == 'fixed_8' goto interactive_loop
     unless encoding goto interactive_loop
@@ -554,7 +555,7 @@
     if has_readline != -1 goto interactive_read
     printerr prompt
   interactive_read:
-    code = stdin.'readline'(prompt)
+    code = stdin.'readline'()
     if null code goto interactive_end
     unless code goto interactive_loop
     concat code, "\n"



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About