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;