Lines Matching defs:glyph
29 ;; This file provides character(Unicode) to glyph(CDAC) conversion and
137 (defvar tml-char-glyph
205 (defvar tml-char-glyph-hash
208 tml-char-glyph)
211 (defvar tml-char-glyph-regexp
212 (tamil-regexp-of-hashtbl-keys tml-char-glyph-hash))
219 (defvar tml-glyph-reorder-key-glyphs "[$,4)j)k)l(B]")
221 (defvar tml-glyph-reordering-regexp-list
226 (defvar tml-glyph-glyph
315 (defvar tml-glyph-glyph-hash
318 tml-glyph-glyph)
321 (defvar tml-glyph-glyph-regexp
322 (tamil-regexp-of-hashtbl-keys tml-glyph-glyph-hash))
332 (let (glyph-str match-str glyph-reorder-regexps)
337 ;; char-glyph-conversion
338 (while (re-search-forward tml-char-glyph-regexp nil t)
340 (setq glyph-str
341 (concat glyph-str (gethash match-str tml-char-glyph-hash))))
342 ;; glyph reordering
343 (when (string-match tml-glyph-reorder-key-glyphs glyph-str)
344 (if (string-match (car tml-glyph-reordering-regexp-list)
345 glyph-str)
346 (setq glyph-str
347 (replace-match (cdr tml-glyph-reordering-regexp-list)
348 nil nil glyph-str))))
349 ;; glyph-glyph-conversion
350 (when (string-match tml-glyph-glyph-regexp glyph-str)
351 (setq match-str (match-string 0 glyph-str))
352 (setq glyph-str
353 (replace-match (gethash match-str tml-glyph-glyph-hash)
354 nil nil glyph-str)))
356 (setq glyph-str
363 glyph-str))))
364 (compose-region from to glyph-str)))))