-
-(declaim (inline get-x-mac-cyrillic-bytes))
-(defun get-x-mac-cyrillic-bytes (string pos)
- (declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos))
- (get-latin-bytes #'code->x-mac-cyrillic-mapper :x-mac-cyrillic string pos))
-
-(defun string->x-mac-cyrillic (string sstart send null-padding)
- (declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range sstart send))
- (values (string->latin% string sstart send #'get-x-mac-cyrillic-bytes null-padding)))
-
-(defmacro define-x-mac-cyrillic->string* (accessor type)
- (declare (ignore type))
- (let ((name (make-od-name 'x-mac-cyrillic->string* accessor)))
- `(progn
- (defun ,name (string sstart send array astart aend)
- (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'x-mac-cyrillic->code-mapper)))))
-
-(instantiate-octets-definition define-x-mac-cyrillic->string*)
-
-(defmacro define-x-mac-cyrillic->string (accessor type)
- (declare (ignore type))
- `(defun ,(make-od-name 'x-mac-cyrillic->string accessor) (array astart aend)
- (,(make-od-name 'latin->string accessor) array astart aend #'x-mac-cyrillic->code-mapper)))
-
-(instantiate-octets-definition define-x-mac-cyrillic->string)
-
-(add-external-format-funs '(:x-mac-cyrillic :|x-mac-cyrillic|)
- '(x-mac-cyrillic->string-aref string->x-mac-cyrillic))
-
-(define-external-format (:x-mac-cyrillic :|x-mac-cyrillic|)
- 1 t
- (let ((x-mac-cyrillic-byte (code->x-mac-cyrillic-mapper bits)))
- (if x-mac-cyrillic-byte
- (setf (sap-ref-8 sap tail) x-mac-cyrillic-byte)
- (external-format-encoding-error stream bits)))
- (let ((code (x-mac-cyrillic->code-mapper byte)))
- (if code
- (code-char code)
- (external-format-decoding-error stream byte)))) ;; TODO -- error check