1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
;;; -*- 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 #-scl :trivial-gray-streams)
(: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
#:ystream-encoding
#:find-output-encoding
#:close-ystream
#:ystream-write-rune
#:ystream-write-rod
#:ystream-write-escapable-rune
#:ystream-write-escapable-rod
#:ystream-column
#:make-octet-vector-ystream
#:make-octet-stream-ystream
#:make-rod-ystream
#+rune-is-character #:make-character-stream-ystream
;; These don't make too much sense on Unicode-enabled,
;; implementations but for those applications using them anyway,
;; I have commented out the reader conditionals now:
;; #+rune-is-integer
#:make-string-ystream/utf8
;; #+rune-is-integer
#:make-character-stream-ystream/utf8
#:runes-to-utf8/adjustable-string
#:rod-to-utf8-string
#:utf8-string-to-rod
#:make-octet-input-stream))
(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))
|
