Ticket #680: setstdin.patch

src/ops/ops.num

@@ -1270 +1270 @@
 find_name_p_sc                 1246
 find_sub_not_null_p_s          1247
 find_sub_not_null_p_sc         1248
+setstdin_p                     1249

src/ops/io.ops

@@ -46 +46 @@
 
 =item B<fdopen>(out PMC, in INT, in STR)
 
-Create ParrotIO object in $1 as a copy of file descriptor $2.
+Create FileHandle object in $1 as a copy of file descriptor $2.
 
 RT#42373: integral file descriptors might not exist outside of the UNIX
      platform.  This op needs work.
@@ -61 +61 @@
 
 =item B<getstdin>(out PMC)
 
-Create a new ParrotIO object for the stdin file descriptor and
+Create a new FileHandle object for the stdin file descriptor and
 store it in $1
 
 =item B<getstdout>(out PMC)
 
-Create a new ParrotIO object for the stdout file descriptor and
+Create a new FileHandle object for the stdout file descriptor and
 store it in $1
 
 =item B<getstderr>(out PMC)
 
-Create a new ParrotIO object for the stderr file descriptor and
+Create a new FileHandle object for the stderr file descriptor and
 store it in $1
 
 =cut
@@ -90 +90 @@
 
 #########################################
 
+=item B<setstdin>(invar PMC)
+
+Sets the standard input for a bare C<read> op to go to the supplied FileHandle
+PMC.  Call C<getstdin> first if you care about retaining the previous PMC.
+
 =item B<setstdout>(invar PMC)
 
-Sets the standard output for a bare C<print> op to go to the supplied ParrotIO
+Sets the standard output for a bare C<print> op to go to the supplied FileHandle
 PMC.  Call C<getstdout> first if you care about retaining the previous PMC.
 
 =item B<setstderr>(invar PMC)
 
 Sets the standard error for a bare C<printerr> op to go to the supplied
-ParrotIO PMC.  Call C<getstderr> first if you care about retaining the previous
+FileHandle PMC.  Call C<getstderr> first if you care about retaining the
+previous
 PMC.
 
 =cut
 
+inline op setstdin(invar PMC) :base_io {
+        _PIO_STDIN(interp) = $1;
+}
+
 inline op setstdout(invar PMC) :base_io {
         _PIO_STDOUT(interp) = $1;
 }

docs/book/ch10_opcode_reference.pod

@@ -846 +846 @@
 
   fdopen R<DEST>, R<INT>, R<MODE>
 
-Get a ParrotIO object for handle R<INT> with open mode R<MODE>.
+Get a FileHandle object for handle R<INT> with open mode R<MODE>.
 
 I<Arguments: P, I, S>
 
@@ -1124 +1124 @@
   getstdin R<DEST>
   getstdout R<DEST>
 
-Get a ParrotIO object for the given standard handle.
+Get a FileHandle object for the given standard handle.
 
 I<Arguments: P>
 
@@ -1787 +1787 @@
   peek R<DEST>
   peek R<DEST>, R<PIO>
 
-Read the next byte from the given ParrotIO object or from C<stdin> but
+Read the next byte from the given FileHandle object or from C<stdin> but
 don't remove it.
 
 I<Arguments: SR or SR, P>
@@ -2235 +2235 @@
 
 X<setstderr opcode (PASM)>
 X<setstdout opcode (PASM)>
+X<setstdin  opcode (PASM)>
 
   setstderr R<DEST>
   setstdout R<DEST>
+  setstdin  R<DEST>
 
-Set a ParrotIO object for the given standard handle.
+Set a FileHandle object for the given standard handle.
 
 I<Arguments: P>
 
@@ -2714 +2716 @@
   tell R<DEST>, R<PIO>
   tell R<UPPER32>, R<LOWER32>, R<PIO>
 
-Return the file position of the given ParrotIO object.
+Return the file position of the given FileHandle object.
 
 I<Arguments: IR, P or IR, I, P>