rept 0.1.0 → 0.1.1

data/lib/init.yaml

@@ -1,4 +1,4 @@
 # �o�[�W�����ԍ�(�S�c�[���ŋ��ʂɂ��Ă���)
-version: "0.1.0"
+version: "0.1.1"
 
 # @insert

data/rakefile

@@ -8,7 +8,7 @@ require 'rubygems'
 $init = YamlText.new(File.join(File.dirname(__FILE__), 'lib/init.yaml'))
 
 # �p�b�P�[�W�t�@�C�����X�g
-PKG_FILES = FileList["rakefile", "bin/*", "lib/*", "sample/*/*/*", "test/*"]
+PKG_FILES = FileList["rakefile", "bin/*", "lib/*", "tools/*", "sample/*/*/*", "test/*"]
 
 def cp_with_mkdir(src, dst)
   dirname = File::dirname(dst)
@@ -16,14 +16,6 @@ def cp_with_mkdir(src, dst)
   cp src, dst
 end
 
-# sourceforge���̃��|�W�g���ɃR�s�[
-desc "copy rept/ to rept-sourceforge/"
-task :publish do
-  PKG_FILES.each do |src|
-    cp_with_mkdir src, '../rept-sourceforge/' + src
-  end
-end
-
 # ���j�b�g�e�X�g���s
 Rake::TestTask.new do |t|
   t.libs << File.expand_path('lib')

data/tools/rept-mode.el

@@ -0,0 +1,135 @@
+;;; rept-mode.el --- Major mode for editing rept files
+
+;; Copyright (C) 2009  ongaeshi
+
+;; Author: ongaeshi
+;;         
+;; Keywords: rept
+;; Version: 0.0.1
+
+;; This file is not part of Emacs
+
+;; This file is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; This file is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;; This is a major mode for editing files in the REPT
+;; and useful REPT functions.
+
+;;; Installation:
+
+;; To install, just drop this file into a directory in your
+;; `load-path' and (optionally) byte-compile it.
+;;
+;; To automatically handle files ending in '.rept', add something like:
+;;
+;;    (require 'rept-mode)
+;;    (add-to-list 'auto-mode-alist '("\\.rept$" . rept-mode))
+;;    (setq rept-program-file "~/rept/bin/rept.rb")
+;;
+;; to your .emacs file.
+;;
+
+;;; Code:
+
+
+;; User definable variables
+
+(defface rept-header-face
+  '((((class color) (min-colors 88) (background light))
+     :background "grey85")
+    (((class color) (min-colors 88) (background dark))
+     :background "grey45")
+    (((class color) (background light))
+     :foreground "blue1" :weight bold)
+    (((class color) (background dark))
+     :foreground "green" :weight bold)
+    (t :weight bold))
+  "rept-header-face"
+  :group 'rept-mode)
+
+(defvar rept-header-face 'rept-header-face)
+
+
+;; Constants
+
+(defconst rept-mode-version
+  "0.0.1"
+  "Version of `rept-mode.'")
+
+
+;; Mode setup
+
+(easy-mmode-defmap rept-mode-map
+  '(("\C-c\C-c" . rept-exec)
+    ("\C-c\C-u" . rept-undo)
+    )
+  "Keymap used in `rept-mode' buffers.")
+
+(define-derived-mode rept-mode fundamental-mode "Rept"
+  "Simple mode to edit REPT.
+
+\\{rept-mode-map}"
+  (set (make-local-variable 'font-lock-defaults) rept-font-lock-defaults))
+
+
+;; Font-lock support
+
+(setq rept-font-lock-keywords
+  '(("^Args:" . rept-header-face)
+    ("^Index:" . rept-header-face)
+    ("^-->" . font-lock-string-face)
+    ("ReptName[0-9]+" . (0 font-lock-keyword-face t t))
+    ("reptName[0-9]+" . (0 font-lock-keyword-face t t))
+    ("reptname[0-9]+" . (0 font-lock-keyword-face t t))
+    ("REPTNAME[0-9]+" . (0 font-lock-keyword-face t t))
+    ("rept_name[0-9]+" . (0 font-lock-keyword-face t t))
+    ))
+
+(setq rept-font-lock-defaults
+  '(rept-font-lock-keywords t nil nil nil))
+
+
+;; Functions
+
+(defvar rept-program-file
+  nil
+  "")
+
+(defun rept-common (rept-file command-list option)
+  (compilation-start (concat rept-program-file " " option " " (expand-file-name rept-file) " " command-list)))
+
+(defun rept-exec (rept-file command-list)
+  (interactive
+   (list (read-file-name (concat "[exec] Rept File(" (file-name-nondirectory (buffer-file-name)) ") : "))
+	 (read-string "Rept Command: ")))
+  (rept-common rept-file command-list ""))
+
+(defun rept-undo (rept-file command-list)
+  (interactive
+   (list (read-file-name (concat "[undo] Rept File(" (file-name-nondirectory (buffer-file-name)) ") : "))
+	 (read-string "Rept Command: ")))
+  (rept-common rept-file command-list "-u -f"))
+
+(defun rept-mode-version ()
+  "Diplay version of `rept-mode'."
+  (interactive)
+  (message "rept-mode %s" rept-mode-version)
+  rept-mode-version)
+
+(provide 'rept-mode)
+
+;;; rept-mode.el ends here

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: rept
 version: !ruby/object:Gem::Version 
-  version: 0.1.0
+  version: 0.1.1
 platform: ruby
 authors: 
 - ongaeshi
@@ -35,6 +35,7 @@ files:
 - lib/rept4diff.rb
 - lib/rept4diff.yaml
 - lib/yamltext.rb
+- tools/rept-mode.el
 - sample/c++/addclass/addclass.rept
 - sample/c++/addclass/makefile
 - sample/c++/advance/advance.rept