91 lines
2.3 KiB
Common Lisp
91 lines
2.3 KiB
Common Lisp
;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CL-USER; -*-
|
|
;;; ---------------------------------------------------------------------------
|
|
;;; Title: Generating a sane DEFPACKAGE for RUNES
|
|
;;; Created: 1999-05-25
|
|
;;; Author: Gilbert Baumann <unk6@rz.uni-karlsruhe.de>
|
|
;;; ---------------------------------------------------------------------------
|
|
;;; (c) copyright 1999,2000 by Gilbert Baumann
|
|
|
|
(in-package :cl-user)
|
|
|
|
(defpackage :runes
|
|
(:use :cl)
|
|
(:export #:definline
|
|
|
|
;; runes.lisp
|
|
#:rune
|
|
#:rod
|
|
#:simple-rod
|
|
#:%rune
|
|
#:rod-capitalize
|
|
#:code-rune
|
|
#:rune-code
|
|
#:rune-downcase
|
|
#:rune-upcase
|
|
#:rod-downcase
|
|
#:rod-upcase
|
|
#:white-space-rune-p
|
|
#:digit-rune-p
|
|
#:rune=
|
|
#:rune<=
|
|
#:rune>=
|
|
#:rune-equal
|
|
#:runep
|
|
#:sloopy-rod-p
|
|
#:rod=
|
|
#:rod-equal
|
|
#:make-rod
|
|
#:char-rune
|
|
#:rune-char
|
|
#:rod-string
|
|
#:string-rod
|
|
#:rod-subseq
|
|
#:rod<
|
|
|
|
;; xstream.lisp
|
|
#:xstream
|
|
#:make-xstream
|
|
#:make-rod-xstream
|
|
#:close-xstream
|
|
#:xstream-p
|
|
#:read-rune
|
|
#:peek-rune
|
|
#:fread-rune
|
|
#:fpeek-rune
|
|
#:consume-rune
|
|
#:unread-rune
|
|
#:xstream-position
|
|
#:xstream-line-number
|
|
#:xstream-column-number
|
|
#:xstream-plist
|
|
#:xstream-encoding
|
|
#:set-to-full-speed
|
|
#:xstream-name
|
|
|
|
;; ystream.lisp
|
|
#:ystream
|
|
#:close-ystream
|
|
#:write-rune
|
|
#:write-rod
|
|
#:ystream-column
|
|
#:make-octet-vector-ystream
|
|
#:make-octet-stream-ystream
|
|
#:make-rod-ystream
|
|
#+rune-is-character #:make-character-stream-ystream
|
|
#+rune-is-integer #:make-string-ystream/utf8
|
|
#+rune-is-integer #:make-character-stream-ystream/utf8
|
|
#:runes-to-utf8/adjustable-string))
|
|
|
|
(defpackage :utf8-runes
|
|
(:use :cl)
|
|
(:export *utf8-runes-readtable*
|
|
#:rune #:rod #:simple-rod #:rod-string #:rod= #:make-rod
|
|
#:string-rod))
|
|
|
|
(defpackage :runes-encoding
|
|
(:use :cl :runes)
|
|
(:export
|
|
#:encoding-error
|
|
#:find-encoding
|
|
#:decode-sequence))
|