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
|
#|
This file is a part of file-attributes
(c) 2020 Shirakumo http://tymoon.eu (shinmera@tymoon.eu)
Author: Nicolas Hafner <shinmera@tymoon.eu>
|#
(in-package #:org.shirakumo.file-attributes)
(define-implementation access-time (file)
(or (getf (mezzano.file-system:file-properties file) :access-date)
(getf (mezzano.file-system:file-properties file) :write-date)))
(define-implementation (setf access-time) (value file)
(mezzano.file-system:set-file-properties file :access-date value))
(define-implementation modification-time (file)
(getf (mezzano.file-system:file-properties file) :write-date))
(define-implementation (setf modification-time) (value file)
(mezzano.file-system:set-file-properties file :write-date value))
(define-implementation creation-time (file)
(or (getf (mezzano.file-system:file-properties file) :creation-date)
(getf (mezzano.file-system:file-properties file) :write-date)))
(define-implementation (setf creation-time) (value file)
(mezzano.file-system:set-file-properties file :creation-date value))
(define-implementation group (file)
(getf (mezzano.file-system:file-properties file) :guid 0))
(define-implementation (setf group) (value file)
(mezzano.file-system:set-file-properties file :guid value))
(define-implementation owner (file)
(or (getf (mezzano.file-system:file-properties file) :uid)
(sxhash (getf (mezzano.file-system:file-properties file) :author ""))))
(define-implementation (setf owner) (value file)
(mezzano.file-system:set-file-properties file :uid value))
(define-implementation attributes (file)
(encode-attributes (mezzano.file-system:file-properties file) :mezzano))
(define-implementation (setf attributes) (value file)
(apply #'mezzano.file-system:set-file-properties file (decode-attributes value :mezzano)))
|
