emonti-hexwrench 0.2.0

data/lib/hexwrench/gui.rb

@@ -0,0 +1,62 @@
+
+# This class was automatically generated from XRC source. It is not
+# recommended that this file is edited directly; instead, inherit from
+# this class and extend its behaviour there.  
+#
+# Source file: ui/gui.xrc 
+# Generated at: Sun Feb 15 15:08:37 -0600 2009
+
+class Hexwrench::EditorFrameBase < Wx::Frame
+	
+	attr_reader :top_menu_bar, :mitem_open, :mitem_new, :mitem_save,
+              :mitem_quit, :mitem_copy, :mitem_cut, :mitem_paste,
+              :mitem_select_all, :mitem_select_range,
+              :mitem_adv_search, :mitem_data_inspector,
+              :mitem_strings, :util_bar, :util_jump, :util_search,
+              :util_search_kind, :util_ins_chk, :status_bar
+	
+	def initialize(parent = nil)
+		super()
+		xml = Wx::XmlResource.get
+		xml.flags = 2 # Wx::XRC_NO_SUBCLASSING
+		xml.init_all_handlers
+		xml.load(File.dirname(__FILE__) + "/ui/gui.xrc")
+		xml.load_frame_subclass(self, parent, "editor_frame")
+
+		finder = lambda do | x | 
+			int_id = Wx::xrcid(x)
+			begin
+				Wx::Window.find_window_by_id(int_id, self) || int_id
+			# Temporary hack to work around regression in 1.9.2; remove
+			# begin/rescue clause in later versions
+			rescue RuntimeError
+				int_id
+			end
+		end
+		
+		@top_menu_bar = finder.call("top_menu_bar")
+		@mitem_open = finder.call("mitem_open")
+		@mitem_new = finder.call("mitem_new")
+		@mitem_save = finder.call("mitem_save")
+		@mitem_quit = finder.call("mitem_quit")
+		@mitem_copy = finder.call("mitem_copy")
+		@mitem_cut = finder.call("mitem_cut")
+		@mitem_paste = finder.call("mitem_paste")
+		@mitem_select_all = finder.call("mitem_select_all")
+		@mitem_select_range = finder.call("mitem_select_range")
+		@mitem_adv_search = finder.call("mitem_adv_search")
+		@mitem_data_inspector = finder.call("mitem_data_inspector")
+		@mitem_strings = finder.call("mitem_strings")
+		@util_bar = finder.call("util_bar")
+		@util_jump = finder.call("util_jump")
+		@util_search = finder.call("util_search")
+		@util_search_kind = finder.call("util_search_kind")
+		@util_ins_chk = finder.call("util_ins_chk")
+		@status_bar = finder.call("status_bar")
+		if self.class.method_defined? "on_init"
+			self.on_init()
+		end
+	end
+end
+
+

data/lib/hexwrench/stringsgrid.rb

@@ -0,0 +1,72 @@
+# experimental "Wx::Grid" version of the strings window
+
+require 'rbkb/extends'
+
+module Hexwrench
+  class StringsFrame < Wx::Frame
+    def initialize(parent, data, strings_opts=nil)
+      super(parent, :title => "Strings")
+      @grid = Wx::Grid.new(self)
+
+      @data = data
+      @strings_opts =(strings_opts || {})
+      @strings_opts[:font] ||= 
+        Wx::Font.new(10, Wx::MODERN, Wx::NORMAL, Wx::NORMAL)
+
+      make_grid()
+    end
+
+    def make_grid()
+      tbl = StringsTableBase.new(@data, @strings_opts)
+      @grid.set_table(tbl, Wx::Grid::GridSelectRows)
+      @grid.set_row_label_size(0)
+      @grid.enable_grid_lines(false)
+      @grid.disable_drag_row_size()
+      @grid.disable_drag_grid_size()
+      @grid.set_label_font(@strings_opts[:font])
+    end
+  end
+
+  class StringsTableBase < Wx::GridTableBase
+    def initialize(data, strings_opts=nil)
+      super()
+      strings_opts ||= {}
+      @font = strings_opts[:font] 
+      @font ||= Wx::Font.new(10, Wx::MODERN, Wx::NORMAL, Wx::NORMAL)
+      @cell_attr = Wx::GridCellAttr.new( Wx::BLACK, Wx::WHITE, @font, 
+                                        Wx::ALIGN_LEFT, Wx::ALIGN_CENTRE)
+      @cell_attr.set_read_only(true)
+      @strings = data.strings(strings_opts)
+    end
+
+    def get_number_cols
+      4
+    end
+
+    def get_number_rows
+      @strings.size
+    end
+
+    def get_col_label_value(col)
+      ["start", "end", "kind", "string"][col]
+    end
+
+    def get_row_label_value(row)
+      ""
+    end
+
+    def get_value(row, col)
+      val=@strings[row][col].to_s
+      return (col > 2)?  val.inspect : val
+    end
+
+    def is_empty_cell(row, col)
+      (r=@strings[row]).nil? or r[col].nil?
+    end
+
+    def get_attr(*args)
+      @cell_attr.clone
+    end
+
+  end
+end

data/lib/hexwrench/stringslist.rb

@@ -0,0 +1,105 @@
+### DEPRECATED by stringsvlist.rb
+
+require 'rbkb/extends'
+
+module Hexwrench
+  class StringsFrame < Wx::Frame
+    attr_reader :strings_list
+    def initialize(parent, editor, strings_opts=nil)
+      unless @editor = editor
+        Kernel.raise "#{self.class}.new() requires an editor window parameter"
+      end
+
+      super(parent, :title => "Strings")
+
+      @strings_list = StringsList.new(self, @editor, strings_opts)
+      @strings_list.evt_window_destroy do |evt| 
+        self.destroy() rescue (ObjectPreviouslyDeleted)
+        evt.skip(true)
+      end
+
+      evt_list_item_selected(@strings_list) do |evt|
+        s_off, e_off, kind, str = evt.item.data
+        if @editor.select_range(s_off..e_off-1)
+          @editor.set_area_ascii
+          @editor.scroll_to_idx(s_off)
+          @editor.refresh
+        end
+      end
+
+
+      # Fire our strings operation only on switching (via activation)
+      # we do this because strings is a costly operation
+      evt_activate do |evt| 
+        if @data_changed
+          @data_changed=false
+          @strings_list.do_strings 
+        end
+      end
+    end
+
+    def notify_data_change
+      @data_changed=true
+    end
+
+    def do_strings
+      @strings_list.do_strings
+    end
+  end
+
+  class StringsList < Wx::ListCtrl
+    attr_reader :strings_opts
+
+    def initialize(parent, editor, strings_opts=nil)
+      unless @editor = editor
+        Kernel.raise "#{self.class}.new() requires an editor window parameter"
+      end
+
+      super(parent, :style => Wx::LC_REPORT|Wx::LC_SINGLE_SEL|Wx::LC_HRULES|Wx::LC_VRULES)
+      insert_column(0, "start")
+      insert_column(1, "len")
+      insert_column(2, "kind")
+      insert_column(3, "string")
+
+      @strings_opts = (strings_opts || {})
+      @strings_opts[:encoding] ||= :both
+
+      @font = Wx::Font.new(10, Wx::MODERN, Wx::NORMAL, Wx::NORMAL)
+      set_font(@font)
+    end
+
+    GAUGE_STYLE = Wx::PD_CAN_ABORT |
+                  Wx::PD_REMAINING_TIME |
+                  Wx::PD_ESTIMATED_TIME |
+                  Wx::PD_ELAPSED_TIME
+
+    def do_strings
+      gauge = 
+        Wx::ProgressDialog.new("", "Generating Strings",
+          @editor.data.size, self, GAUGE_STYLE)
+
+      self.hide
+      delete_all_items
+      i=0
+      @editor.data.strings(@strings_opts) do |startoff, endoff, stype, str|
+        unless gauge.update(endoff)
+          # the "abort" button was pressed
+          destroy
+          return nil
+        end
+        d_str = ((stype == :unicode)? str.gsub(/(.)\x00/){$1} : str).inspect
+        insert_item(i, startoff.to_s)
+        set_item i, 1, (endoff-startoff).to_s
+        set_item i, 2, stype.to_s
+        set_item i, 3, d_str
+        set_item_data(i, [startoff, endoff, stype])
+        i+=1
+      end
+
+      0.upto(3) {|c| set_column_width c, Wx::LIST_AUTOSIZE } if i > 0
+      self.show
+      gauge.destroy()
+      return i
+    end
+  end
+end

data/lib/hexwrench/stringsvlist.rb

@@ -0,0 +1,123 @@
+
+require 'rbkb/extends.rb'
+
+module Hexwrench
+  class StringsFrame < Wx::Frame
+    attr_reader :strings_list
+
+    def initialize(parent, editor, strings_opts=nil)
+      unless @editor = editor
+        Kernel.raise "#{self.class}.new() requires an editor window parameter"
+      end
+
+      @strings_opts = (strings_opts || {})
+      @strings_opts[:min] ||= 5
+
+      super(parent, :title => "Strings")
+
+      # Fire our strings operation only on switching windows (via activation)
+      # we do this because finding strings (to a lesser extent) and 
+      # populating the window (to a larger extent) may be a costly operation
+      evt_idle do |evt| 
+        if @data_changed and active?
+          @data_changed=false
+          do_strings 
+        end
+      end
+
+      do_strings
+    end
+
+    def notify_data_change
+      @data_changed=true
+    end
+
+    def do_strings
+      if @strings_list.nil?
+        @strings_list = StringsList.new(self, @editor) unless @strings_list
+
+        evt_list_item_selected(@strings_list) do |evt|
+          s_off, e_off, kind, str = @strings_list.strings[evt.get_index]
+          if @editor.select_range(s_off..e_off-1)
+            @editor.set_area_ascii
+            @editor.scroll_to_idx(s_off)
+            @editor.refresh
+          end
+        end
+      else
+        @strings_list.refresh_strings()
+      end
+    end
+  end
+
+  class StringsList < Wx::ListCtrl
+    attr_accessor :strings_opts, :strings, :editor
+
+    def initialize(parent, editor, strings_opts=nil)
+      @strings_opts ||= {}
+      @editor = editor
+
+      super(parent, :style => Wx::LC_REPORT|Wx::LC_SINGLE_SEL|Wx::LC_HRULES|Wx::LC_VRULES|Wx::LC_VIRTUAL)
+
+      @font = Wx::Font.new(10, Wx::MODERN, Wx::NORMAL, Wx::NORMAL)
+      set_font(@font)
+
+      @dc = Wx::WindowDC.new(self)
+      @labels = ["start idx", "end idx", "kind", "string"]
+      @labels.each_index {|i| insert_column(i, @labels[i]) }
+
+      refresh_strings()
+
+      @attr = Wx::ListItemAttr.new
+      @attr.set_background_colour(Wx::WHITE)
+    end
+
+    def refresh_strings()
+      @strings = []
+      colwids = @labels.map {|l| @dc.get_text_extent("@@#{l}@@", @font)[0]}
+      @editor.data.strings(@strings_opts) do |*mtch|
+        @strings << mtch[0..2]
+
+        # calculate column widths during loop so we don't have to autosize 
+        # later. (autosize can be slow on large lists)
+        0.upto(2) do |i|
+          owid = colwids[i]
+          nwid = @dc.get_text_extent("@#{mtch[i]}@", @font)[0]
+          colwids[i] = nwid if nwid > owid
+        end
+        swid=colwids[3]
+        nswid=@dc.get_text_extent("@#{get_string(mtch)}@", @font)[0]
+        colwids[3] = nswid if nswid > swid
+      end
+      colwids.each_index {|i| set_column_width(i, colwids[i])}
+      set_item_count(@strings.size)
+    end
+
+    def get_string(match)
+      dat = @editor.data[(match[0]..match[1]-1)]
+      if match[2] == :unicode 
+        dat.gsub(/(.)\x00/){$1}
+      else
+        dat
+      end.inspect
+    end
+
+    def create_strings(data)
+    end
+
+    def on_get_item_text(row, col)
+      if r = @strings[row]
+        if col == 3
+          get_string(r)
+        else
+          r[col].to_s
+        end
+      end
+    end
+
+    def on_get_item_attr(item)
+      @attr
+    end
+  end
+end
+

data/lib/hexwrench/ui/gui.xrc

@@ -0,0 +1,93 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<resource version="2.3.0.1" xmlns="http://www.wxwidgets.org/wxxrc">
+    <object class="wxFrame" name="editor_frame" subclass="EditorFrameBase">
+        <style>wxCAPTION|wxRESIZE_BORDER|wxSYSTEM_MENU|wxMINIMIZE_BOX|wxMAXIMIZE_BOX|wxCLOSE_BOX</style>
+        <size>400,300</size>
+        <title>Hexwrench</title>
+        <object class="wxMenuBar" name="top_menu_bar">
+            <object class="wxMenu">
+                <label>&amp;File</label>
+                <object class="wxMenuItem" name="mitem_open">
+                    <label>Open</label>
+                </object>
+                <object class="wxMenuItem" name="mitem_new">
+                    <label>New</label>
+                </object>
+                <object class="wxMenuItem" name="mitem_save">
+                    <label>Save</label>
+                </object>
+                <object class="wxMenuItem" name="mitem_quit">
+                    <label>Quit</label>
+                </object>
+            </object>
+            <object class="wxMenu">
+                <label>&amp;Edit</label>
+                <object class="wxMenuItem" name="mitem_copy">
+                    <label>Copy</label>
+                </object>
+                <object class="wxMenuItem" name="mitem_cut">
+                    <label>Cut</label>
+                </object>
+                <object class="wxMenuItem" name="mitem_paste">
+                    <label>Paste</label>
+                </object>
+                <object class="wxMenuItem" name="mitem_select_all">
+                    <label>Select All</label>
+                </object>
+                <object class="wxMenuItem" name="mitem_select_range">
+                    <label>Select Range</label>
+                </object>
+                <object class="separator">
+                </object>
+                <object class="wxMenuItem" name="mitem_adv_search">
+                    <label>Advanced Search</label>
+                </object>
+            </object>
+            <object class="wxMenu">
+                <label>&amp;Tools</label>
+                <object class="wxMenuItem" name="mitem_data_inspector">
+                    <label>Data Inspector</label>
+                </object>
+                <object class="wxMenuItem" name="mitem_strings">
+                    <label>Strings</label>
+                </object>
+            </object>
+        </object>
+        <object class="wxToolBar" name="util_bar">
+            <style>wxTB_FLAT|wxTB_HORIZONTAL</style>
+            <object class="wxTextCtrl" name="util_jump">
+                <style>wxTE_PROCESS_ENTER</style>
+                <value>jump to addr.</value>
+            </object>
+            <object class="separator">
+            </object>
+            <object class="wxTextCtrl" name="util_search">
+                <style>wxTE_PROCESS_ENTER</style>
+                <value>search</value>
+            </object>
+            <object class="wxChoice" name="util_search_kind">
+                <size>70,-1</size>
+                <font>
+                    <size>10</size>
+                    <family>modern</family>
+                </font>
+                <content>
+                    <item>ASCII</item>
+                    <item>Hex</item>
+                </content>
+                <selection>0</selection>
+            </object>
+            <object class="separator">
+            </object>
+            <object class="wxCheckBox" name="util_ins_chk">
+                <label>INS</label>
+                <checked>1</checked>
+            </object>
+        </object>
+        <object class="wxStatusBar" name="status_bar">
+            <style>wxST_SIZEGRIP|wxNO_BORDER</style>
+            <fields>2</fields>
+            <widths></widths>
+        </object>
+    </object>
+</resource>

data/lib/hexwrench.rb

@@ -0,0 +1,14 @@
+begin
+  require 'rubygems'
+rescue LoadError
+end
+
+module Hexwrench
+  VERSION = "0.2.0"
+end
+require 'wx'
+require 'hexwrench/edit_window'
+require 'hexwrench/gui.rb' # gui.rb provides  EditFrame's layout from XRC
+require 'hexwrench/edit_frame'
+require 'hexwrench/data_inspector'
+require 'hexwrench/stringsvlist'

data/samples/ascii_heat_map.rb

@@ -0,0 +1,13 @@
+# a byte-value heat colorizer based on colorbindump
+
+raw_palette = [[0x30, 0x30, 0x30] ] +
+              (1..31).map {|x| [96,96,96]} +
+              (32..127).map {|x| [128,196,128]} +
+              (128..255).map {|x| [96,96,96]}
+
+@palette = raw_palette.map {|p| Wx::Brush.new(Wx::Colour.new(*p[0..2]))}
+editor.post_paint_proc = lambda {|this,dc,idx,c,hX,aX,y| 
+ brush = [@palette[c], Wx::TRANSPARENT_BRUSH]
+ this.colorize_byte_bg(brush, dc, hX,aX,y)
+}
+editor.refresh

data/tasks/ann.rake

@@ -0,0 +1,80 @@
+
+begin
+  require 'bones/smtp_tls'
+rescue LoadError
+  require 'net/smtp'
+end
+require 'time'
+
+namespace :ann do
+
+  # A prerequisites task that all other tasks depend upon
+  task :prereqs
+
+  file PROJ.ann.file do
+    ann = PROJ.ann
+    puts "Generating #{ann.file}"
+    File.open(ann.file,'w') do |fd|
+      fd.puts("#{PROJ.name} version #{PROJ.version}")
+      fd.puts("    by #{Array(PROJ.authors).first}") if PROJ.authors
+      fd.puts("    #{PROJ.url}") if PROJ.url.valid?
+      fd.puts("    (the \"#{PROJ.release_name}\" release)") if PROJ.release_name
+      fd.puts
+      fd.puts("== DESCRIPTION")
+      fd.puts
+      fd.puts(PROJ.description)
+      fd.puts
+      fd.puts(PROJ.changes.sub(%r/^.*$/, '== CHANGES'))
+      fd.puts
+      ann.paragraphs.each do |p|
+        fd.puts "== #{p.upcase}"
+        fd.puts
+        fd.puts paragraphs_of(PROJ.readme_file, p).join("\n\n")
+        fd.puts
+      end
+      fd.puts ann.text if ann.text
+    end
+  end
+
+  desc "Create an announcement file"
+  task :announcement => ['ann:prereqs', PROJ.ann.file]
+
+  desc "Send an email announcement"
+  task :email => ['ann:prereqs', PROJ.ann.file] do
+    ann = PROJ.ann
+    from = ann.email[:from] || Array(PROJ.authors).first || PROJ.email
+    to   = Array(ann.email[:to])
+
+    ### build a mail header for RFC 822
+    rfc822msg =  "From: #{from}\n"
+    rfc822msg << "To: #{to.join(',')}\n"
+    rfc822msg << "Subject: [ANN] #{PROJ.name} #{PROJ.version}"
+    rfc822msg << " (#{PROJ.release_name})" if PROJ.release_name
+    rfc822msg << "\n"
+    rfc822msg << "Date: #{Time.new.rfc822}\n"
+    rfc822msg << "Message-Id: "
+    rfc822msg << "<#{"%.8f" % Time.now.to_f}@#{ann.email[:domain]}>\n\n"
+    rfc822msg << File.read(ann.file)
+
+    params = [:server, :port, :domain, :acct, :passwd, :authtype].map do |key|
+      ann.email[key]
+    end
+
+    params[3] = PROJ.email if params[3].nil?
+
+    if params[4].nil?
+      STDOUT.write "Please enter your e-mail password (#{params[3]}): "
+      params[4] = STDIN.gets.chomp
+    end
+
+    ### send email
+    Net::SMTP.start(*params) {|smtp| smtp.sendmail(rfc822msg, from, to)}
+  end
+end  # namespace :ann
+
+desc 'Alias to ann:announcement'
+task :ann => 'ann:announcement'
+
+CLOBBER << PROJ.ann.file
+
+# EOF

data/tasks/bones.rake

@@ -0,0 +1,20 @@
+
+if HAVE_BONES
+
+namespace :bones do
+
+  desc 'Show the PROJ open struct'
+  task :debug do |t|
+    atr = if t.application.top_level_tasks.length == 2
+      t.application.top_level_tasks.pop
+    end
+
+    if atr then Bones::Debug.show_attr(PROJ, atr)
+    else Bones::Debug.show PROJ end
+  end
+
+end  # namespace :bones
+
+end  # HAVE_BONES
+
+# EOF