From 7ea2ceddb832b9973694fecac9fe3c30400735ba Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Fri, 16 Jan 1998 12:19:22 +0000
Subject: This commit was generated by cvs2svn to compensate for changes in
 r11, which included commits to RCS files with non-trunk default branches.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@12 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 sample/uumerge.rb | 36 +++++++++++++++++++++---------------
 1 file changed, 21 insertions(+), 15 deletions(-)

(limited to 'sample/uumerge.rb')

diff --git a/sample/uumerge.rb b/sample/uumerge.rb
index 297b08f26a..26f28923d5 100644
--- a/sample/uumerge.rb
+++ b/sample/uumerge.rb
@@ -1,37 +1,43 @@
 #!/usr/local/bin/ruby
 
 if ARGV[0] == "-c"
-  out_stdout = 1;
+  out_stdout = 1
   ARGV.shift
 end
 
+$sawbegin = 0
+$sawend = 0
+
 while gets()
   if /^begin\s*(\d*)\s*(\S*)/
     $mode, $file = $1, $2
     $sawbegin+=1
-    break
+    if out_stdout
+      out = STDOUT
+    else
+      out = open($file, "w") if $file != ""
+    end
+    out.binmode
+    next
   end
 end
 
-fail "missing begin" if ! $sawbegin;
-
-if out_stdout
-  out = STDOUT
-else
-  out = open($file, "w") if $file != "";
-end
+raise "missing begin" unless $sawbegin
 
+out.binmode
 while gets()
   if /^end/
     $sawend+=1
-    break
+    out.close unless out_stdout
+    File.chmod $mode.oct, $file unless out_stdout
+    next
   end
-  sub(/[a-z]+$/, ""); # handle stupid trailing lowercase letters
+  sub(/[a-z]+$/, "")		# handle stupid trailing lowercase letters
   next if /[a-z]/
   next if !(((($_[0] - 32) & 077) + 2) / 3 == $_.length / 4)
-  out << $_.unpack("u");
+  out << $_.unpack("u") if $sawbegin > $sawend
 end
 
-fail "missing end" if !$sawend;
-File.chmod $mode.oct, $file if ! out_stdout
-exit 0;
+raise "missing end" if $sawbegin > $sawend
+raise "missing begin" if ! $sawbegin
+exit 0
-- 
cgit v1.2.3