changelog shortlog graph tags branches changeset files file revisions raw help

Mercurial > core / annotate lisp/lib/io/pkg.lisp

changeset 431: c40d2a41d7ce
parent: efc3e9ec02bf
child: 849bbe48e32d
author: Richard Westhaver <ellis@rwest.io>
date: Sun, 09 Jun 2024 02:04:18 -0400
permissions: -rw-r--r--
description: source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
238
6fa723592550 audio ffi, io work
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
1 
 ;;; io/pkg.lisp --- high-level IO API
6fa723592550 audio ffi, io work
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
2 
 
6fa723592550 audio ffi, io work
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
3 
 ;;
6fa723592550 audio ffi, io work
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
4 
 
254
8b78d5e03958 bitfield tests
Richard Westhaver <ellis@rwest.io>
parents: 244
diff changeset
5 
 ;;; Commentary:
8b78d5e03958 bitfield tests
Richard Westhaver <ellis@rwest.io>
parents: 244
diff changeset
6 
 
8b78d5e03958 bitfield tests
Richard Westhaver <ellis@rwest.io>
parents: 244
diff changeset
7 
 ;; pay close attention to the spec for opportunities to replace io
8b78d5e03958 bitfield tests
Richard Westhaver <ellis@rwest.io>
parents: 244
diff changeset
8 
 ;; primitives -- for example WITH-OPEN-FILE accepts a :CLASS keyword
8b78d5e03958 bitfield tests
Richard Westhaver <ellis@rwest.io>
parents: 244
diff changeset
9 
 ;; argument, which defaults to SB-SYS:FD-STREAM.
8b78d5e03958 bitfield tests
Richard Westhaver <ellis@rwest.io>
parents: 244
diff changeset
10 
 
8b78d5e03958 bitfield tests
Richard Westhaver <ellis@rwest.io>
parents: 244
diff changeset
11 
 ;; this package would be responsible for providing an alternative
8b78d5e03958 bitfield tests
Richard Westhaver <ellis@rwest.io>
parents: 244
diff changeset
12 
 ;; class, something like IO-STREAM.
8b78d5e03958 bitfield tests
Richard Westhaver <ellis@rwest.io>
parents: 244
diff changeset
13 
 
238
6fa723592550 audio ffi, io work
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
14 
 ;;; Code:
431
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
15 
 (defpackage :io/proto
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
16 
   (:use :cl :std/err)
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
17 
   (:export :io-error))
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
18 
 
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
19 
 (defpackage :io/ring
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
20 
   (:use :cl :uring :io/proto)
254
8b78d5e03958 bitfield tests
Richard Westhaver <ellis@rwest.io>
parents: 244
diff changeset
21 
   (:import-from :sb-alien :addr)
431
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
22 
   (:import-from :std/err :deferror))
238
6fa723592550 audio ffi, io work
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
23 
 
431
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
24 
 (defpackage :io/stream
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
25 
   (:use :cl :io/proto)
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
26 
   (:import-from :std/err :deferror)
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
27 
   (:export :io-stream-error :io-stream))
254
8b78d5e03958 bitfield tests
Richard Westhaver <ellis@rwest.io>
parents: 244
diff changeset
28 
 
431
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
29 
 (defpackage :io/socket
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
30 
   (:use :cl :io/proto)
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
31 
   (:import-from :std/err :deferror)
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
32 
   (:export :io-socket-error :io-socket))
279
efc3e9ec02bf random tune-ups, added mpd and net/util.lisp
Richard Westhaver <ellis@rwest.io>
parents: 258
diff changeset
33 
 
431
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
34 
 (defpackage :io/flate
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
35 
   (:use :cl :io/proto)
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
36 
   (:import-from :std/err :deferror)
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
37 
   (:export :flate-error :compression-error :decompression-error
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
38 
    :*compression-buffer-size* :decompression-buffer-size* :finish-compression :finish-decompression
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
39 
    :reset-compressor :reset-decompressor :make-compressing-stream :make-decompressing-stream
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
40 
    :compress-object :decompress-object :compress :decompress
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
41 
    :compressor :compressing-stream :decompressor :decompressing-stream))
254
8b78d5e03958 bitfield tests
Richard Westhaver <ellis@rwest.io>
parents: 244
diff changeset
42 
 
431
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
43 
 (defpackage :io/zstd
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
44 
   (:use :cl :io/proto :io/flate)
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
45 
   (:import-from :std/err :deferror)
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
46 
   (:export :zstd-error :zstd-compressor :zstd-decompressor))
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
47 
 
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
48 
 (pkg:defpkg :io
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
49 
   (:use :cl)
c40d2a41d7ce source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents: 279
diff changeset
50 
   (:use-reexport :io/proto :io/ring :io/flate :io/zstd :io/stream :io/socket))