forked from Mirrors/wine-wine
81 lines
2.2 KiB
Perl
81 lines
2.2 KiB
Perl
#!/usr/bin/perl
|
|
open(APIW,"./apiw.index") or die "Can't find ./apiw.index";
|
|
while(<APIW>)
|
|
{
|
|
($func,$link)=split /:/;
|
|
chop $link;
|
|
$link=~m/(\d*)/;
|
|
$apiw{$func}="http://www.willows.com/apiw/chapter$1/p$link.html";
|
|
}
|
|
close(APIW);
|
|
|
|
open(WINDOWS,"../include/windows.h") or die "Can't find ../include/windows.h";
|
|
while(<WINDOWS>) { add_func($_) if /AccessResource/../wvsprintf/; }
|
|
close(WINDOWS);
|
|
open(TOOLHELP,"../include/toolhelp.h") or die "Can't find ../include/toolhelp.h";
|
|
while(<TOOLHELP>) { add_func($_) if /GlobalInfo/../MemoryWrite/; }
|
|
close(TOOLHELP);
|
|
open(COMMDLG,"../include/commdlg.h") or die "Can't find ../include/commdlg.h";
|
|
while(<COMMDLG>) { add_func($_) if /ChooseColor/../ReplaceText/; }
|
|
close(COMMDLG);
|
|
|
|
print "<html><body>\n";
|
|
|
|
print "<h2>Windows API Functions</h2>\n";
|
|
print "The following API functions were found by searching windows.h,\n";
|
|
print "toolhelp.h, and commdlg.h. Where possible, help links pointing\n";
|
|
print "to www.willows.com are included.<p>\n";
|
|
print "<table>\n";
|
|
print "<th>Help-link</th><th></th><th></th><th align=left>Function</th>\n";
|
|
foreach $func (sort(keys %funcs))
|
|
{
|
|
$funcs{$func}=~m/(.*) +(\w*)(\(.*)/;
|
|
print "<tr>\n<td>";
|
|
if($apiw{$2})
|
|
{
|
|
print "<center><a href=\"$apiw{$2}\">APIW</a></center>";
|
|
$impl{$2}=1;
|
|
$impl++;
|
|
}
|
|
$numfuncs++;
|
|
print "</td>\n";
|
|
print "<td></td>\n";
|
|
print "<td>$1</td>\n";
|
|
print "<td>$2$3</td>\n";
|
|
print "</tr>\n";
|
|
}
|
|
print "</table><p>\n";
|
|
print "(Approximately ",sprintf("%3.1f",$impl/(1.0*$numfuncs)*100.0),
|
|
"% of the functions above are in the APIW standard.)<p>\n";
|
|
|
|
print "<hr>\n";
|
|
print "<h2>Unimplemented APIW functions</h2><p>\n";
|
|
print "Here's a list of the API functions in the APIW standard which were <b>not</b> found\n";
|
|
print "in windows.h, commdlg.h, or toolhelp.h:<p>\n";
|
|
foreach $func (sort (keys %apiw))
|
|
{
|
|
if(!$impl{$func})
|
|
{
|
|
print "<a href=\"$apiw{$func}\">$func</a>\n";
|
|
$unimpl++;
|
|
}
|
|
$numapiw++;
|
|
}
|
|
print "<p>(This comprises approximately ",sprintf("%3.1f",$unimpl/(1.0*$numapiw)*100.0),
|
|
"% of the APIW.)\n";
|
|
|
|
print "</body></html>\n";
|
|
|
|
sub add_func
|
|
{
|
|
$line=shift;
|
|
chop $line;
|
|
$line=~s/\s+/ /g;
|
|
($func)=$line=~m/ (\w*)\(/;
|
|
if($func)
|
|
{
|
|
while($funcs{$func}) { $func.=" "; }
|
|
$funcs{$func}=$line;
|
|
}
|
|
}
|