my @public_included = ();

my $reason;

    $reason = "Platform by export";

  if ($name =~ /\./ && $name !~ /\.(h|rh|hrh|inl|c|hpp)$/i)

    {

    # Not a file which contains APIs anyway

    $reason = "Wrong extension";

    return 0; # not public

    }

  my @includelines = grep /^\s*#include\s+/, @lines;

  my @includefiles = ();

  foreach my $includeline (@includelines)

    {

    if ($includeline =~ /^\s*#include\s+["<](.*\.([^.]+))[">]/)

      {

      my $filename = $1;

      my $extension = $2;

      # print "++ $filename ($extension)\n";

      if ($extension =~ /mbg|rsg|rls|ra/i)

        {

        # generated file referenced by #include

        push @includefiles, $filename; 

        print STDERR "** $file - $includeline";

        }

      }

    }

    $reason = "Public by export";

  else

    if ($debug)

      {

      print join("\n\t", $file, @apitaglines), "\n";

      }

    my @publishedAll = grep /\@publishedAll/, @apitaglines;

    if (scalar @publishedAll == 0)

      {

      # the API classification tags are all @publishedPartner or @internal

      $reason = "Platform by tag";

      return 0; # not public

      }

    # contains at least one @publishedAll element - must be "Public by tag"

    $reason = "Public by tag";

  push @public_included, @includefiles;   # #included files are therefore also public

my %classification;

my %origin;

my %ignoring_case;

      # print "PUBLIC\t$newname\t$reason\n";

      # print "PARTNER\t$newname\t$reason\n";

      }

    $classification{$newname} = $reason;

    $origin{$newname} = "Symbian^2";

    $ignoring_case{lc $newname} = $newname;

    }

  }

scan_directory("/epoc32/include", "epoc32/include");

foreach my $file (@public_included)

  {

  # print "PUBLIC\tepoc32/include/$file\tIncluded\n";

  my $newname = "epoc32/include/$file";

  $newname = $ignoring_case{lc $newname};

  $classification{$newname} = "Public by Inclusion";

  }

# Read list of Symbian^1 files

my $line;

while ($line = <>)

  {

  chomp $line;

  $line =~ s/\\/\//g; # Unix separators please

  if ($line =~ /(epoc32\/include\/.*)\s*$/)

    {

    my $name = $1;

    $origin{$name} = "Symbian^1";

    if (!defined $ignoring_case{lc $name})

      {

      $classification{$name} = "Deleted";

print "Filename\tClassification\tReason\tOrigin\n";

foreach my $file (sort keys %classification)

  {

  my $reason = $classification{$file};

  my $type = "Platform";

  $type = "Public" if ($reason =~ /Public/);

  print "$file\t$type\t$reason\t$origin{$file}\n";

  }