set input line seperator because separately

Also, map the nqp::setinputlinesep op on parrot for convenience.

Author: FROGGS

src/HLL/Compiler.nqp

@@ -373,6 +373,9 @@ class HLL::Compiler does HLL::Backend::Default {
         my $result := $source;
         my $stderr := nqp::getstderr();
         my $stdin  := nqp::getstdin();
+#?if moar
+        nqp::setinputlinesep($stdin, "\n");
+#?endif
         my $stagestats := %adverbs<stagestats>;
         unless $from eq '' || self.exists_stage($from) {
             nqp::die("Unknown compilation input '$from'");

src/core/IO.nqp

@@ -11,6 +11,9 @@ Open file.
 sub open($filename, :$r, :$w, :$a, :$bin) {
     my $mode := $w ?? 'w' !! ($a ?? 'wa' !! 'r');
     my $handle := nqp::open($filename, $mode);
+#?if !parrot
+    nqp::setinputlinesep($handle, "\n") if $r;
+#?endif
     nqp::setencoding($handle, 'utf8') unless $bin;
     $handle;
 }

src/vm/parrot/QAST/Operations.nqp

@@ -1854,6 +1854,16 @@ QAST::Operations.add_core_op('closefh', -> $qastcomp, $op {
         $op[0]
     ))
 });
+QAST::Operations.add_core_op('setinputlinesep', -> $qastcomp, $op {
+    if +$op.list != 2 {
+        nqp::die("The 'setinputlinesep' op expects two operands");
+    }
+    $qastcomp.as_post(QAST::Op.new(
+        :op('callmethod'), :name('record_separator'),
+        $op[0],
+        $op[1]
+    ))
+});
 QAST::Operations.add_core_op('readfh', -> $qastcomp, $op {
     if +@($op) != 3 {
         nqp::die('readfh requires 3 operands');

t/nqp/19-file-ops.t

@@ -14,6 +14,7 @@ ok( nqp::stat('CREDITS', nqp::const::STAT_ISREG) == 1, 'nqp::stat is regular fil
 ok( nqp::stat('t', nqp::const::STAT_ISREG) == 0, 'nqp::stat not regular file');
 
 my $credits := nqp::open('CREDITS', 'r');
+nqp::setinputlinesep($credits, "\n");
 ok( $credits, 'nqp::open for read');
 ok( nqp::tellfh($credits) == 0, 'nqp::tellfh start of file');
 ok( !nqp::eoffh($credits), 'Not at EOF after open');