package.lisp

   1 ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CL-USER; -*-
   2 ;;; ---------------------------------------------------------------------------
   3 ;;;     Title: Generating a sane DEFPACKAGE for RUNES
   4 ;;;   Created: 1999-05-25
   5 ;;;    Author: Gilbert Baumann <unk6@rz.uni-karlsruhe.de>
   6 ;;; ---------------------------------------------------------------------------
   7 ;;;  (c) copyright 1999,2000 by Gilbert Baumann
   8
   9 (in-package :cl-user)
  10
  11 (defpackage :runes
  12   (:use :cl #-scl :trivial-gray-streams)
  13   (:export #:definline
  14
  15            ;; runes.lisp
  16            #:rune
  17            #:rod
  18            #:simple-rod
  19            #:%rune
  20            #:rod-capitalize
  21            #:code-rune
  22            #:rune-code
  23            #:rune-downcase
  24            #:rune-upcase
  25            #:rod-downcase
  26            #:rod-upcase
  27            #:white-space-rune-p
  28            #:digit-rune-p
  29            #:rune=
  30            #:rune<=
  31            #:rune>=
  32            #:rune-equal
  33            #:runep
  34            #:sloopy-rod-p
  35            #:rod=
  36            #:rod-equal
  37            #:make-rod
  38            #:char-rune
  39            #:rune-char
  40            #:rod-string
  41            #:string-rod
  42            #:rod-subseq
  43            #:rod<
  44
  45            ;; xstream.lisp
  46            #:xstream
  47            #:make-xstream
  48            #:make-rod-xstream
  49            #:close-xstream
  50            #:xstream-p
  51            #:read-rune
  52            #:peek-rune
  53            #:fread-rune
  54            #:fpeek-rune
  55            #:consume-rune
  56            #:unread-rune
  57            #:xstream-position
  58            #:xstream-line-number
  59            #:xstream-column-number
  60            #:xstream-plist
  61            #:xstream-encoding
  62            #:set-to-full-speed
  63            #:xstream-name
  64
  65            ;; ystream.lisp
  66            #:ystream
  67            #:close-ystream
  68            #:write-rune
  69            #:write-rod
  70            #:ystream-column
  71            #:make-octet-vector-ystream
  72            #:make-octet-stream-ystream
  73            #:make-rod-ystream
  74            #+rune-is-character #:make-character-stream-ystream
  75            ;; These don't make too much sense on Unicode-enabled,
  76            ;; implementations but for those applications using them anyway,
  77            ;; I have commented out the reader conditionals now:
  78            ;; #+rune-is-integer
  79            #:make-string-ystream/utf8
  80            ;; #+rune-is-integer
  81            #:make-character-stream-ystream/utf8
  82            #:runes-to-utf8/adjustable-string
  83
  84            #:rod-to-utf8-string
  85            #:utf8-string-to-rod
  86            #:make-octet-input-stream))
  87
  88 (defpackage :utf8-runes
  89   (:use :cl)
  90   (:export *utf8-runes-readtable*
  91            #:rune #:rod #:simple-rod #:rod-string #:rod= #:make-rod
  92            #:string-rod))
  93
  94 (defpackage :runes-encoding
  95   (:use :cl :runes)
  96   (:export
  97    #:encoding-error
  98    #:find-encoding
  99    #:decode-sequence))