Mercurial > emacs
view admin/charsets/eucjp-ms.awk @ 90541:b7130e76c2f9
Include window.h.
(font_lispy_object): New function.
(font_prepare_composition): Check LGLYPH_FORM (g) to detect the
end of valid glyph.
(font_close_object): Fix getting (struct font *).
(font_at): New function.
(Ffont_get): If FONT is a font-object, get entity from it.
(Ffont_make_gstring): Initialize elements of glyphs with nil.
(Ffont_fill_gstring): Use macro LGSTRING_XXX and LGLYPH_XXX. Fix
range check.
(Ffont_at): New function.
(syms_of_font): Defsubr Sfont_at.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 24 Jul 2006 04:42:53 +0000 |
parents | e0e4e6a0599f |
children | c50a10842bd9 |
line wrap: on
line source
# eucjp-ms.awk -- Generate a translation table for eucJP-ms. # Copyright (C) 2004 # National Institute of Advanced Industrial Science and Technology (AIST) # Registration Number H13PRO009 # # This file is part of GNU Emacs. # # GNU Emacs is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2, or (at your option) # any later version. # # GNU Emacs is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with GNU Emacs; see the file COPYING. If not, write to the # Free Software Foundation, Inc., 59 Temple Place - Suite 330, # Boston, MA 02111-1307, USA. # Comment: # eucJP-ms is one of eucJP-open encoding defined at this page: # http://www.opengroup.or.jp/jvc/cde/appendix.html BEGIN { print ";;; eucjp-ms.el -- translation table for eucJP-ms. -*- no-byte-compile: t -*-"; print ";;; Automatically genrated from eucJP-13th.txt, eucJP-udc.txt, eucJP-ibmext.txt"; print "(let ((map"; printf " '(;JISEXT<->UNICODE"; tohex["A"] = 10; tohex["B"] = 11; tohex["C"] = 12; tohex["D"] = 13; tohex["E"] = 14; tohex["F"] = 15; } function decode_hex(str) { n = 0; len = length(str); for (i = 1; i <= len; i++) { c = substr(str, i, 1); if (c >= "0" && c <= "9") n = n * 16 + (c - "0"); else n = n * 16 + tohex[c]; } return n; } /0x8F/ { code = decode_hex(substr($1, 5, 4)); code -= 32896; # code -= 0x8080 printf "\n (#x%04x #x%s)", code, substr($2, 3, 4); next; } /0x[A-F]/ { code = decode_hex(substr($1, 3, 4)); code -= 32896; # code -= 0x8080 printf "\n (#x%04x . #x%s)", code, substr($2, 3, 4); } END { print ")))"; print " (mapc #'(lambda (x)"; print " (if (integerp (cdr x))"; print " (setcar x (decode-char 'japanese-jisx0208 (car x)))"; print " (setcar x (decode-char 'japanese-jisx0212 (car x)))"; print " (setcdr x (cadr x))))"; print " map)"; print " (define-translation-table 'eucjp-ms-decode map)"; print " (mapc #'(lambda (x)"; print " (let ((tmp (car x)))"; print " (setcar x (cdr x)) (setcdr x tmp)))"; print " map)"; print " (define-translation-table 'eucjp-ms-encode map))"; } # arch-tag: d9cc7af7-2d6e-48cd-8eed-a6d25226de7c