Sorter buckets now use the parametrized fastbuf interface, too.

[libucw.git] / lib / perl / Ulimit / Ulimit.xs

diff --git a/lib/perl/Ulimit/Ulimit.xs b/lib/perl/Ulimit/Ulimit.xs
index 94ac8573d0bac55fae13bafd576e350f33755cee..5d6a368d1d1ee6cde696371f42cf38dae69d9029 100644 (file)
--- a/lib/perl/Ulimit/Ulimit.xs
+++ b/lib/perl/Ulimit/Ulimit.xs
@@ -1,3 +1,9 @@
+/*
+ * PerlXS module for managing process limits
+ *
+ * (c) 2003 Tomas Valla <tom@ucw.cz>
+ */
+
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
@@ -6,15 +12,12 @@
 #include <unistd.h>
 
 
-MODULE = Sherlock::Ulimit              PACKAGE = Sherlock::Ulimit              
+MODULE = Sherlock::Ulimit              PACKAGE = Sherlock::Ulimit
 
 PROTOTYPES: ENABLED
 
 int
-setlimit(IN resource, IN soft, IN hard)
-       int resource
-       int soft
-       int hard
+setlimit(IN int resource, IN int soft, IN int hard)
 CODE:
        struct rlimit rl;
        int r;
@@ -49,10 +52,7 @@ OUTPUT:
 
 
 int
-getlimit(IN resource, OUT soft, OUT hard)
-       int resource
-       int soft
-       int hard
+getlimit(IN int resource, OUT int soft, OUT int hard)
 CODE:
        struct rlimit rl;
        int r;
@@ -85,5 +85,3 @@ CODE:
        hard = rl.rlim_max;
 OUTPUT:
        RETVAL
-
-