Initial release

Author: lixmal

.gitignore

@@ -1,3 +1,5 @@
+# Perl
+
 /blib/
 /.build/
 _build/
@@ -18,3 +20,13 @@ nytprof.out
 *.o
 *.bs
 /_eumm/
+*.tar
+*.tar.gz
+*.tar.bz2
+.Inline/
+_Inline/
+*.c
+
+# vim
+*.sw[o-z]
+

.travis.yml

@@ -0,0 +1,12 @@
+language: 'perl'
+perl:
+    - '5.22'
+    - '5.18'
+    - '5.14'
+    - '5.12'
+    - '5.10'
+before_install:
+    - 'sudo apt-get update -qq'
+    - 'sudo apt-get install -qq libkeyutils-dev libkeyutils1'
+sudo: 'required'
+dist: 'trusty'

INLINE.h

@@ -0,0 +1,26 @@
+#define Inline_Stack_Vars dXSARGS
+#define Inline_Stack_Items items
+#define Inline_Stack_Item(x) ST(x)
+#define Inline_Stack_Reset sp = mark
+#define Inline_Stack_Push(x) XPUSHs(x)
+#define Inline_Stack_Done PUTBACK
+#define Inline_Stack_Return(x) XSRETURN(x)
+#define Inline_Stack_Void XSRETURN(0)
+
+#define INLINE_STACK_VARS Inline_Stack_Vars
+#define INLINE_STACK_ITEMS Inline_Stack_Items
+#define INLINE_STACK_ITEM(x) Inline_Stack_Item(x)
+#define INLINE_STACK_RESET Inline_Stack_Reset
+#define INLINE_STACK_PUSH(x) Inline_Stack_Push(x)
+#define INLINE_STACK_DONE Inline_Stack_Done
+#define INLINE_STACK_RETURN(x) Inline_Stack_Return(x)
+#define INLINE_STACK_VOID Inline_Stack_Void
+
+#define inline_stack_vars Inline_Stack_Vars
+#define inline_stack_items Inline_Stack_Items
+#define inline_stack_item(x) Inline_Stack_Item(x)
+#define inline_stack_reset Inline_Stack_Reset
+#define inline_stack_push(x) Inline_Stack_Push(x)
+#define inline_stack_done Inline_Stack_Done
+#define inline_stack_return(x) Inline_Stack_Return(x)
+#define inline_stack_void Inline_Stack_Void

INSTALL

@@ -0,0 +1,27 @@
+## Installation with cpanm
+
+> cpanm Kernel::Keyring
+
+If there's no permission to install modules to the system dirs, cpanm
+will automatically set up and install to a local::lib in the home directory.
+See the local::lib documentation (https://metacpan.org/pod/local::lib).
+
+## Installing with the CPAN shell
+
+> cpan Kernel::Keyring
+
+## Manual installation
+
+> perl Makefile.PL
+> make
+> make test
+
+> make install
+
+## Documentation
+
+The documentation is available as pod.
+Run perldoc from a shell to read it.
+
+> perldoc Kernel::Keyring
+

Keyring.xs

@@ -0,0 +1,95 @@
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
+#include "INLINE.h"
+
+#include <keyutils.h>
+
+int _key_add(char* type, char* desc, char* data, int datalen, int keyring) {
+    return add_key(type, desc, data, datalen, keyring);
+}
+
+void _key_read(key_serial_t key_id) {
+    Inline_Stack_Vars;
+    void* key = NULL;
+    int ret = keyctl_read_alloc(key_id, &key);
+
+    Inline_Stack_Reset;
+    Inline_Stack_Push(sv_2mortal(newSViv(ret)));
+    if (key != NULL)
+        Inline_Stack_Push(sv_2mortal(newSVpv(key, ret)));
+    Inline_Stack_Done;
+}
+
+long _key_timeout(key_serial_t key_id, unsigned int timeout) {
+    return keyctl_set_timeout(key_id, timeout);
+}
+
+long _key_unlink(key_serial_t key_id, key_serial_t keyring) {
+    return keyctl_unlink(key_id, keyring);
+}
+
+int _key_session(char* desc) {
+    return keyctl_join_session_keyring(desc);
+}
+
+long _key_perm(key_serial_t key_id, key_perm_t perm) {
+    return keyctl_setperm(key_id, perm);
+}
+
+long _key_revoke(key_serial_t key_id) {
+    return keyctl_revoke(key_id);
+}
+
+MODULE = Kernel::Keyring  PACKAGE = Kernel::Keyring  
+
+PROTOTYPES: DISABLE
+
+
+int
+_key_add (type, desc, data, datalen, keyring)
+	char *	type
+	char *	desc
+	char *	data
+	int	datalen
+	int	keyring
+
+void
+_key_read (key_id)
+	int	key_id
+        PREINIT:
+        I32* temp;
+        PPCODE:
+        temp = PL_markstack_ptr++;
+        _key_read(key_id);
+        if (PL_markstack_ptr != temp) {
+          /* truly void, because dXSARGS not invoked */
+          PL_markstack_ptr = temp;
+          XSRETURN_EMPTY; /* return empty stack */
+        }
+        /* must have used dXSARGS; list context implied */
+        return; /* assume stack size is correct */
+
+long
+_key_timeout (key_id, timeout)
+	int	key_id
+	unsigned int	timeout
+
+long
+_key_unlink (key_id, keyring)
+	int	key_id
+	int	keyring
+
+int
+_key_session (desc)
+	char *	desc
+
+long
+_key_perm (key_id, perm)
+	int	key_id
+	unsigned int	perm
+
+long
+_key_revoke (key_id)
+	int	key_id
+