contrib/make-filelist.rb

   1 #!/usr/local/bin/ruby
   2 # Make almost all filelist in my computer
   3 #
   4 # Features
   5 # * Exclude unused files
   6 # * List directory first
   7 #
   8 # Usage:
   9 # * Print all files in computer
  10 #     ruby make-filelist.rb > all.filelist
  11 # * Print specified directories
  12 #     ruby make-filelist.rb dir1 dir2 ... > partial.filelist
  13 # * Use with cron: add this entry to crontab to make filelist at 1:00 AM.
  14 #     0 1 * * * ruby /path/to/make-filelist.rb > /tmp/all.filelist
  15 #
  16 # Customize:
  17 # You can override customize variables by creating ~/.make-filelist.rb
  18
  19 #
  20 # ==== Customize Variables ====
  21 # Exclude pathnames (version control system directories and so on)
  22 $EXCLUDE_PATH = %w[
  23 . ..  lost+found tmp temp
  24 autom4te.cache blib _build .bzr .cdv cover_db CVS _darcs ~.dep ~.dot .git .hg ~.nib .pc ~.plst RCS SCCS _sgbak .svn
  25 ]
  26
  27 # Exclude regexps (backup files, core files, and so on)
  28 $EXCLUDE_REGEXP = Regexp.union(/~$/, /\#.+\#$/, /[._].*\.swp$/, /core\.\d+$/)
  29
  30 # Set default directories to collect
  31 $LS_DIRS = ["~", "/"]
  32 # ==== End of Customize Variables =====
  33
  34 begin load "~/.make-filelist.rb"; rescue LoadError; end # Load configuration file
  35 $done = []                                              # Already collected directory
  36 def ls(dir)
  37   if $done.include? dir or not File.readable? dir
  38     $stderr.puts "skipped #{dir}" if $VERBOSE
  39     return
  40   end
  41   dirs = []
  42   home_re = /^#{Regexp.quote(ENV['HOME'])}/ if ENV['HOME']
  43   Dir.foreach(dir) do |f|
  44     begin
  45       next if $EXCLUDE_PATH.include? f
  46       next if $EXCLUDE_REGEXP.match f
  47       f = File.join dir, f
  48       stat = File.lstat f
  49       abbrev = f.sub(home_re, '~') if ENV['HOME']
  50       if stat.directory? and not stat.symlink?
  51         puts "#{abbrev}/"
  52         dirs << f
  53       else
  54         puts abbrev
  55       end
  56     rescue
  57       $stderr.puts "#{dir}/#{f}: #$!"
  58     end
  59   end
  60   dirs.each do |d|
  61     ls d
  62   end
  63 end
  64
  65 def ls_first(dir)
  66   edir = File.expand_path dir
  67   $stderr.puts "ls_first #{edir}" if $VERBOSE
  68   ls edir
  69   $done << edir
  70 end
  71
  72 (ARGV.empty? ? $LS_DIRS : ARGV).each {|d| ls_first d }