raw mode output to compare us with fml4 menu.conf

2 files changed, 49 insertions, 7 deletions

diff --git a/regress/fml4to8/show_rule_as_html.pl b/regress/fml4to8/show_rule_as_html.pl
index 6cf97f7b..1cb2af6e 100755
--- a/regress/fml4to8/show_rule_as_html.pl
+++ b/regress/fml4to8/show_rule_as_html.pl
@@ -1,9 +1,11 @@
 #!/usr/bin/env perl
 #
-# $FML: show_rule_as_html.pl,v 1.1 2004/06/24 11:39:05 fukachan Exp $
+# $FML: show_rule_as_html.pl,v 1.2 2004/12/09 11:35:12 fukachan Exp $
 #
 
-print "<TABLE BORDER=4>\n";
+my $raw_mode = $ENV{ 'RAW_MODE' } ? 1 : 0;
+
+print "<TABLE BORDER=4>\n" unless $raw_mode;
 while (<>) {
     chomp;
 
@@ -33,25 +35,38 @@ while (<>) {
     elsif (/^\t(.*)/) {
 	my $x = _P($1);
 	if (defined $var_value) {
-	    printf "\t<TR>\n\t<TD>%s <TD>%s\n", "$var_name ($var_value)", $x;
+	    if ($raw_mode) {
+		printf "%-40s  %s\n", "$var_name ($var_value)", $x;
+	    }
+	    else {
+		printf "\t<TR>\n\t<TD>%s <TD>%s\n", 
+		"$var_name ($var_value)", $x;
+	    }
 	}
 	else {
-	    printf "\t<TR>\n\t<TD>%s <TD>%s\n", $var_name, $x;
+	    if ($raw_mode) {
+		printf "%-40s  %s\n", $var_name, $x;
+	    }
+	    else {
+		printf "\t<TR>\n\t<TD>%s <TD>%s\n", $var_name, $x;
+	    }
 	}
     }
 }
 
-print "</TABLE>\n";
+print "</TABLE>\n" unless $raw_mode;
 
 exit 0;
 
 
 sub _P
 {
-    my ($x)= @_;
+    my ($x) = @_;
     $x =~ s/\s*$//;
     $x =~ s/^\s*//;
 
+    if ($raw_mode) { return $x;}
+
     #       .fml8_default           fml8 のデフォルトと同じ、気にするな
     #       .not_yet_implemented    まだ、実装されてない
     #       .unavailable            対応するものがない、実装予定もない
@@ -89,6 +104,7 @@ sub _P
     }
     else {
 	if ($x =~ /^\s*\./) {
+		print STDERR "INPUT{$x}\n";
 	    use Carp;
 	    croak($x);
 	}
diff --git a/regress/fml4to8/var_check.sh b/regress/fml4to8/var_check.sh
index a6919f97..5478a457 100755
--- a/regress/fml4to8/var_check.sh
+++ b/regress/fml4to8/var_check.sh
@@ -1,6 +1,6 @@
 #!/bin/sh
 #
-# $FML$
+# $FML: var_check.sh,v 1.1 2004/12/09 03:46:18 fukachan Exp $
 #
 
 
@@ -25,4 +25,30 @@ sort -o /tmp/list.rules /tmp/list.rules
 
 diff -ub /tmp/list.manifest /tmp/list.rules && echo "ok (no difference)"
 
+# 
+echo "=> check config_ph.pm"
+sed	-e '1,/^sub translate/d' \
+	-e '/^#/d' \
+	-e '/return.*#/d' \
+	-e '/^ *use/d' \
+	-e '/type eq /d' \
+	-e '/FML::/d' \
+	-e '/CODING STYLE/q' config_ph.pm |\
+perl -nle 's/([A-Z][0-9A-Z_]+)/print $1/e' |\
+egrep -v '^CODING$' |\
+sort|\
+uniq > /tmp/list.implemented
+
+prog=../../../../../regress/fml4to8/show_rule_as_html.pl 
+env RAW_MODE=1 $prog RULES.txt |\
+tee /tmp/debug |\
+egrep -v '\.ignore|\.unavailable|\.use_fml8_value|\.fml8_default|\+=|\-=| = ' |\
+awk '{print $1}' |\
+sort |\
+uniq > /tmp/list.rules
+
+diff -ub /tmp/list.rules /tmp/list.implemented |\
+egrep -v '^ '
+
+
 exit 0