develooper Front page | perl.cvs.parrot | Postings from November 2008

[svn:parrot] r32566 - branches/pdd22io/src/io

From:
allison
Date:
November 11, 2008 14:19
Subject:
[svn:parrot] r32566 - branches/pdd22io/src/io
Message ID:
20081111221951.BE907CB9AF@x12.develooper.com
Author: allison
Date: Tue Nov 11 14:19:50 2008
New Revision: 32566

Modified:
   branches/pdd22io/src/io/api.c

Log:
[pdd22io] Fully switch to buffered I/O.


Modified: branches/pdd22io/src/io/api.c
==============================================================================
--- branches/pdd22io/src/io/api.c	(original)
+++ branches/pdd22io/src/io/api.c	Tue Nov 11 14:19:50 2008
@@ -247,7 +247,7 @@
     }
 
     res->bufused = len;
-    ignored      = PIO_READ(interp, pmc, &res);
+    ignored      = Parrot_io_read_buffer(interp, pmc, &res);
     UNUSED(ignored);
 
     return res;
@@ -275,7 +275,7 @@
 
     res->strstart = buffer;
     res->bufused = len;
-    return PIO_READ(interp, pmc, &res);
+    return Parrot_io_read_buffer(interp, pmc, &res);
 }
 
 /*
@@ -305,7 +305,7 @@
         fake.strlen = fake.bufused = len;
         fake.charset = Parrot_default_charset_ptr;
         fake.encoding = Parrot_default_encoding_ptr;
-        return PIO_WRITE(interp, pmc, &fake);
+        return Parrot_io_write_buffer(interp, pmc, &fake);
     }
     else
         return 0;
@@ -331,7 +331,7 @@
     if (Parrot_io_is_closed(interp, pmc))
         return -1;
 
-    return PIO_SEEK(interp, pmc, offset, w);
+    return Parrot_io_seek_buffer(interp, pmc, offset, w);
 }
 
 /*
@@ -374,7 +374,7 @@
     if (Parrot_io_is_closed(interp, pmc))
         return -1;
 
-    return PIO_PEEK(interp, pmc, buffer);
+    return Parrot_io_peek_buffer(interp, pmc, buffer);
 }
 
 /*



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About