1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
(in-package #:org.shirakumo.zippy)
(defparameter *file-attribute-compatibility-map*
(alist-vector '((0 . :ms-dos)
(1 . :amiga)
(2 . :open-vms)
(3 . :unix)
(4 . :vm/cms)
(5 . :atari-st)
(6 . :os/2)
(7 . :macintosh)
(8 . :z-system)
(9 . :cp/m)
(10 . :ntfs)
(11 . :mvs)
(12 . :vse)
(13 . :acorn-risc)
(14 . :vfat)
(15 . :alternate-mvs)
(16 . :beos)
(17 . :tandem)
(18 . :os/400)
(19 . :darwin))))
(defun file-attribute-name (id)
(if (<= 0 id (1- (length *file-attribute-compatibility-map*)))
(aref *file-attribute-compatibility-map* id)
(error 'unknown-enum-value :value id)))
(defun file-attribute-id (name)
(or (position name *file-attribute-compatibility-map*)
(error 'unknown-enum-value :value name)))
(defparameter *compression-method-map*
(alist-vector '((0 . :store)
(1 . :shrink)
(2 . :reduce-1)
(3 . :reduce-2)
(4 . :reduce-3)
(5 . :reduce-4)
(6 . :implode)
(7 . :tokenizing)
(8 . :deflate)
(9 . :deflate64)
(10 . :pkware-implode)
(11 . :reserved)
(12 . :bzip2)
(13 . :reserved)
(14 . :lzma)
(15 . :reserved)
(16 . :cmpsc)
(17 . :reserved)
(18 . :terse)
(19 . :lz77)
(20 . :zstd)
(96 . :jpeg)
(97 . :wavpack)
(98 . :ppmd)
(99 . :ae-x))))
(defun compression-method-name (id)
(if (<= 0 id (1- (length *compression-method-map*)))
(aref *compression-method-map* id)
(error 'unknown-enum-value :value id)))
(defun compression-method-id (name)
(or (position name *compression-method-map*)
(error 'unknown-enum-value :value name)))
(defparameter *encryption-method-map*
(alist-table '((#x6601 . :des)
(#x6602 . :rc2)
(#x6603 . :3des-168)
(#x6609 . :3des-112)
(#x660e . :aes-128)
(#x660f . :aes-192)
(#x6610 . :aes-256)
(#x6702 . :rc2)
(#x6720 . :blowfish)
(#x6721 . :twofish)
(#x6801 . :rc4)
(#xffff . :unknown))))
(defun encryption-method-name (id)
(or (gethash id *encryption-method-map*)
(error 'unknown-enum-value :value id)))
(defun encryption-method-id (name)
(loop for id being the hash-keys of *encryption-method-map*
for val being the hash-values of *encryption-method-map*
do (when (eql name val) (return id))
finally (error 'unsupported-encryption-method :encryption-method name)))
|
