New file.

diff --git a/concord-kaisei.el b/concord-kaisei.el
new file mode 100644 (file)
index 0000000..0b72c80
--- /dev/null
+++ b/concord-kaisei.el
@@ -0,0 +1,117 @@
+(concord-assign-genre 'glyph-image "/usr/local/var/photo/db")
+
+(concord-assign-genre 'hng-card "/usr/local/var/hng-card/db")
+(mount-char-attribute-table '->HNG)
+(mount-char-attribute-table '<-HNG)
+
+(defun concord-kaisei-add-takuhon (source-id file-prefix taku-num
+                                            source-name
+                                            source-short-name ccs)
+  (let ((taku-file (format "%s%03d" file-prefix taku-num))
+       glyph-num
+       base-cobj
+       base-id
+       x y w h ucs seg-cobj char
+       seg-glyph-cobj seg-glyph-id
+       char-num-alist ret char-num ucs-hng-chars hng-code hng-cards)
+    (setq base-cobj
+         (concord-images-add-url
+          (format
+           "http://hng.chise.org/images/zinbun/takuhon/kaisei/%s.jpg"
+           taku-file)
+          (format
+           "http://hng.chise.org/images/iiif/zinbun/takuhon/kaisei/%s.tif"
+           taku-file)
+          (format
+           "http://hng.chise.org/iipsrv/iipsrv.fcgi?FIF=/zinbun/takuhon/kaisei/%s.tif&CVT=jpeg"
+           taku-file)))
+    (setq base-id (concord-object-get base-cobj '=id))
+    (concord-object-put
+     base-cobj 'name (format "%s%d" source-name taku-num))
+    (concord-object-put
+     base-cobj
+     '=location@djvu
+     (format
+      "http://coe21.zinbun.kyoto-u.ac.jp/db-machine/imgsrv/djvu/kaisei/%s.djvu"
+      taku-file))
+    (with-current-buffer
+       (find-file-noselect
+        (format "/opt/photo/zinbun/djvuchar/takuhonkaisei/%s.csv"
+                taku-file))
+      (goto-char (point-min))
+      (setq glyph-num 0)
+      (while (re-search-forward
+             "^\\([0-9]+\\),\\([0-9]+\\),\\([0-9]+\\),\\([0-9]+\\),\\([0-9]+\\)"
+             nil t)
+       (setq x (string-to-int (match-string 1))
+             y (string-to-int (match-string 2))
+             w (string-to-int (match-string 3))
+             h (string-to-int (match-string 4))
+             ucs (string-to-int (match-string 5)))
+       (setq seg-cobj (concord-images-add-segments base-cobj x y w h))
+       (setq seg-glyph-id (intern (format "%s/char=%d" base-id glyph-num)))
+       (unless (setq seg-glyph-cobj
+                     (concord-decode-object '=id seg-glyph-id))
+         (setq seg-glyph-cobj
+               (concord-make-object 'glyph-image seg-glyph-id))
+         (concord-object-adjoin*
+          seg-glyph-cobj '->image-resource seg-cobj)
+         (concord-object-adjoin*
+          seg-glyph-cobj '<-segmented-glyph-image base-cobj)
+         )
+       (setq char (decode-char '=ucs ucs))
+       (concord-object-put seg-glyph-cobj 'character (list char))
+       (cond ((setq ret (assq char char-num-alist))
+              (setq char-num (1+ (cdr ret)))
+              (setcdr ret char-num)
+              )
+             (t
+              (setq char-num 0)
+              (setq char-num-alist (cons (cons char 0)
+                                         char-num-alist))
+              ))
+       (concord-object-put
+        seg-glyph-cobj
+        'name (format "%s%d-%d (%c-%d)"
+                      source-short-name taku-num glyph-num char char-num))
+       (concord-object-put
+        seg-cobj
+        '=location@djvuchar
+        (format "http://coe21.zinbun.kyoto-u.ac.jp/djvuchar?jpg=data/takuhonkaisei/%s&coords=%d,%d,%d,%d"
+                taku-file x y (+ x w) (+ y h)))
+       (setq ucs-hng-chars (char-feature char '->HNG))
+       (setq hng-cards nil)
+       (dolist (hng-char ucs-hng-chars)
+         (when (and (setq hng-code (encode-char hng-char ccs))
+                    (setq ret (concord-decode-object
+                               '=hng-card
+                               (intern (format "%d-%d"
+                                               source-id
+                                               (/ hng-code 10)))
+                               'hng-card))
+                    (not (member ret hng-cards)))
+           (setq hng-cards (append hng-cards (list ret)))))
+       (concord-object-put seg-glyph-cobj
+                           '<-glyph-image@zinbun/takuhon hng-cards)
+       (setq glyph-num (1+ glyph-num))
+       ))))
+
+(defun concord-kaisei-fix-buffer (buffer)
+  (interactive "bBuffer ")
+  (goto-char (point-min))
+  (let (beg end code)
+    (while (re-search-forward
+           ",38 35 120 \\(\\([0-9]+\\)\\( [0-9]+\\)+\\) 59$" nil t)
+      (setq beg (1+ (match-beginning 0))
+           end (match-end 0))
+      (setq code (string-to-int
+                 (mapconcat
+                  (lambda (unit)
+                    (char-to-string
+                     (decode-char 'ascii
+                                  (string-to-number unit))))
+                  (split-string (match-string 1) " ")
+                  "")
+                 16))
+      (delete-region beg end)
+      (insert (format "%d" code)))))