31 lines
780 B
PHP
31 lines
780 B
PHP
|
|
||
|
|
include 'win32ax.inc'
|
||
|
|
|
||
|
|
include 'pcount/kernel32.inc'
|
||
|
|
include 'pcount/user32.inc'
|
||
|
|
include 'pcount/gdi32.inc'
|
||
|
|
include 'pcount/advapi32.inc'
|
||
|
|
include 'pcount/comctl32.inc'
|
||
|
|
include 'pcount/comdlg32.inc'
|
||
|
|
include 'pcount/shell32.inc'
|
||
|
|
include 'pcount/wsock32.inc'
|
||
|
|
|
||
|
|
macro pcountcheck? proc*,count*
|
||
|
|
local pname,pcount
|
||
|
|
match p, pcountsuffix
|
||
|
|
match [name], proc
|
||
|
|
define pcount name#p
|
||
|
|
else match name, proc
|
||
|
|
define pcount name#p
|
||
|
|
end match
|
||
|
|
end match
|
||
|
|
if defined pcount & count <> pcount
|
||
|
|
repeat 1, found:count, expected:pcount
|
||
|
|
match [name], proc
|
||
|
|
err 'invalid count of parameters for ',`name,' (',`found,' instead of ',`expected,')'
|
||
|
|
else
|
||
|
|
err 'invalid count of parameters for ',`proc,' (',`found,' instead of ',`expected,')'
|
||
|
|
end match
|
||
|
|
end repeat
|
||
|
|
end if
|
||
|
|
end macro
|