From 7bf24dc52e3d469739e0da8c868578ac5e4f64dc Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Wed, 3 Aug 2005 13:22:38 +0000
Subject: sync.

---
 fml/doc/en/tutorial/changes/conv2sgml.pl | 55 ++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 fml/doc/en/tutorial/changes/conv2sgml.pl

(limited to 'fml/doc/en/tutorial/changes')

diff --git a/fml/doc/en/tutorial/changes/conv2sgml.pl b/fml/doc/en/tutorial/changes/conv2sgml.pl
new file mode 100644
index 00000000..0d50fc0d
--- /dev/null
+++ b/fml/doc/en/tutorial/changes/conv2sgml.pl
@@ -0,0 +1,55 @@
+#!/usr/bin/env perl
+#
+# $FML: conv2sgml.pl,v 1.2 2005/06/25 12:06:58 fukachan Exp $
+#
+
+use strict;
+use Carp;
+
+my $i     = 0;
+my $key   = '';
+my $value = '';
+my $table = {};
+
+while (<>) {
+    if (/^\s*$/o || /^\#/) {
+	undef $key;
+	next;
+    }
+
+    if (/^([Q48]):\s*(.*)/) {
+	($key, $value) = ($1, $2);
+	$i++ if $key eq 'Q';
+	$table->{ $i }->{ $key } = $value;
+	next;
+    }
+
+    if (/^\s+(.*)/) {
+	$table->{ $i }->{ $key } .= "\n";
+	$table->{ $i }->{ $key } .= $1;
+    }
+}
+
+print "\n<!-- 注意!!! 自動生成されたファイル、手動編集禁止 !!! -->\n\n";
+
+for my $i (sort {$a <=> $b} keys %$table) {
+    print "<!-- $i -->\n";
+    print "<row>\n";
+
+    print "\n<entry>\n";
+    print $table->{ $i }->{ Q };
+    print "\n</entry>\n";
+
+    print "\n<entry>\n";
+    print $table->{ $i }->{ 4 };
+    print "\n</entry>\n";
+
+    print "\n<entry>\n";
+    print $table->{ $i }->{ 8 };
+    print "\n</entry>\n";
+
+    print "\n</row>\n";
+    print "\n";
+}
+
+exit 0;
-- 
cgit v1.2.1