diff options
author | Yukihiro Matsumoto <matz@ruby-lang.org> | 1994-10-14 06:19:03 +0900 |
---|---|---|
committer | Takashi Kokubun <takashikkbn@gmail.com> | 2019-08-17 22:09:30 +0900 |
commit | 29f237a8b1df650089b54447f070726c75706b6f (patch) | |
tree | e6ee836a39a5f2f1d433d6532de32471b655fb6d /sample/uumerge.rb | |
parent | 173976c97c9426aa8d96e53aef6c0e570c5fdfda (diff) |
version 0.54v0_54
https://cache.ruby-lang.org/pub/ruby/1.0/ruby-0.54.tar.gz
Diffstat (limited to 'sample/uumerge.rb')
-rwxr-xr-x | sample/uumerge.rb | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/sample/uumerge.rb b/sample/uumerge.rb new file mode 100755 index 0000000000..420a3924b6 --- /dev/null +++ b/sample/uumerge.rb @@ -0,0 +1,27 @@ +#!/usr/local/bin/ruby + +while gets() + if /^begin\s*(\d*)\s*(\S*)/ + $mode, $file = $1, $2 + $sawbegin+=1 + break + end +end + +fail "missing begin" unless $sawbegin; +OUT = open($file, "w") if $file != ""; + +while gets() + if /^end/ + $sawend+=1 + break + end + sub(/[a-z]+$/, ""); # handle stupid trailing lowercase letters + continue if /[a-z]/ + continue unless ((($_[0] - 32) & 077) + 2) / 3 == $_.length / 4 + OUT << $_.unpack("u"); +end + +fail "missing end" unless $sawend; +File.chmod $mode.oct, $file; +exit 0; |