changes between fml4 and fml8.snap-20040402

1 files changed, 54 insertions, 0 deletions

diff --git a/fml/doc/ja/tutorial/changes/conv2sgml.pl b/fml/doc/ja/tutorial/changes/conv2sgml.pl
new file mode 100755
index 00000000..23a5985f
--- /dev/null
+++ b/fml/doc/ja/tutorial/changes/conv2sgml.pl
@@ -0,0 +1,54 @@
+#!/usr/bin/env perl
+#
+# $FML$
+#
+
+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;
+    }
+}
+
+
+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;