copy old 'master' branch (c3a8f31) just after test160101

[howm/howm.git] / ext / hsplit.rb

diff --git a/ext/hsplit.rb b/ext/hsplit.rb
new file mode 100755 (executable)
index 0000000..cd583da
--- /dev/null
+++ b/ext/hsplit.rb
@@ -0,0 +1,33 @@
+#!/usr/bin/ruby -s
+# -*- coding: euc-jp -*-
+# -*- Ruby -*-
+
+def usage
+  name = File::basename $0
+  print <<EOU
+#{name}: howm ¥á¥â¤ò, °ì¥á¥â°ì¥Õ¥¡¥¤¥ë¤Ëʬ³ä (¼êÈ´¤­»ÅÍÍ)
+(Îã)
+  #{name} 2004_10_10.txt
+  ¢ª 2004_10_10.txt.aa, 2004_10_10.txt.ab, ¡Ä ¤¬¤Ç¤­¤ë
+(¥ª¥×¥·¥ç¥óÎã)
+  -prefix=hoge.     ¢ª hoge.aa, hoge.ab, ¡Ä ¤¬¤Ç¤­¤ë
+  -help ¤Þ¤¿¤Ï -h   ¢ª ¤³¤Î¥á¥Ã¥»¡¼¥¸¤òɽ¼¨
+EOU
+end
+
+#####################################
+
+if ($help || $h || ARGV.length == 0)
+  usage
+  exit 0
+end
+
+$prefix ||= ARGV[0] + '.'
+ext = 'aa'
+
+ARGF.readlines.join.split(/^= /).each_with_index{|x, i|
+  next if x.empty?
+  x = '= ' + x if i > 0
+  open($prefix + ext, 'w'){|io| io.print x}
+  ext.succ!
+}