Lines Matching defs:char
8 (defstruct unicode-char
37 (unless (eql (char name-string 0) #\<)
70 (push (make-unicode-char :code (transform code)
78 (dolist (name (list* "HANGUL SYLLABLE" "CJK COMPATIBILITY" (mapcar #'unicode-char-name all-chars)))
131 (format ostream "static const char unicode_name_words[~D] = {~%"
200 ;; Compute the word-indices for every unicode-char.
202 (let ((name (unicode-char-name uc))
216 (setf (unicode-char-word-indices uc)
237 :key #'unicode-char-word-indices
241 (reduce #'+ (mapcar (lambda (uc) (length (unicode-char-word-indices uc))) all-chars))
247 (coerce (unicode-char-word-indices uc) 'list)
251 (format ostream "~40T/* ~A */" (unicode-char-name uc))
254 (setf (unicode-char-word-indices-index uc) i)
255 (incf i (length (unicode-char-word-indices uc)))
265 (unicode-char-code uc)
266 (unicode-char-word-indices-index uc)
269 (format ostream "~21T/* ~A */" (unicode-char-name uc))
279 (dolist (uc (sort (copy-list all-chars) #'< :key #'unicode-char-code))
281 (unicode-char-code uc)
282 (unicode-char-word-indices-index uc)
285 (format ostream "~21T/* ~A */" (unicode-char-name uc))
291 (reduce #'max (mapcar (lambda (uc) (length (unicode-char-name uc))) all-chars))
294 (reduce #'max (mapcar (lambda (uc) (length (unicode-char-word-indices uc))) all-chars))