Mercurial > emacs
view admin/charsets/eucjp-ms.awk @ 93964:46ac0eab32c3
Revert changes included by mistake in previous commit.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Thu, 10 Apr 2008 07:53:50 +0000 |
parents | c50a10842bd9 |
children | eb2d9dfc8486 |
line wrap: on
line source
# eucjp-ms.awk -- Generate a translation table for eucJP-ms. # Copyright (C) 2004, 2005, 2006, 2007, 2008 # 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 3, 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., 51 Franklin Street, Fifth Floor, # Boston, MA 02110-1301, 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