Changeset 9 for tf-mode/trunk/tf-mode.l

Legend:

Unmodified

Added

Removed

• tf-mode/trunk/tf-mode.l

  r2	r9
  75	75	(setq *tf-mode-map* (make-sparse-keymap))
  76	76	(define-key *tf-mode-map* #\TAB 'tf-indent-line)
  77	(追記) (define-key *tf-mode-map* '(#\C-c #\I) 'tf-indent-region) (追記ここまで)
  77	78	)
  78	79
  79	80	(defvar *tf-mode-syntax-table* nil)
  80	81	(unless *tf-mode-syntax-table*
  81	(setq *tf-mode-syntax-table* (make-syntax-table)))
  82	;; (set-syntax-start-comment *tf-mode-syntax-table* #\$\t t)
  83	;; (set-syntax-end-comment *tf-mode-syntax-table* #\LFD nil t))
  82	(setq *tf-mode-syntax-table* (make-syntax-table))
  83	(do ((x #x21 (1+ x)))((>= x #x7f))
  84	(let ((c (code-char x)))
  85	(unless (alphanumericp c)
  86	(set-syntax-punctuation *tf-mode-syntax-table* c))))
  87	(set-syntax-option *tf-mode-syntax-table*
  88	*syntax-option-c-preprocessor*)
  89	(set-syntax-string *tf-mode-syntax-table* #\")
  90	(set-syntax-string *tf-mode-syntax-table* #\')
  91	(set-syntax-escape *tf-mode-syntax-table* #\\)
  92	(set-syntax-symbol *tf-mode-syntax-table* #\_)
  93	(set-syntax-symbol *tf-mode-syntax-table* #\#)
  94	(set-syntax-match *tf-mode-syntax-table* #\( #\))
  95	(set-syntax-match *tf-mode-syntax-table* #\{ #\})
  96	(set-syntax-match *tf-mode-syntax-table* #\[ #\]))
  84	97
  85	98
  …	…
  117	130
  118	131	(defvar *tf-block-beg-re*
  119	"[\$]\\((削除) IF\\|FOREACH\\|JOINEACH\\|FUNCTION\\)[ ] (削除ここまで)")
  132	"[\$]\\((追記) \\(IF\\|FOREACH\\|JOINEACH\\|FUNCTION\\|ERROR\\|WORNING\\)[ ]\\|\\(ERROR\\|WORNING\\)[\$]\\) (追記ここまで)")
  120	133	(defvar *tf-block-mid-re*
  121	134	"\$ELSE[\$]")
  …	…
  213	226	t)
  214	227
  228	(追記) (defun tf-indent-region (from to) (追記ここまで)
  229	(追記) (interactive "*r") (追記ここまで)
  230	(追記) (if (> from to) (追記ここまで)
  231	(追記) (rotatef from to)) (追記ここまで)
  232	(追記) (save-excursion (追記ここまで)
  233	(追記) (save-restriction (追記ここまで)
  234	(追記) (narrow-to-region (point-min) to) (追記ここまで)
  235	(追記) (goto-char from) (追記ここまで)
  236	(追記) (goto-eol) (追記ここまで)
  237	(追記) ;; (delete-trailing-spaces) (追記ここまで)
  238	(追記) (while (forward-line 1) (追記ここまで)
  239	(追記) (goto-eol) (追記ここまで)
  240	(追記) ;; (delete-trailing-spaces) (追記ここまで)
  241	(追記) (unless (bolp) (追記ここまで)
  242	(追記) (funcall mode-specific-indent-command))))) (追記ここまで)
  243	(追記) t) (追記ここまで)
  244	(追記) (追記ここまで)
  215	245	;; -------------------------------------------------------------------------
  216	246	;;
  …	…
  246	276
  247	277	;; ‘Ήž‚ð’T‚·‚1⁄2‚߂̐3‹K•\Œ»
  248	(defvar *tf-block-keyword* "[\$]\\(IF[ \t]\\|FOREACH[ \t]\\|JOINEACH[ \t]\\|FUNCTION[ \t]\\|END[\$]\\(削除) (削除ここまで))")
  278	(defvar *tf-block-keyword* "[\$]\\(IF[ \t]\\|FOREACH[ \t]\\|JOINEACH[ \t]\\|FUNCTION[ \t]\\|END[\$]\\(追記) |ERROR[ \$]\\|WORNING[ \$]\\ (追記ここまで))")
  249	279	(defvar *tf-block-tag* 'tf-block)
  250	280

Note: See TracChangeset for help on using the changeset viewer.