Added IO::Stat, and a .stat method for IO

Signed-off-by: Moritz Lenz <moritz@faui2k3.org>

build/Makefile.in

@@ -214,6 +214,7 @@ CORE_SOURCES = \
   src/core/IO/ArgFiles.pm \
   src/core/IO/Socket.pm \
   src/core/IO/Socket/INET.pm \
+  src/core/IO/Stat.pm \
   src/core/Parameter.pm \
   src/core/Signature.pm \
   src/core/Block.pm \

src/core/IO.pm

@@ -4,6 +4,7 @@ class IO is Cool {
     has $.autoflush is rw;
 
     has $.path;
+    has $.stat = ::IO::Stat.new(path => $.path);
 
     multi method close() is export {
         try {
@@ -140,17 +141,17 @@ class IO is Cool {
 
     # file test operations
     multi method d() {
-        self.e ?? ?pir::stat__ISI($.path, 2) !! Bool;
+        self.e ?? $.stat.isdir !! Bool;
     }
     multi method e() {
-        ?pir::stat__ISI($.path, 0);
+        $.stat.exists;
     }
     multi method f() {
-        self.e ?? !pir::stat__ISI($.path, 2) !! Bool;
+        self.e ?? !$.stat.isdir !! Bool;
     }
 
     multi method s() {
-        self.e ?? pir::stat__ISI($.path, 1) !! Any;
+        self.e ?? $.stat.size !! Any;
     }
 
     multi method l() {

src/core/IO/Stat.pm

@@ -0,0 +1,49 @@
+class IO::Stat {
+    has $.path;
+
+    method exists {
+        ?pir::stat__isi($.path, 0);
+    }
+
+    method size {
+        pir::stat__isi($.path, 1);
+    }
+
+    method isdir {
+        ?pir::stat__isi($.path, 2);
+    }
+
+    method isdev {
+        ?pir::stat__isi($.path, 3);
+    }
+
+    method createtime {
+        pir::stat__isi($.path, 4);
+    }
+
+    method accesstime {
+        pir::stat__isi($.path, 5);
+    }
+
+    method modifytime {
+        pir::stat__isi($.path, 6);
+    }
+
+    method changetime {
+        pir::stat__isi($.path, 7);
+    }
+
+    method backuptime {
+        pir::stat__isi($.path, 8);
+    }
+
+    method uid {
+        pir::stat__isi($.path, 9);
+    }
+
+    method gid {
+        pir::stat__isi($.path, 10);
+    }
+}
+
+# vim: ft=perl6