home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / rbemx144.zip / ruby-1.4.4 / sample / uumerge.rb < prev   
Text File  |  1999-08-13  |  795b  |  44 lines
  1. #!/usr/bin/env ruby
  2.  
  3. if ARGV[0] == "-c"
  4.   out_stdout = 1
  5.   ARGV.shift
  6. end
  7.  
  8. $sawbegin = 0
  9. $sawend = 0
  10.  
  11. while gets()
  12.   if /^begin\s*(\d*)\s*(\S*)/
  13.     $mode, $file = $1, $2
  14.     $sawbegin+=1
  15.     if out_stdout
  16.       out = STDOUT
  17.     else
  18.       out = open($file, "w") if $file != ""
  19.     end
  20.     out.binmode
  21.     break
  22.   end
  23. end
  24.  
  25. raise "missing begin" unless $sawbegin
  26.  
  27. out.binmode
  28. while gets()
  29.   if /^end/
  30.     $sawend+=1
  31.     out.close unless out_stdout
  32.     File.chmod $mode.oct, $file unless out_stdout
  33.     next
  34.   end
  35.   sub(/[a-z]+$/, "")        # handle stupid trailing lowercase letters
  36.   next if /[a-z]/
  37.   next if !(((($_[0] - 32) & 077) + 2) / 3 == $_.length / 4)
  38.   out << $_.unpack("u") if $sawbegin > $sawend
  39. end
  40.  
  41. raise "missing end" if $sawbegin > $sawend
  42. raise "missing begin" if ! $sawbegin
  43. exit 0
  44.