egg-sim.el

   1 ;;; -*- coding: iso-2022-7bit -*-
   2 ;;; egg-sim.el --- EGG Simple Input Method
   3
   4 ;; Copyright (C) 2000 Electrotechnical Laboratory, JAPAN.
   5 ;; Licensed to the Free Software Foundation.
   6 ;; Copyright (C) 2000 TOMURA Satoru <tomura@etl.go.jp>
   7 ;;               2015 Mitsutoshi NAKANO <bkbin005@rinku.zaq.ne.jp>
   8
   9 ;; Author: TOMURA Satoru <tomura@etl.go.jp>
  10
  11 ;; Keywords: mule, multilingual, input method
  12
  13 ;; This file is part of EGG.
  14
  15 ;; EGG is free software; you can redistribute it and/or modify
  16 ;; it under the terms of the GNU General Public License as published by
  17 ;; the Free Software Foundation; either version 2, or (at your option)
  18 ;; any later version.
  19
  20 ;; EGG is distributed in the hope that it will be useful,
  21 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  22 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  23 ;; GNU General Public License for more details.
  24
  25 ;; You should have received a copy of the GNU General Public License
  26 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  27 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  28 ;; Boston, MA 02111-1307, USA.
  29
  30 ;;; Commentary:
  31
  32 ;;; Code:
  33
  34 ;;; This code is based on egg-jsymbol.el of Egg V3.
  35
  36 ;;; 92.10.18 modified for Mule Ver.0.9.6 by K.Handa <handa@etl.go.jp>
  37 ;;;     Moved from egg.el
  38 ;;; 92.12.26 modified for Mule Ver.0.9.7 by T.Shingu <shingu@cpr.canon.co.jp>
  39 ;;;     JIS Hojo Kanji support.
  40
  41 (require 'menudiag)
  42
  43 (provide 'egg-sim)
  44
  45 ;;; modified 2015.01.28 Mitsutoshi NAKANO <bkbin005@rinku.zaq.ne.jp>
  46 ;;; ignore-errors in make-char
  47 ;;; Please see:
  48 ;;; http://sourceforge.jp/projects/tamago-tsunagi/lists/archive/misc/2015-January/000029.html
  49 ;;; http://www.gnu.org/software/emacs/manual/html_node/elisp/Handling-Errors.html
  50 (defun make-char-list (charset &optional from to)
  51   (let ((result nil)
  52         (chars (charset-chars charset))
  53         min max)
  54     (setq min (if (= chars 96) 32 33)
  55           max (if (= chars 96) 127 126))
  56     (setq from (if from (+ min (1- from)) min)
  57           to   (if to (+ min (1- to)) max))
  58     (and (<= min from)
  59          (<= to max)
  60          (cond ((= (charset-dimension charset) 1)
  61                 (while (<= from to)
  62                   (setq result (cons (ignore-errors (char-to-string
  63                                                      (make-char charset to)))
  64                                      result)
  65                         to (1- to)))
  66                 result)
  67                ((= (charset-dimension charset) 2)
  68                 (while (<= from to)
  69                   (let ((code max))
  70                     (while (<= min code)
  71                       (setq result (cons (ignore-errors
  72                                           (char-to-string
  73                                            (make-char charset to code)))
  74                                          result)
  75                             code (1- code))))
  76                   (setq to (1- to)))
  77                 result)))))
  78
  79 (defvar egg-sim-ascii-menu
  80   `(menu "ASCII:" ,(make-char-list 'ascii)))
  81
  82 (defvar egg-sim-latin-1-menu
  83   `(menu "ISO 8859-1:" ,(make-char-list 'latin-iso8859-1)))
  84
  85 (defvar egg-sim-latin-2-menu
  86   `(menu "ISO 8859-2:" ,(make-char-list 'latin-iso8859-2)))
  87
  88 (defvar egg-sim-latin-3-menu
  89   `(menu "ISO 8859-3:" ,(make-char-list 'latin-iso8859-3)))
  90
  91 (defvar egg-sim-latin-4-menu
  92   `(menu "ISO 8859-4:" ,(make-char-list 'latin-iso8859-4)))
  93
  94 (defvar egg-sim-latin-5-menu
  95   `(menu "ISO 8859-9:" ,(make-char-list 'latin-iso8859-9)))
  96
  97 (defvar egg-sim-cyrillic-menu
  98   `(menu "ISO 8859-5:" ,(make-char-list 'cyrillic-iso8859-5)))
  99
 100 (defvar egg-sim-arabic-menu
 101   `(menu "ISO 8859-6:" ,(make-char-list 'arabic-iso8859-6)))
 102
 103 (defvar egg-sim-greek-menu
 104   `(menu "ISO 8859-7:" ,(make-char-list 'greek-iso8859-7)))
 105
 106 (defvar egg-sim-hebrew-menu
 107   `(menu "ISO 8859-8:" ,(make-char-list 'hebrew-iso8859-8)))
 108
 109 (defvar egg-sim-thai-menu
 110   `(menu "TIS620.2529:" ,(make-char-list 'thai-tis620)))
 111
 112 (defvar egg-sim-lao-menu
 113   `(menu "lao:"         ,(make-char-list 'lao)))
 114
 115 (defvar egg-sim-vietnamese-menu
 116   `(menu "Vietnamese:"
 117          (("VISCII" .
 118            (menu "VISCII:"
 119                  (
 120                   "a" "\e,1`\e(B" "\e,1d\e(B" "\e,1c\e(B" "\e,1a\e(B" "\e,1U\e(B"
 121                   "\e,1e\e(B" "\e,1"\e(B" "\e,1F\e(B" "\e,1G\e(B" "\e,1!\e(B" "\e,1#\e(B"
 122                   "\e,1b\e(B" "\e,1%\e(B" "\e,1&\e(B" "\e,1g\e(B" "\e,1$\e(B" "\e,1'\e(B"
 123                   "e" "\e,1i\e(B" "\e,1k\e(B" "\e,1(\e(B" "\e,1h\e(B" "\e,1)\e(B"
 124                   "\e,1j\e(B" "\e,1*\e(B" "\e,1,\e(B" "\e,1-\e(B" "\e,1+\e(B" "\e,1.\e(B"
 125                   "i" "\e,1m\e(B" "\e,1o\e(B" "\e,1n\e(B" "\e,1l\e(B" "\e,18\e(B"
 126                   "o" "\e,1s\e(B" "\e,1v\e(B" "\e,1u\e(B" "\e,1r\e(B" "\e,1w\e(B"
 127                   "\e,1t\e(B" "\e,1/\e(B" "\e,11\e(B" "\e,12\e(B" "\e,10\e(B" "\e,15\e(B"
 128                   "\e,1=\e(B" "\e,1>\e(B" "\e,17\e(B" "\e,1^\e(B" "\e,16\e(B" "\e,1~\e(B"
 129                   "u" "\e,1z\e(B" "\e,1|\e(B" "\e,1{\e(B" "\e,1y\e(B" "\e,1x\e(B"
 130                   "\e,1_\e(B" "\e,1Q\e(B" "\e,1X\e(B" "\e,1f\e(B" "\e,1W\e(B" "\e,1q\e(B"
 131                   "y" "\e,1}\e(B" "\e,1V\e(B" "\e,1[\e(B" "\e,1O\e(B" "\e,1\\e(B"
 132
 133                   "A" "\e,2`\e(B" "\e,2d\e(B" "\e,2c\e(B" "\e,2a\e(B" "\e,2U\e(B"
 134                   "\e,2e\e(B" "\e,2"\e(B" "\e,2F\e(B" "\e,2G\e(B" "\e,2!\e(B" "\e,2#\e(B"
 135                   "\e,2b\e(B" "\e,2%\e(B" "\e,2&\e(B" "\e,2g\e(B" "\e,2$\e(B" "\e,2'\e(B"
 136                   "E" "\e,2h\e(B" "\e,2k\e(B" "\e,2(\e(B" "\e,2i\e(B" "\e,2)\e(B"
 137                   "\e,2j\e(B" "\e,2+\e(B" "\e,2,\e(B" "\e,2-\e(B" "\e,2*\e(B" "\e,2.\e(B"
 138                   "I" "\e,2l\e(B" "\e,2o\e(B" "\e,2n\e(B" "\e,2m\e(B" "\e,28\e(B"
 139                   "O" "\e,2r\e(B" "\e,2v\e(B" "\e,2u\e(B" "\e,2s\e(B" "\e,2w\e(B"
 140                   "\e,2t\e(B" "\e,20\e(B" "\e,21\e(B" "\e,22\e(B" "\e,2/\e(B" "\e,25\e(B"
 141                   "\e,2=\e(B" "\e,26\e(B" "\e,27\e(B" "\e,2^\e(B" "\e,2>\e(B" "\e,2~\e(B"
 142                   "U" "\e,2y\e(B" "\e,2|\e(B" "\e,2{\e(B" "\e,2z\e(B" "\e,2x\e(B"
 143                   "\e,2_\e(B" "\e,2W\e(B" "\e,2X\e(B" "\e,2f\e(B" "\e,2Q\e(B" "\e,2q\e(B"
 144                   "Y" "\e,2O\e(B" "\e,2V\e(B" "\e,2[\e(B" "\e,2}\e(B" "\e,2\\e(B"
 145
 146                   "\e,2p\e(B" "\e,1p\e(B"
 147                   )))
 148
 149           ("VISCII1.1(lower-case)" .
 150            (menu "VISCII1.1 lower-case:"
 151                  ,(make-char-list 'vietnamese-viscii-lower)))
 152           ("VISCII1.1(upper-case)" .
 153            (menu "VISCII1.1 upper-case:"
 154                  ,(make-char-list 'vietnamese-viscii-upper))))))
 155
 156 (defvar egg-sim-chinese-big5-menu
 157   `(menu "Big5:"
 158          (("Level1" .
 159            (menu "Big 5 Level1:" , (make-char-list 'chinese-big5-1)))
 160           ("Level2" .
 161            (menu "Big 5 Level2:" , (make-char-list 'chinese-big5-2))))))
 162
 163 (defvar egg-sim-chinese-cns-menu
 164   `(menu "CNS 11643:"
 165          (("Plane-1" .
 166            (menu "CNS 11643-1:" ,(make-char-list 'chinese-cns11643-1)))
 167           ("Plane- 2" .
 168            (menu "CNS 11643-2:" ,(make-char-list 'chinese-cns11643-2)))
 169           ("Plane-3" .
 170            (menu "CNS 11643-3:" ,(make-char-list 'chinese-cns11643-3)))
 171           ("Plane-4" .
 172            (menu "CNS 11643-4:" ,(make-char-list 'chinese-cns11643-4)))
 173           ("Plane-5" .
 174            (menu "CNS 11643-5:" ,(make-char-list 'chinese-cns11643-5)))
 175           ("Plane-6" .
 176            (menu "CNS 11643-6:" ,(make-char-list 'chinese-cns11643-6)))
 177           ("Plane-7" .
 178            (menu "CNS 11643-7:" ,(make-char-list 'chinese-cns11643-7))))))
 179
 180 (defvar egg-sim-chinese-gb-menu
 181   `(menu "GB 2312:"
 182          (("All" .
 183            (menu "GB 2312:" ,(make-char-list 'chinese-gb2312)))
 184           ("Symbols" .
 185            (menu "GB2312/1:" ,(make-char-list 'chinese-gb2312 1 1)))
 186           ("Numbers" .
 187            (menu "GB2312/2:" ,(make-char-list 'chinese-gb2312 2 2)))
 188           ("Fullwidth ASCII" .
 189            (menu "GB2312/3:" ,(make-char-list 'chinese-gb2312 3 3)))
 190           ("Hiragana" .
 191            (menu "GB2312/4:" ,(make-char-list 'chinese-gb2312 4 4)))
 192           ("Katanaka" .
 193            (menu "GB2312/5:" ,(make-char-list 'chinese-gb2312 5 5)))
 194           ("Greek" .
 195            (menu "GB2312/6:" ,(make-char-list 'chinese-gb2312 6 6)))
 196           ("Cyrillic" .
 197            (menu "GB2312/7:" ,(make-char-list 'chinese-gb2312 7 7)))
 198           ("Pinyin/Bopomofo" .
 199            (menu "GB2312/8:" ,(make-char-list 'chinese-gb2312 8 8)))
 200           ("Box Drawings" .
 201            (menu "GB2312/9:" ,(make-char-list 'chinese-gb2312 9 9)))
 202           )))
 203
 204 (defvar egg-sim-chinese-menu
 205   `(menu "Chinese:"
 206          (("GB2312"  . , egg-sim-chinese-gb-menu)
 207           ("CNS11643" . , egg-sim-chinese-cns-menu)
 208           ("Big5" . , egg-sim-chinese-big5-menu))))
 209
 210 (defvar egg-sim-korean-menu
 211   `(menu "Korean:"
 212          (("KSC5601"  .
 213            (menu "KSC 5601:" ,(make-char-list 'korean-ksc5601)))
 214           ("Symbol" .
 215            (menu "KSC 5601/1-2:" ,(make-char-list 'korean-ksc5601 1 2)))
 216           ("Fullwidth ASCII" .
 217            (menu "KSC 5601/3:" , (make-char-list 'korean-ksc5601 3 3)))
 218           ("Jamo" .
 219            (menu "KSC 5601/4:" , (make-char-list 'korean-ksc5601 4 4)))
 220           ("Roman Number/Greek" .
 221            (menu "KSC 5601/5:" , (make-char-list 'korean-ksc5601 5 5)))
 222           ("Box Drawings" .
 223            (menu "KSC 5601/6:" , (make-char-list 'korean-ksc5601 6 6)))
 224           ("Unit" .
 225            (menu "KSC 5601/7:" , (make-char-list 'korean-ksc5601 7 7)))
 226           ("Misc." .
 227            (menu "KSC 5601/8-9:" , (make-char-list 'korean-ksc5601 8 9)))
 228           ("Hiragana" .
 229            (menu "KSC 5601/10:" , (make-char-list 'korean-ksc5601 10 10)))
 230           ("Katakana" .
 231            (menu "KSC 5601/11:" , (make-char-list 'korean-ksc5601 11 11)))
 232           ("Cyrillic" .
 233            (menu "KSC 5601/12:" , (make-char-list 'korean-ksc5601 12 12)))
 234           ("Hangul" .
 235            (menu "KSC 5601/16-40:" , (make-char-list 'korean-ksc5601 16 40)))
 236           ("Hanja" .
 237            (menu "KSC 5601/42-93:" , (make-char-list 'korean-ksc5601 42 93))))))
 238
 239 (defvar egg-sim-japanese-menu
 240   `(menu "Japanese:"
 241          (("JISX0201" .
 242            (menu "JIS X 0201:"
 243            ,(append (make-char-list 'latin-jisx0201)
 244                     (make-char-list 'katakana-jisx0201))))
 245           ("JISX0208" .
 246            (menu "JIS X 0208:" ,(make-char-list 'japanese-jisx0208)))
 247           ("JISX0212" .
 248            (menu "JIS X 0212:" ,(make-char-list 'japanese-jisx0212)))
 249           ("JISX0208/0212" .
 250            (menu "\e$B5-9fF~NO\e(B:"
 251                  (("JIS\e$BF~NO\e(B" . japanese-jisx0208)
 252                   ("\e$B5-9f\e(B"     .
 253                    (menu "\e$B5-9f\e(B:"     , (make-char-list 'japanese-jisx0208 1 2)))
 254                   ("\e$B1Q?t;z\e(B"   .
 255                    (menu "\e$B1Q?t;z\e(B:"   , (make-char-list 'japanese-jisx0208 3 3)))
 256                   ("\e$B$R$i$,$J\e(B" .
 257                    (menu "\e$B$R$i$,$J\e(B:" , (make-char-list 'japanese-jisx0208 4 4)))
 258                   ("\e$B%+%?%+%J\e(B" .
 259                    (menu "\e$B%+%?%+%J\e(B:" , (make-char-list 'japanese-jisx0208 5 5)))
 260                   ("\e$B%.%j%7%cJ8;z\e(B" .
 261                    (menu "\e$B%.%j%7%cJ8;z\e(B:" , (make-char-list 'japanese-jisx0208 6 6)))
 262                   ("\e$B%-%j%kJ8;z\e(B" .
 263                    (menu "\e$B%-%j%kJ8;z\e(B:" , (make-char-list 'japanese-jisx0208 7 7)))
 264                   ("\e$B7S@~\e(B" .
 265                    (menu "\e$B7S@~\e(B:" , (make-char-list 'japanese-jisx0208 8 8)))
 266                           ;;;"\e$BIt<sF~NO\e(B"  (bushyu-input)
 267                           ;;; "\e$B2h?tF~NO\e(B" (kakusuu-input)
 268                   ("\e$BBh0l?e=`\e(B" .
 269                    (menu "\e$BBh0l?e=`\e(B:" , (make-char-list 'japanese-jisx0208 16 47)))
 270                   ("\e$BBhFs?e=`\e(B" .
 271                    (menu "\e$BBhFs?e=`\e(B:" , (make-char-list 'japanese-jisx0208 48 84)))
 272                   ("\e$BJd=u4A;z\e(B" .
 273                    (menu "\e$BJd=u4A;z\e(B:" , (make-char-list 'japanese-jisx0212 2 77)))))))))
 274
 275 (defvar egg-sim-ipa-menu
 276   `(menu "IPA:" ,(make-char-list 'ipa)))
 277
 278 (defvar egg-sisheng-menu
 279   `(menu "SiSheng characters" ,(make-char-list 'chinese-sisheng)))
 280
 281 (defvar egg-sim-code-input-menu
 282   `(menu "Charset:"
 283          (("JISX0208" . japanese-jisx0208)
 284           ("JISX0212" . japanese-jisx0212)
 285           ("CNS11643-1" . chinese-cns11634-1)
 286           ("CNS11643-2" . chinese-cns11634-2)
 287           ("CNS11643-3" . chinese-cns11634-3)
 288           ("CNS11643-4" . chinese-cns11634-4)
 289           ("CNS11643-5" . chinese-cns11634-5)
 290           ("CNS11643-6" . chinese-cns11634-6)
 291           ("CNS11643-7" . chinese-cns11634-7)
 292           ("Big5-1" . chinese-big5-1)
 293           ("Big5-2" . chinese-big5-2)
 294           ("GB2312" . chinese-gb2312)
 295           ("KSC5601" . korean-ksc5601))))
 296
 297 (defvar egg-simple-input-method-menu-item-list
 298   `(("Code Input" . ,egg-sim-code-input-menu)
 299     ("Arabic"   . , egg-sim-arabic-menu)
 300     ("ASCII"    . , egg-sim-ascii-menu)
 301     ("Chinese"  . , egg-sim-chinese-menu)
 302     ("Cyrillic" . , egg-sim-cyrillic-menu)
 303     ("Greek"    . , egg-sim-greek-menu)
 304     ("Hebrew"   . , egg-sim-hebrew-menu)
 305     ("Japanese" . , egg-sim-japanese-menu)
 306     ("Korean"   . , egg-sim-korean-menu)
 307     ("Latin" .
 308      (menu "Latin:"
 309            (("Latin-1" . , egg-sim-latin-1-menu)
 310             ("Latin-2" . , egg-sim-latin-2-menu)
 311             ("Latin-3" . , egg-sim-latin-3-menu)
 312             ("Latin-4" . , egg-sim-latin-4-menu)
 313             ("Latin-5" . , egg-sim-latin-5-menu))))
 314     ("Thai/Lao" .
 315      (menu "Thai/Lao:"
 316            (("Thai" . , egg-sim-thai-menu)
 317             ("Lao"  . , egg-sim-lao-menu))))
 318     ("Vietnamese" . , egg-sim-vietnamese-menu)
 319     ("Phonetic code" .
 320      (menu "Phonetic code:"
 321            (("SISHENG" . , egg-sisheng-menu)
 322             ("IPA" .  , egg-sim-ipa-menu))))
 323     ))
 324
 325 (defvar egg-language-environment-alist
 326   `(("ASCII"         . , egg-sim-ascii-menu)
 327     ("Chinese-BIG5"  . , egg-sim-chinese-big5-menu)
 328     ("Chinese-CNS"   . , egg-sim-chinese-cns-menu)
 329     ("Chinese-GB"    . , egg-sim-chinese-gb-menu)
 330     ("Cyrillic-ISO"  . , egg-sim-cyrillic-menu)
 331     ("Cyrillic-KOI8" . , egg-sim-cyrillic-menu)
 332     ("Cyrillic-ALT"  . , egg-sim-cyrillic-menu)
 333     ("Czech"         . , egg-sim-latin-2-menu)
 334     ("Devanagari")
 335     ("English"       . , egg-sim-ascii-menu)
 336     ("Ethiopic")
 337     ("German"        . , egg-sim-latin-1-menu)
 338     ("Greek"         . , egg-sim-greek-menu)
 339     ("Hebrew"        . , egg-sim-hebrew-menu)
 340     ("Hindi")
 341     ("IPA"           . , egg-sim-ipa-menu)
 342     ("Japanese"      . , egg-sim-japanese-menu)
 343     ("Korean"        . , egg-sim-korean-menu)
 344     ("Lao"           . , egg-sim-lao-menu)
 345     ("Latin-1"       . , egg-sim-latin-1-menu)
 346     ("Latin-2"       . , egg-sim-latin-2-menu)
 347     ("Latin-3"       . , egg-sim-latin-3-menu)
 348     ("Latin-4"       . , egg-sim-latin-4-menu)
 349     ("Latin-5"       . , egg-sim-latin-5-menu)
 350     ("Romaian"       . , egg-sim-latin-2-menu)
 351     ("Slovenian"     . , egg-sim-latin-2-menu)
 352     ("Slovak"        . , egg-sim-latin-2-menu)
 353     ("Thai"          . , egg-sim-thai-menu)
 354     ("Tibetan")
 355     ("Turkish"       . , egg-sim-latin-5-menu)
 356     ("Vietnamese"    . , egg-sim-vietnamese-menu)))
 357
 358 (defvar egg-simple-input-method-menu
 359   `(menu "Character set:" , egg-simple-input-method-menu-item-list))
 360
 361 ;;;;###autoload
 362 (defun egg-simple-input-method ()
 363   (interactive)
 364   (let ((result (egg-simple-input-menu)))
 365     (cond((stringp result)
 366           (insert result))
 367          ((symbolp result)
 368           (egg-character-code-input result
 369                                     (format "%s/Character Code in Hexadecimal:"
 370                                             (charset-description result)))))))
 371
 372 (defun egg-simple-input-menu ()
 373   (let ((menu (cdr-safe (assoc current-language-environment
 374                                egg-language-environment-alist))))
 375     (if menu
 376         (menudiag-select
 377          `(menu "Character set:" ,(cons (cons current-language-environment
 378                                               menu)
 379                                         egg-simple-input-method-menu-item-list)))
 380       (menudiag-select egg-simple-input-method-menu))))
 381
 382 (defun egg-character-code-input (charset prompt)
 383   (egg-insert-character-code-from-minibuffer charset prompt))
 384
 385 (defun egg-insert-character-code-from-minibuffer (charset prompt)
 386   (let ((str (read-from-minibuffer prompt)) val)
 387     (while (null (setq val (egg-read-character-code-from-string str charset)))
 388       (beep)
 389       (setq str (read-from-minibuffer prompt str)))
 390     (insert (make-char charset (car val) (cdr val)))))
 391
 392 (defun egg-hexadigit-value (ch)
 393   (cond((and (<= ?0 ch) (<= ch ?9))
 394         (- ch ?0))
 395        ((and (<= ?a ch) (<= ch ?f))
 396         (+ (- ch ?a) 10))
 397        ((and (<= ?A ch) (<= ch ?F))
 398         (+ (- ch ?A) 10))))
 399
 400 (defun egg-read-character-code-from-string (str charset)
 401   (if (and (= (length str) 4)
 402            (<= 2 (egg-hexadigit-value (aref str 0)))
 403            (egg-hexadigit-value (aref str 1))
 404            (<= 2 (egg-hexadigit-value (aref str 2)))
 405            (egg-hexadigit-value (aref str 3)))
 406       (let ((code1 (+ (* 16 (egg-hexadigit-value (aref str 0)))
 407                       (egg-hexadigit-value (aref str 1))))
 408             (code2 (+ (* 16 (egg-hexadigit-value (aref str 2)))
 409                       (egg-hexadigit-value (aref str 3))))
 410             (min (if (= (charset-chars charset) 94)
 411                      33 32))
 412             (max (if (= (charset-chars charset) 94)
 413                      126 127)))
 414         (and (<= min code1)
 415              (<= code1 max)
 416              (<= min code2)
 417              (<= code2 max)
 418              (cons code1 code2)))))
 419
 420 ;;;
 421 ;;;
 422 ;;;
 423
 424 (defun make-non-iso2022-code-table-file (name)
 425   (with-temp-file name
 426     (set-buffer-multibyte nil)
 427     (insert ";;; -*- coding: -*-\n\n")
 428     (insert " |")
 429
 430     (let ((i 0))
 431       (while (< i 16)
 432         (insert (format "  %X " i))
 433         (setq i (1+ i))))
 434     (insert "\n")
 435
 436     (insert "-+")
 437     (let ((i 0))
 438       (while (< i 16)
 439         (insert (format "----"))
 440         (setq i (1+ i))))
 441     (insert "\n")
 442
 443     (let ((i 0))
 444       (while (< i 16)
 445         (insert (format "%X|" i))
 446         (let ((j 0) (c i))
 447           (while (< j 16)
 448             (insert (format " \"%c\"" c))
 449             (setq j (1+ j)
 450                   c (+ c 16)))
 451           (insert (format "\n")))
 452         (setq i (1+ i))))))
 453
 454 (defun make-iso2022-94char-code-table-file (name)
 455   (with-temp-file name
 456     (set-buffer-multibyte nil)
 457     (insert ";;; -*- coding: -*-\n\n")
 458     (insert " |")
 459     (let ((i 0))
 460       (while (< i 16)
 461         (insert (format "  %X " i))
 462         (setq i (1+ i))))
 463     (insert "\n")
 464
 465     (insert "-+")
 466     (let ((i 0))
 467       (while (< i 16)
 468         (insert (format "----"))
 469         (setq i (1+ i))))
 470     (insert "\n")
 471
 472     (let ((i 0))
 473       (while (< i 16)
 474         (insert (format "%X|" i))
 475         (let ((j 0) (c i))
 476           (while (< j 16)
 477             (if (or (<= c 31)
 478                     (= c 127)
 479                     (and (<= 128 c)
 480                          (<= c 160))
 481                     (= c 255))
 482                 (insert "    ")
 483               (insert (format " \"%c\"" c)))
 484             (setq j (1+ j)
 485                   c (+ c 16)))
 486           (insert (format "\n")))
 487         (setq i (1+ i))))))
 488
 489 (defun make-iso2022-96char-code-table-file (name)
 490   (with-temp-file name
 491     (set-buffer-multibyte nil)
 492     (insert ";;; -*- coding: -*-\n\n")
 493     (insert " |")
 494     (let ((i 0))
 495       (while (< i 16)
 496         (insert (format "  %X " i))
 497         (setq i (1+ i))))
 498     (insert "\n")
 499
 500     (insert "-+")
 501     (let ((i 0))
 502       (while (< i 16)
 503         (insert (format "----"))
 504         (setq i (1+ i))))
 505     (insert "\n")
 506
 507     (let ((i 0))
 508       (while (< i 16)
 509         (insert (format "%X|" i))
 510         (let ((j 0) (c i))
 511           (while (< j 16)
 512             (if (or (<= c 31)
 513                     (= c 127)
 514                     (and (<= 128 c)
 515                          (< c 160)))
 516                 (insert "    ")
 517               (insert (format " \"%c\"" c)))
 518             (setq j (1+ j)
 519                   c (+ c 16)))
 520           (insert (format "\n")))
 521         (setq i (1+ i))))))
 522
 523 (defun make-euc-code-table-file (name)
 524   (with-temp-file name
 525     (set-buffer-multibyte nil)
 526     (insert ";;; -*- coding: -*-\n\n")
 527     (insert "  |")
 528     (let ((i 1))
 529       (while (<= i 94)
 530         ;;                "XX"
 531         (insert (format "  %02d " i))
 532         (setq i (1+ i))))
 533     (insert "\n")
 534
 535     (insert "-+")
 536     (let ((i 1))
 537       (while (<= i 94)
 538         (insert (format "-----"))
 539         (setq i (1+ i))))
 540     (insert "\n")
 541
 542     (let ((i 1))
 543       (while (<= i 94)
 544         (insert (format "%02d|" i))
 545         (let ((j 1))
 546           (while (<= j 94)
 547             (insert (format " \"%c%c\""
 548                             (+ i 32 128)
 549                             (+ j 32 128)))
 550             (setq j (1+ j)))
 551           (insert (format "\n")))
 552         (setq i (1+ i))))))