dump pcb category list

2 files changed, 65 insertions, 0 deletions

diff --git a/regress/simulation/dump_pcb.sh b/regress/simulation/dump_pcb.sh
new file mode 100755
index 00000000..bc1f82b7
--- /dev/null
+++ b/regress/simulation/dump_pcb.sh
@@ -0,0 +1,19 @@
+#!/bin/sh
+#
+# $FML: dump_curproc.sh,v 1.1 2003/03/14 04:11:52 fukachan Exp $
+#
+
+hdr=../../fml/doc/ja/tutorial/internals/PCB.sgml
+
+printf "<para>\n<screen>\n" > $hdr
+
+../style/check_pcb.pl `find FML/ -type f|grep 'pm$'` >> $hdr
+
+printf "</screen>\n</para>\n" >> $hdr
+
+echo "";
+echo "see $hdr";
+echo "";
+
+exit 0
+
diff --git a/regress/style/check_pcb.pl b/regress/style/check_pcb.pl
new file mode 100755
index 00000000..860dd7e0
--- /dev/null
+++ b/regress/style/check_pcb.pl
@@ -0,0 +1,46 @@
+#!/usr/bin/env perl
+#
+# $FML$
+#
+
+use strict;
+use Carp;
+use FileHandle;
+
+my $wh     = new FileHandle "|rev|sort|rev";
+my $fn     = '';
+my $format = "%25s %25s %3s %s\n";
+
+$| = 1;
+
+printf $format, "module", "function", "", "category";
+printf $format, "", "", "<--", "(get value)";
+printf $format, "", "", "-->", "(set value)";
+print "-" x 80;
+print "\n";
+
+while (<>) {
+    if (/^sub (\S+)/) {
+	$fn = $1;
+    }
+
+    if (/pcb->set\("(\S+)",/) {
+	printf $wh $format, cleanup($ARGV), $fn, "-->", $1;
+    }
+
+    if (/pcb->get\("(\S+)",/) {
+	printf $wh $format, cleanup($ARGV), $fn, "<--", $1;
+    }
+}
+
+exit 0;
+
+sub cleanup
+{
+    my ($s) = @_;
+
+    $s =~ s@.pm$@@;
+    $s =~ s@//@/@g;
+
+    return $s;
+}