remove old *.mingw files

(bzr r2408)

1 files changed, 0 insertions, 228 deletions

diff --git a/src/mkfiles.pl b/src/mkfiles.pl
deleted file mode 100755
index 100e54b5b..000000000
--- a/src/mkfiles.pl
+++ /dev/null
@@ -1,228 +0,0 @@
-#!/usr/bin/perl
-############################################################################
-#
-# Creates make.files - a list of all source files
-#
-############################################################################
-
-#
-# main - top level code
-#
-
-if ( @ARGV ) {                # parse command line args
-    print "usage: perl mkfiles.pl\n\n";
-    exit 1;
-}
-
-$tolower = 0;  #Do we want to convert items in make.files to lower case?
-$verbose = 1;  #Do we want to list the files?
-
-
-
-print "###########################\n";
-print "## Generating make.files ##\n";
-print "###########################\n";
-
-&doMakeFiles();  #Do your magic!
-
-print "###########################\n";
-print "## make.files   done     ##\n";
-print "###########################\n";
-
-exit 0;
-
-
-
-############################################################################
-#
-# Main routine.  Read make.exclude,  then search the current directory
-# recursively for source code items, rejecting those listed in make.exclude
-#
-############################################################################
-sub doMakeFiles
-{
-    my $excludes;   #list of files to exclude
-    my @excluded;   #list of files that were actually excluded
-    my @irrelevant; #list of files in make.exclude that were not found
-    my $line;       #current line from make.exclude
-    my $patterns;   #The extensions for which to search
-    my @files;      #Result of find_files()
-    my @codefiles;  #Sorted list of @files
-    my $datestr;    #Current date
-    local(*MAKE_DOT_EXCLUDE);
-    local(*MAKE_DOT_FILES);
-
-    if ( -r "make.exclude" )
-        {
-        open MAKE_DOT_EXCLUDE, "make.exclude" or
-            die "make.exclude: $!";
-        while (<MAKE_DOT_EXCLUDE>)
-            {
-            $line = $_;
-            #Trim whitespace from ends
-            # $line =~ s/^\s|\t|\n//;
-+           $line =~ s/^\s+//;
-+           $line =~ s/\s+$//;
-            #Ignore if no text in line
-            next if ( length($line) < 1 );
-            #Ignore if starts with '#'
-            next if ( $line =~ /^#/ );
-            # print $line, "\n";
-            $excludes->{$line} = 1;
-            }
-        close MAKE_DOT_EXCLUDE;
-        }
-    
-    #while ( my ($key, $value) = each(%{$excludes}) )
-    #    {
-    #    print "$key => $value\n";
-    #    }
-    
-    $patterns = '.c$|.cpp$|.h$|.hpp$|.xpm$';
-    
-    @files = &find_files(".", $patterns, $excludes, \@excluded);
-    
-    # Print the list of files excluded
-    print "###EXCLUDED: ", scalar(@excluded), " files/directories rejected by request\n";
-    @excluded = sort(@excluded);
-    foreach (@excluded)
-        {
-        if ($verbose)
-          {
-          print "    $_\n";
-          }
-        #mark the item in the hash table , so we know it occurred
-        $excludes->{$_} = 0;
-        }
-
-    # Count how many files in make.exclude were not used
-    foreach (keys(%{$excludes}))
-        {
-        #if still a 1, then it was not used
-        if ($excludes->{$_} !=0)
-            {
-            push @irrelevant, $_;
-            }
-        }
- 
-    # Print the list of file in make.exclude, but not used.
-    if (scalar(@irrelevant)>0)
-        {
-        @irrelevant = sort(@irrelevant);
-        print "###IRRELEVANT: ", scalar(@irrelevant), " entries in make.exclude that were not found\n";
-        foreach (@irrelevant)
-            {
-            if ($verbose)
-              {
-              print "    $_\n";
-              }
-            }
-        }
-
-    @codefiles = sort(@files);
-    
-    $datestr = gmtime();
-    open MAKE_DOT_FILES, ">make.files" or
-        die("make.files: $!");
-    print MAKE_DOT_FILES "########################################################\n";
-    print MAKE_DOT_FILES "## File: make.files\n";
-    print MAKE_DOT_FILES "## Purpose: Used by mkdep.pl\n";
-    print MAKE_DOT_FILES "## Generated by mkfiles.pl at :$datestr\n";
-    print MAKE_DOT_FILES "########################################################\n\n";
-    foreach (@codefiles)
-        {
-        next if (length($_)<1);
-        print MAKE_DOT_FILES "$_\n";
-        }
-    close MAKE_DOT_FILES;
-    
-} # doMakeFiles
-    
-
-
-
-############################################################################
-#
-# Search the current directory recursively,  checking rejecting items from
-# make.exclude, or adding those that match the extensions in $patterns.
-# @param $dir      the current directory being searched
-# @param $patterns the file extensions for which we are searching
-# @param $excludes a hash of the files which should be rejected
-# @param $excluded an array in which to store a record of all files rejected
-#
-############################################################################
-sub find_files
-{
-    my($dir, $patterns, $excludes, $excluded) = @_;
-    my $file;
-    my $p;
-    my @files = ();
-    my @file_result;
-    local(*DIR);
-    
-    
-    $dir =~ s=\\=/=g;
-    
-    # Check for 0-length
-    if (length($dir)<1)
-        {
-        $dir = '.';
-        }
-    
-    # Process a directory of files
-    if ( opendir(DIR,$dir) )
-        {
-        # Remove leading .
-        if ( $dir eq '.' )
-            {
-            $dir = '';
-            }
-
-        foreach $file ( readdir(DIR) )
-            {
-            # Don't allow '..'
-            next if ( $file  =~ /^\.\.?$/ );
-            next if ( length($file)<1 );
-
-            if (length($dir)>0)
-                {
-                $p = $dir . '/' . $file;
-                }
-            else
-                {
-                $p = $file;
-                }
-                
-            if ($tolower != 0)
-                {
-                $p = lc($p);
-                }
-
-            #print "File:$p\n";
-            
-            # Check if it is an excluded file
-            if (defined($excludes->{$p}))
-                {
-                #print "EXCLUDED:$p\n";
-                push @{$excluded}, $p;
-                next;
-                }
-            # Check for a desired extension
-            if ($p =~ /$patterns/i)
-                {
-                #print "match:$p\n";
-                push @files, $p;
-                next;
-                }
-             #We have seen '0' inserted from a null result.  This
-             #should avoid this problem
-             @file_result = &find_files($p, $patterns, $excludes, $excluded);
-             if (scalar(@file_result)>0)
-                 {
-                 push @files, @file_result;
-                 }
-             }
-        closedir(DIR);
-        }
-    return @files;
-}