Changeset 76 for lang/elisp/pdicv-mode

Timestamp:

01/31/09 00:38:26 (15 years ago)

Author:

naoya_t

Message:

pdicv-core.el: saved in utf-8

Files:

• lang/elisp/pdicv-mode/trunk/pdicv-core.el (modified) (9 diffs)

lang/elisp/pdicv-mode/trunk/pdicv-core.el

@@ -19 +19 @@
 
 ; (pdicv-get-header-info FILENAME)
-;    - ��ؒ�Ò���������ߒ�蒤�
+;    - ヘッダ情報を読み取る
+;
 ; (pdicv-get-index-list FILENAME [WORD-ENCODING])
-;    - PDIC��������������뒤���钡���������Ò�������꒥���Ȓ����
+;    - PDIC辞書ファイルから、インデックスリストを取得
 ;
 ; (pdicv-scan-datablock FILENAME PHYS CRITERIA-FUNC)
-;    - ��ǒ�������֒�풥Ò����򒥹�����㒥�; (pdicv-core-search DICINFO CRITERIA [SIMPLE-MODE-P DONT-CLEAR-P])
-;    - PDIC��������������뒡������
+;    - データブロックをスキャン
+;
+; (pdicv-core-search DICINFO CRITERIA [SIMPLE-MODE-P DONT-CLEAR-P])
+;    - PDIC検索（コアルーチン）
 ;
 
@@ -49 +52 @@
 (defvar pdicv-result-height 8)
 ;
-; ��ؒ�Ò���������ߒ�蒤�
+; ヘッダ情報を読み取る
+;
 (defun pdicv-get-header-info (filename)
   "[PDIC] Get Header Info"
@@ -278 +282 @@
                                         ;       (set-text-properties 0 (length jword) '(face pdicv-face-caption-gray) jword)
 
-          (setq jword (nt:replace-all jword "������/ "))
+          (setq jword (nt:replace-all jword "〓●" " // "))
           (setq jword (nt:replace-all jword "\n" "\n  "))
 
@@ -322 +326 @@
               (if (= field-size 2) (nt:read-ushort datablock p) (nt:read-ulong datablock p)) )
         (when (zerop field-length) (throw 'pdicv-scan-datablock (nreverse result))); sfield-list))
-        (setq p (+ p field-size)) ;2��ʒ�����4��В�����        (setq compress-length (nt:read-uchar datablock p)) ; �����̒Ĺ
+        (setq p (+ p field-size)) ;2ないし4バイト
+        (setq compress-length (nt:read-uchar datablock p)) ; 圧縮長
         (setq p (1+ p))
 
         (when aligned
-                  (setq eword-attrib (nt:read-uchar datablock p)) ; �������������
+                  (setq eword-attrib (nt:read-uchar datablock p)) ; 見出し語属性
                   (setq p (1+ p)))
-                                        ; �����В����쒰ʒ�ߒ����꒤������� rest ��˒���쒤�       (setq rest (substring datablock p (+ p field-length)))
+                                        ; 見出し語以降をとりあえず rest に入れる
+        (setq rest (substring datablock p (+ p field-length)))
         (setq p (+ p field-length))
-                                        ; �����В�����NULL����ü)
+                                        ; 見出し語 (NULL終端)
         (let* ((eword-cstr (nt:read-cstring rest))
                (eword-compressed (car eword-cstr)) (eword-len (cdr eword-cstr))
@@ -344 +350 @@
                         (concat (substring eword 0 compress-length) eword-compressed) ))
           (setq q (1+ eword-len))
-                  ;; �������������
+                  ;; 見出し語属性
           (when (not aligned)
                         (setq eword-attrib (nt:read-uchar rest q))
@@ -357 +363 @@
           (setq extended (if (zerop (logand eword-attrib 16)) nil t))
           (if extended
-              (progn ;��Ȓĥ
+              (progn ;拡張
                 (setq jword-cstr (nt:read-cstring rest q))
                 (setq jword (car jword-cstr)) (setq jword-len (cdr jword-cstr))
@@ -383 +389 @@
                   ) ; catch while2
                 ) ; progn
-            (progn ;�ɸ���             (setq jword (substring rest q))
+            (progn ;標準
+              (setq jword (substring rest q))
               (setq pron "")
               (setq example ""))
@@ -452 +459 @@
                                         ;(pop-to-buffer pdicv-buffer-name)
                                         ;              (set-buffer pdicv-buffer-name)
-                        (insert (format "��������� %s\n" word-to-search))
-                        (insert (format "��������???\n"))
+                        (insert (format "検索文字列: %s\n" word-to-search))
+                        (insert (format "該当件数: ????\n"))
                         (newline))
                                         ;(insert "\n"))
@@ -498 +505 @@
                              (sit-for 0))
                   ;;else
-                                  (when (zerop (% curr-size 128)) ;;128��ϒŬ����ʒ��                      (message "%5d/%5d:%7d" curr-size index-size match-count))))
+                                  (when (zerop (% curr-size 128)) ;;128は適当な数
+                                        (message "%5d/%5d:%7d" curr-size index-size match-count))))
               (setq ix (cdr ix))
               (setq curr-size (1- curr-size))