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

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

From:
pmichaud
Date:
December 9, 2008 14:55
Subject:
[svn:parrot] r33731 - trunk/compilers/pct/src/PCT
Message ID:
20081209225438.C93BACB9AF@x12.develooper.com
Author: pmichaud
Date: Tue Dec  9 14:54:38 2008
New Revision: 33731

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

Log:
[pct]:  Give hll compilers an interactive readline again.  (allison++)


Modified: trunk/compilers/pct/src/PCT/HLLCompiler.pir
==============================================================================
--- trunk/compilers/pct/src/PCT/HLLCompiler.pir	(original)
+++ trunk/compilers/pct/src/PCT/HLLCompiler.pir	Tue Dec  9 14:54:38 2008
@@ -533,8 +533,6 @@
     .local pmc stdin
     .local int has_readline
     stdin = getstdin
-    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
@@ -552,10 +550,8 @@
   have_prompt:
 
     ##  display a prompt ourselves if readline isn't present
-    if has_readline != -1 goto interactive_read
-    printerr prompt
   interactive_read:
-    code = stdin.'readline'()
+    code = stdin.'readline_interactive'(prompt)
     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