[svn:parrot] r39203 - branches/io_rewiring/src/pmc

[whiteknight at svn.parrot.org]

Author: whiteknight
Date: Wed May 27 23:01:29 2009
New Revision: 39203
URL: https://trac.parrot.org/parrot/changeset/39203

Log:
[io_rewiring] socket now does socket

Modified:
   branches/io_rewiring/src/pmc/socket.pmc

Modified: branches/io_rewiring/src/pmc/socket.pmc
==============================================================================
--- branches/io_rewiring/src/pmc/socket.pmc	Wed May 27 22:57:15 2009	(r39202)
+++ branches/io_rewiring/src/pmc/socket.pmc	Wed May 27 23:01:29 2009	(r39203)
@@ -68,6 +68,21 @@
 
 /*
 
+=item C<INTVAL does(STRING * role)>
+
+=cut
+
+*/
+
+    VTABLE INTVAL does(STRING * role) {
+        Parrot_Socket_attributes * const attrs = PARROT_SOCKET(SELF);
+        if (Parrot_str_equal(interp, role, CONST_STRING(interp, "socket")))
+            return 1;
+        return SUPER(role);
+    }
+
+/*
+
 =item C<void mark()>
 
 Mark active filehandle data as live.