Lines Matching defs:char
8 (defstruct unicode-char
37 (unless (eql (char name-string 0) #\<)
68 (push (make-unicode-char :code (transform code)
76 (dolist (name (list* "HANGUL SYLLABLE" "CJK COMPATIBILITY" (mapcar #'unicode-char-name all-chars)))
128 (format ostream "static const char unicode_name_words[~D] = {~%"
197 ;; Compute the word-indices for every unicode-char.
199 (let ((name (unicode-char-name uc))
213 (setf (unicode-char-word-indices uc)
234 :key #'unicode-char-word-indices
238 (reduce #'+ (mapcar (lambda (uc) (length (unicode-char-word-indices uc))) all-chars))
244 (coerce (unicode-char-word-indices uc) 'list)
248 (format ostream "~40T/* ~A */" (unicode-char-name uc))
251 (setf (unicode-char-word-indices-index uc) i)
252 (incf i (length (unicode-char-word-indices uc)))
260 (unicode-char-code uc)
261 (unicode-char-word-indices-index uc)
264 (format ostream "~21T/* ~A */" (unicode-char-name uc))
272 (dolist (uc (sort (copy-list all-chars) #'< :key #'unicode-char-code))
274 (unicode-char-code uc)
275 (unicode-char-word-indices-index uc)
278 (format ostream "~21T/* ~A */" (unicode-char-name uc))
284 (reduce #'max (mapcar (lambda (uc) (length (unicode-char-name uc))) all-chars))
287 (reduce #'max (mapcar (lambda (uc) (length (unicode-char-word-indices uc))) all-chars))
Indexes created Wed Apr 22 00:22:44 UTC 2026