Coverage report: /home/ellis/.cache/common-lisp/sbcl-2.5.6.74-df9f98a0a-linux-x64/home/ellis/comp/core/ffi/keyutils/constants.lisp-temp

KindCoveredAll%
expression0283 0.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 (cl:in-package #:KEYUTILS)
2
 (cl:eval-when (:compile-toplevel :execute)
3
   (cl:defparameter *integer-sizes* (cl:make-hash-table))
4
   (cl:setf (cl:gethash 1 *integer-sizes*) 'sb-alien:char)
5
   (cl:setf (cl:gethash 2 *integer-sizes*) 'sb-alien:short)
6
   (cl:setf (cl:gethash 8 *integer-sizes*) 'sb-alien:long-long)
7
   (cl:setf (cl:gethash 8 *integer-sizes*) 'sb-alien:long)
8
   (cl:setf (cl:gethash 4 *integer-sizes*) 'sb-alien:int)
9
 )
10
 (cl:defconstant +KEY-SPEC-THREAD-KEYRING+ -1 "T")
11
 (cl:export '+KEY-SPEC-THREAD-KEYRING+)
12
 (cl:defconstant +KEY-SPEC-PROCESS-KEYRING+ -2 "T")
13
 (cl:export '+KEY-SPEC-PROCESS-KEYRING+)
14
 (cl:defconstant +KEY-SPEC-SESSION-KEYRING+ -3 "T")
15
 (cl:export '+KEY-SPEC-SESSION-KEYRING+)
16
 (cl:defconstant +KEY-SPEC-USER-KEYRING+ -4 "T")
17
 (cl:export '+KEY-SPEC-USER-KEYRING+)
18
 (cl:defconstant +KEY-SPEC-USER-SESSION-KEYRING+ -5 "T")
19
 (cl:export '+KEY-SPEC-USER-SESSION-KEYRING+)
20
 (cl:defconstant +KEY-SPEC-GROUP-KEYRING+ -6 "T")
21
 (cl:export '+KEY-SPEC-GROUP-KEYRING+)
22
 (cl:defconstant +KEY-SPEC-REQKEY-AUTH-KEY+ -7 "T")
23
 (cl:export '+KEY-SPEC-REQKEY-AUTH-KEY+)
24
 (cl:defconstant +KEY-REQKEY-DEFL-NO-CHANGE+ -1 "T")
25
 (cl:export '+KEY-REQKEY-DEFL-NO-CHANGE+)
26
 (cl:defconstant +KEY-REQKEY-DEFL-DEFAULT+ 0 "T")
27
 (cl:export '+KEY-REQKEY-DEFL-DEFAULT+)
28
 (cl:defconstant +KEY-REQKEY-DEFL-THREAD-KEYRING+ 1 "T")
29
 (cl:export '+KEY-REQKEY-DEFL-THREAD-KEYRING+)
30
 (cl:defconstant +KEY-REQKEY-DEFL-PROCESS-KEYRING+ 2 "T")
31
 (cl:export '+KEY-REQKEY-DEFL-PROCESS-KEYRING+)
32
 (cl:defconstant +KEY-REQKEY-DEFL-SESSION-KEYRING+ 3 "T")
33
 (cl:export '+KEY-REQKEY-DEFL-SESSION-KEYRING+)
34
 (cl:defconstant +KEY-REQKEY-DEFL-USER-KEYRING+ 4 "T")
35
 (cl:export '+KEY-REQKEY-DEFL-USER-KEYRING+)
36
 (cl:defconstant +KEY-REQKEY-DEFL-USER-SESSION-KEYRING+ 5 "T")
37
 (cl:export '+KEY-REQKEY-DEFL-USER-SESSION-KEYRING+)
38
 (cl:defconstant +KEY-REQKEY-DEFL-GROUP-KEYRING+ 6 "T")
39
 (cl:export '+KEY-REQKEY-DEFL-GROUP-KEYRING+)
40
 (cl:defconstant +KEY-POS-VIEW+ 16777216 "T")
41
 (cl:export '+KEY-POS-VIEW+)
42
 (cl:defconstant +KEY-POS-READ+ 33554432 "T")
43
 (cl:export '+KEY-POS-READ+)
44
 (cl:defconstant +KEY-POS-WRITE+ 67108864 "T")
45
 (cl:export '+KEY-POS-WRITE+)
46
 (cl:defconstant +KEY-POS-SEARCH+ 134217728 "T")
47
 (cl:export '+KEY-POS-SEARCH+)
48
 (cl:defconstant +KEY-POS-LINK+ 268435456 "T")
49
 (cl:export '+KEY-POS-LINK+)
50
 (cl:defconstant +KEY-POS-SETATTR+ 536870912 "T")
51
 (cl:export '+KEY-POS-SETATTR+)
52
 (cl:defconstant +KEY-POS-ALL+ 1056964608 "T")
53
 (cl:export '+KEY-POS-ALL+)
54
 (cl:defconstant +KEY-USR-VIEW+ 65536 "T")
55
 (cl:export '+KEY-USR-VIEW+)
56
 (cl:defconstant +KEY-USR-READ+ 131072 "T")
57
 (cl:export '+KEY-USR-READ+)
58
 (cl:defconstant +KEY-USR-WRITE+ 262144 "T")
59
 (cl:export '+KEY-USR-WRITE+)
60
 (cl:defconstant +KEY-USR-SEARCH+ 524288 "T")
61
 (cl:export '+KEY-USR-SEARCH+)
62
 (cl:defconstant +KEY-USR-LINK+ 1048576 "T")
63
 (cl:export '+KEY-USR-LINK+)
64
 (cl:defconstant +KEY-USR-SETATTR+ 2097152 "T")
65
 (cl:export '+KEY-USR-SETATTR+)
66
 (cl:defconstant +KEY-USR-ALL+ 4128768 "T")
67
 (cl:export '+KEY-USR-ALL+)
68
 (cl:defconstant +KEY-GRP-VIEW+ 256 "T")
69
 (cl:export '+KEY-GRP-VIEW+)
70
 (cl:defconstant +KEY-GRP-READ+ 512 "T")
71
 (cl:export '+KEY-GRP-READ+)
72
 (cl:defconstant +KEY-GRP-WRITE+ 1024 "T")
73
 (cl:export '+KEY-GRP-WRITE+)
74
 (cl:defconstant +KEY-GRP-SEARCH+ 2048 "T")
75
 (cl:export '+KEY-GRP-SEARCH+)
76
 (cl:defconstant +KEY-GRP-LINK+ 4096 "T")
77
 (cl:export '+KEY-GRP-LINK+)
78
 (cl:defconstant +KEY-GRP-SETATTR+ 8192 "T")
79
 (cl:export '+KEY-GRP-SETATTR+)
80
 (cl:defconstant +KEY-GRP-ALL+ 16128 "T")
81
 (cl:export '+KEY-GRP-ALL+)
82
 (cl:defconstant +KEY-OTH-VIEW+ 1 "T")
83
 (cl:export '+KEY-OTH-VIEW+)
84
 (cl:defconstant +KEY-OTH-READ+ 2 "T")
85
 (cl:export '+KEY-OTH-READ+)
86
 (cl:defconstant +KEY-OTH-WRITE+ 4 "T")
87
 (cl:export '+KEY-OTH-WRITE+)
88
 (cl:defconstant +KEY-OTH-SEARCH+ 8 "T")
89
 (cl:export '+KEY-OTH-SEARCH+)
90
 (cl:defconstant +KEY-OTH-LINK+ 16 "T")
91
 (cl:export '+KEY-OTH-LINK+)
92
 (cl:defconstant +KEY-OTH-SETATTR+ 32 "T")
93
 (cl:export '+KEY-OTH-SETATTR+)
94
 (cl:defconstant +KEY-OTH-ALL+ 63 "T")
95
 (cl:export '+KEY-OTH-ALL+)
96
 (cl:defconstant +KEYCTL-GET-KEYRING-ID+ 0 "T")
97
 (cl:export '+KEYCTL-GET-KEYRING-ID+)
98
 (cl:defconstant +KEYCTL-JOIN-SESSION-KEYRING+ 1 "T")
99
 (cl:export '+KEYCTL-JOIN-SESSION-KEYRING+)
100
 (cl:defconstant +KEYCTL-UPDATE+ 2 "T")
101
 (cl:export '+KEYCTL-UPDATE+)
102
 (cl:defconstant +KEYCTL-REVOKE+ 3 "T")
103
 (cl:export '+KEYCTL-REVOKE+)
104
 (cl:defconstant +KEYCTL-CHOWN+ 4 "T")
105
 (cl:export '+KEYCTL-CHOWN+)
106
 (cl:defconstant +KEYCTL-SETPERM+ 5 "T")
107
 (cl:export '+KEYCTL-SETPERM+)
108
 (cl:defconstant +KEYCTL-DESCRIBE+ 6 "T")
109
 (cl:export '+KEYCTL-DESCRIBE+)
110
 (cl:defconstant +KEYCTL-CLEAR+ 7 "T")
111
 (cl:export '+KEYCTL-CLEAR+)
112
 (cl:defconstant +KEYCTL-LINK+ 8 "T")
113
 (cl:export '+KEYCTL-LINK+)
114
 (cl:defconstant +KEYCTL-UNLINK+ 9 "T")
115
 (cl:export '+KEYCTL-UNLINK+)
116
 (cl:defconstant +KEYCTL-SEARCH+ 10 "T")
117
 (cl:export '+KEYCTL-SEARCH+)
118
 (cl:defconstant +KEYCTL-READ+ 11 "T")
119
 (cl:export '+KEYCTL-READ+)
120
 (cl:defconstant +KEYCTL-INSTANTIATE+ 12 "T")
121
 (cl:export '+KEYCTL-INSTANTIATE+)
122
 (cl:defconstant +KEYCTL-NEGATE+ 13 "T")
123
 (cl:export '+KEYCTL-NEGATE+)
124
 (cl:defconstant +KEYCTL-SET-REQKEY-KEYRING+ 14 "T")
125
 (cl:export '+KEYCTL-SET-REQKEY-KEYRING+)
126
 (cl:defconstant +KEYCTL-SET-TIMEOUT+ 15 "T")
127
 (cl:export '+KEYCTL-SET-TIMEOUT+)
128
 (cl:defconstant +KEYCTL-ASSUME-AUTHORITY+ 16 "T")
129
 (cl:export '+KEYCTL-ASSUME-AUTHORITY+)
130
 (cl:defconstant +KEYCTL-GET-SECURITY+ 17 "T")
131
 (cl:export '+KEYCTL-GET-SECURITY+)
132
 (cl:defconstant +KEYCTL-SESSION-TO-PARENT+ 18 "T")
133
 (cl:export '+KEYCTL-SESSION-TO-PARENT+)
134
 (cl:defconstant +KEYCTL-REJECT+ 19 "T")
135
 (cl:export '+KEYCTL-REJECT+)
136
 (cl:defconstant +KEYCTL-INSTANTIATE-IOV+ 20 "T")
137
 (cl:export '+KEYCTL-INSTANTIATE-IOV+)
138
 (cl:defconstant +KEYCTL-INVALIDATE+ 21 "T")
139
 (cl:export '+KEYCTL-INVALIDATE+)
140
 (cl:defconstant +KEYCTL-GET-PERSISTENT+ 22 "T")
141
 (cl:export '+KEYCTL-GET-PERSISTENT+)
142
 (cl:defconstant +KEYCTL-DH-COMPUTE+ 23 "T")
143
 (cl:export '+KEYCTL-DH-COMPUTE+)
144
 (cl:defconstant +KEYCTL-PKEY-QUERY+ 24 "T")
145
 (cl:export '+KEYCTL-PKEY-QUERY+)
146
 (cl:defconstant +KEYCTL-PKEY-ENCRYPT+ 25 "T")
147
 (cl:export '+KEYCTL-PKEY-ENCRYPT+)
148
 (cl:defconstant +KEYCTL-PKEY-DECRYPT+ 26 "T")
149
 (cl:export '+KEYCTL-PKEY-DECRYPT+)
150
 (cl:defconstant +KEYCTL-PKEY-SIGN+ 27 "T")
151
 (cl:export '+KEYCTL-PKEY-SIGN+)
152
 (cl:defconstant +KEYCTL-PKEY-VERIFY+ 28 "T")
153
 (cl:export '+KEYCTL-PKEY-VERIFY+)
154
 (cl:defconstant +KEYCTL-RESTRICT-KEYRING+ 29 "T")
155
 (cl:export '+KEYCTL-RESTRICT-KEYRING+)
156
 (cl:defconstant +KEYCTL-MOVE+ 30 "T")
157
 (cl:export '+KEYCTL-MOVE+)
158
 (cl:defconstant +KEYCTL-CAPABILITIES+ 31 "T")
159
 (cl:export '+KEYCTL-CAPABILITIES+)
160
 (cl:defconstant +KEYCTL-WATCH-KEY+ 32 "T")
161
 (cl:export '+KEYCTL-WATCH-KEY+)
162
 (cl:defconstant +KEYCTL-SUPPORTS-ENCRYPT+ 1 "T")
163
 (cl:export '+KEYCTL-SUPPORTS-ENCRYPT+)
164
 (cl:defconstant +KEYCTL-SUPPORTS-DECRYPT+ 2 "T")
165
 (cl:export '+KEYCTL-SUPPORTS-DECRYPT+)
166
 (cl:defconstant +KEYCTL-SUPPORTS-SIGN+ 4 "T")
167
 (cl:export '+KEYCTL-SUPPORTS-SIGN+)
168
 (cl:defconstant +KEYCTL-SUPPORTS-VERIFY+ 8 "T")
169
 (cl:export '+KEYCTL-SUPPORTS-VERIFY+)
170
 (cl:defconstant +KEYCTL-MOVE-EXCL+ 1 "T")
171
 (cl:export '+KEYCTL-MOVE-EXCL+)
172
 (cl:defconstant +KEYCTL-CAPS0-CAPABILITIES+ 1 "T")
173
 (cl:export '+KEYCTL-CAPS0-CAPABILITIES+)
174
 (cl:defconstant +KEYCTL-CAPS0-PERSISTENT-KEYRINGS+ 2 "T")
175
 (cl:export '+KEYCTL-CAPS0-PERSISTENT-KEYRINGS+)
176
 (cl:defconstant +KEYCTL-CAPS0-DIFFIE-HELLMAN+ 4 "T")
177
 (cl:export '+KEYCTL-CAPS0-DIFFIE-HELLMAN+)
178
 (cl:defconstant +KEYCTL-CAPS0-PUBLIC-KEY+ 8 "T")
179
 (cl:export '+KEYCTL-CAPS0-PUBLIC-KEY+)
180
 (cl:defconstant +KEYCTL-CAPS0-BIG-KEY+ 16 "T")
181
 (cl:export '+KEYCTL-CAPS0-BIG-KEY+)
182
 (cl:defconstant +KEYCTL-CAPS0-INVALIDATE+ 32 "T")
183
 (cl:export '+KEYCTL-CAPS0-INVALIDATE+)
184
 (cl:defconstant +KEYCTL-CAPS0-RESTRICT-KEYRING+ 64 "T")
185
 (cl:export '+KEYCTL-CAPS0-RESTRICT-KEYRING+)
186
 (cl:defconstant +KEYCTL-CAPS0-MOVE+ 128 "T")
187
 (cl:export '+KEYCTL-CAPS0-MOVE+)
188
 (cl:defconstant +KEYCTL-CAPS1-NS-KEYRING-NAME+ 1 "T")
189
 (cl:export '+KEYCTL-CAPS1-NS-KEYRING-NAME+)
190
 (cl:defconstant +KEYCTL-CAPS1-NS-KEY-TAG+ 2 "T")
191
 (cl:export '+KEYCTL-CAPS1-NS-KEY-TAG+)
192
 (cl:defconstant +KEYCTL-CAPS1-NOTIFICATIONS+ 4 "T")
193
 (cl:export '+KEYCTL-CAPS1-NOTIFICATIONS+)
194
 (sb-grovel::define-c-struct KEYCTL-KDF-PARAMS 56
195
  (HASHNAME C-STRING "char *"
196
   0
197
   8)
198
  (OTHERINFO C-STRING "char *"
199
   8
200
   8)
201
  (OTHERINFOLEN UNSIGNED-INT "uint32_t"
202
   16
203
   4)
204
  (SPARE (ARRAY UNSIGNED-INT 8) "uint32_t"
205
   52
206
   4)
207
 )
208
 (cl:export 'KEYCTL-KDF-PARAMS)
209
 (sb-grovel::define-c-struct KEYCTL-PKEY-QUERY 56
210
  (SUPPORTED-OPS UNSIGNED-INT "unsigned int"
211
   0
212
   4)
213
  (KEY-SIZE UNSIGNED-INT "unsigned int"
214
   4
215
   4)
216
  (MAX-DATA-SIZE UNSIGNED-SHORT "unsigned short"
217
   8
218
   2)
219
  (MAX-SIG-SIZE UNSIGNED-SHORT "unsigned short"
220
   10
221
   2)
222
  (MAX-ENC-SIZE UNSIGNED-SHORT "unsigned short"
223
   12
224
   2)
225
  (MAX-DEC-SIZE UNSIGNED-SHORT "unsigned short"
226
   14
227
   2)
228
  (SPARE (ARRAY UNSIGNED-INT 10) "unsigned int"
229
   56
230
   4)
231
 )
232
 (cl:export 'KEYCTL-PKEY-QUERY)