Changeset 8435

Timestamp:

03/27/08 12:20:36 (5 years ago)

Author:

elim

Message:

lang/perl/tiarra: set svn:mime-type.

Location:

lang/perl/tiarra/trunk

Files:

• tiarra-conf.el (modified) (10 diffs, 1 prop)
• tiarra-conf.l (modified) (7 diffs, 1 prop)

lang/perl/tiarra/trunk/tiarra-conf.el

@@ -3 +3 @@
 ;; $Id$
 ;; ----------------------------------------------------------------------------
-;; tiarra.conf�����⡼�ɡ�
+;; tiarra.conf編集用モード。
 ;; ----------------------------------------------------------------------------
 
-;; �����ޥå�(defvar tiarra-conf-mode-map
+;; キーマップ
+(defvar tiarra-conf-mode-map
   (let ((map (make-keymap)))
     (define-key map "\M-n" 'tiarra-conf-next-block)
@@ -15 +16 @@
   "Keymap for tiarra conf mode.")
 
-;; ��ʸ���(defvar tiarra-conf-mode-syntax-table nil
+;; 構文定義
+(defvar tiarra-conf-mode-syntax-table nil
   "Syntax table used while in tiarra conf mode.")
 (if tiarra-conf-mode-syntax-table
-    ()   ; ��ʸ�ơ��֥뤬����������ʤ�
+    ()   ; 構文テーブルが既存ならば變更しない
   (setq tiarra-conf-mode-syntax-table (make-syntax-table))
   (modify-syntax-entry ?{ "(}")
   (modify-syntax-entry ?} "){"))
 
-;; ����(defvar tiarra-conf-mode-abbrev-table nil
+;; 略語定義
+(defvar tiarra-conf-mode-abbrev-table nil
   "Abbrev table used while in tiarra conf mode.")
 (define-abbrev-table 'tiarra-conf-mode-abbrev-table ())
 
-;; �եå�
+;; フック
 (defvar tiarra-conf-mode-hook nil
   "Normal hook runs when entering tiarra-conf-mode.")
@@ -43 +46 @@
   (setq major-mode 'tiarra-conf-mode)
 
-  ;; �ե���������� (make-local-variable 'font-lock-defaults)
+  ;; フォントロックの設定
+  (make-local-variable 'font-lock-defaults)
   (setq tiarra-conf-font-lock-keywords
         (list '("^[\t ]*#.*$"
-                . font-lock-comment-face) ; ������            '("^[\t ]*@.*$"
-                . font-lock-warning-face) ; @ʸ
+                . font-lock-comment-face) ; コメント
+              '("^[\t ]*@.*$"
+                . font-lock-warning-face) ; @文
               '("^[\t ]*\\+[\t ]+.+$"
-                . font-lock-type-face) ; + �⥸�塼��      '("^[\t ]*-[\t ]+.+$"
-                . font-lock-constant-face) ; - �⥸�塼��         '("^[\t ]*\\([^:\n]+\\)\\(:\\).*$"
+                . font-lock-type-face) ; + モジュール
+              '("^[\t ]*-[\t ]+.+$"
+                . font-lock-constant-face) ; - モジュール 
+              '("^[\t ]*\\([^:\n]+\\)\\(:\\).*$"
                 (1 font-lock-variable-name-face) ; key
                 (2 font-lock-string-face)) ; ':'
               '("^[\t ]*[^{}\n]+"
-                . font-lock-function-name-face))) ; �֥���̾
+                . font-lock-function-name-face))) ; ブロック名
   (setq font-lock-defaults '(tiarra-conf-font-lock-keywords t))
 
-  ;; mmm-mode���� (if (featurep 'mmm-auto)
+  ;; mmm-modeの設定
+  (if (featurep 'mmm-auto)
       (progn
         (mmm-add-group
@@ -75 +83 @@
 
 (defun tiarra-conf-next-token ()
-  "�����ȥХåե��θ��ߤΥ�����������鼡�Υȡ����������֤���
-�����������Υȡ�������Ϥ���֤ذ�����롣
-
-������Τϼ��Τ䤦�ʥꥹ�ȤǤ��롣
-\(\"�ȡ�����'��)
-��:
-  pair       -> ������ͤΥڥ�
-  label      -> �֥����Υ��� blockstart -> �֥����γ��ϵ��  blockend   -> �֥����ν�λ���
-�ȡ����������nil�����"
+  "カレントバッファの現在のカーソル位置から次のトークンを探して返す。
+カーソルはそのトークンの終はりの位置へ移動する。
+
+返されるのは次のやうなリストである。
+\(\"トークン\" '種類)
+種類:
+  pair       -> キーと値のペア
+  label      -> ブロックのラベル
+  blockstart -> ブロックの開始記號
+  blockend   -> ブロックの終了記號
+
+トークンが無ければnilを返す。"
   (catch 'tiarra-conf-next-token
-    ;; �ޤ��϶�ȥ����Ȥ�Ф���
-    ;; @ʸ��RE��ODE���Ф���
-    ;; �ġĤ������ֺǾ����פλȤؤʤ�Elisp-Regex��    ;; �ɤ�����PRE�˰������������ʬ��������
-    ;; ��ơ�
+    ;; まずは空白とコメントを飛ばす。
+    ;; @文も%PREも%CODEも飛ばす。
+    ;; ……しかし「最小一致」の使へないElisp-Regexで
+    ;; どうやつて%PREに一致させたものだか分からない。
+    ;; 助けて。
     (or (re-search-forward "^\\([\n\t ]\\|#.*\\|@.*\\)*" nil t 1)
         (throw 'tiarra-conf-next-token nil))
     
-    ;; "����: �"�η���Ǥ������Ԥν��Ϥ��Ǥ��ȡ�����    (let* ((keychar "[^{}:\n\t ]") ; �����Ȥ��Ƶ��ʸ�� (pair (concat keychar "+[\t ]*:.*")) ; ������ͤΥڥ�
+    ;; "キー: 値"の形式であれば、行の終はりまでがトークン。
+    (let* ((keychar "[^{}:\n\t ]") ; キーとして許される文字
+           (pair (concat keychar "+[\t ]*:.*")) ; キーと値のペア
            
-           ;; Ϣ�����ĤΥ����ϡ����Ȥ��ƥ����˵��
-           (labelchar "\\([^-{}\n\t ]\\|::\\)") ; �֥���̾�Ȥ��Ƶ��ʸ�� (label (concat "\\(\\(\\+\\|-\\)[\t ]+\\)?" labelchar "+")) ;; �֥����Υ���   
-           (blockstart "{") ;; �֥����γ���          (blockend "}") ;; �֥����ν�λ
+           ;; 連續する二つのコロンは、特例としてラベル名に許す。
+           (labelchar "\\([^-{}\n\t ]\\|::\\)") ; ブロック名として許される文字
+           (label (concat "\\(\\(\\+\\|-\\)[\t ]+\\)?" labelchar "+")) ;; ブロックのラベル
+           
+           (blockstart "{") ;; ブロックの開始
+           (blockend "}") ;; ブロックの終了
            
            type)
@@ -111 +128 @@
 
 (defun tiarra-conf-next-block (&optional n)
-  "�������ܤΥ֥����ΰ�֤إ�������������롣
-n�Ͼ������ǡ�������줿����1'��
-�֥�����������Ĥ����ϡ����Υ������ϰ�֤����"
+  "次からn番目のブロックの位置へカーソルを移動する。
+nは省略可能で、省略された場合は`1'。
+ブロックが見付かつた場合は、そのラベルの開始位置を返す。"
   (interactive "p")
   (catch 'tiarra-conf-next-block
@@ -123 +140 @@
         (throw 'tiarra-conf-next-block nil))
     
-    ;; ���������Ԥ���ذ����
+    ;; カーソルを行の先頭へ移動。
     (beginning-of-line)
     
     (let (result token)
-      ;; label������ǥȡ����������
+      ;; labelが來るまでトークンを探す。
       (while (progn
                (setq token (tiarra-conf-next-token))
-               ;; token��nil�ޤ���abel�ʤ齪λ��
+               ;; tokenがnilまたはlabelなら終了。
                (if (or (null token)
                        (eq (cadr token) 'label))
                    nil
-                 ;; label�ʳ��Υȡ�����Τǡ�����              t)))
+                 ;; label以外のトークンなので、再度檢索。
+                 t)))
       (if (null token)
-          ;; �ȡ���������������ǽ��Ϥꡣ
+          ;; トークンが無い。ここで終はり。
           nil
         (setq result (point))
-        ;; "{"�μ������ư��
+        ;; "{"の次の非空白文字へ移動。
         (re-search-forward "{" nil t 1)
         (re-search-forward "[^\n\t ]" nil t 1)
         (backward-char)
         
-        ;; n��2�ʾ��ä���������
+        ;; nが2以上だったらもう一度。
         (if (> n 1)
             (tiarra-conf-next-block (1- n))
@@ -150 +168 @@
 
 (defun tiarra-conf-prev-block (&optional n)
-  "������ܤΥ֥����ΰ�֤إ�������������롣
-n�Ͼ������ǡ�������줿����1'��
-�֥�����������Ĥ����ϡ����Υ������ϰ�֤����"
+  "前からn番目のブロックの位置へカーソルを移動する。
+nは省略可能で、省略された場合は`1'。
+ブロックが見付かつた場合は、そのラベルの開始位置を返す。"
   (interactive "p")
   (catch 'tiarra-conf-prev-block
@@ -161 +179 @@
         (throw 'tiarra-conf-prev-block (tiarra-conf-next-block (* -1 n))))
 
-    ;; �ޤż��Υ֥�������ơ����ΰ�֤�����롣nil�ʤ�l��ɤ���
+    ;; まづ次のブロックを探して、その位置を記録する。nilならnilで良い。
     (let ((next-block-pos
            (save-excursion (tiarra-conf-next-block)))
           current-block-pos)
-      ;; ���Ťĥ����������ᤷ�Ĥġ��ּ��Ρץ֥�������Ƥߤ롣
-      ;; next-block-pos��������ߤ���������դ����顢�����ǻߤ���
+      ;; 一行づつカーソルを前に戻しつつ、「次の」ブロックを探してみる。
+      ;; next-block-posよりも前に存在するブロックを見付けたら、そこで止める。
       (while (progn
                (beginning-of-line)
                (if (= (point) (point-min))
-                   ;; �������ˤ���ʤ���
+                   ;; これ以上前には戻れない。
                    nil
-                 ;; �ޤ���롣
+                 ;; まだ戻れる。
                  (previous-line)
                  (setq current-block-pos
                        (save-excursion (tiarra-conf-next-block)))
-                 ;; �ǽ���������ּ��Ρץ֥�����nil��Ĥ��ꡢ
-                 ;; �����������ּ��Ρץ֥����Ⱥǽ����줬�ۤĤƤ𤿤ꤹ��
-                 ;; ��������ƽ�λ���롣�Ǥʤ���Ʊ����������
+                 ;; 最初に見付けた「次の」ブロックがnilだつたり、
+                 ;; 今囘見付けた「次の」ブロックと最初のそれが異つてゐたりすれば
+                 ;; これを返して終了する。でなければ同じ事を繰返す。
                  (eq current-block-pos next-block-pos))))
 
-      ;; n��2�ʾ��Ĥ���������
+      ;; nが2以上だつたらもう一度。
       (if (> n 1)
-          ;; ��������������᤹
+          ;; カーソル位置を先頭へ戻す
           (progn (beginning-of-line)
                  (tiarra-conf-prev-block (- n 2)))
-        ;; ��������Ŭ��ʰ�֤ذ������������� ;; tiarra-conf-next-block��֡�
+        ;; カーソルを適切な位置へ移動させる爲だけに
+        ;; tiarra-conf-next-blockを呼ぶ。
         (tiarra-conf-next-block)
         current-block-pos))))
 
 (defun tiarra-conf-join (delimitor sequence)
-  "perl��oin(delimitor, sequence)�������"
+  "perlのjoin(delimitor, sequence)と同じ。"
   (let (result join)
     (setq join (lambda (elem)
@@ -201 +220 @@
 
 (defun tiarra-conf-jump-to-block ()
-  "����onf��ˤ�������������Ϥ������ξ��˥����פ��륳�ޥ��"
+  "そのconf中にあるブロックの名前を入力し、その場所にジャンプするコマンド。"
   (interactive)
-  (let (comp-list ;; competing-read�ǻȤ�list ("�֥���̾" . label�ȡ�����������
-        parsing-block-stack ;; ("�֥���̾" ...)
+  (let (comp-list ;; competing-readで使ふalist ("ブロック名" . labelトークンの直後の位置)
+        parsing-block-stack ;; ("ブロック名" ...)
         blockname-to-jump
         point-to-jump)
     (save-excursion
-      ;; ���������ե������Ƭ��      (goto-char (point-min))
-      ;; ���Ťĥȡ�������ƹԤ���label�򸫤��鵭Ͽ���롣
+      ;; カーソルをファイルの先頭へ
+      (goto-char (point-min))
+      ;; 一つづつトークンを見て行く。labelを見たら記録する。
       (while (let (token type blockname)
                (setq token (tiarra-conf-next-token))
                (if (null token)
-                   ;; �⤦�ȡ����������
+                   ;; もうトークンが無い。
                    nil
                  (setq type (cadr token))
                  (cond ((eq type 'label)
-                        ;; �̎ގێ���(���ώ�)������
+                        ;; ﾌﾞﾛｯｸ(･∀･)ｶｲｼ
                         (setq blockname (car token))
-                        (if (string-match "^[-+][\t ]+" blockname) ; +��ϼ���
+                        (if (string-match "^[-+][\t ]+" blockname) ; +や-は取る。
                             (setq blockname (replace-match "" nil nil blockname)))
                         (push blockname parsing-block-stack)
@@ -228 +248 @@
                                              (point))))))
                        ((eq type 'blockend)
-                        ;; �̎ގێ���(�����)�������؎���
+                        ;; ﾌﾞﾛｯｸ(･Ａ･)ｼｭｳﾘｮｳ
                         (pop parsing-block-stack)))
                  t)))
-      ;; �֥���̾�����
-      (let ((completion-ignore-case t)) ; ��Ū�ˤ����ˤ���ưŪ�������פ����ġ�
+      ;; ブロック名を聞く。
+      (let ((completion-ignore-case t)) ; 一時的にこの變數をtに。動的スコープは便利だね…。
         (setq blockname-to-jump (completing-read
-                                 "�����פ�������: "
+                                 "ジャンプするブロック: "
                                  comp-list nil t)))
       (setq point-to-jump (cdr (assoc blockname-to-jump comp-list))))
     (if point-to-jump
-        ;; Ŭ��ʰ�֤إ����������
+        ;; 適切な位置へカーソルを移動
         (progn
           (goto-char point-to-jump)

lang/perl/tiarra/trunk/tiarra-conf.l

@@ -3 +3 @@
 ;; $Id$
 
-;;tiarra-conf.l (tiarra-conf.el�̈ڐA)
+;;tiarra-conf.l (tiarra-conf.elの移植)
 ;;Copyright (C) 2003 Noboruhi
 
@@ -9 +9 @@
 ;;Version: 0.0.0.1
 
-;; �g����
-;; 1. tiarra-conf.l(���̃t�@�C��)��zzy����X�g�[�������f�B���N�g��)/site-lisp/ �ɃR�s�[
-;; 2. �K�v��������C�g�R���p�C��
-;; 3. ���W���[���o�^����
-;;     [.xyzzy �̏ꍇ]
+;; 使い方:
+
+;; 1. tiarra-conf.l(このファイル)を(xyzzyをインストールしたディレクトリ)/site-lisp/ にコピー
+;; 2. 必要だったらバイトコンパイル
+;; 3. モジュール登録する。
+;;     [.xyzzy の場合]
 ;;         (export 'ed::tiarra-conf-mode "ed")
 ;;         (autoload 'tiarra-conf-mode "tiarra-conf" t)
-;;     [siteinit.l�̏ꍇ]
+;;     [siteinit.lの場合]
 ;;         (in-package "editor")
 ;;         (export 'tiarra-conf-mode)
 ;;         (autoload 'tiarra-conf-mode "tiarra-conf" t)
 ;;         (in-package "user")
-;; 4.xyzzy��N��
+;; 4.xyzzyを再起動
 
-;; �J�X�^�}�C�Y:
+;; カスタマイズ:
 
-;; �F�̕ύX
+;; 色の変更
 ;;   (setq ed::*tiarra-conf-font-lock-comment-face* '(:comment))
 ;;   (setq ed::*tiarra-conf-font-lock-warning-face* '((:keyword :comment :bold)))
@@ -36 +37 @@
 ;; Changes:
 ;;   [Version 0.0.0.1]
-;;   �E���ŁB�������Ȃ��A�������Ȃ��B
+;;   ・初版。何も引かない、何も足さない。
 ;;   
 
@@ -42 +43 @@
 (in-package "editor")
 
-;; �L�[�}�b�v
+;; キーマップ
 (defvar *tiarra-conf-mode-map* nil
   "Keymap for tiarra conf mode.")
@@ -50 +51 @@
   (setq *tiarra-conf-mode-map* (make-sparse-keymap)))
 
-;; �\����
+;; 構文定義
 (defvar *tiarra-conf-mode-syntax-table* nil
   "Syntax table used while in tiarra conf mode.")
@@ -58 +59 @@
 
 
-;; �����`
+;; 略語定義
 (defvar *tiarra-conf-mode-abbrev-table* nil
   "Abbrev table used while in tiarra conf mode.")
@@ -65 +66 @@
 
 
-;; �t�b�N
+;; フック
 (defvar *tiarra-conf-mode-hook* nil
   "Normal hook runs when entering tiarra-conf-mode.")
 
-;; �t�H���g���b�N�̐ݒ�(defvar *tiarra-conf-font-lock-comment-face* '(:comment))
+;; フォントロックの設定
+(defvar *tiarra-conf-font-lock-comment-face* '(:comment))
 (defvar *tiarra-conf-font-lock-warning-face* '((:keyword :comment :bold)))
 (defvar *tiarra-conf-font-lock-type-face* '((:keyword 0)))