develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35894 - trunk/examples/pir

From:
julianalbo
Date:
January 22, 2009 09:55
Subject:
[svn:parrot] r35894 - trunk/examples/pir
Message ID:
20090122175516.DBD3FCB9AE@x12.develooper.com
Author: julianalbo
Date: Thu Jan 22 09:55:16 2009
New Revision: 35894

Modified:
   trunk/examples/pir/pirric.pir

Log:
pirric: use readline_interactive

Modified: trunk/examples/pir/pirric.pir
==============================================================================
--- trunk/examples/pir/pirric.pir	(original)
+++ trunk/examples/pir/pirric.pir	Thu Jan 22 09:55:16 2009
@@ -309,10 +309,16 @@
 #-----------------------------------------------------------------------
 .sub readlinebas
     .param pmc file
+    .param int interactive :optional
 
     .local string line
 
+    if interactive goto read_inter
     line = readline file
+    goto read_done
+read_inter:
+    line = file.'readline_interactive'()
+read_done:
 
     $I1 = length line
 checkline:
@@ -1457,7 +1463,7 @@
 
     say 'Ready'
 reinit:
-    line = readlinebas(stdin)
+    line = readlinebas(stdin, 1)
 
     .local pmc tokenizer
     .local pmc token



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