my $language = "C";
use lib "./Modules";
use HeaderDoc::Utilities qw(quote linesFromFile);
use HeaderDoc::BlockParse qw(blockParse);
use HeaderDoc::ParserState;
use HeaderDoc::ParseTree;
use HeaderDoc::APIOwner;
use File::Basename qw(basename);
use strict;
%HeaderDoc::ignorePrefixes = ();
%HeaderDoc::perHeaderIgnorePrefixes = ();
%HeaderDoc::perHeaderIgnoreFuncMacros = ();
my $headerObj = HeaderDoc::APIOwner->new();
$headerObj->lang("C");
$headerObj->sublang($language);
my ($case_sensitive, $keywordhashref) = $headerObj->keywords();
$HeaderDoc::headerObject = $headerObj;
foreach my $header (@ARGV) {
print "HEADER $header\n";
my @inputLines = &linesFromFile($header);
my $inputCounter = 0;
my $nlines = $ while ($inputCounter <= $nlines) {
my ($newInputCounter, $dec, $type, $name, $pt, $value, $pplref, $returntype, $pridec, $parseTree, $simpleTDcontents, $bpavail) = &blockParse($header, 0, \@inputLines, $inputCounter, 0, \%HeaderDoc::ignorePrefixes, \%HeaderDoc::perHeaderIgnorePrefixes, \%HeaderDoc::perHeaderIgnoreFuncMacros, $keywordhashref, $case_sensitive);
$inputCounter = $newInputCounter;
print "GOT DEC:\n";
print $parseTree->textTree();
print "END DEC.\n\n";
}
}