From 622bd64c083a4dd15a98e178d55d030e89c69947 Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 2 Oct 2001 08:02:52 +0000 Subject: [PATCH] New file. --- non-ideo-dump.el | 72 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 72 insertions(+) create mode 100644 non-ideo-dump.el diff --git a/non-ideo-dump.el b/non-ideo-dump.el new file mode 100644 index 0000000..a487aa9 --- /dev/null +++ b/non-ideo-dump.el @@ -0,0 +1,72 @@ +(let ((ranges + '((#x0000 #x001F "u00000-C0.el") + (#x0020 #x007F "u00020-Basic-Latin.el") + (#x0080 #x009F "u00080-C1.el") + (#x00A0 #x00FF "u000A0-Latin-1-Supplement.el") + (#x0100 #x017F "u00100-Latin-Extended-A.el") + (#x0180 #x024F "u00180-Latin-Extended-B.el") + (#x0250 #x02AF "u00250-IPA-Extensions.el") + (#x02B0 #x02FF "u002B0-Spacing-Modifier-Letters.el") + (#x0300 #x036F "u00300-Combining-Diacritical-Marks.el") + (#x0370 #x03FF "u00370-Greek.el") + (#x0400 #x04FF "u00400-Cyrillic.el") + (#x0530 #x058F "u00530-Armenian.el") + (#x0590 #x05FF "u00590-Hebrew.el") + (#x0600 #x06FF "u00600-Arabic.el") + (#x0700 #x074F "u00700-Syriac.el") + (#x0780 #x07BF "u00780-Thaana.el") + (#x0900 #x097F "u00900-Devanagari.el") + (#x0980 #x09FF "u00980-Bengali.el") + (#x0E00 #x0E7F "u00E00-Thai.el") + (#x0E80 #x0EFF "u00E80-Lao.el") + (#x1200 #x137C "u01200-Ethiopic.el") + (#x13A0 #x13FF "u013A0-Cherokee.el") + (#x1E00 #x1EFF "u01E00-Latin-Extended-Additional.el") + (#x1F00 #x1FFF "u01F00-Greek-Extended.el") + (#x2000 #x206F "u02000-General-Punctuation.el") + (#x2070 #x207F "u02070-Superscripts.el") + (#x2080 #x208F "u02080-Subscripts.el") + (#x20A0 #x20AF "u020A0-Currency-Symbols.el") + (#x20D0 #x20FF "u020D0-Combining-Diacritical-Marks-for-Symbols.el") + (#x2100 #x214F "u02100-Letterlike-Symbols.el") + (#x2150 #x218F "u02150-Number-Forms.el") + (#x2190 #x21FF "u02190-Arrows.el") + (#x2200 #x22FF "u02200-Mathematical-Operators.el") + (#x2300 #x239F "u02300-Miscellaneous-Technical.el") + (#x2400 #x243F "u02400-Control-Pictures.el") + (#x2440 #x244A "u02440-OCR.el") + (#x2460 #x24FF "u02460-Enclosed-Alphanumerics.el") + (#x2500 #x257F "u02500-Box-Drawing.el") + (#x2580 #x259F "u02580-Block-Elements.el") + (#x25A0 #x25FF "u025A0-Geometric-Shapes.el") + (#x2600 #x267F "u02600-Miscellaneous-Symbols.el") + (#x2700 #x27BF "u02700-Dingbats.el") + (#x2800 #x28FF "u02800-Braille-Patterns.el") + (#x2E00 #x2EFF "u02E00-CJK-Radical-Supplement.el") + (#x2F00 #x2FEF "u02F00-Kangxi-Radicals.el") + (#x2FF0 #x2FFF "u02FF0-Ideographic-Description-Characters.el") + (#x3000 #x303F "u03000-CJK-Symbols-and-Punctuation.el" nil Ideograph) + (#x3040 #x309F "u03040-Hiragana.el") + (#x30A0 #x30FF "u030A0-Katakana.el") + (#x3100 #x312F "u03100-Bopomofo.el" 'Bopomofo) + (#x3130 #x318F "u03130-Hangul-Compatibility-Jamo.el") + (#x3190 #x319F "u03190-Kanbun.el") + (#x31A0 #x31BF "u031A0-Bopomofo-Extended.el") + (#x3200 #x32FF "u03200-Enclosed-CJK-Letters-and-Months.el") + (#x3300 #x33FF "u03300-CJK-Compatibility.el") + ;; snip CJK Unified Ideographs + (#xE000 #xF8FF "u0E000-Private-Use.el") + (#xFB00 #xFB4F "u0FB00-Alphabetic-Presentation-Forms.el") + (#xFB50 #xFDFF "u0FB50-Arabic-Presentation-Forms-A.el") + (#xFE20 #xFE2F "u0FE20-Combining-Half-Marks.el") + (#xFE30 #xFE4F "u0FE30-CJK-Compatibility-Forms.el") + (#xFE50 #xFE6F "u0FE50-Small-Form-Variants.el") + (#xFE70 #xFEFF "u0FE70-Arabic-Presentation-Forms-B.el") + (#xFF00 #xFFEF "u0FF00-Halfwidth-and-Fullwidth-Forms.el") + ))) + (dolist (range ranges) + (write-char-range-data-to-file + (car range) (nth 1 range) + (expand-file-name (nth 2 range) "/var/tmp") + (nth 3 range)(nth 4 range)) + )) -- 1.7.10.4