diff options
| author | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2000-12-28 05:00:47 +0000 |
|---|---|---|
| committer | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2000-12-28 05:00:47 +0000 |
| commit | 31b9d2870e10dd0de788f9cfbf2d759cf3cbb8bf (patch) | |
| tree | 571574af57859810d146f28177c240f1fe04e4f7 /sample/uumerge.rb | |
| parent | 6202f851c777a8327491ddca8f2df39b20ff9b5a (diff) | |
| download | ruby-31b9d2870e10dd0de788f9cfbf2d759cf3cbb8bf.tar.gz ruby-31b9d2870e10dd0de788f9cfbf2d759cf3cbb8bf.tar.xz ruby-31b9d2870e10dd0de788f9cfbf2d759cf3cbb8bf.zip | |
changes from personal modifies -- matz
git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@1084 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'sample/uumerge.rb')
| -rw-r--r-- | sample/uumerge.rb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/sample/uumerge.rb b/sample/uumerge.rb index 418323c43..2576bcb86 100644 --- a/sample/uumerge.rb +++ b/sample/uumerge.rb @@ -8,8 +8,8 @@ end $sawbegin = 0 $sawend = 0 -while gets() - if /^begin\s*(\d*)\s*(\S*)/ +while line = gets() + if /^begin\s*(\d*)\s*(\S*)/ =~ line $mode, $file = $1, $2 $sawbegin+=1 if out_stdout @@ -25,15 +25,15 @@ end raise "missing begin" unless $sawbegin out.binmode -while gets() - if /^end/ +while line = gets() + if /^end/ =~ line $sawend+=1 out.close unless out_stdout File.chmod $mode.oct, $file unless out_stdout next end - sub(/[a-z]+$/, "") # handle stupid trailing lowercase letters - next if /[a-z]/ + line.sub!(/[a-z]+$/, "") # handle stupid trailing lowercase letters + next if /[a-z]/ =~ line next if !(((($_[0] - 32) & 077) + 2) / 3 == $_.length / 4) out << $_.unpack("u") if $sawbegin > $sawend end |