From fcbf63e62c627deae76c1b8cb8c0876c536ed811 Mon Sep 17 00:00:00 2001
From: Jari Vetoniemi <jari.vetoniemi@indooratlas.com>
Date: Mon, 16 Mar 2020 18:49:26 +0900
Subject: Fresh start

---
 jni/ruby/sample/uumerge.rb | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 jni/ruby/sample/uumerge.rb

(limited to 'jni/ruby/sample/uumerge.rb')

diff --git a/jni/ruby/sample/uumerge.rb b/jni/ruby/sample/uumerge.rb
new file mode 100644
index 0000000..2576bcb
--- /dev/null
+++ b/jni/ruby/sample/uumerge.rb
@@ -0,0 +1,43 @@
+#!/usr/bin/env ruby
+
+if ARGV[0] == "-c"
+  out_stdout = 1
+  ARGV.shift
+end
+
+$sawbegin = 0
+$sawend = 0
+
+while line = gets()
+  if /^begin\s*(\d*)\s*(\S*)/ =~ line
+    $mode, $file = $1, $2
+    $sawbegin+=1
+    if out_stdout
+      out = STDOUT
+    else
+      out = open($file, "w") if $file != ""
+    end
+    out.binmode
+    break
+  end
+end
+
+raise "missing begin" unless $sawbegin
+
+out.binmode
+while line = gets()
+  if /^end/ =~ line
+    $sawend+=1
+    out.close unless out_stdout
+    File.chmod $mode.oct, $file unless out_stdout
+    next
+  end
+  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
+
+raise "missing end" if $sawbegin > $sawend
+raise "missing begin" if ! $sawbegin
+exit 0
-- 
cgit v1.2.3