Coverage report: /home/ellis/comp/core/ffi/keyutils/keyutils.lisp

KindCoveredAll%
expression18 12.5
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;; keyutils.lisp --- Keyutils types
2
 
3
 ;; 
4
 
5
 ;;; Code:
6
 (in-package :keyutils)
7
 
8
 (define-alien-type iovec (struct nil))
9
 
10
 (define-alien-type key-serial-t (integer 32))
11
 (define-alien-type key-perm-t (unsigned 32))
12
 
13
 (define-alien-type keyctl-pkey-params (struct keyctl-pkey-params
14
                                               (key-id key-serial-t)
15
                                               (len1 unsigned-int)
16
                                               (len2 unsigned-int)
17
                                               (%sparse (array unsigned-int 7))))
18
 
19
 (define-alien-variable keyutils-version-string (array char))
20
 (define-alien-variable keyutils-build-string (array char))
21
 ;; (cast keyutils-version-string c-string) ;= "keyutils-1.6.3"
22
 ;; (cast keyutils-build-string c-string) ;= nil
23
 
24
 ;; TODO: recursive_key_scanner_t
25
 
26
 (define-alien-enum (key-spec int)
27
                    :thread +key-spec-thread-keyring+
28
                    :process +key-spec-process-keyring+
29
                    :session +key-spec-session-keyring+
30
                    :user +key-spec-user-keyring+
31
                    :user-session +key-spec-user-session-keyring+
32
                    :group +key-spec-group-keyring+
33
                    :reqkey-auth +key-spec-reqkey-auth-key+)