42 lines
679 B
Common Lisp
42 lines
679 B
Common Lisp
(in-package :cl-user)
|
|
|
|
(defpackage :Encoding
|
|
(:use :glisp)
|
|
(:export
|
|
#:find-encoding
|
|
#:decode-sequence))
|
|
|
|
(defpackage :XML
|
|
(:use
|
|
:glisp
|
|
:encoding)
|
|
|
|
(:Export
|
|
;; xstreams
|
|
#:make-xstream
|
|
#:make-rod-xstream
|
|
#:close-xstream
|
|
#:read-rune
|
|
#:peek-rune
|
|
#:unread-rune
|
|
#:fread-rune
|
|
#:fpeek-rune
|
|
#:xstream-position
|
|
#:xstream-line-number
|
|
#:xstream-column-number
|
|
#:xstream-plist
|
|
#:xstream-encoding
|
|
|
|
;; xstream controller protocol
|
|
#:read-octects
|
|
#:xstream/close
|
|
|
|
#:attribute-namespace-uri
|
|
#:attribute-local-name
|
|
#:attribute-qname
|
|
#:attribute-value
|
|
|
|
#:parse-file
|
|
#:parse-stream
|
|
#:parse-string) )
|