lassik
/
scheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Turn owner and group parameters into (id . name) pairs

This commit is contained in:
Lassi Kortela 2019-12-28 01:57:57 +02:00
parent 75436f01fe
commit 7a65efb779
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
trivial-tar-writer.scm
View File

@ -1,10 +1,10 @@
;; Copyright 2019 Lassi Kortela ;; Copyright 2019 Lassi Kortela
;; SPDX-License-Identifier: ISC ;; SPDX-License-Identifier: ISC
(define tar-unix-time (make-parameter 0)) (define tar-owner (make-parameter (cons 0 "root")))
(define tar-group (make-parameter (cons 0 "root")))
(define tar-unix-mode (make-parameter #o644)) (define tar-unix-mode (make-parameter #o644))
(define tar-owner-name (make-parameter "root")) (define tar-unix-time (make-parameter 0))
(define tar-group-name (make-parameter "root"))
(define nulls (make-bytevector 512 0)) (define nulls (make-bytevector 512 0))
(define blank-checksum (make-bytevector 7 (char->integer #\space))) (define blank-checksum (make-bytevector 7 (char->integer #\space)))
@ -40,8 +40,8 @@
(bytevector-append (bytevector-append
(tar-string 100 fake-path) (tar-string 100 fake-path)
(tar-octal 8 (tar-unix-mode)) (tar-octal 8 (tar-unix-mode))
(tar-octal 8 0) (tar-octal 8 (car (tar-owner)))
(tar-octal 8 0) (tar-octal 8 (car (tar-group)))
(tar-octal 12 nbyte) (tar-octal 12 nbyte)
(tar-octal 12 (tar-unix-time)))) (tar-octal 12 (tar-unix-time))))
(header-after-checksum (header-after-checksum
@ -50,8 +50,8 @@
(bytevector (char->integer #\0)) (bytevector (char->integer #\0))
(tar-string 100 "") (tar-string 100 "")
(tar-string 8 "ustar ") (tar-string 8 "ustar ")
(tar-string 32 (tar-owner-name)) (tar-string 32 (cdr (tar-owner)))
(tar-string 32 (tar-group-name)) (tar-string 32 (cdr (tar-group)))
(make-bytevector 183 0))) (make-bytevector 183 0)))
(checksum (tar-octal 7 (tar-checksum header-before-checksum (checksum (tar-octal 7 (tar-checksum header-before-checksum
blank-checksum blank-checksum

6
trivial-tar-writer.sld
View File

@ -1,8 +1,8 @@
(define-library (trivial-tar-writer) (define-library (trivial-tar-writer)
(export tar-unix-time (export tar-owner
tar-group
tar-unix-mode tar-unix-mode
tar-owner-name tar-unix-time
tar-group-name
tar-write-file tar-write-file
tar-write-end) tar-write-end)
(import (scheme base) (import (scheme base)