Added nqp::seekfh, nqp::readfh on parrot backend.

Raku · May 16, 2014 · d4c8ae3 · d4c8ae3
1 parent 0ea245b
commit d4c8ae3
Showing 1 changed file with 21 additions and 0 deletions.
diff --git a/src/vm/parrot/QAST/Operations.nqp b/src/vm/parrot/QAST/Operations.nqp
@@ -1660,6 +1660,15 @@ QAST::Operations.add_core_op('setencoding', -> $qastcomp, $op {
         $op[0], $op[1]
     ))
 });
+QAST::Operations.add_core_op('seekfh', -> $qastcomp, $op {
+    if +@($op) != 3 {
+        nqp::die('seekfh requires 3 operands');
+    }
+    $qastcomp.as_post(QAST::Op.new(
+        :op('callmethod'), :name('seek'),
+        $op[0], $op[2], $op[1]
+    ))
+});
 QAST::Operations.add_core_op('tellfh', -> $qastcomp, $op {
     if +$op.list != 1 {
         nqp::die("The 'tellfh' op expects one operand");
@@ -1747,6 +1756,18 @@ QAST::Operations.add_core_op('closefh', -> $qastcomp, $op {
         $op[0]
     ))
 });
+QAST::Operations.add_core_op('readfh', -> $qastcomp, $op {
+    if +@($op) != 3 {
+        nqp::die('readfh requires 3 operands');
+    }
+    $qastcomp.as_post(QAST::VM.new(:pirop('nqp_encode__PssP'),
+        QAST::Op.new(:op('callmethod'), :name('get_string'), :returns(str),
+            QAST::Op.new(:op('callmethod'), :name('read_bytes'), $op[0], $op[2]),
+            QAST::SVal.new(:value('binary')) ),
+        QAST::SVal.new(:value('binary')),
+        $op[1]
+    ))
+});
 
 QAST::Operations.add_core_op('chmod', -> $qastcomp, $op {
     if +$op.list != 2 {