tkregreplace 0.1.0

data/README.txt

@@ -0,0 +1,20 @@
+This program is currently in alpha status.  It works pretty well at present
+as a visualization tool, however crucial features are still missing from the program
+like the ability to save the text file back to disk.  Also there may be somewhat unexpected
+behavior from the UI, not so much becuase of bugs, but more as a reflection of how the
+program attacks the problem.  Before the final release of this program I would like to
+implement the following
+
+saving files back to the disk
+
+a proper about dialog
+
+having all the search buttons obey symantics that the user would expect, like say perhaps searching starting from the current cursor
+position rather than from the top and other minor refinements
+
+cutting copying and pasting
+
+an undo facility, preferably a multi level undo
+
+
+I think If I can implement these features, this program could actually be useful to somebody.

data/tkregreplace.rb

@@ -0,0 +1,274 @@
+require 'tk'
+
+class TkRegReplace
+
+  def initialize
+    @root = TkRoot.new
+
+    @text = TkText.new(@root) do
+      font '-Adobe-Courier-Medium-R-Normal--*-120-*-*-*-*-*-*'
+    end
+
+    @text.wrap = 'none'
+
+    menu_spec = 
+    [
+      [
+        ['File', 0],
+        ['Open', proc {open_file}, 0, 'Ctrl+O'],
+        '---',
+        ['Quit', proc{exit}, 0, 'Ctrl+Q']
+      ],
+      [
+        ['Edit', 0],
+        ['Cut', proc{puts('Cut clicked')}, 2, 'Ctrl+X'],
+        ['Copy', proc{puts('Copy clicked')}, 0, 'Ctrl+C'],
+        ['Paste', proc{puts('Paste clicked')}, 0, 'Ctrl+V']
+      ], 
+      [
+        ['Help', 0, {:menu_name=>'help'}],
+        ['About This', proc{puts('xregexsearch&replace ruby script')}, 6]
+      ]
+    ]
+
+    @mbar = Tk.root.add_menubar(menu_spec)
+    @root.bind('Control-o', proc {open_file})
+    @root.bind('Control-q', proc {exit})
+    
+    @frame1 = TkFrame.new(@root)
+    @frame2 = TkFrame.new(@root)
+    @frame3 = TkFrame.new(@root)
+
+    @entry1 = TkEntry.new(@frame2)
+    @entry1.bind('Return', proc {match})
+    @entry2 = TkEntry.new(@frame2)
+
+    @dmn = TkVariable.new(0)
+    @checkbox1 = TkCheckButton.new(@frame3,
+      'text' => "Dot matches newline mode",
+      'variable' => @dmn
+    )
+
+    @ic = TkVariable.new(1)
+    @checkbox2 = TkCheckButton.new(@frame3,
+      'text' => "Ignore Case",
+      'variable' => @ic
+    )
+    
+    @tags = TkTextTag.new(@text, 'background' => 'red')
+    @tag = TkTextTag.new(@text, 'background' => 'blue')
+
+    @button1 = TkButton.new(@frame1, 
+      'text' => 'Match', 
+      'command' => proc {@text.focus; match}
+    )
+
+    @button2 = TkButton.new(@frame1, 
+      'text' => 'Match again', 
+      'command' => proc {@text.focus; match_again}
+    )
+    
+    @button3 = TkButton.new(@frame1,
+      'text' => "Match again reverse",
+      'command' => proc {@text.focus; match_again_backwards}
+    )
+
+
+    @button4 = TkButton.new(@frame1,
+      'text' => "Replace",
+      'command' => proc {replace}
+    )
+
+    @button5 = TkButton.new(@frame1,
+      'text' => "Replace All (from here downward)",
+      'command' => proc {replace_all}
+    )
+
+    @label1 = TkLabel.new(@frame2,
+      'text' => "Search String"
+    )
+
+    @label2 = TkLabel.new(@frame2,
+      'text' => "Replace String"
+    )
+
+
+    @scrollBar = TkScrollbar.new(@root, 
+      'command' => proc {|*args| @text.yview(*args)}
+    )
+
+    @scrollBar2 = TkScrollbar.new(@root, 
+      'orient' => "horizontal", 
+      'command' => proc {|*args| @text.xview(*args)}
+    )
+
+    @text.yscrollcommand(proc { |first, last| @scrollBar.set(first, last)})
+    @text.xscrollcommand(proc { |first, last| @scrollBar2.set(first, last)})
+
+    @frame1.pack('side' => 'bottom', 'fill' => 'x') 
+    @frame2.pack('side' => 'bottom', 'fill' => 'x', 'pady' => 10)
+    @frame3.pack('side' => 'bottom', 'fill' => 'x')
+    @checkbox1.pack('side' => 'left', 'fill' => 'x')
+    @checkbox2.pack('side' => 'left', 'fill' => 'x')
+    @label1.pack('side' => 'left', 'fill' => 'x')
+    @entry1.pack('side' => 'left', 'fill' => 'x', 'expand' => true)
+    @label2.pack('side' => 'left', 'fill' => 'x')
+    @entry2.pack('side' => 'left', 'fill' => 'x', 'expand' => true)
+    @button1.pack('side' => 'left', 'fill' => 'x', 'expand' => true)
+    @button2.pack('side' => 'left', 'fill' => 'x', 'expand' => true)
+    @button3.pack('side' => 'left', 'fill' => 'x', 'expand' => true)
+    @button4.pack('side' => 'left', 'fill' => 'x', 'expand' => true)
+    @button5.pack('side' => 'left', 'fill' => 'x', 'expand' => true)
+    @scrollBar.pack('side' => 'right', 'fill' => 'y') 
+    @scrollBar2.pack('side' => 'bottom', 'fill' => 'x') 
+    @text.pack('side' => 'right', 'fill' => 'both', 'expand' => true)
+
+    Tk.mainloop
+  end
+
+  def open_file
+    filetypes = [["All Files", "*"], ["Text Files", "*.txt"]]
+    filename = Tk.getOpenFile('filetypes' => filetypes, 'parent' => @root)
+    if filename != ""
+      @text.value=(File.read(filename))
+    end
+  end
+  
+  def match
+    y = 1; x = 0
+    map = Array.new
+    string = @text.value
+    for i in 0..string.length
+      if (string[i] == "\n"[0])
+        map[i] = "#{y}.#{x}"
+        y = y+1
+        x = 0
+      else
+        map[i] = "#{y}.#{x}"
+        x = x+1
+      end
+    end
+    
+    @tags.destroy
+    @tag.destroy
+    @tags = TkTextTag.new(@text, 'background' => 'red')
+    @tag = TkTextTag.new(@text, 'background' => 'blue')
+    
+    if @entry1.value != ""
+      if @dmn == 1 and @ic == 1
+        @reg = Regexp.new("(?im:#{@entry1.value})")
+      elsif @ic == 1
+        @reg = Regexp.new("(?i:#{@entry1.value})")
+      elsif @dmn == 1
+        @reg = Regexp.new("(?m:#{@entry1.value})")
+      else
+        @reg = Regexp.new("#{@entry1.value}")
+      end
+      if (@reg =~ string)
+        c = 0
+        @tag_index = 0
+        @tags.add("#{map[$`.size]}", "#{map[($`.size + $&.size)]}")
+        @tag.add(@tags.ranges[0][0],@tags.ranges[0][1])
+        @tags.remove(@tag.ranges[0][0], @tag.ranges[0][1])
+        @text.set_insert("#{map[$`.size]}")
+        @text.see("#{map[$`.size]}")
+        c = c + $&.size + $`.size
+        while (@reg =~ $')
+          if $& == ""
+            $' =~ /\n/ 
+            c = c + 1
+          else
+            @tags.add("#{map[c + $`.size]}", "#{map[c + $`.size + $&.size]}")
+            c = c + $&.size + $`.size
+          end
+        end
+      end
+    end
+  end
+
+  def match_again
+    if @tags.ranges.length > 0
+      @tag_index = @tag_index + 1
+      @tag_index = 0 if @tag_index > @tags.ranges.length
+      @tags.add(@tag.ranges[0][0], @tag.ranges[0][1])
+      @tag.remove(@tag.ranges[0][0], @tag.ranges[0][1])
+      @tag.add(@tags.ranges[@tag_index][0], @tags.ranges[@tag_index][1])
+      @tags.remove(@tag.ranges[0][0], @tag.ranges[0][1])
+      @text.set_insert(@tag.ranges[0][0])
+      @text.see(@tag.ranges[0][0])
+    end
+  end
+    
+  def match_again_backwards
+    if @tags.ranges.length > 0
+      @tag_index = @tag_index - 1
+      @tag_index = @tags.ranges.length if @tag_index < 0
+      @tags.add(@tag.ranges[0][0], @tag.ranges[0][1])
+      @tag.remove(@tag.ranges[0][0], @tag.ranges[0][1])
+      @tag.add(@tags.ranges[@tag_index][0], @tags.ranges[@tag_index][1])
+      @tags.remove(@tag.ranges[0][0], @tag.ranges[0][1])
+      @text.set_insert(@tag.ranges[0][0])
+      @text.see(@tag.ranges[0][0])
+    end
+  end
+
+  def replace
+    if @entry1.value != ""
+      if @dmn == 1 and @ic == 1
+        @reg = Regexp.new("(?im:#{@entry1.value})")
+      elsif @ic == 1
+        @reg = Regexp.new("(?i:#{@entry1.value})")
+      elsif @dmn == 1
+        @reg = Regexp.new("(?m:#{@entry1.value})")
+      else
+        @reg = Regexp.new("#{@entry1.value}")
+      end
+    end
+    
+    if (@tag.ranges.length > 0)
+      string = @text.get(@tag.ranges[0][0], @tag.ranges[0][1])
+      string.sub!(@reg, @entry2.value)
+      @text.insert(@tag.ranges[0][0], string)
+      @text.delete(@tag.ranges[0][0], @tag.ranges[0][1])
+      unless @tag_index > @tags.ranges.length-1
+        @tag.add(@tags.ranges[@tag_index][0], @tags.ranges[@tag_index][1])
+        @tags.remove(@tag.ranges[0][0], @tag.ranges[0][1])
+        @text.set_insert(@tag.ranges[0][0])
+        @text.see(@tag.ranges[0][0])
+      end
+    end
+  end
+
+  def replace_all
+    if @entry1.value != ""
+      if @dmn == 1 and @ic == 1
+        @reg = Regexp.new("(?im:#{@entry1.value})")
+      elsif @ic == 1
+        @reg = Regexp.new("(?i:#{@entry1.value})")
+      elsif @dmn == 1
+        @reg = Regexp.new("(?m:#{@entry1.value})")
+      else
+        @reg = Regexp.new("#{@entry1.value}")
+      end
+    end
+
+    while(@tag.ranges.length > 0)
+      string = @text.get(@tag.ranges[0][0], @tag.ranges[0][1])
+      string.sub!(@reg, @entry2.value)
+      @text.insert(@tag.ranges[0][0], string)
+      @text.delete(@tag.ranges[0][0], @tag.ranges[0][1])
+      unless @tag_index > @tags.ranges.length-1
+        @tag.add(@tags.ranges[@tag_index][0], @tags.ranges[@tag_index][1])
+        @tags.remove(@tag.ranges[0][0], @tag.ranges[0][1])
+        @text.set_insert(@tag.ranges[0][0])
+        @text.see(@tag.ranges[0][0])
+      end
+    end
+  end
+end
+
+TkRegReplace.new
+
+#      mark = TkTextMarkInsert.new(@text)
+#      puts @text.index(mark)
+

metadata

@@ -0,0 +1,40 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.8.10
+specification_version: 1
+name: tkregreplace
+version: !ruby/object:Gem::Version 
+  version: 0.1.0
+date: 2005-11-09
+summary: TK program which visualizes and caries out regular expression matches and or replacements on text files
+require_paths: 
+  - lib
+email: pfharlock@yahoo.com
+homepage: 
+rubyforge_project: 
+description: 
+autorequire: 
+default_executable: 
+bindir: "."
+has_rdoc: false
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+    - 
+      - ">"
+      - !ruby/object:Gem::Version 
+        version: 0.0.0
+  version: 
+platform: ruby
+authors: 
+  - Gary Watson
+files: 
+  - tkregreplace.rb
+  - README.txt
+test_files: []
+rdoc_options: []
+extra_rdoc_files: 
+  - README.txt
+executables: 
+  - tkregreplace.rb
+extensions: []
+requirements: []
+dependencies: []