(declaim (inline get-cp1250-bytes))
(defun get-cp1250-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
- (get-latin-bytes #'identity :cp1250 string pos end))
+ (type simple-string string)
+ (type array-range pos end))
+ (get-latin-bytes #'code->cp1250-mapper :cp1250 string pos end))
(defun string->cp1250 (string sstart send null-padding)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range sstart send))
+ (type simple-string string)
+ (type array-range sstart send))
(values (string->latin% string sstart send #'get-cp1250-bytes null-padding)))
(defmacro define-cp1250->string* (accessor type)
(let ((name (make-od-name 'cp1250->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
- (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
+ (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'cp1250->code-mapper)))))
(instantiate-octets-definition define-cp1250->string*)
(defmacro define-cp1250->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp1250->string accessor) (array astart aend)
- (,(make-od-name 'latin->string accessor) array astart aend #'identity)))
+ (,(make-od-name 'latin->string accessor) array astart aend #'cp1250->code-mapper)))
(instantiate-octets-definition define-cp1250->string)
(let ((cp1250-byte (code->cp1250-mapper bits)))
(if cp1250-byte
(setf (sap-ref-8 sap tail) cp1250-byte)
- (stream-encoding-error-and-handle stream bits)))
+ (external-format-encoding-error stream bits)))
(let ((code (cp1250->code-mapper byte)))
(if code
(code-char code)
- (stream-decoding-error stream byte)))) ;; TODO -- error check
+ (external-format-decoding-error stream byte)))) ;; TODO -- error check
(define-unibyte-mapper cp1251->code-mapper code->cp1251-mapper
(#x80 #x0402) ; CYRILLIC CAPITAL LETTER DJE
(declaim (inline get-cp1251-bytes))
(defun get-cp1251-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
- (get-latin-bytes #'identity :cp1251 string pos end))
+ (type simple-string string)
+ (type array-range pos end))
+ (get-latin-bytes #'code->cp1251-mapper :cp1251 string pos end))
(defun string->cp1251 (string sstart send null-padding)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range sstart send))
+ (type simple-string string)
+ (type array-range sstart send))
(values (string->latin% string sstart send #'get-cp1251-bytes null-padding)))
(defmacro define-cp1251->string* (accessor type)
(let ((name (make-od-name 'cp1251->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
- (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
+ (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'cp1251->code-mapper)))))
(instantiate-octets-definition define-cp1251->string*)
(defmacro define-cp1251->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp1251->string accessor) (array astart aend)
- (,(make-od-name 'latin->string accessor) array astart aend #'identity)))
+ (,(make-od-name 'latin->string accessor) array astart aend #'cp1251->code-mapper)))
(instantiate-octets-definition define-cp1251->string)
(let ((cp1251-byte (code->cp1251-mapper bits)))
(if cp1251-byte
(setf (sap-ref-8 sap tail) cp1251-byte)
- (stream-encoding-error-and-handle stream bits)))
+ (external-format-encoding-error stream bits)))
(let ((code (cp1251->code-mapper byte)))
(if code
(code-char code)
- (stream-decoding-error stream byte)))) ;; TODO -- error check
+ (external-format-decoding-error stream byte)))) ;; TODO -- error check
(define-unibyte-mapper cp1252->code-mapper code->cp1252-mapper
(#x80 #x20AC) ; EURO SIGN
(declaim (inline get-cp1252-bytes))
(defun get-cp1252-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
- (get-latin-bytes #'identity :cp1252 string pos end))
+ (type simple-string string)
+ (type array-range pos end))
+ (get-latin-bytes #'code->cp1252-mapper :cp1252 string pos end))
(defun string->cp1252 (string sstart send null-padding)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range sstart send))
+ (type simple-string string)
+ (type array-range sstart send))
(values (string->latin% string sstart send #'get-cp1252-bytes null-padding)))
(defmacro define-cp1252->string* (accessor type)
(let ((name (make-od-name 'cp1252->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
- (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
+ (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'cp1252->code-mapper)))))
(instantiate-octets-definition define-cp1252->string*)
(defmacro define-cp1252->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp1252->string accessor) (array astart aend)
- (,(make-od-name 'latin->string accessor) array astart aend #'identity)))
+ (,(make-od-name 'latin->string accessor) array astart aend #'cp1252->code-mapper)))
(instantiate-octets-definition define-cp1252->string)
(let ((cp1252-byte (code->cp1252-mapper bits)))
(if cp1252-byte
(setf (sap-ref-8 sap tail) cp1252-byte)
- (stream-encoding-error-and-handle stream bits)))
+ (external-format-encoding-error stream bits)))
(let ((code (cp1252->code-mapper byte)))
(if code
(code-char code)
- (stream-decoding-error stream byte)))) ;; TODO -- error check
+ (external-format-decoding-error stream byte)))) ;; TODO -- error check
(define-unibyte-mapper cp1253->code-mapper code->cp1253-mapper
(#x80 #x20AC) ; EURO SIGN
(declaim (inline get-cp1253-bytes))
(defun get-cp1253-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
- (get-latin-bytes #'identity :cp1253 string pos end))
+ (type simple-string string)
+ (type array-range pos end))
+ (get-latin-bytes #'code->cp1253-mapper :cp1253 string pos end))
(defun string->cp1253 (string sstart send null-padding)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range sstart send))
+ (type simple-string string)
+ (type array-range sstart send))
(values (string->latin% string sstart send #'get-cp1253-bytes null-padding)))
(defmacro define-cp1253->string* (accessor type)
(let ((name (make-od-name 'cp1253->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
- (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
+ (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'cp1253->code-mapper)))))
(instantiate-octets-definition define-cp1253->string*)
(defmacro define-cp1253->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp1253->string accessor) (array astart aend)
- (,(make-od-name 'latin->string accessor) array astart aend #'identity)))
+ (,(make-od-name 'latin->string accessor) array astart aend #'cp1253->code-mapper)))
(instantiate-octets-definition define-cp1253->string)
(let ((cp1253-byte (code->cp1253-mapper bits)))
(if cp1253-byte
(setf (sap-ref-8 sap tail) cp1253-byte)
- (stream-encoding-error-and-handle stream bits)))
+ (external-format-encoding-error stream bits)))
(let ((code (cp1253->code-mapper byte)))
(if code
(code-char code)
- (stream-decoding-error stream byte)))) ;; TODO -- error check
+ (external-format-decoding-error stream byte)))) ;; TODO -- error check
(define-unibyte-mapper cp1254->code-mapper code->cp1254-mapper
(#x80 #x20AC) ; EURO SIGN
(declaim (inline get-cp1254-bytes))
(defun get-cp1254-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
- (get-latin-bytes #'identity :cp1254 string pos end))
+ (type simple-string string)
+ (type array-range pos end))
+ (get-latin-bytes #'code->cp1254-mapper :cp1254 string pos end))
(defun string->cp1254 (string sstart send null-padding)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range sstart send))
+ (type simple-string string)
+ (type array-range sstart send))
(values (string->latin% string sstart send #'get-cp1254-bytes null-padding)))
(defmacro define-cp1254->string* (accessor type)
(let ((name (make-od-name 'cp1254->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
- (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
+ (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'cp1254->code-mapper)))))
(instantiate-octets-definition define-cp1254->string*)
(defmacro define-cp1254->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp1254->string accessor) (array astart aend)
- (,(make-od-name 'latin->string accessor) array astart aend #'identity)))
+ (,(make-od-name 'latin->string accessor) array astart aend #'cp1254->code-mapper)))
(instantiate-octets-definition define-cp1254->string)
(let ((cp1254-byte (code->cp1254-mapper bits)))
(if cp1254-byte
(setf (sap-ref-8 sap tail) cp1254-byte)
- (stream-encoding-error-and-handle stream bits)))
+ (external-format-encoding-error stream bits)))
(let ((code (cp1254->code-mapper byte)))
(if code
(code-char code)
- (stream-decoding-error stream byte)))) ;; TODO -- error check
+ (external-format-decoding-error stream byte)))) ;; TODO -- error check
(define-unibyte-mapper cp1255->code-mapper code->cp1255-mapper
(#x80 #x20AC) ; EURO SIGN
(declaim (inline get-cp1255-bytes))
(defun get-cp1255-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
- (get-latin-bytes #'identity :cp1255 string pos end))
+ (type simple-string string)
+ (type array-range pos end))
+ (get-latin-bytes #'code->cp1255-mapper :cp1255 string pos end))
(defun string->cp1255 (string sstart send null-padding)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range sstart send))
+ (type simple-string string)
+ (type array-range sstart send))
(values (string->latin% string sstart send #'get-cp1255-bytes null-padding)))
(defmacro define-cp1255->string* (accessor type)
(let ((name (make-od-name 'cp1255->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
- (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
+ (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'cp1255->code-mapper)))))
(instantiate-octets-definition define-cp1255->string*)
(defmacro define-cp1255->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp1255->string accessor) (array astart aend)
- (,(make-od-name 'latin->string accessor) array astart aend #'identity)))
+ (,(make-od-name 'latin->string accessor) array astart aend #'cp1255->code-mapper)))
(instantiate-octets-definition define-cp1255->string)
(let ((cp1255-byte (code->cp1255-mapper bits)))
(if cp1255-byte
(setf (sap-ref-8 sap tail) cp1255-byte)
- (stream-encoding-error-and-handle stream bits)))
+ (external-format-encoding-error stream bits)))
(let ((code (cp1255->code-mapper byte)))
(if code
(code-char code)
- (stream-decoding-error stream byte)))) ;; TODO -- error check
+ (external-format-decoding-error stream byte)))) ;; TODO -- error check
(define-unibyte-mapper cp1256->code-mapper code->cp1256-mapper
(#x80 #x20AC) ; EURO SIGN
(declaim (inline get-cp1256-bytes))
(defun get-cp1256-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
- (get-latin-bytes #'identity :cp1256 string pos end))
+ (type simple-string string)
+ (type array-range pos end))
+ (get-latin-bytes #'code->cp1256-mapper :cp1256 string pos end))
(defun string->cp1256 (string sstart send null-padding)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range sstart send))
+ (type simple-string string)
+ (type array-range sstart send))
(values (string->latin% string sstart send #'get-cp1256-bytes null-padding)))
(defmacro define-cp1256->string* (accessor type)
(let ((name (make-od-name 'cp1256->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
- (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
+ (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'cp1256->code-mapper)))))
(instantiate-octets-definition define-cp1256->string*)
(defmacro define-cp1256->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp1256->string accessor) (array astart aend)
- (,(make-od-name 'latin->string accessor) array astart aend #'identity)))
+ (,(make-od-name 'latin->string accessor) array astart aend #'cp1256->code-mapper)))
(instantiate-octets-definition define-cp1256->string)
(let ((cp1256-byte (code->cp1256-mapper bits)))
(if cp1256-byte
(setf (sap-ref-8 sap tail) cp1256-byte)
- (stream-encoding-error-and-handle stream bits)))
+ (external-format-encoding-error stream bits)))
(let ((code (cp1256->code-mapper byte)))
(if code
(code-char code)
- (stream-decoding-error stream byte)))) ;; TODO -- error check
+ (external-format-decoding-error stream byte)))) ;; TODO -- error check
(define-unibyte-mapper cp1257->code-mapper code->cp1257-mapper
(#x80 #x20AC) ; EURO SIGN
(declaim (inline get-cp1257-bytes))
(defun get-cp1257-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
- (get-latin-bytes #'identity :cp1257 string pos end))
+ (type simple-string string)
+ (type array-range pos end))
+ (get-latin-bytes #'code->cp1257-mapper :cp1257 string pos end))
(defun string->cp1257 (string sstart send null-padding)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range sstart send))
+ (type simple-string string)
+ (type array-range sstart send))
(values (string->latin% string sstart send #'get-cp1257-bytes null-padding)))
(defmacro define-cp1257->string* (accessor type)
(let ((name (make-od-name 'cp1257->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
- (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
+ (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'cp1257->code-mapper)))))
(instantiate-octets-definition define-cp1257->string*)
(defmacro define-cp1257->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp1257->string accessor) (array astart aend)
- (,(make-od-name 'latin->string accessor) array astart aend #'identity)))
+ (,(make-od-name 'latin->string accessor) array astart aend #'cp1257->code-mapper)))
(instantiate-octets-definition define-cp1257->string)
(let ((cp1257-byte (code->cp1257-mapper bits)))
(if cp1257-byte
(setf (sap-ref-8 sap tail) cp1257-byte)
- (stream-encoding-error-and-handle stream bits)))
+ (external-format-encoding-error stream bits)))
(let ((code (cp1257->code-mapper byte)))
(if code
(code-char code)
- (stream-decoding-error stream byte)))) ;; TODO -- error check
+ (external-format-decoding-error stream byte)))) ;; TODO -- error check
(define-unibyte-mapper cp1258->code-mapper code->cp1258-mapper
(#x80 #x20AC) ; EURO SIGN
(declaim (inline get-cp1258-bytes))
(defun get-cp1258-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
- (get-latin-bytes #'identity :cp1258 string pos end))
+ (type simple-string string)
+ (type array-range pos end))
+ (get-latin-bytes #'code->cp1258-mapper :cp1258 string pos end))
(defun string->cp1258 (string sstart send null-padding)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range sstart send))
+ (type simple-string string)
+ (type array-range sstart send))
(values (string->latin% string sstart send #'get-cp1258-bytes null-padding)))
(defmacro define-cp1258->string* (accessor type)
(let ((name (make-od-name 'cp1258->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
- (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
+ (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'cp1258->code-mapper)))))
(instantiate-octets-definition define-cp1258->string*)
(defmacro define-cp1258->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp1258->string accessor) (array astart aend)
- (,(make-od-name 'latin->string accessor) array astart aend #'identity)))
+ (,(make-od-name 'latin->string accessor) array astart aend #'cp1258->code-mapper)))
(instantiate-octets-definition define-cp1258->string)
(let ((cp1258-byte (code->cp1258-mapper bits)))
(if cp1258-byte
(setf (sap-ref-8 sap tail) cp1258-byte)
- (stream-encoding-error-and-handle stream bits)))
+ (external-format-encoding-error stream bits)))
(let ((code (cp1258->code-mapper byte)))
(if code
(code-char code)
- (stream-decoding-error stream byte)))) ;; TODO -- error check
+ (external-format-decoding-error stream byte)))) ;; TODO -- error check