Hmm.. patch didn't make it.
On Fri, 2002-05-24 at 08:51, Tony Payne wrote:
> # New Ticket Created by Tony Payne
> # Please include the string: [netlabs #620]
> # in the subject line of all future correspondence about this issue.
> # <URL: http://bugs6.perl.org/rt2/Ticket/Display.html?id=620 >
>
>
>
> Here's a patch to add fdopen to io.ops. It's my first parrot patch, so
> I decided to start tiny. Please let me know if this is
> appropriate/acceptable.
>
> Thanks,
>
> ++t
>
>
>
Index: io.ops
===================================================================
RCS file: /cvs/public/parrot/io.ops,v
retrieving revision 1.8
diff -r1.8 io.ops
42a43,63
> ########################################
>
> =item B<fdopen>(out PMC, in INT, in STR)
>
> Create ParrotIO object as $1 as a copy of file descriptor $2.
>
> =cut
>
> inline op fdopen(out PMC, in INT, in STR) {
> ParrotIO * io;
> int fd;
> char *mode;
>
> io = PIO_fdopen(interpreter, fd, mode);
> if(!io) {
> /* FIXME: Handle error */
> }
> $1 = new_io_pmc(interpreter, io);
> goto NEXT();
> }
>
