isd-turtle.el

   1 ;;; isd-turtle.el --- Utility to dump ideographic-structure as Turtle files
   2
   3 ;; Copyright (C) 2017, 2018 MORIOKA Tomohiko
   4
   5 ;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
   6 ;; Keywords: Ideographic Structures (漢字構造、解字), IDS, CHISE, RDF, Turtle
   7
   8 ;; This file is a part of CHISE-ISD (Ideographic Structure Database).
   9
  10 ;; This program is free software; you can redistribute it and/or
  11 ;; modify it under the terms of the GNU General Public License as
  12 ;; published by the Free Software Foundation; either version 2, or (at
  13 ;; your option) any later version.
  14
  15 ;; This program is distributed in the hope that it will be useful, but
  16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  18 ;; General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with this program; see the file COPYING.  If not, write to
  22 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  23 ;; Boston, MA 02111-1307, USA.
  24
  25 ;;; Code:
  26
  27 (require 'cwiki-common)
  28
  29 (defvar isd-url-prefix "http://rdf.chise.org/data/")
  30
  31 (setq est-coded-charset-priority-list
  32   '(; =ucs
  33     =mj
  34     =adobe-japan1-0
  35     =adobe-japan1-1
  36     =adobe-japan1-2
  37     =adobe-japan1-3
  38     =adobe-japan1-4
  39     =adobe-japan1-5
  40     =adobe-japan1-6
  41     =ucs@iso
  42     =jis-x0208 =jis-x0208@1990
  43     =jis-x0213-1
  44     =jis-x0213-1@2000 =jis-x0213-1@2004
  45     =jis-x0213-2
  46     =jis-x0212
  47     =gt
  48     =hanyo-denshi/ks
  49     =hanyo-denshi/tk
  50     =ucs-itaiji-001
  51     =ucs-itaiji-002
  52     =ucs-itaiji-003
  53     =ucs-itaiji-004
  54     =ucs-itaiji-005
  55     =ucs-itaiji-006
  56     =ucs-itaiji-007
  57     =ucs-itaiji-008
  58     =ucs-itaiji-009
  59     =ucs-itaiji-010
  60     =ucs-itaiji-084
  61     =ucs-var-001
  62     =ucs-var-002
  63     =ucs-var-003
  64     =ucs-var-004
  65     =ucs-var-005
  66     =cns11643-1 =cns11643-2 =cns11643-3
  67     =cns11643-4 =cns11643-5 =cns11643-6 =cns11643-7
  68     =gb2312
  69     =big5-cdp
  70     =ks-x1001
  71     =gt-k
  72     =ucs@unicode
  73     =ucs@JP/hanazono
  74     =gb12345
  75     =ucs@cns
  76     =ucs@gb
  77     =zinbun-oracle =>zinbun-oracle
  78     =daikanwa
  79     =ruimoku-v6
  80     =cbeta =jef-china3
  81     =daikanwa/+2p
  82     =+>ucs@iso =+>ucs@unicode
  83     =+>ucs@jis
  84     =+>ucs@cns
  85     =+>ucs@ks
  86     =+>ucs@jis/1990
  87     =>mj
  88     =>jis-x0208 =>jis-x0213-1
  89     =>jis-x0208@1997
  90     =>ucs@iwds-1
  91     =>ucs@cognate
  92     =>ucs@component
  93     =>iwds-1
  94     =>ucs@iso
  95     =>ucs@unicode
  96     =>ucs@jis =>ucs@cns =>ucs@ks
  97     =>gt
  98     =>gt-k
  99     =>>ucs@iso =>>ucs@unicode
 100     =>>ucs@jis =>>ucs@cns =>>ucs@ks
 101     =>>gt-k
 102     =>>hanyo-denshi/ks
 103     ==mj
 104     ==ucs@iso
 105     ==ucs@unicode
 106     ==adobe-japan1-0
 107     ==adobe-japan1-1
 108     ==adobe-japan1-2
 109     ==adobe-japan1-3
 110     ==adobe-japan1-4
 111     ==adobe-japan1-5
 112     ==adobe-japan1-6
 113     ==ks-x1001
 114     ==hanyo-denshi/ks
 115     ==hanyo-denshi/tk
 116     ==ucs@jis
 117     ==gt
 118     ==cns11643-1 ==cns11643-2 ==cns11643-3
 119     ==cns11643-4 ==cns11643-5 ==cns11643-6 ==cns11643-7
 120     ==jis-x0212
 121     ==ucs@cns
 122     ==koseki
 123     ==daikanwa
 124     ==gt-k
 125     ==ucs@gb
 126     ==ucs-itaiji-003
 127     ==ucs@JP/hanazono
 128     ==daikanwa/+2p
 129     =>>jis-x0208 =>>jis-x0213-1 =>>jis-x0213-2
 130     =+>jis-x0208 =+>jis-x0213-1 =+>jis-x0213-2
 131     =+>hanyo-denshi/jt
 132     =+>jis-x0208@1978
 133     =>>gt
 134     =+>adobe-japan1
 135     =>>adobe-japan1
 136     =jis-x0208@1983 =jis-x0208@1978
 137     =>ucs-itaiji-001
 138     =>ucs-itaiji-002
 139     =>ucs-itaiji-003
 140     =>ucs-itaiji-004
 141     =>ucs-itaiji-005
 142     =>ucs-itaiji-006
 143     =>ucs-itaiji-007
 144     =>ucs-itaiji-009
 145     ==>ucs@bucs
 146     =big5
 147     =>cbeta
 148     ===mj
 149     ===ucs@iso
 150     ===ucs@unicode
 151     ===hanyo-denshi/ks
 152     ===ks-x1001
 153     ===gt
 154     ===gt-k
 155     ===ucs@ks
 156     ===ucs@gb
 157     =shinjigen
 158     =shinjigen@rev
 159     =shinjigen@1ed
 160     =shinjigen/+p@rev
 161     ==shinjigen
 162     ==shinjigen@rev
 163     ==daikanwa/+p
 164     ==shinjigen@1ed
 165     ===daikanwa/+p
 166     =>daikanwa/ho
 167     ===daikanwa/ho
 168     ))
 169
 170 ;; (defvar isd-turtle-ccs-list nil)
 171 (defvar chise-turtle-ccs-prefix-alist nil)
 172
 173 (defun charset-code-point-format-spec (ccs)
 174   (cond ((memq ccs '(=ucs))
 175          "0x%04X")
 176         (t
 177          (let ((ccs-name (symbol-name ccs)))
 178            (cond
 179             ((string-match
 180               "\\(shinjigen\\|daikanwa/ho\\|=>iwds-1\\)"
 181               ccs-name)
 182              "%04d")
 183             ((string-match
 184               "\\(gt\\|daikanwa\\|adobe-japan1\\|cbeta\\|zinbun-oracle\\|hng\\)"
 185               ccs-name)
 186              "%05d")
 187             ((string-match "\\(hanyo-denshi/ks\\|koseki\\|mj\\)" ccs-name)
 188              "%06d")
 189             ((string-match "hanyo-denshi/tk" ccs-name)
 190              "%08d")
 191             (t
 192              "0x%X"))))))
 193
 194 ;; (defun isd-turtle-uri-encode-feature-name (feature-name)
 195 ;;   (cond
 196 ;;    ((eq '=ucs feature-name)
 197 ;;     "a.ucs")
 198 ;;    ((eq '==>ucs@bucs feature-name)
 199 ;;     "bucs")
 200 ;;    (t
 201 ;;     (mapconcat (lambda (c)
 202 ;;                  (if (eq c ?@)
 203 ;;                      "_"
 204 ;;                    (char-to-string c)))
 205 ;;                (www-uri-encode-feature-name feature-name)
 206 ;;                ""))))
 207 (defun chise-turtle-uri-encode-ccs-name (feature-name)
 208   (cond
 209    ((eq '=ucs feature-name)
 210     "a.ucs")
 211    ((eq '=big5 feature-name)
 212     "a.big5")
 213    ((eq '==>ucs@bucs feature-name)
 214     "bucs")
 215    (t
 216     (mapconcat (lambda (c)
 217                  (cond
 218                   ((eq c ?@)
 219                    "_")
 220                   ((eq c ?+)
 221                    "._.")
 222                   ((eq c ?=)
 223                    ".:.")
 224                   (t
 225                    (char-to-string c))))
 226                (www-uri-encode-feature-name feature-name)
 227                ""))))
 228
 229 ;; (defun isd-turtle-format-ccs-code-point (ccs code-point)
 230 ;;   (unless (memq ccs isd-turtle-ccs-list)
 231 ;;     (setq isd-turtle-ccs-list (cons ccs isd-turtle-ccs-list)))
 232 ;;   (format "%s:%s"
 233 ;;           (isd-turtle-uri-encode-feature-name ccs)
 234 ;;           (format (charset-code-point-format-spec ccs)
 235 ;;                   code-point)))
 236 (defun chise-turtle-format-ccs-code-point (ccs code-point)
 237   (let ((ccs-uri (chise-turtle-uri-encode-ccs-name ccs)))
 238     (unless (assoc ccs-uri chise-turtle-ccs-prefix-alist)
 239       (setq chise-turtle-ccs-prefix-alist
 240             (cons (cons ccs-uri ccs)
 241                   chise-turtle-ccs-prefix-alist)))
 242     (format "%s:%s"
 243             ccs-uri
 244             (format (charset-code-point-format-spec ccs)
 245                     code-point))))
 246
 247 (defun isd-turtle-encode-char (object)
 248   (let ((ccs-list est-coded-charset-priority-list)
 249         ccs ret)
 250     (if (setq ret (encode-char object '=ucs))
 251         (chise-turtle-format-ccs-code-point '=ucs ret)
 252       (while (and ccs-list
 253                   (setq ccs (pop ccs-list))
 254                   (not (setq ret (encode-char object ccs 'defined-only)))))
 255       (cond (ret
 256              (chise-turtle-format-ccs-code-point ccs ret)
 257              )
 258             ((and (setq ccs (car (split-char object)))
 259                   (setq ret (encode-char object ccs)))
 260              (chise-turtle-format-ccs-code-point ccs ret)
 261              )
 262             (t
 263              (format (if est-hide-cgi-mode
 264                          "system-char-id=0x%X"
 265                        "system-char-id:0x%X")
 266                      (encode-char object 'system-char-id))
 267              )))))
 268
 269 (defun isd-turtle-format-component (component separator level prefix)
 270   (cond ((characterp component)
 271          (format "%s %c # %c"
 272                  (isd-turtle-encode-char component)
 273                  separator
 274                  component)
 275          )
 276         ((consp component)
 277          (let ((ret (find-char component)))
 278            (cond (ret
 279                   (format "%s %c # %c"
 280                           (isd-turtle-encode-char ret) separator ret))
 281                  ((setq ret (assq 'ideographic-structure component))
 282                   (if (eq separator ?\;)
 283                       (format "%s ;"
 284                               (isd-turtle-format-char nil nil (cdr ret) (1+ level)
 285                                                       prefix))
 286                     (isd-turtle-format-char nil nil (cdr ret) (1+ level)
 287                                             prefix))))))))
 288
 289 (defun isd-turtle-format-char (ccs code-point &optional ids-list level
 290                                    prefix without-head-char)
 291   (unless level
 292     (setq level 0))
 293   (unless prefix
 294     (setq prefix ""))
 295   (let ((indent (make-string (* level 4) ?\ ))
 296         char
 297         idc idc-str
 298         p1 p2 p3
 299         c1 c2 c3
 300         ret)
 301     (unless ids-list
 302       (if (and ccs code-point
 303                (setq char (decode-char ccs code-point)))
 304           (setq ids-list (get-char-attribute char 'ideographic-structure))))
 305     (setq idc (car ids-list))
 306     (setq c1 (nth 1 ids-list)
 307           c2 (nth 2 ids-list)
 308           c3 (nth 3 ids-list))
 309     (if (char-ref-p idc)
 310         (setq idc (plist-get idc :char)))
 311     (if (and (consp idc)
 312              (setq ret (find-char idc)))
 313         (setq idc ret))
 314     (if (and (consp c1)
 315              (setq ret (find-char c1)))
 316         (setq c1 ret))
 317     (if (and (consp c2)
 318              (setq ret (find-char c2)))
 319         (setq c2 ret))
 320     (if (and (consp c3)
 321              (setq ret (find-char c3)))
 322         (setq c3 ret))
 323     (cond
 324      ((eq idc ?\u2FF0) ; ⿰
 325       (setq p1 'left
 326             p2 'right)
 327       )
 328      ((eq idc ?⿱)
 329       (setq p1 'above
 330             p2 'below)
 331       )
 332      ((eq idc ?⿲)
 333       (setq p1 'left
 334             p2 'middle
 335             p3 'right)
 336       )
 337      ((eq idc ?⿳)
 338       (setq p1 'above
 339             p2 'middle
 340             p3 'below)
 341       )
 342      ((memq idc '(?⿴ ?⿵ ?⿶ ?⿷ ?⿸ ?⿹ ?⿺))
 343       (setq p1 'surround
 344             p2 'filling)
 345       )
 346      ((eq idc ?⿻)
 347       (setq p1 'underlying
 348             p2 'overlaying)
 349       )
 350      ((and idc (eq (encode-char idc '=ucs-itaiji-001) #x2FF6))
 351       (setq idc-str "SLR")
 352       (setq p1 'surround
 353             p2 'filling)
 354       )
 355      ((and idc (eq (encode-char idc '=ucs-var-001) #x2FF0))
 356       (setq idc-str "⿰・SLR")
 357       (setq p1 'left
 358             p2 'right)
 359       )
 360      ((and idc (eq (encode-char idc '=>iwds-1) 307))
 361       (setq idc-str "⿰・⿺")
 362       (setq p1 'left
 363             p2 'right)
 364       )
 365      ((and idc (eq (encode-char idc '=>iwds-1) 305))
 366       (setq idc-str "⿱・⿸")
 367       (setq p1 'above
 368             p2 'below)
 369       )
 370      ((and idc (eq (encode-char idc '=>ucs@component) #x2FF5))
 371       (setq idc-str "⿱・⿵")
 372       (setq p1 'above
 373             p2 'below)
 374       )
 375      )
 376     (cond
 377      (p3
 378       (format "%s
 379 %s    %s:structure [ a idc:%s ;
 380 %s        %s:%-8s %s
 381 %s        %s:%-8s %s
 382 %s        %s:%-8s %s
 383 %s    ]%s"
 384               (if without-head-char
 385                   ""
 386                 (if (and ccs code-point)
 387                     (format "%s   # %c"
 388                             (chise-turtle-format-ccs-code-point ccs code-point)
 389                             char)
 390                   "["))
 391               indent prefix (or idc-str (char-to-string idc))
 392               indent prefix p1 (isd-turtle-format-component c1 ?\; (1+ level) prefix)
 393               indent prefix p2 (isd-turtle-format-component c2 ?\; (1+ level) prefix)
 394               indent prefix p3 (isd-turtle-format-component c3 ?\  (1+ level) prefix)
 395               indent
 396               (if without-head-char
 397                   ""
 398                 (if (null char)
 399                     (format "\n%s]"
 400                             indent)
 401                   "")))
 402       )
 403      (idc
 404       (format "%s
 405 %s    %s:structure [ a idc:%s ;
 406 %s        %s:%-8s %s
 407 %s        %s:%-8s %s
 408 %s    ]%s"
 409               (if without-head-char
 410                   ""
 411                 (if (and ccs code-point)
 412                     (format "%s   # %c"
 413                             (chise-turtle-format-ccs-code-point ccs code-point)
 414                             char)
 415                   "["))
 416               indent prefix (or idc-str (char-to-string idc))
 417               indent prefix p1 (isd-turtle-format-component c1 ?\; (1+ level) prefix)
 418               indent prefix p2 (isd-turtle-format-component c2 ?\  (1+ level) prefix)
 419               indent
 420               (if without-head-char
 421                   ""
 422                 (if (null char)
 423                     (format "\n%s]"
 424                             indent)
 425                   "")))))
 426     ))
 427
 428 (defun isd-turtle-insert-char (ccs code-point)
 429   (let ((ret (isd-turtle-format-char ccs code-point)))
 430     (when ret
 431       (insert ret)
 432       (insert " .\n"))))
 433
 434 (defun isd-turtle-insert-ccs-ranges (ccs &rest ranges)
 435   (let (range code max-code)
 436     (while ranges
 437       (setq range (car ranges))
 438       (cond ((consp range)
 439              (setq code (car range)
 440                    max-code (cdr range))
 441              (while (<= code max-code)
 442                (isd-turtle-insert-char ccs code)
 443                (setq code (1+ code)))
 444              )
 445             ((integerp range)
 446              (isd-turtle-insert-char ccs range)
 447              )
 448             (t (error 'wrong-type-argument range)))
 449       (setq ranges (cdr ranges)))))
 450
 451 (defun isd-turtle-dump-range (file path func &rest args)
 452   (with-temp-buffer
 453     (let ((coding-system-for-write 'utf-8-mcs-er)
 454           ;; isd-turtle-ccs-list
 455           chise-turtle-ccs-prefix-alist)
 456       (if (file-directory-p path)
 457           (setq path (expand-file-name file path)))
 458       (apply func args)
 459       (goto-char (point-min))
 460       ;; (dolist (ccs (sort isd-turtle-ccs-list
 461       ;;                    #'char-attribute-name<))
 462       ;;   (insert (format "@prefix %s: <%s%s=> .\n"
 463       ;;                   (isd-turtle-uri-encode-feature-name ccs)
 464       ;;                   "http://www.chise.org/est/view/character/"
 465       ;;                   (www-uri-encode-feature-name ccs))))
 466       (dolist (cell (sort chise-turtle-ccs-prefix-alist
 467                           (lambda (a b)
 468                             (char-attribute-name< (cdr a)(cdr b)))))
 469         (insert (format "@prefix %s: <%s/%s=> .\n"
 470                         (car cell)
 471                         "http://www.chise.org/est/view/character"
 472                         (www-uri-encode-feature-name (cdr cell)))))
 473       (insert "\n")
 474       (goto-char (point-min))
 475       (insert "# -*- coding: utf-8-mcs-er -*-\n")
 476       (insert "@prefix : <http://rdf.chise.org/rdf/property/character/isd/> .
 477 @prefix idc: <http://rdf.chise.org/rdf/type/character/idc/> .\n")
 478       (write-region (point-min)(point-max) path))))
 479
 480 ;;;###autoload
 481 (defun isd-turtle-dump-ucs-basic (filename)
 482   (interactive "Fdump ISD-UCS-Basic : ")
 483   (isd-turtle-dump-range "ISD-UCS-Basic.ttl" filename
 484                          #'isd-turtle-insert-ccs-ranges
 485                          '=ucs '(#x4E00 . #x9FA5)))
 486
 487 ;;;###autoload
 488 (defun isd-turtle-dump-ucs-ext-a (filename)
 489   (interactive "Fdump ISD-UCS-Ext-A : ")
 490   (isd-turtle-dump-range "ISD-UCS-Ext-A.ttl" filename
 491                          #'isd-turtle-insert-ccs-ranges
 492                          '=ucs '(#x3400 . #x4DB5) #xFA1F #xFA23))
 493
 494 ;;;###autoload
 495 (defun isd-turtle-dump-ucs-ext-b-1 (filename)
 496   (interactive "Fdump IDS-UCS-Ext-B-1 : ")
 497   (isd-turtle-dump-range "ISD-UCS-Ext-B-1.ttl" filename
 498                          #'isd-turtle-insert-ccs-ranges
 499                          'ucs '(#x20000 . #x21FFF)))
 500
 501 ;;;###autoload
 502 (defun isd-turtle-dump-ucs-ext-b-2 (filename)
 503   (interactive "Fdump IDS-UCS-Ext-B-2 : ")
 504   (isd-turtle-dump-range "ISD-UCS-Ext-B-2.ttl" filename
 505                          #'isd-turtle-insert-ccs-ranges
 506                          'ucs '(#x22000 . #x23FFF)))
 507
 508 ;;;###autoload
 509 (defun isd-turtle-dump-ucs-ext-b-3 (filename)
 510   (interactive "Fdump IDS-UCS-Ext-B-3 : ")
 511   (isd-turtle-dump-range "ISD-UCS-Ext-B-3.ttl" filename
 512                          #'isd-turtle-insert-ccs-ranges
 513                          'ucs '(#x24000 . #x25FFF)))
 514
 515 ;;;###autoload
 516 (defun isd-turtle-dump-ucs-ext-b-4 (filename)
 517   (interactive "Fdump IDS-UCS-Ext-B-4 : ")
 518   (isd-turtle-dump-range "ISD-UCS-Ext-B-4.ttl" filename
 519                          #'isd-turtle-insert-ccs-ranges
 520                          'ucs '(#x26000 . #x27FFF)))
 521
 522 ;;;###autoload
 523 (defun isd-turtle-dump-ucs-ext-b-5 (filename)
 524   (interactive "Fdump IDS-UCS-Ext-B-5 : ")
 525   (isd-turtle-dump-range "ISD-UCS-Ext-B-5.ttl" filename
 526                          #'isd-turtle-insert-ccs-ranges
 527                          'ucs '(#x28000 . #x29FFF)))
 528
 529 ;;;###autoload
 530 (defun isd-turtle-dump-ucs-ext-b-6 (filename)
 531   (interactive "Fdump IDS-UCS-Ext-B-6 : ")
 532   (isd-turtle-dump-range "ISD-UCS-Ext-B-6.ttl" filename
 533                          #'isd-turtle-insert-ccs-ranges
 534                          'ucs '(#x2A000 . #x2A6D6)))
 535
 536 ;;;###autoload
 537 (defun isd-turtle-dump-ucs-ext-c (filename)
 538   (interactive "Fdump IDS-UCS-Ext-C : ")
 539   (isd-turtle-dump-range "ISD-UCS-Ext-C.ttl" filename
 540                          #'isd-turtle-insert-ccs-ranges
 541                          'ucs '(#x2A700 . #x2B734)))
 542
 543 ;;;###autoload
 544 (defun isd-turtle-dump-ucs-ext-d (filename)
 545   (interactive "Fdump IDS-UCS-Ext-D : ")
 546   (isd-turtle-dump-range "ISD-UCS-Ext-D.ttl" filename
 547                          #'isd-turtle-insert-ccs-ranges
 548                          'ucs '(#x2B740 . #x2B81D)))
 549
 550 ;;;###autoload
 551 (defun isd-turtle-dump-ucs-ext-e (filename)
 552   (interactive "Fdump IDS-UCS-Ext-E : ")
 553   (isd-turtle-dump-range "ISD-UCS-Ext-E.ttl" filename
 554                          #'isd-turtle-insert-ccs-ranges
 555                          'ucs '(#x2B820 . #x2CEA1)))
 556
 557 ;;;###autoload
 558 (defun isd-turtle-dump-mj-0 (filename)
 559   (interactive "Fdump ISD-MJ-0 : ")
 560   (isd-turtle-dump-range "ISD-MJ-0.ttl" filename
 561                          #'isd-turtle-insert-ccs-ranges
 562                          '=mj '(1 . 9999)))
 563
 564 ;;;###autoload
 565 (defun isd-turtle-dump-mj-1 (filename)
 566   (interactive "Fdump ISD-MJ-1 : ")
 567   (isd-turtle-dump-range "ISD-MJ-1.ttl" filename
 568                          #'isd-turtle-insert-ccs-ranges
 569                          '=mj '(10000 . 19999)))
 570
 571 ;;;###autoload
 572 (defun isd-turtle-dump-mj-2 (filename)
 573   (interactive "Fdump ISD-MJ-2 : ")
 574   (isd-turtle-dump-range "ISD-MJ-2.ttl" filename
 575                          #'isd-turtle-insert-ccs-ranges
 576                          '=mj '(20000 . 29999)))
 577
 578 ;;;###autoload
 579 (defun isd-turtle-dump-mj-3 (filename)
 580   (interactive "Fdump ISD-MJ-3 : ")
 581   (isd-turtle-dump-range "ISD-MJ-3.ttl" filename
 582                          #'isd-turtle-insert-ccs-ranges
 583                          '=mj '(30000 . 39999)))
 584
 585 ;;;###autoload
 586 (defun isd-turtle-dump-mj-4 (filename)
 587   (interactive "Fdump ISD-MJ-4 : ")
 588   (isd-turtle-dump-range "ISD-MJ-4.ttl" filename
 589                          #'isd-turtle-insert-ccs-ranges
 590                          '=mj '(40000 . 49999)))
 591
 592 ;;;###autoload
 593 (defun isd-turtle-dump-mj-5 (filename)
 594   (interactive "Fdump ISD-MJ-5 : ")
 595   (isd-turtle-dump-range "ISD-MJ-5.ttl" filename
 596                          #'isd-turtle-insert-ccs-ranges
 597                          '=mj '(50000 . 59999)))
 598
 599 ;;;###autoload
 600 (defun isd-turtle-dump-mj-6 (filename)
 601   (interactive "Fdump ISD-MJ-6 : ")
 602   (isd-turtle-dump-range "ISD-MJ-6.ttl" filename
 603                          #'isd-turtle-insert-ccs-ranges
 604                          '=mj '(60000 . 69999)))
 605
 606 ;;;###autoload
 607 (defun isd-turtle-dump-all (directory)
 608   (interactive "DISD directory : ")
 609   (isd-turtle-dump-ucs-basic directory)
 610   (isd-turtle-dump-ucs-ext-a directory)
 611   (isd-turtle-dump-ucs-ext-b-1 directory)
 612   (isd-turtle-dump-ucs-ext-b-2 directory)
 613   (isd-turtle-dump-ucs-ext-b-3 directory)
 614   (isd-turtle-dump-ucs-ext-b-4 directory)
 615   (isd-turtle-dump-ucs-ext-b-5 directory)
 616   (isd-turtle-dump-ucs-ext-b-6 directory)
 617   (isd-turtle-dump-ucs-ext-c directory)
 618   (isd-turtle-dump-ucs-ext-d directory)
 619   (isd-turtle-dump-ucs-ext-e directory)
 620   (isd-turtle-dump-mj-0 directory)
 621   (isd-turtle-dump-mj-1 directory)
 622   (isd-turtle-dump-mj-2 directory)
 623   (isd-turtle-dump-mj-3 directory)
 624   (isd-turtle-dump-mj-4 directory)
 625   (isd-turtle-dump-mj-5 directory)
 626   (isd-turtle-dump-mj-6 directory)
 627   )
 628
 629
 630 ;;; @ End.
 631 ;;;
 632
 633 (provide 'isd-turtle)
 634
 635 ;;; isd-turtle.el ends here