io.streams/zeta/types.lisp

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; indent-tabs-mode: nil -*-
   2 ;;;
   3 ;;; --- Various types.
   4 ;;;
   5
   6 (in-package :io.zeta-streams)
   7
   8 ;;;-------------------------------------------------------------------------
   9 ;;; Data Types
  10 ;;;-------------------------------------------------------------------------
  11
  12 (deftype ub8  () '(unsigned-byte  8))
  13 (deftype ub16 () '(unsigned-byte 16))
  14 (deftype ub32 () '(unsigned-byte 32))
  15 (deftype ub64 () '(unsigned-byte 64))
  16 (deftype sb8  () '(signed-byte  8))
  17 (deftype sb16 () '(signed-byte 16))
  18 (deftype sb32 () '(signed-byte 32))
  19 (deftype sb64 () '(signed-byte 64))
  20
  21 (deftype ub8-vector (&optional (size '*))
  22   `(array ub8 (,size)))
  23
  24 (deftype ub8-simple-vector (&optional (size '*))
  25   `(simple-array ub8 (,size)))
  26
  27 (deftype ub16-vector (&optional (size '*))
  28   `(array ub16 (,size)))
  29
  30 (deftype ub16-simple-vector (&optional (size '*))
  31   `(simple-array ub16 (,size)))
  32 \f
  33
  34 ;;;-------------------------------------------------------------------------
  35 ;;; Argument Types
  36 ;;;-------------------------------------------------------------------------
  37
  38 (deftype io-buffering ()
  39   '(member nil :line :full))
  40
  41 (deftype file-direction ()
  42   '(member :input :output :io))
  43
  44 (deftype file-if-exists ()
  45   '(member :default :error :error-if-symlink :delete :overwrite))
  46
  47 (deftype file-if-does-not-exist ()
  48   '(member :default :error :create))
  49
  50 (deftype file-flags ()
  51   '(unsigned-byte 32))
  52
  53 (deftype file-mode ()
  54   '(unsigned-byte 32))