rept 0.1.0

data/bin/rept

@@ -0,0 +1,10 @@
+#!/usr/bin/env ruby
+
+begin
+  require 'rept'
+rescue LoadError
+  require 'rubygems'
+  require 'rept'
+end
+
+rept

data/bin/rept4diff

@@ -0,0 +1,10 @@
+#!/usr/bin/env ruby
+
+begin
+  require 'rept4diff'
+rescue LoadError
+  require 'rubygems'
+  require 'rept4diff'
+end
+
+rept4diff

data/lib/addText.rept

@@ -0,0 +1,9 @@
+Args:
+  �t�@�C����
+  �V���{����
+  �R�����g
+Index: reptname1.yaml
+--># ReptName3
+-->ReptName2: ""
+-->
+# @insert

data/lib/fileinsert.rb

@@ -0,0 +1,90 @@
+#------------------------------------------------------------------
+# �t�@�C���w��ʒu�ւ̑}�����s��
+#
+# ���s�R�[�h�͑}����t�@�C���ɍ��킹��
+#------------------------------------------------------------------
+
+require 'tempfile'
+
+def file_insert(path, start_line, data)
+  # �e���v�t�@�C��
+  temp = Tempfile.new("temp", File.dirname(path))
+  temp.binmode
+
+  # ���͎���\r\n�̉��s�R�[�h�œ��͂���Ă���”\�������邽�߁A
+  # ��x���s�R�[�h��\n�ɓ���
+  data = data.gsub("\r\n", "\n")
+
+  File.open(path, "rb"){|file|
+    # �s���̉��s�R�[�h�𒲂ׁA�������ރf�[�^�̉��s�R�[�h�����킹��
+    line = file.gets
+    data = data.gsub("\n", "\r\n") if (line.index("\r\n"))
+    file.rewind
+ 
+    # temp�t�@�C����start_line�܂ŏ�������
+    start_line.times{
+      if line = file.gets
+        temp.write(line)
+      end
+    }
+
+    # �}���f�[�^��lj�
+    temp.write(data)
+
+    # �c�����������
+    while line = file.gets
+      temp.write(line)
+    end
+  }
+
+  # �����ň�x�N���[�Y���Ȃ��ƃR�s�[�Ɏ��s����H
+  # false���w�肷��Ƃ����ɍ폜���ꂸ��GC������ɍ폜�����
+  temp.close(false)
+
+  # ���t�@�C���ƃX���b�v
+  mode = File.stat(path).mode
+  File.rename(temp.path, path)
+  File.chmod(mode, path)
+end
+
+def file_deleteline(path, start_line, num=1)
+  temp = Tempfile.new("temp", File.dirname(path))
+  temp.binmode
+
+  File.open(path, "rb") {|file|
+    # temp�t�@�C����start_line�܂ŏ�������
+    start_line.times{
+      if line = file.gets
+        temp.write(line)
+      end
+    }
+
+    # �폜�������s�������X�L�b�v
+    num.times{ file.gets }
+
+    # �c�����������
+    while line = file.gets
+      temp.write(line)
+    end
+  }
+
+  # �����ň�x�N���[�Y���Ȃ��ƃR�s�[�Ɏ��s����H
+  # false���w�肷��Ƃ����ɍ폜���ꂸ��GC������ɍ폜�����
+  temp.close(false)
+
+  # ���t�@�C���ƃX���b�v
+  mode = File.stat(path).mode
+  File.rename(temp.path, path)
+  File.chmod(mode, path)
+end
+
+def searchLineNo(path, match)
+  File.open(path) do |file|
+    file.each_with_index do |line, no|
+      return no if (line.index(match))
+    end
+  end
+
+  -1
+end
+

data/lib/init.yaml

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

data/lib/lib.rb

@@ -0,0 +1,34 @@
+# ���ʃ��C�u����
+
+class String
+  def downcaseHead
+    self[0, 1].downcase + self[1..-1]
+  end
+
+  def joinUnderbar
+    (self[0, 1] + self[1..-1].gsub(/([A-Z])/){|str| "_" + str }).downcase
+  end
+end
+
+class Dir
+  def Dir.isEmpty?(path)
+    Dir.entries(path) == [".", ".."]
+  end
+end
+
+# �R�}���h�v�����v�g�̕\�L��啶���ɓ��ꂵ�āAPathname�I�u�W�F�N�g��Ԃ�
+def upcase_Pathname(path)
+  Pathname.new(path[0, 1].upcase + path[1..-1])
+end
+
+# windows�‹���'c:'��'C:'���A�啶���������̖�肪�����Ă���肭�������΃p�X�w��
+def relative_path(p)
+  if (Pathname.new(p).absolute?)
+    base = upcase_Pathname(Pathname.pwd.to_s)
+    path = upcase_Pathname(p)
+    path.relative_path_from(base).to_s
+  else
+    Pathname.new(p)
+  end
+end
+

data/lib/rept.rb

@@ -0,0 +1,418 @@
+#! ruby -Ks
+
+require 'optparse'
+require 'fileutils'
+require File.join(File.dirname(__FILE__), 'fileinsert')
+require File.join(File.dirname(__FILE__), 'yamltext')
+require 'readline'
+require File.join(File.dirname(__FILE__), 'lib')
+
+# ���b�Z�[�W�ꗗ
+$init = YamlText.new(File.join(File.dirname(__FILE__), 'init.yaml'))
+$text = YamlText.new(File.join(File.dirname(__FILE__), 'rept.yaml'))
+
+# �o�[�W�����ԍ�
+Version = $init.get('version')
+
+class Parser
+  attr_reader :args
+  attr_reader :creator
+
+  def initialize(file_name)
+    @file_name = file_name
+    @args = nil
+    @creator = []
+  end
+
+  def parse
+    page = :none
+    
+    open(@file_name) do |f|
+      f.each do |line|
+        if (line =~ /^Args:/)
+          page = :args
+        elsif (line =~ /^Index:/)
+          page = :index
+          @creator << Creator.new(line.strip.chomp.gsub(/Index:\s*/, ""))
+        else
+          parse_page(page, line)
+        end
+      end
+    end
+  end
+
+  def parse_page(page, line)
+    case page
+    when :args
+      @args = Args.new if (@args.nil?)
+      @args.add(line)
+    when :index
+      @creator.last.add(line)
+    end
+  end
+end
+
+class Args
+  def initialize
+    @args = []
+  end
+
+  def add(comment)
+    @args << comment.strip.chomp
+  end
+
+  def description
+    @args.join(' ')
+  end
+
+  def num
+    @args.size
+  end
+end
+
+class Creator
+  attr_reader :file_name
+  attr_reader :text
+
+  def initialize(file_name)
+    @file_name = file_name
+    @text = []
+    @inputs = nil
+
+    # ���̃t���O��ON�ɂ���ƁA�r���ŕs�K�؂ȏ������������Ƃ��ɗ�O�𓊂���B
+    # �܂����ۂɃt�@�C�����������}�����邱�Ƃ͍s��Ȃ�
+    @testMode = false
+  end
+
+  def add(line)
+    @text << line
+  end
+
+  def setInputs(inputs)
+    @inputs = inputs
+    @conv_file_name = convertString(@file_name)
+  end
+
+  def createTest
+    @testMode = true
+    success = true
+    
+    if (insert?)
+      if !FileTest.exist?(@conv_file_name)
+        puts $text.get('file_insert_error', @conv_file_name)
+        success = false
+      else
+        if (!createInsert)
+          success = false
+        end
+      end
+    else
+      puts $text.get('file_create_test', @conv_file_name)
+
+      if FileTest.exist?(@conv_file_name)
+        puts $text.get('file_create_error', @conv_file_name)
+        success = false
+      end
+    end
+
+    success
+  end
+
+  def create
+    @testMode = false
+    
+    if (insert?)
+      createInsert
+    else
+      createNewFile
+    end
+  end
+
+  def undo
+    if (insert?)
+      deleteInsert
+    else
+      deleteFile
+    end
+  end
+
+  def createInsert
+    success = true
+    
+    if (@testMode)
+      puts $text.get('insert_test', @conv_file_name)
+    else
+      puts $text.get('insert', @conv_file_name)
+    end
+
+    mode = :none
+    markerText = nil
+    insertTexts = []
+
+    @text.each_with_index do |data, no|
+      if (data =~ /\A\s*\z/)
+        if (!insertFromMode(mode, markerText, insertTexts))
+          success = false
+        end
+        mode = :none
+      elsif (data =~ /^-->/)
+        insertTexts << convertString(data.gsub(/^-->/, ""))
+        mode = :insert
+      else
+        markerText = convertString(data)
+        mode = :marker
+      end
+    end
+
+    if (mode != :none)
+      if (!insertFromMode(mode, markerText, insertTexts))
+        success = false
+      end
+    end
+
+    success
+  end
+
+  def insertFromMode(mode, markerText, insertTexts)
+    success = true
+
+    begin
+      if (mode == :insert)
+        insertText(markerText, insertTexts, 1)
+      elsif (mode == :marker)
+        insertText(markerText, insertTexts, 0)
+      end
+    rescue
+      success = false
+    ensure
+      insertTexts.clear
+      markerText = nil
+    end
+
+    success
+  end
+
+  def insertText(markerText, insertTexts, lineNoOffset)
+    lineNo = searchLineNo(@conv_file_name, markerText)
+
+    if (lineNo != -1)
+      if (!@testMode)
+        insertTexts.size.times do |index|
+          puts $text.get('real_insert', '"' + insertTexts[index].chomp + '"', '"' + markerText.chomp + '"')
+        end
+        file_insert(@conv_file_name, lineNo + lineNoOffset, insertTexts.to_s)
+      end
+    else
+      puts $text.get('insert_not_found', '"' + insertTexts[0].chomp + '"', '"' + markerText.chomp + '"')
+      raise
+    end
+  end
+
+  def deleteInsert
+    success = true
+    
+    puts $text.get('delete_insert', @conv_file_name)
+
+    mode = :none
+    markerText = nil
+    insertTexts = []
+
+    @text.each_with_index do |data, no|
+      if (data =~ /\A\s*\z/)
+        if (!deleteInsertFromMode(mode, markerText, insertTexts))
+          success = false
+        end
+        mode = :none
+      elsif (data =~ /^-->/)
+        insertTexts << convertString(data.gsub(/^-->/, ""))
+        mode = :insert
+      else
+        markerText = convertString(data)
+        mode = :marker
+      end
+    end
+
+    if (mode != :none)
+      if (!deleteInsertFromMode(mode, markerText, insertTexts))
+        success = false
+      end
+    end
+
+    success
+  end
+
+  def deleteInsertFromMode(mode, markerText, insertTexts)
+    # �}���폜
+    if (mode == :insert)
+      deleteInsertText(markerText, insertTexts, 1)
+    elsif (mode == :marker)
+      deleteInsertText(markerText, insertTexts, -insertTexts.size)
+    end
+
+    # �㏈��
+    insertTexts.clear
+    markerText = nil
+    
+    # ���̏��A���s�͖���
+    true
+  end
+
+  def deleteInsertText(markerText, insertTexts, lineNoOffset)
+    lineNo = searchLineNo(@conv_file_name, markerText)
+
+    if (lineNo != -1)
+      data = []
+      open(file_name) do |file|
+        file.each do |line|
+          data << line
+        end
+      end
+
+      startLineNo = lineNo + lineNoOffset
+      success = true
+
+      insertTexts.size.times do |index|
+        if (insertTexts[index] != data[startLineNo + index])
+          success = false
+          break
+        end
+      end
+
+      if (success)
+        insertTexts.size.times do |index|
+          puts $text.get('real_delete_insert', '"' + insertTexts[index].chomp + '"', '"' + markerText.chomp + '"')
+        end
+
+        file_deleteline(@conv_file_name, startLineNo, insertTexts.size)
+      end
+    end
+  end
+
+  def createNewFile
+    dirname = File::dirname(@conv_file_name)
+    
+    if (!FileTest.exist? dirname)
+      puts $text.get('create_dir', dirname)
+      FileUtils.mkdir_p dirname
+    end
+
+    puts $text.get('create_file', @conv_file_name)
+    File.open(@conv_file_name, "wb") {|f| f.write convertString(@text.to_s)}
+  end
+
+  def deleteFile
+    if (FileTest.exist? @conv_file_name)
+      FileUtils.rm(@conv_file_name)
+      puts $text.get('delete_file', @conv_file_name)
+    else
+      puts $text.get('delete_file_fail', @conv_file_name)
+    end
+
+    # �f�B���N�g������ɂȂ�����폜����
+    dirname = File::dirname(@conv_file_name)
+    if (FileTest.exist?(dirname) && Dir.isEmpty?(dirname))
+      Dir.rmdir(dirname)
+      puts $text.get('delete_dir', dirname)
+    end
+  end
+
+  def convertString(string)
+    s = string.clone
+
+    @inputs.size.times do |index|
+      i = @inputs[index]
+      s.gsub!(/ReptName#{index + 1}/, i)
+      s.gsub!(/reptName#{index + 1}/, i.downcaseHead)
+      s.gsub!(/reptname#{index + 1}/, i.downcase)
+      s.gsub!(/REPTNAME#{index + 1}/, i.upcase)
+      s.gsub!(/rept_name#{index + 1}/, i.joinUnderbar)
+    end
+
+    s
+  end
+
+  def insert?
+    @text.to_s =~ /^-->/
+  end
+end
+
+def rept
+  # �I�v�V��������
+  undo = false
+  force = false
+
+  opt = OptionParser.new($text.get('command_line'))
+  opt.on('-u', '--undo', $text.get('undo')) {|v| undo = true}
+  opt.on('-f', '--force', $text.get('force')) {|v| force = true}
+  opt.parse!
+
+  # ���s�{��
+  if (ARGV.size > 0)
+    parser = Parser.new(ARGV[0])
+    parser.parse
+
+    args = parser.args
+    creator = parser.creator
+
+    if (ARGV.size == 1)
+      puts $text.get('rept_description', ARGV[0], args.description)
+    else
+      arg_list = ARGV[1..-1]
+
+      # �����̐����������Ȃ���ΏI��
+      abort $text.get('command_num_error', args.num) if arg_list.size % args.num != 0
+
+      inputs_list = []
+
+      # ���̓Z�b�g���쐬
+      while !arg_list.empty?
+        inputs = []
+        args.num.times {|| inputs << arg_list.shift }
+        inputs_list << inputs
+      end
+
+      # ���ɖ߂��ꍇ�͊m�F���s��
+      if (undo)
+        if (!force)
+          confirm = nil
+          while confirm != 'y' && confirm != 'n'
+            confirm = Readline.readline($text.get('is_undo'))
+          end
+
+          abort if (confirm == 'n')
+        end
+
+        # undo�̏ꍇ�͕����̃��X�g���^����ꂽ�ꍇ�A�t���ɓK�p������
+        # �������X�g�̑}���폜������ŏ�肭����
+        inputs_list.reverse!
+      end
+
+      while !inputs_list.empty?
+        inputs = inputs_list.shift
+
+        puts $text.get('rept_args', inputs.join(", "))
+
+        # �Z�b�g�A�b�v
+        creator.each {|c| c.setInputs(inputs)}
+
+        if (!undo)
+          # �������邩�H
+          isCreate = true
+
+          # �����”\���e�X�g
+          creator.each {|c| isCreate = false if !c.createTest}
+
+          # ����
+          if (isCreate)
+            creator.each {|c| c.create}
+          end
+        else
+          # ���ɖ߂�
+          creator.each {|c| c.undo}
+        end
+      end
+    end
+  else
+    puts opt.help
+  end
+end

data/lib/rept.yaml

@@ -0,0 +1,66 @@
+# �R�}���h���C���̐���
+command_line: "rept [option] rept_file"
+
+# -u�I�v�V�����̐���
+undo: "���ɖ߂��܂�(���������ׂ��t�@�C���͍폜���A�}�����ꂽ�v�f�͏�����܂�)"
+
+# ������rept�t�@�C�����n���ꂽ���̐���
+# $1 ... rept�t�@�C��
+# $2 ... �����̐���(rept�t�@�C���ɋL�q����Ă������)
+rept_description: "rept $1 $2"
+
+# �����̐�������Ȃ��������̐���
+command_num_error: "�����̐���rept�t�@�C���̗v���ɂ����Ă��܂���($1�̔{���ł���K�v������܂�)"
+
+# ���s�J�n���Ɉ������X�g��\������
+rept_args: "����  : $1"
+
+# �t�@�C���}���e�X�g�Ɏ��s����
+file_insert_error: "�G���[: �}�������������̂ł����A$1�����݂��܂���"
+
+# �t�@�C���쐬�e�X�g��
+file_create_test: "�e�X�g: $1�͍쐬�”\�H"
+
+# �t�@�C���쐬�e�X�g�Ɏ��s����
+file_create_error: "�G���[: �V������肽�������̂ł����A$1�����łɑ��݂��Ă��܂�"
+
+# �}���e�X�g
+insert_test: "�e�X�g: $1�͑}���”\�H"
+
+# �}��
+insert: "���s  : $1�ɑ}��"
+
+# ���ۂɑ}���������ɕ\�������
+real_insert: "���s  :   �}�� $1 --> $2"
+
+# �}���悪���‚����Ȃ�����
+insert_not_found: "�G���[:   �}��������‚����܂���($1 --> $2)"
+
+# �f�B���N�g���쐬
+create_dir: "���s  : �f�B���N�g���쐬 --> $1"
+
+# �t�@�C���쐬
+create_file: "���s  : �t�@�C���쐬 --> $1"
+
+# �t�@�C���폜
+delete_file: "���s  : �t�@�C�����폜 $1"
+
+# �t�@�C���폜���悤�Ƃ����疳������
+delete_file_fail: "���s  : $1 �͂��łɑ��݂��Ă��܂���"
+
+# �f�B���N�g���폜
+delete_dir: "���s  : ��ɂȂ����̂Ńf�B���N�g�����폜���܂��� $1"
+
+# �{���Ɍ��ɖ߂����m�F
+is_undo: "�m�F  : �{���Ɍ��ɖ߂��Ă����ł����H(y/n) "
+
+# �}���폜
+delete_insert: "���s  : $1����}���s���폜���܂�"
+
+# �}���폜���s
+real_delete_insert: "���s  :   �}���폜 $1 <-- $2"
+
+# �Θb���s�킸�Ɏ��s���s��
+force: "�Θb���s�킸�Ɏ��s���s��"
+
+# @insert