11249740d9
avoid name conflicts with functions from "glisp" of the same name. - Renamed defsubst to definline for the same reason. (This is a commit to the cxml repository, not the main closure repository. If you don't want cxml commit messages on the closure list, please complain to me and I'll change it.)
69 lines
1.7 KiB
Common Lisp
69 lines
1.7 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
|
|
#: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))
|
|
|
|
(defpackage :encoding
|
|
(:use :cl :runes)
|
|
(:export
|
|
#:find-encoding
|
|
#:decode-sequence))
|