Introspection

Hello,

I would like to determine the (max) number of bytes a character/units in a certain encoding consumes. Unfortunately there does not seem to be an interface exposed for it (or I just don't see it).

I'm doing it this way:

(defun max-code-units (encoding) (babel::enc-max-units-per-char (babel::get-character-encoding encoding)))

(defun code-unit-size (encoding) (ash (babel::enc-code-unit-size (babel::get-character-encoding encoding)) -3))

(defun max-code-size (encoding) (let ((e (babel::get-character-encoding encoding))) (* (babel::enc-max-units-per-char e) (ash (babel::enc-code-unit-size e) -3))))

Is this a good idea to to that way? Please comment.

Thanks, Frank