Create ProtocolFamily/SocketType/ProtocolType enums

rakudo · Jan 12, 2015 · 70f9ad5 · 70f9ad5
1 parent dafbcd7
commit 70f9ad5
Showing 1 changed file with 25 additions and 1 deletion.
diff --git a/src/core/PIO.pm b/src/core/PIO.pm
@@ -1,4 +1,28 @@
-enum SeekType (:SeekFromBeginning(0), :SeekFromCurrent(1), :SeekFromEnd(2));
+enum SeekType (
+  :SeekFromBeginning(0),
+  :SeekFromCurrent(1),
+  :SeekFromEnd(2),
+);
+enum ProtocolFamily (
+  :PF_LOCAL(0),
+  :PF_UNIX(1),
+  :PF_INET(2),
+  :PF_INET6(3),
+  :PF_MAX(4),
+);
+enum SocketType (
+  :SOCK_PACKET(0),
+  :SOCK_STREAM(1),
+  :SOCK_DGRAM(2),
+  :SOCK_RAW(3),
+  :SOCK_RDM(4),
+  :SOCK_SEQPACKET(5),
+  :SOCK_MAX(6),
+);
+enum ProtocolType (
+  :PROTO_TCP(6),
+  :PROTO_UDP(17),
+);
 
 my role PIO {
     has $!PIO;