swcclasses

#! /usr/bin/perl

##
## This script generates a list of classes to be compiled into Multigraph.swc
## by examining the contents of the "src" directory and excluding certain files
## contained therein which should not be included for various reasons.
##

@asfiles = src_files("as");
@mxmlfiles = src_files("mxml");

@classes = ();
foreach $file (@mxmlfiles, @asfiles) {
    if ($file eq "MultigraphApp.mxml") { next; }
    if ($file eq "MultigraphTest.mxml") { next; }
    if ($file eq "StaticImports.as") { next; }
    if ($file =~ /saui/) { next; }
    if ($file =~ /holding/) { next; }
    if ($file =~ m|Mock|) { next; }
    if ($file =~ m|/Old|) { next; }
    $file =~ s|.mxml$||;
    $file =~ s|.as$||;
    $file =~ s|/|\.|g;
    push(@classes, $file);
}

foreach $f (@classes) {
    printf("%s\n", $f);
}

exit;

########################################################################

sub src_files {
    my $suffix = shift;
    @files = ();
    open(FIND, "find src -name '*.$suffix' -print |");
    while (my $file = <FIND>) {
        chomp($file);
        if ($file =~ m|/generated/|) { next; }
        if ($file =~ m|/edu/|) { next; }
        if ($file =~ m|WeatherForecasts|) { next; }
        if ($file =~ /\.$suffix$/) {
            $file =~ s|^src/||;
            push(@files, $file);
        }
    }
    close(FIND);
    return @files;
}