restructure: simulation/ -> style/

5 files changed, 0 insertions, 247 deletions

diff --git a/regress/simulation/.check b/regress/simulation/.check
deleted file mode 100755
index 973992a1..00000000
--- a/regress/simulation/.check
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/bin/sh
-
-tmp=/tmp/buffer$$
-trap "rm -f $tmp" 0 1 3 15
-
-find ../../ -type f -print |\
-egrep -v 'cpan|CVS|regress|__template|\.ps$' > $tmp
-
-egrep '__[A-Z]' `cat $tmp`|\
-egrep -v '__FILE__|__END__|__DATA__'
diff --git a/regress/simulation/.fix_my_name.pl b/regress/simulation/.fix_my_name.pl
deleted file mode 100755
index de71e463..00000000
--- a/regress/simulation/.fix_my_name.pl
+++ /dev/null
@@ -1,6 +0,0 @@
-while (<>) {
-
-    s/__YOUR_NAME__/Ken'ichi Fukamachi/;
-
-print;
-}
diff --git a/regress/simulation/.list_up_command_lock.pl b/regress/simulation/.list_up_command_lock.pl
deleted file mode 100755
index 13f164a4..00000000
--- a/regress/simulation/.list_up_command_lock.pl
+++ /dev/null
@@ -1,54 +0,0 @@
-#!/usr/bin/env perl
-#
-# $FML$
-#
-
-for my $x (<AdminCommand/*pm UserCommand/*pm>) {
-    _check($x);
-}
-
-exit 0;
-
-
-sub _check
-{
-    my ($file) = @_;
-    my $need_lock = 0;
-    my $channel   = '';
-    my $isa = '';
-
-    use FileHandle;
-    my $fh = new FileHandle $file;
-    if (defined $fh) {
-	while (<$fh>) { 
-	    chomp;
-
-	    if (/\@ISA\s*=\s*qw\(([A-Za-z:]+)/) {
-		$isa = $1;
-		$isa =~ s/FML::Command:://;
-	    }
-
-	    if (/sub need_lock.*1/) {
-		$need_lock = 1;
-	    }
-
-	    if (/sub lock_channel.*return\s*[\'\"](\S+)[\'\"]/) {
-		$channel = $1;
-	    }
-
-	}
-
-	$fh->close();
-    }
-
-    if ($isa) {
-	printf "%-30s  %3s   %s\n", $file, "==>", $isa;
-    }
-    else {
-	printf 
-	    "%-30s  %3s   %s\n", 
-	    $file, 
-	    ($need_lock ? "yes" : "no"), 
-	    $channel;
-    }
-}
diff --git a/regress/simulation/.list_up_modules.sh b/regress/simulation/.list_up_modules.sh
deleted file mode 100755
index aa23138d..00000000
--- a/regress/simulation/.list_up_modules.sh
+++ /dev/null
@@ -1,6 +0,0 @@
-#!/bin/sh
-
-find lib/ -type f -print |\
-sed 's@//@/@g' |\
-egrep -v 'CVS|__templa' |\
-grep 'pm$'
diff --git a/regress/simulation/.module_dependence.pl b/regress/simulation/.module_dependence.pl
deleted file mode 100755
index d349b672..00000000
--- a/regress/simulation/.module_dependence.pl
+++ /dev/null
@@ -1,171 +0,0 @@
-#!/usr/bin/env perl
-#
-# $FML: .module_dependence.pl,v 1.1 2003/03/16 06:24:58 fukachan Exp $
-#
-
-use strict;
-use Carp;
-use vars qw(@filter %MODULE %LOCK_CHANNEL);
-
-(@filter) = qw(CGI
-	     Calendar::Lite
-	       Carp
-	       Config
-	     Crypt::UnixCrypt
-	     Data::Dumper
-	       DirHandle
-	       ErrorStatus
-	       Exporter
-	     File::Basename
-	     File::Copy
-	     File::Find
-	     File::Path
-	     File::SimpleLock
-	     File::Spec
-	     File::stat
-	       FileHandle
-	       Fcntl
-	     Getopt::Long
-	     HTML::CalendarMonthSimple
-	     HTML::FromText
-	     IM::EncDec
-	     IM::Iso2022jp
-	     IO::File
-	     IO::Handle
-	     IO::Socket
-	     IPC::Open2
-	       Jcode
-	       MD5
-	     MIME::Lite
-	     MIME::Base64
-	     MIME::QuotedPrint
-	     Mail::Address
-	     Mail::Bounce
-	     Mail::Header
-	     Mail::Message
-	       Socket
-	       Socket6
-	       Something
-	     Term::ReadLine
-	     Tie::JournaledFile 
-	     Time::ParseDate
-	     Unicode::Japanese
-	     User::grent
-	     User::pwent);
-
-my $aggregate_to_two_level = 1;
-my $shlink_key = defined $ENV{ shlink_key } ? $ENV{ shlink_key } : 1;
-my $on = 0;
-
-while (<>) {
-    if (/^=head/o) { $on = 1;}
-    if (/^=cut/o)  { $on = 0;}
-    next if $on;
-
-    chomp;
-
-    if (/LOCK.*CHANNEL:\s*(\S+)/) {
-	add_channel_entry($ARGV, $1);
-    }
-
-    s/\#.*$//;
-
-    if (/(use|require)\s+([A-Z]\S+)/) {
-	add_entry($ARGV, $2);
-    }
-}
-
-
-for my $k (sort keys %MODULE) {
-    my @a = keys %{$MODULE{ $k }};
-
-    print "\n";
-    printf "%-15s %s\n", $k, "";
-
-    for my $x (@a) {
-	printf "%-15s %s\n", "", module($x);
-    }
-}
-
-print "\n--- lock channel list ---\n\n";
-
-for my $k (sort keys %LOCK_CHANNEL) {
-    printf "%-30s %s\n", $k, $LOCK_CHANNEL{ $k };
-}
-
-exit 0;
-
-
-sub module
-{
-    my ($x) = @_;
-    my $file = $LOCK_CHANNEL{ $x };
-
-    return( $file ? "$x (lock at $file)" : $x);  
-}
-
-
-sub _clean_up
-{
-    my ($key) = @_;
-
-    $key =~ s@\s*$@@g;
-    $key =~ s@//@/@g;
-    $key =~ s@;@@g;
-    $key =~ s@\}@@g;
-    $key =~ s@lib/@@g;
-
-    return $key;
-}
-
-
-sub add_entry
-{
-    my ($file, $class) = @_;
-    $file  = _clean_up($file);
-    $class = _clean_up($class);
-
-    # cut off the 3rd layer.
-    if ($shlink_key && $class =~ /::/o) {
-	my @c  = split(/::/, $class);
-	$class = join("::", $c[0], $c[1]);
-    }
-
-    if ($aggregate_to_two_level) {
-	my $xfile = $file;
-	$xfile =~ s@.pm$@@;
-	$xfile =~ s@/@::@g;
-	if ($xfile =~ /$class/) {
-	    return;
-	}
-    }
-
-    unless (ignore($class)) {
-	$MODULE{ $class }->{ $file } = $file;
-    }
-}
-
-
-sub add_channel_entry
-{
-    my ($file, $channel) = @_;
-    $file  = _clean_up($file);
-
-    $LOCK_CHANNEL{ $file } .= " ".$channel;
-}
-
-
-sub ignore
-{
-    my ($class) = @_;
-    my $filter  = join("|", @filter);
-
-    if ($class =~ /^FML/) {
-	return 1;
-    }
-    elsif ($class =~ /^($filter)/) {
-	return 1;
-    }
-
-    return 0;
-}