Break reading of lines out into a helper method

Raku · Apr 21, 2015 · 6a06631 · 6a06631
1 parent 9158824
commit 6a06631
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/src/HLL/Compiler.nqp b/src/HLL/Compiler.nqp
@@ -51,10 +51,16 @@ class HLL::Compiler does HLL::Backend::Default {
             unless nqp::tellfh(nqp::getstdout()) > $*AUTOPRINTPOS;
     }
 
+    method readline($stdin, $stdout, $prompt) {
+        nqp::printfh(nqp::getstdout(), $prompt);
+        return nqp::readlinefh($stdin);
+    }
+
     method interactive(*%adverbs) {
         nqp::printfh(nqp::getstderr(), self.interactive_banner);
 
         my $stdin    := nqp::getstdin();
+        my $stdout   := nqp::getstdout();
         my $encoding := ~%adverbs<encoding>;
         if $encoding && $encoding ne 'fixed_8' {
             nqp::setencoding($stdin, $encoding);
@@ -67,8 +73,7 @@ class HLL::Compiler does HLL::Backend::Default {
         while 1 {
             last if nqp::eoffh($stdin);
 
-            nqp::printfh(nqp::getstdout(), ~$prompt);
-            my str $newcode := nqp::readlinefh($stdin);
+            my str $newcode := self.readline($stdin, $stdout, ~$prompt);
             if nqp::isnull_s($newcode) || !nqp::defined($newcode) {
                 nqp::print("\n");
                 last;