ReceiveTempSMS
/
Sweden-Number
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix for APIs that don't have any ordinal (ordinal=@).

This commit is contained in:
Hidenori Takeshima 2000-11-12 03:40:27 +00:00 committed by Alexandre Julliard
parent a2053ab1c5
commit 4ca46fda34
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tools/c2man.pl
View File

@ -183,7 +183,7 @@ sub parse_source
} }
elsif ($state == 3) { elsif ($state == 3) {
#extract the wine API name and DLLNAME.XXX string #extract the wine API name and DLLNAME.XXX string
if ( / *([A-Za-z_0-9]+) *\(([A-Za-z0-9_]+\.[0-9]+)\) *$/ ) { if ( / *([A-Za-z_0-9]+) *\(([A-Za-z0-9_]+\.(([0-9]+)|@))\) *$/ ) {
$apiname = $1; $apiname = $1;
$apientry = $2; $apientry = $2;
$state = 1; $state = 1;
@ -254,7 +254,7 @@ sub parse_spec
if( /^rsrc/ ) { next; } if( /^rsrc/ ) { next; }
if( /^import/ ) { next; } if( /^import/ ) { next; }
if( /^\s*$/ ) { next; } if( /^\s*$/ ) { next; }
if( /^\s*([0-9]+)/ ) { if( /^\s*(([0-9]+)|@)/ ) {
s/\(.*\)//; #remove all the args s/\(.*\)//; #remove all the args
($ord,$type,$name,$func) = split( /\s+/ ); ($ord,$type,$name,$func) = split( /\s+/ );
if(( $type eq "stub" ) || ($type eq "forward")) {next;} if(( $type eq "stub" ) || ($type eq "forward")) {next;}