#!/usr/local/bin/perl -w

use APIdict;

$dict = new APIdict;

$dict->readfile("api.list");
%stats = $dict->statistics();
foreach $key (keys(%stats)) {
    print "$key: $stats{$key}\n";
}
@test = $dict->expanded_seealso('ap_get_server_name');
foreach (@test) {
    print "$_\n";
}

@elist = $dict->entity_list();

foreach (sort(@elist)) {
    if (($dict->category($_) eq 'C')
        && ($dict->definition($_) !~ /#include/)) {
        print "\n  $_\n", `grep "$_" ~/apache-1.3/src/include/*.h`;
    }
}
