チェンジセット 2545

差分発生行の前後
無視リスト:
コミット日時:
2009/04/29 16:33:27 (10 ヶ月前)
コミッタ:
hidachinoiro
ログメッセージ:

タブをスペースに変更
ソースファイル内にリビジョン番号を入れないように変更

ファイル:

凡例:

変更無し
追加
削除
更新
コピー
移動

  • lisp/xyzzyfcsh/src/fcsh.l

    r2544 r2545  
    11; 
    2 ; xyzzy fcsh #2544 
     2; xyzzy fcsh 
    33; 
    44 
    …… 
    4747; �f�t�H���g�ŗ��p�������[�X���O�t�@�C���̈ʒu 
    4848(defvar *fcsh-log* 
    49        (merge-pathnames "Macromedia\\Flash Player\\Logs\\flashlog.txt" 
    50                                                                         (si:getenv "APPDATA"))) 
     49  (merge-pathnames "Macromedia\\Flash Player\\Logs\\flashlog.txt" 
     50                  (si:getenv "APPDATA"))) 
    5151 
    5252; 
    …… 
    6363; 
    6464; �o�b�t�@�ƂƂ���������(defmacro with-buffer (buffer &rest body) 
    65        `(with-set-buffer 
    66                (save-excursion 
    67                        (set-buffer ,buffer) 
    68                        ,@body))) 
     65  `(with-set-buffer 
     66    (save-excursion 
     67      (set-buffer ,buffer) 
     68      ,@body))) 
    6969 
    7070; �o�b�t�@���[�J���ȕϐ��ւ̃C���o�[�W������`����;(defmacro define-buffer-field (name default) 
    71 ;      `(progn 
    72 ;              (defvar-local ,name ,default) 
    73 ;              (defun ,name (buffer) 
    74 ;                      (setq buffer (or buffer (selected-buffer))) 
    75 ;                      (if (eq buffer :default) 
    76 ;                              (default-value ',name) 
    77 ;                              (buffer-local-value buffer ',name))) 
    78 ;              (defsetf ,name (buffer) (value) 
    79 ;                      `(if (eq ,buffer :default) 
    80 ;                              (setq-default ,',name ,value) 
    81 ;                              (with-buffer ,buffer (setq ,',name ,value)))))) 
     71; `(progn 
     72;   (defvar-local ,name ,default) 
     73;   (defun ,name (buffer) 
     74;     (setq buffer (or buffer (selected-buffer))) 
     75;     (if (eq buffer :default) 
     76;       (default-value ',name) 
     77;       (buffer-local-value buffer ',name))) 
     78;   (defsetf ,name (buffer) (value) 
     79;     `(if (eq ,buffer :default) 
     80;       (setq-default ,',name ,value) 
     81;       (with-buffer ,buffer (setq ,',name ,value)))))) 
    8282 
    8383; 
    …… 
    9393;(define-buffer-field fcsh-last-compile-command "") 
    9494;(define-buffer-field fcsh-last-output-swf      "") 
    95 ;(define-buffer-field fcsh-buffer-p                            nil) 
     95;(define-buffer-field fcsh-buffer-p       nil) 
    9696 
    9797 
    …… 
    105105; - fcsh �g�p����csh �R�}���h�B�ȗ�����*fcsh-command* �̒l��p�B 
    106106(defun fcsh-create-buffer (&optional directory fcsh) 
    107        (interactive) 
    108        (with-buffer (create-new-buffer "*fcsh*") 
    109                (if directory (set-default-directory directory)) 
    110                (make-process (map-slash-to-backslash (or fcsh *fcsh-command*))) 
    111                (command-output-mode) 
    112                (set-buffer-colors #(#xffffff #x000000)) 
    113                (set-buffer-fold-type-window) 
    114                (set-local-window-flags (selected-buffer) *window-flag-line-number* nil) 
    115                (setq fcsh-buffer-p t) 
    116                (selected-buffer))) 
     107  (interactive) 
     108  (with-buffer (create-new-buffer "*fcsh*") 
     109    (if directory (set-default-directory directory)) 
     110    (make-process (map-slash-to-backslash (or fcsh *fcsh-command*))) 
     111    (command-output-mode) 
     112    (set-buffer-colors #(#xffffff #x000000)) 
     113    (set-buffer-fold-type-window) 
     114    (set-local-window-flags (selected-buffer) *window-flag-line-number* nil) 
     115    (setq fcsh-buffer-p t) 
     116    (selected-buffer))) 
    117117 
    118118; fcsh �o�b�t�@�̍폜 
    119119; - buffer �폜�����b�t�@�B�ȗ�����(fcsh-find-buffer) �Ō���defun fcsh-kill-buffer (&optional buffer) 
    120        (interactive) 
    121        (when (setq buffer (or buffer (fcsh-find-buffer))) 
    122                (kill-process (buffer-process buffer)) 
    123                (sleep-for 1) 
    124                (delete-buffer buffer))) 
    125                  
     120  (interactive) 
     121  (when (setq buffer (or buffer (fcsh-find-buffer))) 
     122    (kill-process (buffer-process buffer)) 
     123    (sleep-for 1) 
     124    (delete-buffer buffer))) 
     125     
    126126; �S fcsh �o�b�t�@���폜 
    127127(defun fcsh-kill-all-buffers () 
    128        (interactive) 
    129        (let ((list (remove-if-not 'fcsh-buffer-p (buffer-list)))) 
    130                (dolist (buffer list) (kill-process (buffer-process buffer))) 
    131                (sleep-for 1) 
    132                (dolist (buffer list) (delete-buffer buffer)))) 
     128  (interactive) 
     129  (let ((list (remove-if-not 'fcsh-buffer-p (buffer-list)))) 
     130    (dolist (buffer list) (kill-process (buffer-process buffer))) 
     131    (sleep-for 1) 
     132    (dolist (buffer list) (delete-buffer buffer)))) 
    133133 
    134134; fcsh �o�b�t�@���ǂ������肷��(defun fcsh-buffer-p (buffer) 
    135        (buffer-local-value buffer 'fcsh-buffer-p)) 
     135  (buffer-local-value buffer 'fcsh-buffer-p)) 
    136136 
    137137; fcsh �o�b�t�@���J�����g�f�B���N�g���� fcsh �o�b�t�@�Ȃ������Ԃ� 
    138138; �����łȂ������̃o�b�t�@�̒�����csh �o�b�t�@����ĕԂ� 
    139139(defun fcsh-find-buffer () 
    140        (interactive) 
    141        (if (fcsh-buffer-p (selected-buffer)) 
    142                (selected-buffer) 
    143                (find-if #'fcsh-buffer-p (buffer-list)))) 
     140  (interactive) 
     141  (if (fcsh-buffer-p (selected-buffer)) 
     142    (selected-buffer) 
     143    (find-if #'fcsh-buffer-p (buffer-list)))) 
    144144 
    145145; fcsh-buffer �ɃR�}���h�𑗂�; - command �������}���h�B�ȗ����̓~�j�o�b�t�@�����́B 
    146146; - buffer �R�}���h�𑗂�csh �o�b�t�@�B�ȗ�����(fcsh-find-buffer) �Ō���defun fcsh-send-command 
    147        (&optional (command (read-string "command: " :default *fcsh-last-commnad*)) 
    148                   (buffer (fcsh-find-buffer))) 
    149        (interactive) 
    150        (if (numberp command) 
    151                        (setq command (format nil "~D" command))) 
    152        (if (string-looking-at "[0-9]+" command) 
    153                        (setf command (concat "compile " command))) 
    154        (process-send-string 
    155                (buffer-process buffer) 
    156                (concat command "\n")) 
    157        (setq *fcsh-last-commnad* command)) 
     147  (&optional (command (read-string "command: " :default *fcsh-last-commnad*)) 
     148             (buffer (fcsh-find-buffer))) 
     149  (interactive) 
     150  (if (numberp command) 
     151      (setq command (format nil "~D" command))) 
     152  (if (string-looking-at "[0-9]+" command) 
     153      (setf command (concat "compile " command))) 
     154  (process-send-string 
     155    (buffer-process buffer) 
     156    (concat command "\n")) 
     157  (setq *fcsh-last-commnad* command)) 
    158158 
    159159; fcsh-buffer �̃G���[���Ă����ɔ� 
    160160; - �����csh �o�b�t�@�B�ȗ�����(fcsh-find-buffer) �Ō���defun fcsh-jump-error (&optional (buffer (fcsh-find-buffer))) 
    161        (interactive) 
    162        (let ((cb (selected-buffer)) filename line b e) 
    163                (set-buffer buffer) 
    164                (if (scan-buffer "^\\(.+\\)(\\([0-9]+\\))" :no-dup t :tail t :regexp t) 
    165                                (progn 
    166                                        (setq filename (match-string 1) 
    167                                              line (parse-integer (match-string 2)) 
    168                                                                b (match-beginning 0) 
    169                                                                e (match-end 0)) 
    170                                        (reverse-region b e) 
    171                                        (goto-char b) 
    172                                        (recenter 0) 
    173                                        (find-file filename) 
    174                                        (goto-line line)) 
    175                                (progn 
    176                                        (reverse-region 0 0) 
    177                                        (set-buffer cb) 
    178                                        (message "�G���[�����‚�������))) 
     161  (interactive) 
     162  (let ((cb (selected-buffer)) filename line b e) 
     163    (set-buffer buffer) 
     164    (if (scan-buffer "^\\(.+\\)(\\([0-9]+\\))" :no-dup t :tail t :regexp t) 
     165        (progn 
     166          (setq filename (match-string 1) 
     167                line (parse-integer (match-string 2)) 
     168                b (match-beginning 0) 
     169                e (match-end 0)) 
     170          (reverse-region b e) 
     171          (goto-char b) 
     172          (recenter 0) 
     173          (find-file filename) 
     174          (goto-line line)) 
     175        (progn 
     176          (reverse-region 0 0) 
     177          (set-buffer cb) 
     178          (message "�G���[�����‚�������))) 
    179179 
    180180; swf ��^���h�A���[���v���[���[�ōĐ� 
    …… 
    182182; - player �g�p�������C���[�B�ȗ�����*fcsh-player* ��p 
    183183(defun fcsh-play-swf 
    184        (&optional (swf (read-file-name "swf: " :default *fcsh-last-swf*)) 
    185                                                 (player *fcsh-player*)) 
    186        (interactive) 
    187        (call-process (concat (map-slash-to-backslash player) " " swf)) 
    188        (setq *fcsh-last-swf* swf)) 
     184  (&optional (swf (read-file-name "swf: " :default *fcsh-last-swf*)) 
     185            (player *fcsh-player*)) 
     186  (interactive) 
     187  (call-process (concat (map-slash-to-backslash player) " " swf)) 
     188  (setq *fcsh-last-swf* swf)) 
    189189 
    190190; �g���[�X���O��[�v�����Ă��̃o�b�t�@��� 
    191191; - log �\�����郍�O 
    192192(defun fcsh-log-buffer (&optional (log *fcsh-log*)) 
    193        (with-buffer (get-buffer-create log) 
    194                (set-buffer-fileio-encoding *encoding-utf8*) 
    195                (make-local-variable 'verify-visited-file-modtime) 
    196                (setq verify-visited-file-modtime :auto) 
    197                (set-buffer-fold-type-window) 
    198                (set-local-window-flags (selected-buffer) *window-flag-line-number* nil) 
    199                (selected-buffer))) 
     193  (with-buffer (get-buffer-create log) 
     194    (set-buffer-fileio-encoding *encoding-utf8*) 
     195    (make-local-variable 'verify-visited-file-modtime) 
     196    (setq verify-visited-file-modtime :auto) 
     197    (set-buffer-fold-type-window) 
     198    (set-local-window-flags (selected-buffer) *window-flag-line-number* nil) 
     199    (selected-buffer))) 
    200200 
    201201; �g�p�T���v���̊֐��B��s���� fcsh �̂��߂̃t���[���������������B 
    …… 
    205205; - �Đ�����wf 
    206206(defun fcsh-my-setup (directory command swf) 
    207        (interactive "Ddir: \nscommand: \nfswf: ") 
    208        ; �t���[���֌W�̃Z�b�g�A�b�v 
    209        (fcsh-kill-all-buffers) 
    210        (setq *fcsh-buffer* (fcsh-create-buffer directory)) 
    211        (let ((b (selected-buffer)) (f (find-pseudo-frame "fcsh layout")) w) 
    212                (if f (delete-pseudo-frame f)) 
    213                (new-pseudo-frame "fcsh layout" nil) 
    214                (setq w (selected-window)) 
    215                (split-window -10) 
    216                (set-buffer *fcsh-buffer*) 
    217                (split-window -40 t) 
    218                (set-buffer (fcsh-log-buffer)) 
    219                (set-window w) 
    220                (set-buffer b)) 
    221        ; �L�[�֌W�̃Z�b�g�A�b�v 
    222        (set-function-bar-label #\F5 "fcsh �R���p�C��") 
    223        (set-function-bar-label #\F6 "swf ��s") 
    224        (set-function-bar-label #\F9 "fcsh ���G���[") 
    225        (global-set-key #\F5 #'(lambda () (interactive) 
    226                (save-all-buffers) 
    227                (erase-buffer *fcsh-buffer*) 
    228                (fcsh-send-command 1 *fcsh-buffer*))) 
    229        (global-set-key #\F6 #'(lambda () (interactive) (fcsh-play-swf swf))) 
    230        (global-set-key #\F9 'fcsh-jump-error) 
    231        ; ��s 
    232        (fcsh-send-command command *fcsh-buffer*)) 
     207  (interactive "Ddir: \nscommand: \nfswf: ") 
     208  ; �t���[���֌W�̃Z�b�g�A�b�v 
     209  (fcsh-kill-all-buffers) 
     210  (setq *fcsh-buffer* (fcsh-create-buffer directory)) 
     211  (let ((b (selected-buffer)) (f (find-pseudo-frame "fcsh layout")) w) 
     212    (if f (delete-pseudo-frame f)) 
     213    (new-pseudo-frame "fcsh layout" nil) 
     214    (setq w (selected-window)) 
     215    (split-window -10) 
     216    (set-buffer *fcsh-buffer*) 
     217    (split-window -40 t) 
     218    (set-buffer (fcsh-log-buffer)) 
     219    (set-window w) 
     220    (set-buffer b)) 
     221  ; �L�[�֌W�̃Z�b�g�A�b�v 
     222  (set-function-bar-label #\F5 "fcsh �R���p�C��") 
     223  (set-function-bar-label #\F6 "swf ��s") 
     224  (set-function-bar-label #\F9 "fcsh ���G���[") 
     225  (global-set-key #\F5 #'(lambda () (interactive) 
     226    (save-all-buffers) 
     227    (erase-buffer *fcsh-buffer*) 
     228    (fcsh-send-command 1 *fcsh-buffer*))) 
     229  (global-set-key #\F6 #'(lambda () (interactive) (fcsh-play-swf swf))) 
     230  (global-set-key #\F9 'fcsh-jump-error) 
     231  ; ��s 
     232  (fcsh-send-command command *fcsh-buffer*))