-(define (get-coding-table coding)
- (let ((entry (assoc-get coding encoding-alist #f)))
- (if entry (cdr entry)
- (cdr (read-coding-file coding)))))
-
-(define (get-coding-vector coding)
- (let ((entry (assoc-get coding encoding-alist #f)))
- (if entry (car entry)
- (car (read-coding-file coding)))))
-
-(define-public (encoded-index font-coding input-coding code)
- (format (current-error-port) "CODE: ~S\n" code)
- (let* ((font (get-coding-table font-coding))
- (in (get-coding-vector input-coding))
- (char (vector-ref in code)))
- (format (current-error-port) "CHAR: ~S\n" char)
- (hash-ref font char)))
-
-(define-public (reencode-string font-coding input-coding s)
- ;; ughr?
- (list->string
- (map integer->char
- (map (lambda (x) (encoded-index font-coding input-coding x))
- ;;(map char->integer (string->list s))))))
- (map char->integer (plain-string->list s))))))