mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 13:49:17 +02:00
21 lines
770 B
Scheme
21 lines
770 B
Scheme
|
|
(define-library (chibi tar)
|
|
(import (scheme base) (scheme file) (srfi 1) (srfi 33) (scheme write)
|
|
(chibi string) (chibi binary-record)
|
|
(chibi pathname) (chibi filesystem) (chibi system))
|
|
(export
|
|
;; basic
|
|
tar make-tar tar? read-tar write-tar
|
|
;; utilities
|
|
tar-safe? tar-files tar-fold tar-extract tar-extract-file tar-create
|
|
;; accessors
|
|
tar-path tar-mode tar-uid tar-gid
|
|
tar-owner tar-group tar-size
|
|
tar-time tar-type tar-link-name
|
|
tar-path-set! tar-mode-set! tar-uid-set! tar-gid-set!
|
|
tar-owner-set! tar-group-set! tar-size-set!
|
|
tar-time-set! tar-type-set! tar-link-name-set!
|
|
tar-device-major tar-device-major-set!
|
|
tar-device-minor tar-device-minor-set!
|
|
tar-ustar tar-ustar-set!)
|
|
(include "tar.scm"))
|