utils 0.0.0

data/lib/utils.rb

@@ -0,0 +1,8 @@
+module Utils
+  require 'utils/version'
+  require 'utils/file'
+  require 'utils/find'
+  require 'utils/md5'
+  require 'utils/patterns'
+  require 'utils/config'
+end

data/lib/utils/config.rb

@@ -0,0 +1,23 @@
+require 'fileutils'
+
+module Utils
+  module Config
+    extend FileUtils::Verbose
+
+    CONFIG_DIR = File.expand_path(__FILE__).sub(/#{Regexp.quote(File.extname(__FILE__))}\Z/, '')
+
+    def self.install_config
+      srcs = Dir[File.join(CONFIG_DIR, '*')]
+      dst_prefix = ENV['HOME'] or fail 'environment variable $HOME is required'
+      for src in srcs
+        dst = File.join(dst_prefix, ".#{File.basename(src)}")
+        if File.exist?(dst)
+          rm_rf "#{dst}.bak"
+          mv dst, "#{dst}.bak/", :force => true
+        end
+        cp_r src, dst
+      end
+      self
+    end
+  end
+end

data/lib/utils/config/gdb/asm

@@ -0,0 +1,179 @@
+
+# ASM DEBUGGING
+# define special help command "h" that shows asm related commands only
+#
+define h
+echo -------\n
+echo asm debugging commands, see "help" for other gdb comands\n
+echo \ \n
+echo g <adr>  exec & set temp break <adr>     u <n> disassemble from pc n times\n
+echo c  run program (continue)                uu <adr> <n> disassemble from adr n times\n
+echo n  step one instruction                  ss <n> show stack n locations\n
+echo nn  step but do not enter calls          r  show registers\n
+echo until  step or run to end of loop        db <adr> <n> display bytes\n
+echo \                                         dw <adr> <n> display words\n
+echo q  quit gdb                              dd <adr> <n> display dword\n
+echo \                                         ds <adr> <n> display string\n
+echo bs  show breaks                                                      \n
+echo bc  clear breaks                                                     \n
+echo                                                                     \n
+echo modifying the code within gdb requires reload, recompile easier? \n
+echo to change register -> set $eax = 0x123456 \n
+echo ------\n
+end
+#
+# set gdb initialization flags - change these as needed
+#
+# eliminate the pesky exit message that says program is running
+set confirm off
+set language asm
+# set disassembly-flavor intel
+# enable the following to work in hex, the default is decimal
+set output-radix 16
+set input-radix 16
+#
+# disable pesky hook messages?? this may not be necessary in other versions of gdb
+#
+define hook-stop
+end
+define hook-continue
+end
+#------------- define special commands for assembler -------------------
+#
+# go (run) to temporary break location "g <label>"
+#
+define g
+tbreak $arg0
+continue
+x/1i $pc
+echo ----------\n
+end
+#
+# show stack  "ss <n>" where n is number of entries to show
+#
+define ss
+x/$arg0xh $esp-(4 * $arg0)
+end
+#
+# define nn to single step over calls
+#
+define nn
+echo --------------
+nexti
+printf "eax=%x ebx=%x ecx=%x edx=%x esi=%x edi=%x ebp=%x esp=%x\n",$eax,$ebx,$ecx,$edx,$esi,$edi,$ebp,$esp
+x /4i $pc
+end
+#
+# define n to single step one instruction
+#
+define n
+echo line-
+si
+printf "eax=%x ebx=%x ecx=%x edx=%x esi=%x edi=%x ebp=%x esp=%x eflags=%x\n",$eax,$ebx,$ecx,$edx,$esi,$edi,$ebp,$esp,$eflags
+#disassemble $pc $pc+14
+x /4i $pc
+end
+#
+# define "u <n>"  to disassemble n locations from $pc
+#
+define u
+# x/$arg0i $eip
+ disassemble $eip $eip+$arg0
+#disassemble $arg0
+ end
+#
+# define "uu <label> <n>"  to disassemble n locations from given label
+#
+define uu
+x/$arg1i $arg0
+# disassemble $arg0 $arg0+$arg1
+ end
+#
+# define "bs" show breaks
+#
+define bs
+info break
+end
+#
+# define "bc" clear all breakpoints
+#
+define bc
+delete
+end
+#
+# define "r" show  registers
+#
+define r
+echo -----\n
+printf "eax=%x ebx=%x ecx=%x edx=%x esi=%x edi=%x ebp=%x\n",$eax,$ebx,$ecx,$edx,$esi,$edi,$ebp
+printf "esp=%x   eip=%x   flag=%x -->     O D I T   S Z - AC  - P - C\n",$esp,$eip,$eflags
+echo flags= Overflow, Direction, Interrupt, Trap, Sign, Zero, AuxCarry, Parity, Carry\n
+x/i $pc
+echo -----\n
+end
+#
+# define "db <adr> <n>"  display <n> bytes at <adr>
+#
+define db
+x/$arg1xb $arg0
+end
+#
+# define "dw <adr> <n>"  display <n> words at <adr>
+#
+define dw
+x/$arg1xh $arg0
+end
+#
+# define "dd <adr> <n>"  display <n> dwords at <adr>
+#
+define dd
+x/$arg1xw $arg0
+end
+#
+# define "ds <adr> <n>"  display <n> char(ascii) at <adr>
+#
+define ds
+x/$arg1cb $arg0
+end
+
+# attempt a string display...
+define dstr
+x /1sb &$arg0
+end
+
+
+set $asm_instruction_counter = 0
+define icount
+  print "stepi instructions: %d\n", $asm_instruction_counter
+end
+
+define hook-n
+  set $asm_instruction_counter = $asm_instruction_counter + 1
+end
+
+define icountreset
+  set $asm_instruction_counter = 0
+end
+
+#
+# start of code initialization ----------------------
+#
+# to initialize gdb we need to use the "run" command once, first
+# we display the current instruction, then set a break at next location.
+# Warning - the first instruction must be one byte long.
+# Next, we start the program executing (run) then clear all breakpoints.
+#
+
+# x /1i *_start
+# echo ---------------
+# break *_start+1
+# run
+# delete
+# x /1i *_start+1
+
+echo \n---------\n
+echo for some reason nasm symbols appear as functions?  ignore\n
+echo symbol related warnings.\n
+echo \n
+echo -------- type <h> for asm cmds  <help> for gdb commands\n
+

data/lib/utils/config/gdb/ruby

@@ -0,0 +1,528 @@
+
+###################
+# #### RUBY STUFF
+
+define eval
+  call (VALUE) rb_p((VALUE) rb_eval_string_protect($arg0,(int*)0))
+end
+
+define redirect_stdout
+  call (VALUE) rb_eval_string("$_old_stdout, $stdout = $stdout, File.open('/tmp/ruby-debug.' + Process.pid.to_s, 'a'); $stdout.sync = true")
+end
+
+define restore_stdout
+  call (VALUE) rb_eval_string("$stdout = $_old_stdout")
+end
+
+define rb_finish
+  call (VALUE) rb_eval_string_protect("set_trace_func lambda{|event, file, line, id, binding, classname| if /return/ =~ event; sleep 0; set_trace_func(nil) end}",(int*)0)
+  tbreak rb_f_sleep
+  cont
+end
+
+define rb_object_counts
+  call (VALUE) rb_eval_string_protect("counts = Hash.new{|h,k| h[k] = 0}; ObjectSpace.each_object{|o| counts[o.class] += 1}; counts.sort_by{|k,c| c}.reverse.each{|k,c| puts '%7d  %s' % [c, k] } ",(int*)0)
+end
+
+define rb_locals
+  eval "local_variables.map{|x| puts '%s = %s' % [x, eval(x)]}; nil"
+end
+
+define rp
+  if ($arg0 & 0x1)
+    echo T_FIXNUM\n
+    print (long)$arg0 >> 1
+  else
+  if ($arg0 == 0)
+    echo T_FALSE\n
+  else
+  if ($arg0 == 2)
+    echo T_TRUE\n
+  else
+  if ($arg0 == 4)
+    echo T_NIL\n
+  else
+  if ($arg0 == 6)
+    echo T_UNDEF\n
+  else
+  if (($arg0 & 0xff) == 0x0e)
+    echo T_SYMBOL\n
+    output $arg0 >> 8
+    echo \n
+    call (const char *) rb_id2name($arg0 >> 8)
+  else
+    set $rbasic = (struct RBasic*)$arg0
+  #  output  $rbasic
+  #  echo \ =\ 
+  #  output *$rbasic
+  #  echo \n
+    set $flags = (*$rbasic).flags & 0x3f
+    if ($flags == 0x01)
+      echo T_NIL\n
+      echo impossible\n
+    else
+    if ($flags == 0x02)
+      echo T_OBJECT\n
+      print *(struct RObject*)$rbasic
+    else
+    if ($flags == 0x03)
+      echo T_CLASS\n
+#      rb_classname($arg0)
+    else
+    if ($flags == 0x04)
+      echo T_ICLASS\n
+      print *(struct RClass*)$rbasic
+    else
+    if ($flags == 0x05)
+      echo T_MODULE\n
+      print *(struct RClass*)$rbasic
+    else
+    if ($flags == 0x06)
+      echo T_FLOAT\n
+      print *(struct RFloat*)$rbasic
+    else
+    if ($flags == 0x07)
+      echo T_STRING\n
+      print *(struct RString*)$rbasic
+    else
+    if ($flags == 0x08)
+      echo T_REGEXP\n
+      print *(struct RRegexp*)$rbasic
+    else
+    if ($flags == 0x09)
+      echo T_ARRAY\n
+      print *(struct RArray*)$rbasic
+    else
+    if ($flags == 0x0a)
+      echo T_FIXNUM\n
+      echo impossible\n
+    else
+    if ($flags == 0x0b)
+      echo T_HASH\n
+      print *(struct RHash*)$rbasic
+    else
+    if ($flags == 0x0c)
+      echo T_STRUCT\n
+      print *(struct RStruct*)$rbasic
+    else
+    if ($flags == 0x0d)
+      echo T_BIGNUM\n
+      print *(struct RBignum*)$rbasic
+    else
+    if ($flags == 0x0e)
+      echo T_FILE\n
+      print *(struct RFile*)$rbasic
+    else
+    if ($flags == 0x20)
+      echo T_TRUE\n
+      echo impossible\n
+    else
+    if ($flags == 0x21)
+      echo T_FALSE\n
+      echo impossible\n
+    else
+    if ($flags == 0x22)
+      echo T_DATA\n
+      print *(struct RData*)$rbasic
+    else
+    if ($flags == 0x23)
+      echo T_MATCH\n
+      print *(struct RMatch*)$rbasic
+    else
+    if ($flags == 0x24)
+      echo T_SYMBOL\n
+      echo impossible\n
+    else
+    if ($flags == 0x3c)
+      echo T_UNDEF\n
+      echo impossible\n
+    else
+    if ($flags == 0x3d)
+      echo T_VARMAP\n
+    else
+    if ($flags == 0x3e)
+      echo T_SCOPE\n
+    else
+    if ($flags == 0x3f)
+      echo T_NODE\n
+      print (NODE*)$arg0
+    else
+      echo Unknown\n
+    end
+    end
+    end
+    end
+    end
+    end
+    end
+    end
+    end
+    end
+    end
+    end
+    end
+    end
+    end
+    end
+    end
+    end
+    end
+    end
+    end
+    end
+    end
+
+  end
+  end
+  end
+  end
+  end
+  end
+end
+document rp
+ruby���Ȥ߹��ߥ��֥������Ȥ�ɽ������
+end
+
+define nd_type
+  print nodetype($arg0)
+end
+document nd_type
+ruby node �η���ɽ��
+end
+
+define nd_file
+  print ((NODE*)$arg0)->nd_file
+end
+document nd_file
+node �Υ������ե�����̾��ɽ��
+end
+
+define nd_line
+  print nodeline($arg0)
+end
+document nd_line
+node �ι��ֹ��ɽ��
+end
+
+# ruby node �Υ��Ф�ɽ��
+
+define nd_head
+  print "u1.node"
+  what $arg0.u1.node
+  p $arg0.u1.node
+end
+
+define nd_alen
+  print "u2.argc"
+  what $arg0.u2.argc
+  p $arg0.u2.argc
+end
+
+define nd_next
+  print "u3.node"
+  what $arg0.u3.node
+  p $arg0.u3.node
+end
+
+
+define nd_cond
+  print "u1.node"
+  what $arg0.u1.node
+  p $arg0.u1.node
+end
+
+define nd_body
+  print "u2.node"
+  what $arg0.u2.node
+  p $arg0.u2.node
+end
+
+define nd_else
+  print "u3.node"
+  what $arg0.u3.node
+  p $arg0.u3.node
+end
+
+
+define nd_orig
+  print "u3.value"
+  what $arg0.u3.value
+  p $arg0.u3.value
+end
+
+
+define nd_resq
+  print "u2.node"
+  what $arg0.u2.node
+  p $arg0.u2.node
+end
+
+define nd_ensr
+  print "u3.node"
+  what $arg0.u3.node
+  p $arg0.u3.node
+end
+
+
+define nd_1st
+   print "u1.node"
+   what $arg0.u1.node
+   p $arg0.u1.node
+end
+
+define nd_2nd
+   print "u2.node"
+   what $arg0.u2.node
+   p $arg0.u2.node
+end
+
+
+define nd_stts
+  print "u1.node"
+  what $arg0.u1.node
+  p $arg0.u1.node
+end
+
+
+define nd_entry
+ print "u3.entry"
+ what $arg0.u3.entry
+ p $arg0.u3.entry
+end
+
+define nd_vid
+   print "u1.id"
+   what $arg0.u1.id
+   p $arg0.u1.id
+end
+
+define nd_cflag
+ print "u2.id"
+ what $arg0.u2.id
+ p $arg0.u2.id
+end
+
+define nd_cval
+  print "u3.value"
+  what $arg0.u3.value
+  p $arg0.u3.value
+end
+
+
+define nd_cnt
+   print "u3.cnt"
+   what $arg0.u3.cnt
+   p $arg0.u3.cnt
+end
+
+define nd_tbl
+   print "u1.tbl"
+   what $arg0.u1.tbl
+   p $arg0.u1.tbl
+end
+
+
+define nd_var
+   print "u1.node"
+   what $arg0.u1.node
+   p $arg0.u1.node
+end
+
+define nd_ibdy
+  print "u2.node"
+  what $arg0.u2.node
+  p $arg0.u2.node
+end
+
+define nd_iter
+  print "u3.node"
+  what $arg0.u3.node
+  p $arg0.u3.node
+end
+
+
+define nd_value
+ print "u2.node"
+ what $arg0.u2.node
+ p $arg0.u2.node
+end
+
+define nd_aid
+   print "u3.id"
+   what $arg0.u3.id
+   p $arg0.u3.id
+end
+
+
+define nd_lit
+   print "u1.value"
+   what $arg0.u1.value
+   p $arg0.u1.value
+end
+
+
+define nd_frml
+  print "u1.node"
+  what $arg0.u1.node
+  p $arg0.u1.node
+end
+
+define nd_rest
+  print "u2.argc"
+  what $arg0.u2.argc
+  p $arg0.u2.argc
+end
+
+define nd_opt
+   print "u1.node"
+   what $arg0.u1.node
+   p $arg0.u1.node
+end
+
+
+define nd_recv
+  print "u1.node"
+  what $arg0.u1.node
+  p $arg0.u1.node
+end
+
+define nd_mid
+   print "u2.id"
+   what $arg0.u2.id
+   p $arg0.u2.id
+end
+
+define nd_args
+  print "u3.node"
+  what $arg0.u3.node
+  p $arg0.u3.node
+end
+
+
+define nd_noex
+  print "u1.id"
+  what $arg0.u1.id
+  p $arg0.u1.id
+end
+
+define nd_defn
+  print "u3.node"
+  what $arg0.u3.node
+  p $arg0.u3.node
+end
+
+
+define nd_old
+   print "u1.id"
+   what $arg0.u1.id
+   p $arg0.u1.id
+end
+
+define nd_new
+   print "u2.id"
+   what $arg0.u2.id
+   p $arg0.u2.id
+end
+
+
+define nd_cfnc
+  print "u1.cfunc"
+  what $arg0.u1.cfunc
+  p $arg0.u1.cfunc
+end
+
+define nd_argc
+  print "u2.argc"
+  what $arg0.u2.argc
+  p $arg0.u2.argc
+end
+
+
+define nd_cname
+ print "u1.id"
+ what $arg0.u1.id
+ p $arg0.u1.id
+end
+
+define nd_super
+ print "u3.node"
+ what $arg0.u3.node
+ p $arg0.u3.node
+end
+
+
+define nd_modl
+  print "u1.id"
+  what $arg0.u1.id
+  p $arg0.u1.id
+end
+
+define nd_clss
+  print "u1.value"
+  what $arg0.u1.value
+  p $arg0.u1.value
+end
+
+
+define nd_beg
+   print "u1.node"
+   what $arg0.u1.node
+   p $arg0.u1.node
+end
+
+define nd_end
+   print "u2.node"
+   what $arg0.u2.node
+   p $arg0.u2.node
+end
+
+define nd_state
+ print "u3.state"
+ what $arg0.u3.state
+ p $arg0.u3.state
+end
+
+define nd_rval
+  print "u2.value"
+  what $arg0.u2.value
+  p $arg0.u2.value
+end
+
+
+define nd_nth
+   print "u2.argc"
+   what $arg0.u2.argc
+   p $arg0.u2.argc
+end
+
+
+define nd_tag
+   print "u1.id"
+   what $arg0.u1.id
+   p $arg0.u1.id
+end
+
+define nd_tval
+  print "u2.value"
+  what $arg0.u2.value
+  p $arg0.u2.value
+end
+
+define rb_p
+  call (void) rb_p($arg0)
+end
+
+define rb_id2name
+  call (const char *) rb_id2name($arg0)
+end
+
+define rb_classname
+  call (VALUE) classname($arg0)
+  rb_p $
+  p *(struct RClass*)$arg0
+end
+
+define rb_backtrace
+  call (void) rb_backtrace()
+end
+