Made a new improved version of winapi-check in perl.
This commit is contained in:
Patrik Stridvall
Alexandre Julliard
parent
26e1653017
commit
37fd2d1c85
|
|
@ -1,49 +0,0 @@
|
|||
#!/bin/sh
|
||||
# This quick and dirty script prints the names of functions that don't have a
|
||||
# WINAPI in its header declaration or don't appear in any .c file at all.
|
||||
# I don't think it's very intelligent to use it when having < 64 MB ;)
|
||||
# FIXME: This script skips .spec function entries that occupy two or more
|
||||
# .spec lines !
|
||||
|
||||
if [ ! -e ./ChangeLog ] ; then
|
||||
echo You are not in Wine main directory !
|
||||
exit
|
||||
fi
|
||||
echo crtdll.spec, ntdll.spec and wsock32.spec will be mentioned many times,
|
||||
echo as they use original UNIX functions that don\'t exist in Wine .c code.
|
||||
echo
|
||||
FIND_LIST="`find . -name "*.c"`"
|
||||
for i in if1632/*.spec relay32/*.spec
|
||||
do
|
||||
# skip wprocs.spec, as it contains many funcs that don't need a WINAPI
|
||||
if [ $i = "if1632/wprocs.spec" ] ; then
|
||||
continue
|
||||
fi
|
||||
LINE="`egrep "stdcall|cdecl|pascal|register" $i|grep -v "^#"|tr -d " "|tr "\n" " "`"
|
||||
for j in $LINE
|
||||
do
|
||||
if [ -n "`echo "$j"|grep \)`" ] ; then
|
||||
FUNC="`echo $j|cut -f2 -d\)|cut -f1 -d'#'`"
|
||||
if [ -n "$FUNC" ] ; then
|
||||
if [ -z "`grep -B 1 $FUNC $FIND_LIST|egrep "WINAPI|__cdecl|VFWAPI|DC_GET_VAL|DC_SET_MODE|REGS_ENTRYPOINT"`" ] ; then
|
||||
case $FUNC in # "black list"
|
||||
"GetBrushOrgEx16" ) ;;
|
||||
"GetCurrentPositionEx16" ) ;;
|
||||
"GetViewportExtEx16" ) ;;
|
||||
"GetViewportOrgEx16" ) ;;
|
||||
"GetWindowExtEx16" ) ;;
|
||||
"GetWindowOrgEx16" ) ;;
|
||||
|
||||
"GetBrushOrgEx32" ) ;;
|
||||
"GetCurrentPositionEx32" ) ;;
|
||||
"GetViewportExtEx32" ) ;;
|
||||
"GetViewportOrgEx32" ) ;;
|
||||
"GetWindowExtEx32" ) ;;
|
||||
"GetWindowOrgEx32" ) ;;
|
||||
* ) echo "$i: $FUNC" ;;
|
||||
esac
|
||||
fi
|
||||
fi
|
||||
fi
|
||||
done
|
||||
done
|
||||
|
|
@ -0,0 +1,217 @@
|
|||
__ctype
|
||||
__divdi3
|
||||
__eprintf
|
||||
__fixunsdfdi
|
||||
__flsbuf
|
||||
__iob
|
||||
__moddi3
|
||||
_environ
|
||||
_exit
|
||||
_fxstat
|
||||
_lwp_create
|
||||
_lwp_exit
|
||||
_lwp_makecontext
|
||||
_lxstat
|
||||
_sysconf
|
||||
_xmknod
|
||||
_xstat
|
||||
abs
|
||||
access
|
||||
acos
|
||||
asctime
|
||||
asin
|
||||
atan
|
||||
atan2
|
||||
atexit
|
||||
atof
|
||||
atoi
|
||||
atol
|
||||
bsearch
|
||||
bzero
|
||||
calloc
|
||||
ceil
|
||||
cfgetospeed
|
||||
chmod
|
||||
close
|
||||
closedir
|
||||
cos
|
||||
cosh
|
||||
ctime
|
||||
div
|
||||
dup
|
||||
dup2
|
||||
environ
|
||||
errno
|
||||
execlp
|
||||
execvp
|
||||
exit
|
||||
exp
|
||||
fabs
|
||||
fclose
|
||||
fcntl
|
||||
fdopen
|
||||
feof
|
||||
fflush
|
||||
ffs
|
||||
fgetc
|
||||
fgetpos
|
||||
fgets
|
||||
floor
|
||||
fmod
|
||||
fopen
|
||||
fork
|
||||
fprintf
|
||||
fputc
|
||||
fputs
|
||||
fread
|
||||
free
|
||||
frexp
|
||||
fseek
|
||||
fsetpos
|
||||
fsync
|
||||
ftruncate
|
||||
fwrite
|
||||
getcwd
|
||||
getenv
|
||||
getlogin
|
||||
getnetbyname
|
||||
getpid
|
||||
getpwuid
|
||||
gettimeofday
|
||||
getuid
|
||||
gmtime
|
||||
hypot
|
||||
inet_network
|
||||
ioctl
|
||||
isalnum
|
||||
isalpha
|
||||
isatty
|
||||
iscntrl
|
||||
isdigit
|
||||
isgraph
|
||||
islower
|
||||
isprint
|
||||
ispunct
|
||||
isspace
|
||||
isupper
|
||||
isxdigit
|
||||
j0
|
||||
j1
|
||||
jn
|
||||
kill
|
||||
labs
|
||||
ldexp
|
||||
ldiv
|
||||
localtime
|
||||
log
|
||||
log10
|
||||
longjmp
|
||||
lseek
|
||||
malloc
|
||||
mblen
|
||||
memchr
|
||||
memcmp
|
||||
memcpy
|
||||
memmove
|
||||
memset
|
||||
mkdir
|
||||
mktime
|
||||
mmap
|
||||
modf
|
||||
mprotect
|
||||
msync
|
||||
munmap
|
||||
open
|
||||
opendir
|
||||
perror
|
||||
pipe
|
||||
poll
|
||||
pow
|
||||
printf
|
||||
putchar
|
||||
putenv
|
||||
puts
|
||||
qsort
|
||||
raise
|
||||
rand
|
||||
read
|
||||
readdir
|
||||
realloc
|
||||
remove
|
||||
rename
|
||||
rmdir
|
||||
select
|
||||
setbuf
|
||||
setlocale
|
||||
setsid
|
||||
settimeofday
|
||||
setvbuf
|
||||
shmat
|
||||
shmctl
|
||||
shmdt
|
||||
shmget
|
||||
sigaction
|
||||
sigaddset
|
||||
sigaltstack
|
||||
sigemptyset
|
||||
signal
|
||||
sigprocmask
|
||||
sin
|
||||
sin
|
||||
sinh
|
||||
sleep
|
||||
snprintf
|
||||
sprintf
|
||||
sqrt
|
||||
srand
|
||||
sscanf
|
||||
statfs
|
||||
strcasecmp
|
||||
strcat
|
||||
strchr
|
||||
strcmp
|
||||
strcoll
|
||||
strcpy
|
||||
strcspn
|
||||
strdup
|
||||
strerror
|
||||
strftime
|
||||
strlen
|
||||
strncasecmp
|
||||
strncat
|
||||
strncmp
|
||||
strncpy
|
||||
strpbrk
|
||||
strrchr
|
||||
strspn
|
||||
strstr
|
||||
strtod
|
||||
strtok
|
||||
strtol
|
||||
strtoul
|
||||
strxfrm
|
||||
sysi86
|
||||
system
|
||||
tan
|
||||
tanh
|
||||
tcflush
|
||||
tcgetattr
|
||||
tcsetattr
|
||||
tempnam
|
||||
time
|
||||
times
|
||||
tmpnam
|
||||
tolower
|
||||
toupper
|
||||
towlower
|
||||
towupper
|
||||
unlink
|
||||
usleep
|
||||
utime
|
||||
vfprintf
|
||||
vsprintf
|
||||
wait4
|
||||
write
|
||||
y0
|
||||
y1
|
||||
yn
|
||||
|
|
@ -0,0 +1,38 @@
|
|||
package nativeapi;
|
||||
|
||||
use strict;
|
||||
|
||||
sub new {
|
||||
my $proto = shift;
|
||||
my $class = ref($proto) || $proto;
|
||||
my $self = {};
|
||||
bless ($self, $class);
|
||||
|
||||
my $functions = \%{$self->{FUNCTIONS}};
|
||||
|
||||
my $file = shift;
|
||||
|
||||
open(IN, "< $file");
|
||||
$/ = "\n";
|
||||
while(<IN>) {
|
||||
s/^\s*?(.*?)\s*$/$1/; # remove whitespace at begin and end of line
|
||||
s/^(.*?)\s*#.*$/$1/; # remove comments
|
||||
/^$/ && next; # skip empty lines
|
||||
|
||||
$$functions{$_} = 1;
|
||||
}
|
||||
close(IN);
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub is_function {
|
||||
my $self = shift;
|
||||
my $functions = \%{$self->{FUNCTIONS}};
|
||||
|
||||
my $name = shift;
|
||||
|
||||
return $$functions{$name};
|
||||
}
|
||||
|
||||
1;
|
||||
|
|
@ -0,0 +1,184 @@
|
|||
package parser;
|
||||
|
||||
BEGIN {
|
||||
use Exporter ();
|
||||
use vars qw(@ISA @EXPORT);
|
||||
|
||||
@ISA = qw(Exporter);
|
||||
@EXPORT = qw(&init
|
||||
&transact &commit &rollback &token
|
||||
&dump_state
|
||||
&either &filter &many &many1 &separate &separate1 &sequence);
|
||||
}
|
||||
|
||||
my @stack;
|
||||
my $current;
|
||||
my $next;
|
||||
|
||||
sub init {
|
||||
@stack = ();
|
||||
$current = [];
|
||||
$next = shift;
|
||||
|
||||
@$next = grep {
|
||||
$_->{type} !~ /^comment|preprocessor$/;
|
||||
} @$next;
|
||||
}
|
||||
|
||||
sub dump_state {
|
||||
print "stack: [\n";
|
||||
for my $tokens (@stack) {
|
||||
print " [\n";
|
||||
for my $token (@$tokens) {
|
||||
print " " . $token->{type} . ": " . $token->{data} . "\n";
|
||||
}
|
||||
print " ]\n";
|
||||
}
|
||||
print "]\n";
|
||||
print "current: [\n";
|
||||
for my $token (@$current) {
|
||||
print " " . $token->{type} . ": " . $token->{data} . "\n";
|
||||
}
|
||||
print "]\n";
|
||||
print "next: [\n";
|
||||
for my $token (@$next) {
|
||||
print " " . $token->{type} . ": " . $token->{data} . "\n";
|
||||
}
|
||||
print "]\n";
|
||||
}
|
||||
|
||||
sub token {
|
||||
my $token = shift @$next;
|
||||
push @$current, $token;
|
||||
return $token;
|
||||
};
|
||||
|
||||
sub transact {
|
||||
push @stack, $current;
|
||||
$current = [];
|
||||
}
|
||||
|
||||
sub commit {
|
||||
my $oldcurrent = $current;
|
||||
$current = pop @stack;
|
||||
push @$current, @$oldcurrent;
|
||||
}
|
||||
|
||||
sub rollback {
|
||||
unshift @$next, @$current;
|
||||
$current = pop @stack;
|
||||
}
|
||||
|
||||
sub filter {
|
||||
my $parser = shift;
|
||||
my $filter = shift;
|
||||
|
||||
transact;
|
||||
my $r1 = &$parser;
|
||||
if(defined($r1)) {
|
||||
my $r2 = &$filter($r1);
|
||||
if($r2) {
|
||||
commit;
|
||||
return $r1;
|
||||
} else {
|
||||
rollback;
|
||||
return undef;
|
||||
}
|
||||
} else {
|
||||
rollback;
|
||||
return undef;
|
||||
}
|
||||
}
|
||||
|
||||
sub either {
|
||||
for my $parser (@_) {
|
||||
transact;
|
||||
my $r = &$parser;
|
||||
if(defined($r)) {
|
||||
commit;
|
||||
return $r;
|
||||
} else {
|
||||
rollback;
|
||||
}
|
||||
}
|
||||
return undef;
|
||||
}
|
||||
|
||||
sub sequence {
|
||||
transact;
|
||||
my $rs = [];
|
||||
for my $parser (@_) {
|
||||
my $r = &$parser;
|
||||
if(defined($r)) {
|
||||
push @$rs, $r;
|
||||
} else {
|
||||
rollback;
|
||||
return undef;
|
||||
}
|
||||
}
|
||||
commit;
|
||||
return $rs;
|
||||
}
|
||||
|
||||
sub separate {
|
||||
my $parser = shift;
|
||||
my $separator = shift;
|
||||
my $rs = [];
|
||||
while(1) {
|
||||
my $r = &$parser;
|
||||
if(defined($r)) {
|
||||
push @$rs, $r;
|
||||
} else {
|
||||
last;
|
||||
}
|
||||
my $s = &$separator;
|
||||
if(!defined($r)) {
|
||||
last;
|
||||
}
|
||||
|
||||
}
|
||||
return $rs;
|
||||
}
|
||||
|
||||
sub separate1 {
|
||||
my $parser = shift;
|
||||
my $separator = shift;
|
||||
transact;
|
||||
my $rs = separate($parser,$separator);
|
||||
if($#$rs != -1) {
|
||||
commit;
|
||||
return $rs;
|
||||
} else {
|
||||
rollback;
|
||||
return undef;
|
||||
}
|
||||
}
|
||||
|
||||
sub many {
|
||||
my $parser = shift;
|
||||
my $rs = [];
|
||||
while(1) {
|
||||
my $r = &$parser;
|
||||
if(defined($r)) {
|
||||
push @$rs, $r;
|
||||
} else {
|
||||
last;
|
||||
}
|
||||
}
|
||||
return $rs;
|
||||
}
|
||||
|
||||
sub many1 {
|
||||
my $parser = shift;
|
||||
transact;
|
||||
my $rs = many($parser);
|
||||
if($#$rs != -1) {
|
||||
commit;
|
||||
return $rs;
|
||||
} else {
|
||||
rollback;
|
||||
return undef;
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
|
|
@ -0,0 +1,348 @@
|
|||
%long
|
||||
|
||||
COLORREF
|
||||
DWORD
|
||||
FOURCC
|
||||
HCONV
|
||||
HCONVLIST
|
||||
HDDEDATA
|
||||
HHOOK
|
||||
HKEY
|
||||
HRESULT
|
||||
HSZ
|
||||
LCID
|
||||
LCTYPE
|
||||
LHCLIENTDOC
|
||||
LHSERVER
|
||||
LHSERVERDOC
|
||||
LONG
|
||||
LPARAM
|
||||
LRESULT
|
||||
POINT16
|
||||
ULONG
|
||||
|
||||
%longlong
|
||||
|
||||
LARGE_INTEGER
|
||||
|
||||
%ptr
|
||||
|
||||
ACMDRIVERENUMCB16
|
||||
ACMFILTERENUMCB16
|
||||
ACMFILTERTAGENUMCB16
|
||||
ACMFORMATENUMCB16
|
||||
ACMFORMATTAGENUMCB16
|
||||
BITMAP16 *
|
||||
BITMAPINFO *
|
||||
BITMAPINFOHEADER *
|
||||
BOOL16 *
|
||||
BSTR16 *
|
||||
CLASSENTRY *
|
||||
CLSID *
|
||||
COLORREF *
|
||||
CONTEXT86 *
|
||||
CURSORICONINFO *
|
||||
DEVMODEA *
|
||||
DOCINFO16 *
|
||||
DWORD *
|
||||
FARPROC *
|
||||
FARPROC16 *
|
||||
FILETIME *
|
||||
GLOBALENTRY *
|
||||
GLOBALINFO *
|
||||
GUID *
|
||||
HANDLE *
|
||||
HANDLETABLE16 *
|
||||
HHOOK *
|
||||
HICON16 *
|
||||
HINSTANCE16 *
|
||||
HMIDIIN16 *
|
||||
HMIDIOUT16 *
|
||||
HMIDISTRM16 *
|
||||
HPCSTR
|
||||
HPSTR
|
||||
HTASK16 *
|
||||
HWAVEIN16 *
|
||||
HWAVEOUT16 *
|
||||
IID *
|
||||
IMalloc16 *
|
||||
INT16 *
|
||||
INTERFACEDATA *
|
||||
IStorage16 *
|
||||
IStorage16 **
|
||||
IStream16 *
|
||||
IStream16 **
|
||||
ITypeInfo **
|
||||
IUnknown *
|
||||
LHCLIENTDOC *
|
||||
LHSERVERDOC *
|
||||
LOCAL32ENTRY *
|
||||
LOCAL32INFO *
|
||||
LOCALENTRY *
|
||||
LOCALINFO *
|
||||
LOGBRUSH16 *
|
||||
LOGFONT16 *
|
||||
LOGPALETTE *
|
||||
LOGPEN16 *
|
||||
LPABC16
|
||||
LPACMDRIVERDETAILS16
|
||||
LPACMFILTERCHOOSE16
|
||||
LPACMFILTERDETAILS16
|
||||
LPACMFILTERTAGDETAILS16
|
||||
LPACMFORMATCHOOSE16
|
||||
LPACMFORMATDETAILS16
|
||||
LPACMFORMATTAGDETAILS16
|
||||
LPACMSTREAMHEADER16
|
||||
LPAUXCAPS16
|
||||
LPBSTR16
|
||||
LPBYTE
|
||||
LPCATCHBUF
|
||||
LPCHOOSECOLOR16
|
||||
LPCHOOSEFONT16
|
||||
LPCLSID
|
||||
LPCOMSTAT16
|
||||
LPCONVCONTEXT16
|
||||
LPCONVINFO16
|
||||
LPCURSORINFO
|
||||
LPCVOID
|
||||
LPDCB16
|
||||
LPDEVMODEA
|
||||
LPDRIVERINFOSTRUCT16
|
||||
LPDWORD
|
||||
LPENUMLOGFONT16
|
||||
LPFILETIME
|
||||
LPFONTINFO16
|
||||
LPGLYPHMETRICS16
|
||||
LPHACMDRIVER16
|
||||
LPHACMDRIVERID16
|
||||
LPHACMSTREAM16
|
||||
LPHANDLE
|
||||
LPHKEY
|
||||
LPHMIXER16
|
||||
LPICONINFO16
|
||||
LPINT16
|
||||
LPJOYCAPS16
|
||||
LPJOYINFO16
|
||||
LPKERNINGPAIR16
|
||||
LPLOGFONT16
|
||||
LPMALLOC16 *
|
||||
LPMEMORY_BASIC_INFORMATION
|
||||
LPMESSAGEFILTER
|
||||
LPMESSAGEFILTER *
|
||||
LPMIDIHDR16
|
||||
LPMIDIINCAPS16
|
||||
LPMIDIOUTCAPS16
|
||||
LPMIXERCAPS16
|
||||
LPMIXERCONTROLDETAILS16
|
||||
LPMIXERLINE16
|
||||
LPMIXERLINECONTROLS16
|
||||
LPMMCKINFO
|
||||
LPMMIOPROC16
|
||||
LPMMTIME16
|
||||
LPMONIKER *
|
||||
LPMSG16
|
||||
LPMSG16_32
|
||||
LPMSGBOXPARAMS16
|
||||
LPNEWTEXTMETRIC16
|
||||
LPOFSTRUCT
|
||||
LPOLECLIENT
|
||||
LPOLEOBJECT
|
||||
LPOLEOBJECT *
|
||||
LPOLESERVERDOC
|
||||
LPOLESTR16 *
|
||||
LPDROPTARGET
|
||||
LPOUTLINETEXTMETRIC16
|
||||
LPPAINTSTRUCT16
|
||||
LPPALETTEENTRY
|
||||
LPPDEVICE
|
||||
LPPOINT16
|
||||
LPQUEUESTRUCT16 *
|
||||
LPRASTERIZER_STATUS
|
||||
LPRECT16
|
||||
LPRGNDATA
|
||||
LPRUNNINGOBJECTTABLE *
|
||||
LPSCROLLINFO
|
||||
LPSIZE16
|
||||
LPSTORAGE16
|
||||
LPTEXTXFORM16
|
||||
LPTIMECAPS16
|
||||
LPUINT16
|
||||
LPUNKNOWN
|
||||
LPVOID
|
||||
LPVOID *
|
||||
LPWAVEFILTER
|
||||
LPWAVEFORMATEX
|
||||
LPWAVEINCAPS16
|
||||
LPWAVEOUTCAPS16
|
||||
LPWIN32SINFO
|
||||
LPWORD
|
||||
LPWSADATA
|
||||
MAT2 *
|
||||
MEMMANINFO *
|
||||
MENUITEMINFO16 *
|
||||
METARECORD *
|
||||
MIDIHDR16 *
|
||||
MMCKINFO *
|
||||
MMIOINFO16 *
|
||||
MODULEENTRY *
|
||||
MSG16 *
|
||||
MSG32_16 *
|
||||
OFSTRUCT *
|
||||
OSVERSIONINFO16 *
|
||||
PAINTSTRUCT16 *
|
||||
PALETTEENTRY *
|
||||
POINT16 *
|
||||
RECT16 *
|
||||
REFCLSID
|
||||
REFGUID
|
||||
REFIID
|
||||
RGBQUAD *
|
||||
SCROLLINFO *
|
||||
SECURITY_ATTRIBUTES *
|
||||
SEGINFO *
|
||||
SEGPTR *
|
||||
SNB16
|
||||
STACKTRACEENTRY *
|
||||
STATSTG16 *
|
||||
SYSHEAPINFO *
|
||||
SYSLEVEL *
|
||||
TASKENTRY *
|
||||
TEXTMETRIC16 *
|
||||
THUNKLET *
|
||||
TIMERINFO *
|
||||
UINT16 *
|
||||
ULARGE_INTEGER *
|
||||
ULONG *
|
||||
VOID *
|
||||
WAVEHDR *
|
||||
WIN32_FIND_DATAA *
|
||||
WINDEBUGINFO *
|
||||
WINDOWPLACEMENT16 *
|
||||
WNDCLASS16 *
|
||||
WNDCLASSEX16 *
|
||||
WORD *
|
||||
char *
|
||||
struct ThunkDataCommon *
|
||||
struct Win87EmInfoStruct *
|
||||
struct sockaddr *
|
||||
struct tagCURSORICONINFO *
|
||||
struct timeval *
|
||||
void *
|
||||
ws_fd_set16 *
|
||||
|
||||
%s_word
|
||||
|
||||
INT16
|
||||
|
||||
%segptr
|
||||
|
||||
DLGPROC16
|
||||
FARPROC16
|
||||
FONTENUMPROC16
|
||||
FONTENUMPROCEX16
|
||||
GOBJENUMPROC16
|
||||
GRAYSTRINGPROC16
|
||||
HOOKPROC16
|
||||
LINEDDAPROC16
|
||||
LPTIMECALLBACK16
|
||||
MFENUMPROC16
|
||||
PROPENUMPROC16
|
||||
SEGPTR
|
||||
TIMERPROC16
|
||||
WNDENUMPROC16
|
||||
WNDPROC16
|
||||
|
||||
%segstr
|
||||
|
||||
BSTR16
|
||||
|
||||
%str
|
||||
|
||||
LPCOLESTR16
|
||||
LPCSTR
|
||||
LPCWSTR
|
||||
LPSTR
|
||||
LPOLESTR16
|
||||
|
||||
%unknown
|
||||
|
||||
struct in_addr
|
||||
|
||||
%void
|
||||
|
||||
void
|
||||
VOID
|
||||
|
||||
%word
|
||||
|
||||
ATOM
|
||||
BOOL16
|
||||
BYTE
|
||||
CHAR
|
||||
HACCEL16
|
||||
HACMDRIVER16
|
||||
HACMDRIVERID16
|
||||
HACMOBJ16
|
||||
HACMSTREAM16
|
||||
HANDLE16
|
||||
HBITMAP16
|
||||
HBRUSH16
|
||||
HCURSOR16
|
||||
HDC16
|
||||
HDROP16
|
||||
HDRVR16
|
||||
HDWP16
|
||||
HFILE16
|
||||
HFONT16
|
||||
HGDIOBJ16
|
||||
HGLOBAL16
|
||||
HICON16
|
||||
HINSTANCE16
|
||||
HLOCAL16
|
||||
HMENU16
|
||||
HMETAFILE16
|
||||
HMIDIIN16
|
||||
HMIDIOUT16
|
||||
HMIDISTRM16
|
||||
HMIXER16
|
||||
HMIXEROBJ16
|
||||
HMMIO16
|
||||
HMODULE16
|
||||
HPALETTE16
|
||||
HPEN16
|
||||
HPJOB16
|
||||
HPQ16
|
||||
HQUEUE16
|
||||
HRGN16
|
||||
HRSRC16
|
||||
HTASK16
|
||||
HWAVEIN16
|
||||
HWAVEOUT16
|
||||
HWND16
|
||||
LANGID
|
||||
MMRESULT16
|
||||
OLESTATUS
|
||||
SOCKET16
|
||||
UINT16
|
||||
WING_DITHER_TYPE
|
||||
WORD
|
||||
WPARAM16
|
||||
|
||||
%unknown --forbidden
|
||||
|
||||
BOOL
|
||||
FARPROC
|
||||
HANDLE
|
||||
HINSTANCE
|
||||
HMODULE
|
||||
HWND
|
||||
INT
|
||||
LPOLESTR
|
||||
UINT
|
||||
YIELDPROC
|
||||
int
|
||||
long
|
||||
short
|
||||
u_long
|
||||
u_short
|
||||
unsigned
|
||||
|
|
@ -0,0 +1,785 @@
|
|||
%double
|
||||
|
||||
CY
|
||||
double
|
||||
|
||||
%long
|
||||
|
||||
ACCESS_MASK
|
||||
ATOM
|
||||
BOOL
|
||||
BOOLEAN
|
||||
BYTE
|
||||
CALID
|
||||
CALTYPE
|
||||
CHAR
|
||||
CLIPFORMAT
|
||||
COLORREF
|
||||
COORD
|
||||
DATE
|
||||
DIGEST_HANDLE
|
||||
DPAENUMPROC
|
||||
DWORD
|
||||
FILE_INFORMATION_CLASS
|
||||
FLOAT
|
||||
FOURCC
|
||||
FS_INFORMATION_CLASS
|
||||
GET_FILEEX_INFO_LEVELS
|
||||
HACCEL
|
||||
HACMDRIVER
|
||||
HACMDRIVERID
|
||||
HACMOBJ
|
||||
HACMSTREAM
|
||||
HANDLE
|
||||
HBITMAP
|
||||
HBRUSH
|
||||
HCALL
|
||||
HCOLORSPACE
|
||||
HCONV
|
||||
HCONVLIST
|
||||
HCURSOR
|
||||
HCRYPTKEY
|
||||
HDC
|
||||
HDDEDATA
|
||||
HDESK
|
||||
HDROP
|
||||
HDRVR
|
||||
HDSA
|
||||
HDWP
|
||||
HENHMETAFILE
|
||||
HFILE
|
||||
HFONT
|
||||
HGDIOBJ
|
||||
HGLOBAL
|
||||
HHOOK
|
||||
HIC
|
||||
HICON
|
||||
HIMC
|
||||
HINSTANCE
|
||||
HKEY
|
||||
HKL
|
||||
HLINE
|
||||
HLINEAPP
|
||||
HLOCAL
|
||||
HMENU
|
||||
HMETAFILE
|
||||
HMIDIIN
|
||||
HMIDIOUT
|
||||
HMIDISTRM
|
||||
HMIXER
|
||||
HMIXEROBJ
|
||||
HMMIO
|
||||
HMODULE
|
||||
HMONITOR
|
||||
HOLEMENU
|
||||
HPALETTE
|
||||
HPEN
|
||||
HPHONE
|
||||
HPHONEAPP
|
||||
HPROPSHEETPAGE
|
||||
HPROVIDER
|
||||
HRESULT
|
||||
HRGN
|
||||
HRSRC
|
||||
HSZ
|
||||
HTASK
|
||||
HWAVEIN
|
||||
HWAVEOUT
|
||||
HWINSTA
|
||||
HWND
|
||||
INT
|
||||
KEY_INFORMATION_CLASS
|
||||
KEY_VALUE_INFORMATION_CLASS
|
||||
LANGID
|
||||
LCID
|
||||
LCTYPE
|
||||
LHCLIENTDOC
|
||||
LHSERVER
|
||||
LHSERVERDOC
|
||||
LONG
|
||||
LPARAM
|
||||
LRESULT
|
||||
MMRESULT
|
||||
NTSTATUS
|
||||
OBJECT_INFORMATION_CLASS
|
||||
OLECLIPFORMAT
|
||||
OLEOPT_RENDER
|
||||
OLESTATUS
|
||||
OLE_SERVER_USE
|
||||
OUT
|
||||
PHANDLE
|
||||
PHPROVIDER
|
||||
PIO_APC_ROUTINE
|
||||
PLSA_HANDLE
|
||||
PLSA_OBJECT_ATTRIBUTES
|
||||
PLSA_UNICODE_STRING
|
||||
POBJDIR_INFORMATION
|
||||
PROCESSINFOCLASS
|
||||
PTIME_FIELDS
|
||||
PTOKEN_PRIVILEGES
|
||||
REGSAM
|
||||
SC_HANDLE
|
||||
SECTION_INHERIT
|
||||
SECURITY_IMPERSONATION_LEVEL
|
||||
SECURITY_INFORMATION
|
||||
SEGPTR
|
||||
SERVICE_STATUS_HANDLE
|
||||
SHORT
|
||||
SOCKET
|
||||
SYSKIND
|
||||
SYSTEM_INFORMATION_CLASS
|
||||
THREADINFOCLASS
|
||||
TIMER_TYPE
|
||||
TOKEN_INFORMATION_CLASS
|
||||
TOKEN_TYPE
|
||||
UINT
|
||||
ULONG
|
||||
ULONG_PTR
|
||||
USHORT
|
||||
VARIANT_BOOL
|
||||
VARTYPE
|
||||
WCHAR
|
||||
WORD
|
||||
WOW_HANDLE_TYPE
|
||||
WPARAM
|
||||
clock_t
|
||||
enum NOTIFYTYPE
|
||||
time_t
|
||||
|
||||
%longlong
|
||||
|
||||
LARGE_INTEGER
|
||||
POINT
|
||||
|
||||
%ptr
|
||||
|
||||
ABORTPROC
|
||||
ACMDRIVERENUMCB
|
||||
ACMFILTERENUMCBA
|
||||
ACMFILTERENUMCBW
|
||||
ACMFILTERTAGENUMCBA
|
||||
ACMFILTERTAGENUMCBW
|
||||
ACMFORMATENUMCBA
|
||||
ACMFORMATENUMCBW
|
||||
ACMFORMATTAGENUMCBA
|
||||
ACMFORMATTAGENUMCBW
|
||||
AVICOMPRESSOPTIONS *
|
||||
AVISTREAMINFOA *
|
||||
AVISTREAMINFOW *
|
||||
BITMAP *
|
||||
BITMAPINFO *
|
||||
BITMAPINFOHEADER *
|
||||
BOOL *
|
||||
BSTR *
|
||||
BYTE *
|
||||
BY_HANDLE_FILE_INFORMATION *
|
||||
CALINFO_ENUMPROCA
|
||||
CHAR *
|
||||
CLIPFORMAT *
|
||||
CLSID *
|
||||
CODEPAGE_ENUMPROCA
|
||||
CODEPAGE_ENUMPROCW
|
||||
COLORADJUSTMENT *
|
||||
COLORREF *
|
||||
CONST
|
||||
CONTEXT *
|
||||
COSERVERINFO *
|
||||
CRITICAL_SECTION *
|
||||
CRTDLL_FILE *
|
||||
CY *
|
||||
DATE *
|
||||
DATEFMT_ENUMPROCA
|
||||
DATEFMT_ENUMPROCW
|
||||
DEVMODEA *
|
||||
DEVMODEW *
|
||||
DIGEST_FUNCTION
|
||||
DLGPROC
|
||||
DLLVERSIONINFO *
|
||||
DOCINFOA *
|
||||
DOCINFOW *
|
||||
DPALOADPROC
|
||||
DRAWSTATEPROC
|
||||
DSAENUMPROC
|
||||
DWORD *
|
||||
ENHMETARECORD *
|
||||
ENHMFENUMPROC
|
||||
ENUMRESLANGPROCA
|
||||
ENUMRESLANGPROCW
|
||||
ENUMRESNAMEPROCA
|
||||
ENUMRESNAMEPROCW
|
||||
ENUMRESTYPEPROCA
|
||||
ENUMRESTYPEPROCW
|
||||
EXCEPTION_RECORD *
|
||||
FARPROC
|
||||
FARPROC *
|
||||
FILETIME *
|
||||
FLOAT *
|
||||
FONTENUMPROCA
|
||||
FONTENUMPROCEXA
|
||||
FONTENUMPROCEXW
|
||||
FONTENUMPROCW
|
||||
GCP_RESULTSA *
|
||||
GCP_RESULTSW *
|
||||
GOBJENUMPROC
|
||||
GRAYSTRINGPROC
|
||||
GUID *
|
||||
HANDLE *
|
||||
HANDLER_ROUTINE *
|
||||
HANDLETABLE *
|
||||
HCRYPTPROV *
|
||||
HDPA
|
||||
HDPA *
|
||||
HGLOBAL *
|
||||
HICON *
|
||||
HIMAGELIST
|
||||
HIMAGELIST *
|
||||
HKL *
|
||||
HMENU *
|
||||
HMIDIIN *
|
||||
HMIDIOUT *
|
||||
HMIDISTRM *
|
||||
HMRU
|
||||
HOOKPROC
|
||||
HPCSTR
|
||||
HPSTR
|
||||
HWAVEIN *
|
||||
HWAVEOUT *
|
||||
HWND *
|
||||
ICINFO *
|
||||
IDSTRUCT *
|
||||
IDataObject *
|
||||
IDataObject **
|
||||
IDropSource *
|
||||
IDropTarget *
|
||||
ILockBytes *
|
||||
IMAGEINFO *
|
||||
IMAGELISTDRAWPARAMS *
|
||||
INPUT_RECORD *
|
||||
INT *
|
||||
IPersistStream *
|
||||
IShellFolder **
|
||||
IStorage *
|
||||
IStorage **
|
||||
IStream *
|
||||
ITypeLib *
|
||||
ITypeLib **
|
||||
IUnknown *
|
||||
LHCLIENTDOC *
|
||||
LHSERVER *
|
||||
LHSERVERDOC *
|
||||
LINECALLBACK
|
||||
LINEDDAPROC
|
||||
LOCALE_ENUMPROCA
|
||||
LOCALE_ENUMPROCW
|
||||
LOGBRUSH *
|
||||
LOGFONTA *
|
||||
LOGFONTW *
|
||||
LOGPALETTE *
|
||||
LOGPEN *
|
||||
LONG *
|
||||
LPABC
|
||||
LPABCFLOAT
|
||||
LPACCEL
|
||||
LPAUTHDLGSTRUCTA
|
||||
LPAUXCAPSA
|
||||
LPAUXCAPSW
|
||||
LPAVIFILEINFOA
|
||||
LPAVIFILEINFOW
|
||||
LPBC *
|
||||
LPBITMAPINFOHEADER
|
||||
LPBOOL
|
||||
LPBROWSEINFOA
|
||||
LPBSTR
|
||||
LPBYTE
|
||||
LPCANDIDATEFORM
|
||||
LPCANDIDATELIST
|
||||
LPCHARSETINFO
|
||||
LPCHAR_INFO
|
||||
LPCHOOSECOLORA
|
||||
LPCHOOSECOLORW
|
||||
LPCHOOSEFONTA
|
||||
LPCHOOSEFONTW
|
||||
LPCITEMIDLIST
|
||||
LPCITEMIDLIST *
|
||||
LPCLSID
|
||||
LPCMENUINFO
|
||||
LPCOLDTBBUTTON
|
||||
LPCOLORADJUSTMENT
|
||||
LPCOLORMAP
|
||||
LPCOMMTIMEOUTS
|
||||
LPCOMPOSITIONFORM
|
||||
LPCOMSTAT
|
||||
LPCONNECTDLGSTRUCTA
|
||||
LPCONNECTDLGSTRUCTW
|
||||
LPCONSOLE_CURSOR_INFO
|
||||
LPCONSOLE_SCREEN_BUFFER_INFO
|
||||
LPCONVCONTEXT
|
||||
LPCONVINFO
|
||||
LPCPINFO
|
||||
LPCPROPSHEETHEADERA
|
||||
LPCPROPSHEETHEADERW
|
||||
LPCPROPSHEETPAGEA
|
||||
LPCPROPSHEETPAGEW
|
||||
LPCSTR *
|
||||
LPCTBBUTTON
|
||||
LPCVOID
|
||||
LPCWSTR *
|
||||
LPDATAADVISEHOLDER *
|
||||
LPDATAOBJECT
|
||||
LPDCB
|
||||
LPDDENUMCALLBACKA
|
||||
LPDDENUMCALLBACKEXA
|
||||
LPDDENUMCALLBACKEXW
|
||||
LPDDENUMCALLBACKW
|
||||
LPDEBUG_EVENT
|
||||
LPDEVMODEA
|
||||
LPDEVMODEW
|
||||
LPDIRECTDRAW *
|
||||
LPDIRECTDRAWCLIPPER *
|
||||
LPDIRECTPLAYLOBBY *
|
||||
LPDIRECTPLAYLOBBYA *
|
||||
LPDIRECTSOUND *
|
||||
LPDISCDLGSTRUCTA
|
||||
LPDISCDLGSTRUCTW
|
||||
LPDPENUMDPCALLBACKA
|
||||
LPDPENUMDPCALLBACKW
|
||||
LPDRAWITEMSTRUCT
|
||||
LPDRAWTEXTPARAMS
|
||||
LPDROPTARGET
|
||||
LPDSENUMCALLBACKA
|
||||
LPDWORD
|
||||
LPENHMETAHEADER
|
||||
LPENUMFORMATETC *
|
||||
LPENUMOLEVERB *
|
||||
LPENUM_SERVICE_STATUSA
|
||||
LPFILETIME
|
||||
LPFINDREPLACEA
|
||||
LPFINDREPLACEW
|
||||
LPFNCREATEINSTANCE
|
||||
LPFNFMCALLBACK
|
||||
LPFONTDESC
|
||||
LPFONTSIGNATURE
|
||||
LPFORMATETC
|
||||
LPGLYPHMETRICS
|
||||
LPGUID
|
||||
LPHANDLE
|
||||
LPHANDLER_FUNCTION
|
||||
LPHANDLETABLE
|
||||
LPHCALL
|
||||
LPHKEY
|
||||
LPHLINE
|
||||
LPHLINEAPP
|
||||
LPHMIXER
|
||||
LPHPHONE
|
||||
LPHPHONEAPP
|
||||
LPICONINFO
|
||||
LPINITCOMMONCONTROLSEX
|
||||
LPINPUT_RECORD
|
||||
LPINT
|
||||
LPITEMIDLIST *
|
||||
LPITEMIDLIST
|
||||
LPJOYCAPSA
|
||||
LPJOYCAPSW
|
||||
LPJOYINFO
|
||||
LPJOYINFOEX
|
||||
LPKERNINGPAIR
|
||||
LPLDT_ENTRY
|
||||
LPLINEADDRESSCAPS
|
||||
LPLINEADDRESSSTATUS
|
||||
LPLINECALLINFO
|
||||
LPLINECALLLIST
|
||||
LPLINECALLPARAMS
|
||||
LPLINECALLSTATUS
|
||||
LPLINECOUNTRYLIST
|
||||
LPLINEDEVCAPS
|
||||
LPLINEDEVSTATUS
|
||||
LPLINEDIALPARAMS
|
||||
LPLINEEXTENSIONID
|
||||
LPLINEFORWARDLIST
|
||||
LPLINEGENERATETONE
|
||||
LPLINEMEDIACONTROLCALLSTATE
|
||||
LPLINEMEDIACONTROLDIGIT
|
||||
LPLINEMEDIACONTROLMEDIA
|
||||
LPLINEMEDIACONTROLTONE
|
||||
LPLINEMONITORTONE
|
||||
LPLINEPROVIDERLIST
|
||||
LPLINETRANSLATECAPS
|
||||
LPLINETRANSLATEOUTPUT
|
||||
LPLOCKBYTES *
|
||||
LPLOGFONTA
|
||||
LPLOGFONTW
|
||||
LPLONG
|
||||
LPMALLOC *
|
||||
LPMEASUREITEMSTRUCT
|
||||
LPMEMORYSTATUS
|
||||
LPMEMORY_BASIC_INFORMATION
|
||||
LPMENUINFO
|
||||
LPMENUITEMINFOA
|
||||
LPMENUITEMINFOW
|
||||
LPMESSAGEFILTER
|
||||
LPMESSAGEFILTER *
|
||||
LPMIDIHDR
|
||||
LPMIDIINCAPSA
|
||||
LPMIDIINCAPSW
|
||||
LPMIDIOUTCAPSA
|
||||
LPMIDIOUTCAPSW
|
||||
LPMIXERCAPSA
|
||||
LPMIXERCAPSW
|
||||
LPMIXERCONTROLDETAILS
|
||||
LPMIXERLINEA
|
||||
LPMIXERLINECONTROLSA
|
||||
LPMIXERLINECONTROLSW
|
||||
LPMIXERLINEW
|
||||
LPMMCKINFO
|
||||
LPMMIOPROC
|
||||
LPMMTIME
|
||||
LPMODULEENTRY
|
||||
LPMONIKER
|
||||
LPMONIKER *
|
||||
LPMONITORINFO
|
||||
LPMRUINFO
|
||||
LPMSG
|
||||
LPMSGBOXPARAMSA
|
||||
LPMSGBOXPARAMSW
|
||||
LPNETCONNECTINFOSTRUCT
|
||||
LPNETINFOSTRUCT
|
||||
LPNETRESOURCEA
|
||||
LPNETRESOURCEW
|
||||
LPNMHDR
|
||||
LPOFSTRUCT
|
||||
LPOLEADVISEHOLDER *
|
||||
LPOLECLIENT
|
||||
LPOLECLIENTSITE
|
||||
LPOLEINPLACEACTIVEOBJECT
|
||||
LPOLEINPLACEFRAME
|
||||
LPOLEINPLACEFRAMEINFO
|
||||
LPOLEMENUGROUPWIDTHS
|
||||
LPOLEOBJECT
|
||||
LPOLEOBJECT *
|
||||
LPOLESERVER
|
||||
LPOLESERVERDOC
|
||||
LPOLESTR
|
||||
LPOLESTR *
|
||||
LPOLEUIBUSYA
|
||||
LPOLEUIBUSYW
|
||||
LPOLEUICHANGEICONA
|
||||
LPOLEUICHANGEICONW
|
||||
LPOLEUICHANGESOURCEA
|
||||
LPOLEUICHANGESOURCEW
|
||||
LPOLEUICONVERTA
|
||||
LPOLEUICONVERTW
|
||||
LPOLEUIEDITLINKSA
|
||||
LPOLEUIEDITLINKSW
|
||||
LPOLEUIINSERTOBJECTA
|
||||
LPOLEUIINSERTOBJECTW
|
||||
LPOLEUILINKCONTAINERA
|
||||
LPOLEUIOBJECTPROPSA
|
||||
LPOLEUIOBJECTPROPSW
|
||||
LPOLEUIPASTESPECIALA
|
||||
LPOLEUIPASTESPECIALW
|
||||
LPOPENFILENAMEA
|
||||
LPOPENFILENAMEW
|
||||
LPOUTLINETEXTMETRICA
|
||||
LPOUTLINETEXTMETRICW
|
||||
LPOVERLAPPED
|
||||
LPOVERLAPPED_COMPLETION_ROUTINE
|
||||
LPPAGESETUPDLGA
|
||||
LPPALETTEENTRY
|
||||
LPPERSISTSTORAGE
|
||||
LPPHONEBUTTONINFO
|
||||
LPPHONECAPS
|
||||
LPPHONEEXTENSIONID
|
||||
LPPHONESTATUS
|
||||
LPPIXELFORMATDESCRIPTOR
|
||||
LPPOINT
|
||||
LPPRINTDLGA
|
||||
LPPRINTDLGW
|
||||
LPPRINTER_DEFAULTSA
|
||||
LPPRINTER_DEFAULTSW
|
||||
LPPROCESSENTRY
|
||||
LPPROCESS_HEAP_ENTRY *
|
||||
LPPROCESS_INFORMATION
|
||||
LPPROGRESS_ROUTINE
|
||||
LPRASCONNA
|
||||
LPRASTERIZER_STATUS
|
||||
LPRECT
|
||||
LPRGNDATA
|
||||
LPRTL_RWLOCK
|
||||
LPRUNNINGOBJECTTABLE *
|
||||
LPSCROLLINFO
|
||||
LPSECURITY_ATTRIBUTES
|
||||
LPSERVICE_STATUS
|
||||
LPSERVICE_TABLE_ENTRYA
|
||||
LPSERVICE_TABLE_ENTRYW
|
||||
LPSHELLEXECUTEINFOA
|
||||
LPSHELLEXECUTEINFOW
|
||||
LPSHELLFLAGSTATE
|
||||
LPSHELLFOLDER
|
||||
LPSHELLVIEWDATA
|
||||
LPSHFILEOPSTRUCTA
|
||||
LPSHFILEOPSTRUCTW
|
||||
LPSIZE
|
||||
LPSMALL_RECT
|
||||
LPSRB
|
||||
LPSTARTUPINFOA
|
||||
LPSTARTUPINFOW
|
||||
LPSTORAGE
|
||||
LPSTR *
|
||||
LPSTR **
|
||||
LPSTREAM
|
||||
LPSTREAM *
|
||||
LPSTRRET
|
||||
LPSTYLEBUFA
|
||||
LPSTYLEBUFW
|
||||
LPSYSTEMTIME
|
||||
LPSYSTEM_INFO
|
||||
LPSYSTEM_POWER_STATUS
|
||||
LPTHREAD_START_ROUTINE
|
||||
LPTIMECALLBACK
|
||||
LPTIMECAPS
|
||||
LPTIME_ZONE_INFORMATION
|
||||
LPTOP_LEVEL_EXCEPTION_FILTER
|
||||
LPTPMPARAMS
|
||||
LPUINT
|
||||
LPUNKNOWN
|
||||
LPUNKNOWN *
|
||||
LPVARSTRING
|
||||
LPVOID
|
||||
LPVOID *
|
||||
LPWAVEFORMATEX
|
||||
LPWAVEINCAPSA
|
||||
LPWAVEINCAPSW
|
||||
LPWAVEOUTCAPSA
|
||||
LPWAVEOUTCAPSW
|
||||
LPWORD
|
||||
LPWSADATA
|
||||
LPWSTR *
|
||||
LPXFORM
|
||||
MAT2 *
|
||||
MENUITEMINFOA *
|
||||
MENUITEMINFOW *
|
||||
METARECORD *
|
||||
MFENUMPROC
|
||||
MIDIHDR *
|
||||
MMCKINFO *
|
||||
MMIOINFO *
|
||||
MONITORENUMPROC
|
||||
MSG *
|
||||
MULTI_QI *
|
||||
NOTIFYCALLBACK
|
||||
NUMBERFMTA *
|
||||
NUMBERFMTW *
|
||||
OFSTRUCT *
|
||||
OSVERSIONINFOA *
|
||||
OSVERSIONINFOW *
|
||||
PACE_HEADER
|
||||
PACE_HEADER *
|
||||
PACL
|
||||
PACL *
|
||||
PACMDRIVERDETAILSA
|
||||
PACMDRIVERDETAILSW
|
||||
PACMFILTERCHOOSEA
|
||||
PACMFILTERCHOOSEW
|
||||
PACMFILTERDETAILSA
|
||||
PACMFILTERDETAILSW
|
||||
PACMFILTERTAGDETAILSA
|
||||
PACMFILTERTAGDETAILSW
|
||||
PACMFORMATCHOOSEA
|
||||
PACMFORMATCHOOSEW
|
||||
PACMFORMATDETAILSA
|
||||
PACMFORMATDETAILSW
|
||||
PACMFORMATTAGDETAILSA
|
||||
PACMFORMATTAGDETAILSW
|
||||
PACMSTREAMHEADER
|
||||
PAINTSTRUCT *
|
||||
PALETTEENTRY *
|
||||
PANSI_STRING
|
||||
PAPCFUNC
|
||||
PAPI_VERSION
|
||||
PAPPBARDATA
|
||||
PAVIFILE
|
||||
PAVIFILE *
|
||||
PAVISTREAM
|
||||
PAVISTREAM *
|
||||
PBOOLEAN
|
||||
PBYTE
|
||||
PCHAR
|
||||
PCHAR *
|
||||
PCONTEXT
|
||||
PDWORD
|
||||
PENUMLOADED_MODULES_CALLBACK
|
||||
PEXCEPTION_FRAME
|
||||
PEXCEPTION_FRAME *
|
||||
PEXCEPTION_POINTERS
|
||||
PEXCEPTION_RECORD
|
||||
PFLOAT
|
||||
PFNCALLBACK
|
||||
PFNDPACOMPARE
|
||||
PFNDPAMERGE
|
||||
PFUNCTION_TABLE_ACCESS_ROUTINE
|
||||
PGENERIC_MAPPING
|
||||
PGETFRAME
|
||||
PGET_MODULE_BASE_ROUTINE
|
||||
PHACMDRIVER
|
||||
PHACMDRIVERID
|
||||
PHACMSTREAM
|
||||
PHONECALLBACK
|
||||
PIMAGEHLP_MODULE
|
||||
PIMAGEHLP_STATUS_ROUTINE
|
||||
PIMAGEHLP_SYMBOL
|
||||
PIMAGE_DEBUG_INFORMATION
|
||||
PIMAGE_LOAD_CONFIG_DIRECTORY
|
||||
PIMAGE_NT_HEADERS
|
||||
PIMAGE_SECTION_HEADER
|
||||
PIMAGE_SECTION_HEADER *
|
||||
PIO_STATUS_BLOCK
|
||||
PIXELFORMATDESCRIPTOR *
|
||||
PLARGE_INTEGER
|
||||
PLOADED_IMAGE
|
||||
PLONG
|
||||
PLUID
|
||||
PNOTIFYICONDATAA
|
||||
POBJECT_ATTRIBUTES
|
||||
POINT *
|
||||
PPRIVILEGE_SET
|
||||
PREAD_PROCESS_MEMORY_ROUTINE
|
||||
PRTL_HEAP_DEFINITION
|
||||
PROPENUMPROCA
|
||||
PROPENUMPROCEXA
|
||||
PROPENUMPROCEXW
|
||||
PROPENUMPROCW
|
||||
PSECURITY_DESCRIPTOR
|
||||
PSECURITY_DESCRIPTOR_CONTROL
|
||||
PSECURITY_QUALITY_OF_SERVICE
|
||||
PSID
|
||||
PSID *
|
||||
PSID_IDENTIFIER_AUTHORITY
|
||||
PSID_NAME_USE
|
||||
PSTACKFRAME
|
||||
PSTRING
|
||||
PSYMBOL_REGISTERED_CALLBACK
|
||||
PSYM_ENUMMODULES_CALLBACK
|
||||
PSYM_ENUMSYMBOLS_CALLBACK
|
||||
PTIMERAPCROUTINE
|
||||
PTRANSLATE_ADDRESS_ROUTINE
|
||||
PUCHAR
|
||||
PULARGE_INTEGER
|
||||
PULONG
|
||||
PUNICODE_STRING
|
||||
PVOID
|
||||
PVOID *
|
||||
PWAVEFILTER
|
||||
PWAVEFORMATEX
|
||||
PWIN_CERTIFICATE
|
||||
RECT *
|
||||
REFCLSID
|
||||
REFGUID
|
||||
REFIID
|
||||
REGISTERWORDENUMPROCA
|
||||
REGISTERWORDENUMPROCW
|
||||
RGBQUAD *
|
||||
RGNDATA *
|
||||
SAFEARRAY *
|
||||
SAFEARRAY **
|
||||
SAFEARRAYBOUND *
|
||||
SCROLLINFO *
|
||||
SECURITY_ATTRIBUTES *
|
||||
SECURITY_DESCRIPTOR *
|
||||
SECURITY_INFORMATION *
|
||||
SHFILEINFOA *
|
||||
SHFILEINFOW *
|
||||
SNB
|
||||
STGMEDIUM *
|
||||
SYSLEVEL *
|
||||
SYSLEVEL **
|
||||
SYSTEMTIME *
|
||||
TEXTMETRICA *
|
||||
TEXTMETRICW *
|
||||
TIMEFMT_ENUMPROCA
|
||||
TIMEFMT_ENUMPROCW
|
||||
TIMERPROC
|
||||
UINT *
|
||||
ULONG *
|
||||
USHORT *
|
||||
VARIANT *
|
||||
VARIANTARG *
|
||||
VARIANT_BOOL *
|
||||
VOID *
|
||||
VOID **
|
||||
WAVEHDR *
|
||||
WCHAR *
|
||||
WIN32_FIND_DATAA *
|
||||
WIN32_FIND_DATAW *
|
||||
WINDOWPLACEMENT *
|
||||
WNDCLASSA *
|
||||
WNDCLASSEXA *
|
||||
WNDCLASSEXW *
|
||||
WNDCLASSW *
|
||||
WNDENUMPROC
|
||||
WNDPROC
|
||||
WORD *
|
||||
XFORM *
|
||||
YIELDPROC
|
||||
_INITTERMFUN *
|
||||
char *
|
||||
double *
|
||||
jmp_buf
|
||||
short *
|
||||
struct _TEB *
|
||||
struct ThunkDataCommon *
|
||||
struct find_t *
|
||||
struct sockaddr *
|
||||
struct stat *
|
||||
struct timeval *
|
||||
struct win_stat *
|
||||
struct WIN_hostent *
|
||||
struct WIN_protoent *
|
||||
struct WIN_servent *
|
||||
time_t *
|
||||
va_list
|
||||
void *
|
||||
void **
|
||||
ws_fd_set32 *
|
||||
|
||||
%str
|
||||
|
||||
LPCSTR
|
||||
LPSTR
|
||||
OLECHAR *
|
||||
|
||||
%unknown
|
||||
|
||||
new_handler_type
|
||||
sig_handler_type
|
||||
struct in_addr
|
||||
|
||||
%void
|
||||
|
||||
void
|
||||
VOID
|
||||
|
||||
%wstr
|
||||
|
||||
BSTR
|
||||
LPCOLESTR
|
||||
LPCWSTR
|
||||
LPWSTR
|
||||
|
||||
%long # --forbidden
|
||||
|
||||
BOOL16
|
||||
FARPROC16
|
||||
HTASK16
|
||||
HGLOBAL16
|
||||
HINSTANCE16
|
||||
HMMIO16
|
||||
HMODULE16
|
||||
LPOLESTR16
|
||||
UINT16
|
||||
SOCKET16
|
||||
int
|
||||
long
|
||||
short
|
||||
u_long
|
||||
u_short
|
||||
unsigned
|
||||
|
|
@ -0,0 +1,318 @@
|
|||
package winapi;
|
||||
|
||||
use strict;
|
||||
|
||||
sub new {
|
||||
my $proto = shift;
|
||||
my $class = ref($proto) || $proto;
|
||||
my $self = {};
|
||||
bless ($self, $class);
|
||||
|
||||
my $allowed_kind = \%{$self->{ALLOWED_KIND}};
|
||||
my $allowed_modules = \%{$self->{ALLOWED_MODULES}};
|
||||
my $allowed_modules_limited = \%{$self->{ALLOWED_MODULES_LIMITED}};
|
||||
my $translate_argument = \%{$self->{TRANSLATE_ARGUMENT}};
|
||||
|
||||
$self->{NAME} = shift;
|
||||
my $file = shift;
|
||||
|
||||
my @modules;
|
||||
my $kind;
|
||||
my $forbidden = 0;
|
||||
|
||||
open(IN, "< $file") || die "$file: $!\n";
|
||||
$/ = "\n";
|
||||
while(<IN>) {
|
||||
s/^\s*?(.*?)\s*$/$1/; # remove whitespace at begin and end of line
|
||||
s/^(.*?)\s*#.*$/$1/; # remove comments
|
||||
/^$/ && next; # skip empty lines
|
||||
|
||||
if(s/^%(\S+)\s*//) {
|
||||
$kind = $1;
|
||||
@modules = ();
|
||||
$forbidden = 0;
|
||||
|
||||
$$allowed_kind{$kind} = 1;
|
||||
if(/^--module=(\S*)/) {
|
||||
@modules = split(/,/, $1);
|
||||
} elsif(/^--forbidden/) {
|
||||
$forbidden = 1;
|
||||
}
|
||||
} elsif(defined($kind)) {
|
||||
my $type = $_;
|
||||
if(!$forbidden) {
|
||||
for my $module (@modules) {
|
||||
$$allowed_modules_limited{$type} = 1;
|
||||
$$allowed_modules{$type}{$module} = 1;
|
||||
}
|
||||
} else {
|
||||
$$allowed_modules_limited{$type} = 1;
|
||||
}
|
||||
$$translate_argument{$type} = $kind;
|
||||
} else {
|
||||
print "$file: file must begin with %<type> statement\n";
|
||||
exit 1;
|
||||
}
|
||||
}
|
||||
close(IN);
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub get_spec_file_type {
|
||||
my $proto = shift;
|
||||
my $class = ref($proto) || $proto;
|
||||
|
||||
my $file = shift;
|
||||
|
||||
my $type;
|
||||
|
||||
open(IN, "< $file") || die "$file: $!\n";
|
||||
$/ = "\n";
|
||||
while(<IN>) {
|
||||
if(/^type\s*(\w+)/) {
|
||||
$type = $1;
|
||||
last;
|
||||
}
|
||||
}
|
||||
close(IN);
|
||||
|
||||
return $type;
|
||||
}
|
||||
|
||||
sub read_spec_files {
|
||||
my $proto = shift;
|
||||
my $class = ref($proto) || $proto;
|
||||
|
||||
my $win16api = shift;
|
||||
my $win32api = shift;
|
||||
|
||||
foreach my $file (split(/\n/, `find . -name \\*.spec`)) {
|
||||
my $type = 'winapi'->get_spec_file_type($file);
|
||||
if($type eq "win16") {
|
||||
$win16api->parse_spec_file($file);
|
||||
} elsif($type eq "win32") {
|
||||
$win32api->parse_spec_file($file);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
sub parse_spec_file {
|
||||
my $self = shift;
|
||||
my $function_arguments = \%{$self->{FUNCTION_ARGUMENTS}};
|
||||
my $function_calling_convention = \%{$self->{FUNCTION_CALLING_CONVENTION}};
|
||||
my $function_stub = \%{$self->{FUNCTION_STUB}};
|
||||
my $function_module = \%{$self->{FUNCTION_MODULE}};
|
||||
|
||||
my $file = shift;
|
||||
|
||||
my $type;
|
||||
my $module;
|
||||
|
||||
open(IN, "< $file") || die "$file: $!\n";
|
||||
$/ = "\n";
|
||||
my $header = 1;
|
||||
my $lookahead = 0;
|
||||
while($lookahead || defined($_ = <IN>)) {
|
||||
$lookahead = 0;
|
||||
s/^\s*(.*?)\s*$/$1/;
|
||||
s/^(.*?)\s*#.*$/$1/;
|
||||
/^$/ && next;
|
||||
|
||||
if($header) {
|
||||
if(/^name\s*(\S*)/) { $module = $1; }
|
||||
if(/^\d+/) { $header = 0 };
|
||||
next;
|
||||
}
|
||||
|
||||
if(/^\d+\s+(pascal|pascal16|stdcall|cdecl|register|interrupt|varargs)\s+(\S+)\s*\(\s*(.*?)\s*\)\s*(\S+)$/) {
|
||||
my $calling_convention = $1;
|
||||
my $external_name = $2;
|
||||
my $arguments = $3;
|
||||
my $internal_name = $4;
|
||||
|
||||
# FIXME: Internal name existing more than once not handled properly
|
||||
$$function_arguments{$internal_name} = $arguments;
|
||||
$$function_calling_convention{$internal_name} = $calling_convention;
|
||||
$$function_module{$internal_name} = $module;
|
||||
} elsif(/^\d+\s+stub\s+(\S+)$/) {
|
||||
my $external_name = $1;
|
||||
$$function_stub{$external_name} = 1;
|
||||
$$function_module{$external_name} = $module;
|
||||
} elsif(/^\d+\s+(equate|long|word|extern|forward)/) {
|
||||
# ignore
|
||||
} else {
|
||||
my $next_line = <IN>;
|
||||
if($next_line =~ /^\d/) {
|
||||
die "$file: $.: syntax error: '$_'\n";
|
||||
} else {
|
||||
$_ .= $next_line;
|
||||
$lookahead = 1;
|
||||
}
|
||||
}
|
||||
}
|
||||
close(IN);
|
||||
}
|
||||
|
||||
sub name {
|
||||
my $self = shift;
|
||||
return $self->{NAME};
|
||||
}
|
||||
|
||||
sub is_allowed_kind {
|
||||
my $self = shift;
|
||||
my $allowed_kind = \%{$self->{ALLOWED_KIND}};
|
||||
|
||||
my $kind = shift;
|
||||
if(defined($kind)) {
|
||||
return $$allowed_kind{$kind};
|
||||
} else {
|
||||
return 0;
|
||||
}
|
||||
}
|
||||
|
||||
sub allowed_type_in_module {
|
||||
my $self = shift;
|
||||
my $allowed_modules = \%{$self->{ALLOWED_MODULES}};
|
||||
my $allowed_modules_limited = \%{$self->{ALLOWED_MODULES_LIMITED}};
|
||||
|
||||
my $type = shift;
|
||||
my $module = shift;
|
||||
|
||||
return !$$allowed_modules_limited{$type} || $$allowed_modules{$type}{$module};
|
||||
}
|
||||
|
||||
sub translate_argument {
|
||||
my $self = shift;
|
||||
my $translate_argument = \%{$self->{TRANSLATE_ARGUMENT}};
|
||||
|
||||
my $argument = shift;
|
||||
|
||||
return $$translate_argument{$argument};
|
||||
}
|
||||
|
||||
sub all_declared_types {
|
||||
my $self = shift;
|
||||
my $translate_argument = \%{$self->{TRANSLATE_ARGUMENT}};
|
||||
|
||||
return sort(keys(%$translate_argument));
|
||||
}
|
||||
|
||||
sub found_type {
|
||||
my $self = shift;
|
||||
my $type_found = \%{$self->{TYPE_FOUND}};
|
||||
|
||||
my $name = shift;
|
||||
|
||||
$$type_found{$name}++;
|
||||
}
|
||||
|
||||
sub type_found {
|
||||
my $self = shift;
|
||||
my $type_found= \%{$self->{TYPE_FOUND}};
|
||||
|
||||
my $name = shift;
|
||||
|
||||
return $$type_found{$name};
|
||||
}
|
||||
|
||||
sub all_functions {
|
||||
my $self = shift;
|
||||
my $function_calling_convention = \%{$self->{FUNCTION_CALLING_CONVENTION}};
|
||||
|
||||
return sort(keys(%$function_calling_convention));
|
||||
}
|
||||
|
||||
sub all_functions_found {
|
||||
my $self = shift;
|
||||
my $function_found = \$self->{FUNCTION_FOUND};
|
||||
|
||||
return sort(keys(%$function_found));
|
||||
}
|
||||
|
||||
sub function_calling_convention {
|
||||
my $self = shift;
|
||||
my $function_calling_convention = \%{$self->{FUNCTION_CALLING_CONVENTION}};
|
||||
|
||||
my $name = shift;
|
||||
|
||||
return $$function_calling_convention{$name};
|
||||
}
|
||||
|
||||
sub is_function {
|
||||
my $self = shift;
|
||||
my $function_calling_convention = \%{$self->{FUNCTION_CALLING_CONVENTION}};
|
||||
|
||||
my $name = shift;
|
||||
|
||||
return $$function_calling_convention{$name};
|
||||
}
|
||||
|
||||
sub is_shared_function {
|
||||
my $self = shift;
|
||||
my $function_shared = \%{$self->{FUNCTION_SHARED}};
|
||||
|
||||
my $name = shift;
|
||||
|
||||
return $$function_shared{$name};
|
||||
}
|
||||
|
||||
sub found_shared_function {
|
||||
my $self = shift;
|
||||
my $function_shared = \%{$self->{FUNCTION_SHARED}};
|
||||
|
||||
my $name = shift;
|
||||
|
||||
$$function_shared{$name} = 1;
|
||||
}
|
||||
|
||||
sub function_arguments {
|
||||
my $self = shift;
|
||||
my $function_arguments = \%{$self->{FUNCTION_ARGUMENTS}};
|
||||
|
||||
my $name = shift;
|
||||
|
||||
return $$function_arguments{$name};
|
||||
}
|
||||
|
||||
sub function_module {
|
||||
my $self = shift;
|
||||
my $function_module = \%{$self->{FUNCTION_MODULE}};
|
||||
|
||||
my $name = shift;
|
||||
|
||||
if($self->is_function($name)) {
|
||||
return $$function_module{$name};
|
||||
} else {
|
||||
return undef;
|
||||
}
|
||||
}
|
||||
|
||||
sub function_stub {
|
||||
my $self = shift;
|
||||
my $function_stub = \%{$self->{FUNCTION_STUB}};
|
||||
|
||||
my $name = shift;
|
||||
|
||||
return $$function_stub{$name};
|
||||
}
|
||||
|
||||
sub found_function {
|
||||
my $self = shift;
|
||||
my $function_found = \%{$self->{FUNCTION_FOUND}};
|
||||
|
||||
my $name = shift;
|
||||
|
||||
$$function_found{$name}++;
|
||||
}
|
||||
|
||||
sub function_found {
|
||||
my $self = shift;
|
||||
my $function_found = \%{$self->{FUNCTION_FOUND}};
|
||||
|
||||
my $name = shift;
|
||||
|
||||
return $$function_found{$name};
|
||||
}
|
||||
|
||||
1;
|
||||
|
|
@ -0,0 +1,118 @@
|
|||
#!/usr/bin/perl -w
|
||||
|
||||
# Copyright 1999 Patrik Stridvall
|
||||
|
||||
use strict;
|
||||
|
||||
BEGIN {
|
||||
require "tools/winapi_check/winapi.pm";
|
||||
require "tools/winapi_check/nativeapi.pm";
|
||||
require "tools/winapi_check/winapi_local.pm";
|
||||
require "tools/winapi_check/winapi_global.pm";
|
||||
require "tools/winapi_check/winapi_options.pm";
|
||||
require "tools/winapi_check/winapi_parser.pm";
|
||||
|
||||
import winapi;
|
||||
import nativeapi;
|
||||
import winapi_local;
|
||||
import winapi_global;
|
||||
import winapi_options;
|
||||
import winapi_parser;
|
||||
}
|
||||
|
||||
my $options = winapi_options->new(\@ARGV);
|
||||
if($options->help) {
|
||||
$options->show_help;
|
||||
exit;
|
||||
}
|
||||
|
||||
my $win16api = 'winapi'->new("win16", "tools/winapi_check/win16api.dat");
|
||||
my $win32api = 'winapi'->new("win32", "tools/winapi_check/win32api.dat");
|
||||
'winapi'->read_spec_files($win16api, $win32api);
|
||||
|
||||
my $nativeapi = 'nativeapi'->new("tools/winapi_check/nativeapi.dat");
|
||||
|
||||
for my $name ($win32api->all_functions) {
|
||||
my $module16 = $win16api->function_module($name);
|
||||
my $module32 = $win32api->function_module($name);
|
||||
|
||||
if(defined($module16)) {
|
||||
$win16api->found_shared_function($name);
|
||||
$win32api->found_shared_function($name);
|
||||
|
||||
if($options->shared) {
|
||||
print "*.spec: $name: is shared between $module16 (Win16) and $module32 (Win32)\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
foreach my $file ($options->files) {
|
||||
my $found_function = sub {
|
||||
my $return_type = shift;
|
||||
my $calling_convention = shift;
|
||||
my $name = shift;
|
||||
my $refarguments = shift;
|
||||
my @arguments = @$refarguments;
|
||||
|
||||
if($options->global) {
|
||||
$win16api->found_type($return_type) if $options->win16;
|
||||
$win32api->found_type($return_type) if $options->win32;
|
||||
for my $argument (@arguments) {
|
||||
$win16api->found_type($argument) if $options->win16;
|
||||
$win32api->found_type($argument) if $options->win32;
|
||||
}
|
||||
|
||||
$win16api->found_function($name) if $options->win16;
|
||||
$win32api->found_function($name) if $options->win32;
|
||||
}
|
||||
|
||||
if($options->local) {
|
||||
my $module16 = $win16api->function_module($name);
|
||||
my $module32 = $win32api->function_module($name);
|
||||
my $output = sub {
|
||||
my $module = shift;
|
||||
return sub {
|
||||
my $msg = shift;
|
||||
print "$file: $module: $return_type $calling_convention $name(" . join(",", @arguments) . "): $msg\n";
|
||||
}
|
||||
};
|
||||
my $output16 = &$output($module16);
|
||||
my $output32 = &$output($module32);
|
||||
|
||||
if($options->argument) {
|
||||
if($options->win16 && $options->report_module($module16)) {
|
||||
winapi_local::check_arguments $options, $output16,
|
||||
$return_type, $calling_convention, $name, [@arguments], $win16api;
|
||||
}
|
||||
if($options->win32 && $options->report_module($module32)) {
|
||||
winapi_local::check_arguments $options, $output32,
|
||||
$return_type, $calling_convention, $name, [@arguments], $win32api;
|
||||
}
|
||||
}
|
||||
if($options->misplaced) {
|
||||
my $module;
|
||||
if($file =~ m'^dlls/(.*)/') {
|
||||
$module = $1;
|
||||
}
|
||||
|
||||
if($options->win16 && $options->report_module($module16)) {
|
||||
if(!defined($module) || $module ne $module16) {
|
||||
&$output16("function misplaced");
|
||||
}
|
||||
}
|
||||
|
||||
if($options->win32 && $options->report_module($module32)) {
|
||||
if(!defined($module) || $module ne $module32) {
|
||||
&$output32("function misplaced");
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
};
|
||||
winapi_parser::parse_c_file $options, $file, $found_function;
|
||||
}
|
||||
|
||||
if($options->global) {
|
||||
winapi_global::check $options, $win16api, $nativeapi if $options->win16;
|
||||
winapi_global::check $options, $win32api, $nativeapi if $options->win32;
|
||||
}
|
||||
|
|
@ -0,0 +1,41 @@
|
|||
package winapi_global;
|
||||
|
||||
use strict;
|
||||
|
||||
sub check {
|
||||
my $options = shift;
|
||||
my $winapi = shift;
|
||||
my $nativeapi = shift;
|
||||
|
||||
my $winver = $winapi->name;
|
||||
|
||||
if($options->argument) {
|
||||
foreach my $type ($winapi->all_declared_types) {
|
||||
if(!$winapi->type_found($type) && $type ne "CONTEXT86 *") {
|
||||
print "*.c: $winver: $type: ";
|
||||
print "type not used\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if($options->declared) {
|
||||
foreach my $name ($winapi->all_functions) {
|
||||
if(!$winapi->function_found($name) && !$nativeapi->is_function($name)) {
|
||||
print "*.c: $winver: $name: ";
|
||||
print "function declared but not implemented: " . $winapi->function_arguments($name) . "\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if($options->implemented) {
|
||||
foreach my $name ($winapi->all_functions_found) {
|
||||
if($winapi->function_stub($name)) {
|
||||
print "*.c: $winver: $name: ";
|
||||
print "function implemented but not declared\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
|
|
@ -0,0 +1,136 @@
|
|||
package winapi_local;
|
||||
|
||||
use strict;
|
||||
|
||||
sub check_arguments {
|
||||
my $options = shift;
|
||||
my $output = shift;
|
||||
my $return_type = shift;
|
||||
my $calling_convention = shift;
|
||||
my $name = shift;
|
||||
my $refargument_types = shift;
|
||||
my @argument_types = @$refargument_types;
|
||||
my $winapi = shift;
|
||||
|
||||
my $module = $winapi->function_module($name);
|
||||
|
||||
my $forbidden_return_type = 0;
|
||||
my $implemented_return_kind;
|
||||
if(!defined($implemented_return_kind = $winapi->translate_argument($return_type))) {
|
||||
if($return_type ne "") {
|
||||
&$output("no translation defined: " . $return_type);
|
||||
}
|
||||
} elsif(!$winapi->is_allowed_kind($implemented_return_kind) || !$winapi->allowed_type_in_module($return_type,$module)) {
|
||||
$forbidden_return_type = 1;
|
||||
if($options->report_argument_forbidden($return_type)) {
|
||||
&$output("forbidden return type: $return_type ($implemented_return_kind)");
|
||||
}
|
||||
}
|
||||
|
||||
my $segmented = 0;
|
||||
if($implemented_return_kind =~ /^segptr|segstr$/) {
|
||||
$segmented = 1;
|
||||
}
|
||||
|
||||
my $implemented_calling_convention;
|
||||
if($winapi->name eq "win16") {
|
||||
if($calling_convention =~ /^__cdecl$/) {
|
||||
$implemented_calling_convention = "cdecl";
|
||||
} elsif($calling_convention = ~ /^__stdcall|VFWAPI|WINAPI$/) {
|
||||
if($implemented_return_kind =~ /^s_word|word|void$/) {
|
||||
$implemented_calling_convention = "pascal16";
|
||||
} else {
|
||||
$implemented_calling_convention = "pascal";
|
||||
}
|
||||
}
|
||||
} elsif($winapi->name eq "win32") {
|
||||
if($calling_convention =~ /^__cdecl$/) {
|
||||
$implemented_calling_convention = "cdecl";
|
||||
} elsif($calling_convention =~ /^VFWAPIV|WINAPIV$/) {
|
||||
$implemented_calling_convention = "varargs";
|
||||
} elsif($calling_convention = ~ /^__stdcall|VFWAPI|WINAPI$/) {
|
||||
$implemented_calling_convention = "stdcall";
|
||||
}
|
||||
}
|
||||
|
||||
my $declared_calling_convention = $winapi->function_calling_convention($name);
|
||||
my @declared_argument_kinds = split(/\s+/, $winapi->function_arguments($name));
|
||||
|
||||
if($declared_calling_convention =~ /^register|interrupt$/) {
|
||||
push @declared_argument_kinds, "ptr";
|
||||
}
|
||||
|
||||
if($declared_calling_convention =~ /^register|interupt$/ &&
|
||||
(($winapi->name eq "win32" && $implemented_calling_convention eq "stdcall") ||
|
||||
(($winapi->name eq "win16" && $implemented_calling_convention =~ /^pascal/))))
|
||||
{
|
||||
# correct
|
||||
} elsif($implemented_calling_convention ne $declared_calling_convention &&
|
||||
!($declared_calling_convention =~ /^pascal/ && $forbidden_return_type))
|
||||
{
|
||||
if($options->calling_convention) {
|
||||
&$output("calling convention mismatch: $implemented_calling_convention != $declared_calling_convention");
|
||||
}
|
||||
}
|
||||
|
||||
if($declared_calling_convention eq "varargs") {
|
||||
if($#argument_types != -1 && $argument_types[$#argument_types] eq "...") {
|
||||
pop @argument_types;
|
||||
} else {
|
||||
&$output("function not implemented as vararg");
|
||||
}
|
||||
} elsif($#argument_types != -1 && $argument_types[$#argument_types] eq "...") {
|
||||
&$output("function not declared as vararg");
|
||||
}
|
||||
|
||||
if($name =~ /^CRTDLL__ftol|CRTDLL__CIpow$/) {
|
||||
# ignore
|
||||
} elsif($#argument_types != $#declared_argument_kinds) {
|
||||
if($options->argument_count) {
|
||||
&$output("argument count differs: " . ($#argument_types + 1) . " != " . ($#declared_argument_kinds + 1));
|
||||
}
|
||||
} else {
|
||||
my $n = 0;
|
||||
my @argument_kinds = map {
|
||||
my $type = $_;
|
||||
my $kind = "unknown";
|
||||
if(!defined($kind = $winapi->translate_argument($type))) {
|
||||
&$output("no translation defined: " . $type);
|
||||
} elsif(!$winapi->is_allowed_kind($kind) ||
|
||||
!$winapi->allowed_type_in_module($type, $module)) {
|
||||
if($options->report_argument_forbidden($type)) {
|
||||
&$output("forbidden argument " . ($n + 1) . " type (" . $type . ")");
|
||||
}
|
||||
}
|
||||
$n++;
|
||||
$kind;
|
||||
} @argument_types;
|
||||
|
||||
for my $n (0..$#argument_kinds) {
|
||||
if(!defined($argument_kinds[$n]) || !defined($declared_argument_kinds[$n])) { next; }
|
||||
|
||||
if($argument_kinds[$n] =~ /^segptr|segstr$/ ||
|
||||
$declared_argument_kinds[$n] =~ /^segptr|segstr$/)
|
||||
{
|
||||
$segmented = 1;
|
||||
}
|
||||
|
||||
if($argument_kinds[$n] ne $declared_argument_kinds[$n]) {
|
||||
if($options->report_argument_kind($argument_kinds[$n]) ||
|
||||
$options->report_argument_kind($declared_argument_kinds[$n]))
|
||||
{
|
||||
&$output("argument " . ($n + 1) . " type mismatch: " .
|
||||
$argument_types[$n] . " ($argument_kinds[$n]) != " . $declared_argument_kinds[$n]);
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
if($segmented && $options->shared_segmented && $winapi->is_shared_function($name)) {
|
||||
&$output("function using segmented pointers shared between Win16 och Win32");
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
|
|
@ -0,0 +1,272 @@
|
|||
package winapi_options;
|
||||
|
||||
use strict;
|
||||
|
||||
|
||||
sub parser_comma_list {
|
||||
my $prefix = shift;
|
||||
my $value = shift;
|
||||
if(defined($prefix) && $prefix eq "no") {
|
||||
return { active => 0, filter => 0, hash => {} };
|
||||
} elsif(defined($value)) {
|
||||
my %names;
|
||||
for my $name (split /,/, $value) {
|
||||
$names{$name} = 1;
|
||||
}
|
||||
return { active => 1, filter => 1, hash => \%names };
|
||||
} else {
|
||||
return { active => 1, filter => 0, hash => {} };
|
||||
}
|
||||
}
|
||||
|
||||
my %options = (
|
||||
"debug" => { default => 0, description => "debug mode" },
|
||||
"help" => { default => 0, description => "help mode" },
|
||||
"verbose" => { default => 0, description => "verbose mode" },
|
||||
|
||||
"win16" => { default => 1, description => "Win16 checking" },
|
||||
"win32" => { default => 1, description => "Win32 checking" },
|
||||
|
||||
"shared" => { default => 0, description => "show shared functions between Win16 and Win32" },
|
||||
"shared-segmented" => { default => 0, description => "segmented shared functions between Win16 and Win32 checking" },
|
||||
|
||||
"local" => { default => 1, description => "local checking" },
|
||||
"module" => {
|
||||
default => { active => 1, filter => 0, hash => {} },
|
||||
parent => "local",
|
||||
parser => \&parser_comma_list,
|
||||
description => "module filter"
|
||||
},
|
||||
|
||||
"argument" => { default => 1, parent => "local", description => "argument checking" },
|
||||
"argument-count" => { default => 1, parent => "argument", description => "argument count checking" },
|
||||
"argument-forbidden" => {
|
||||
default => { active => 0, filter => 0, hash => {} },
|
||||
parent => "argument",
|
||||
parser => \&parser_comma_list,
|
||||
description => "argument forbidden checking"
|
||||
},
|
||||
"argument-kind" => {
|
||||
default => { active => 0, filter => 0, hash => {} },
|
||||
parent => "argument",
|
||||
parser => \&parser_comma_list,
|
||||
description => "argument kind checking"
|
||||
},
|
||||
"calling-convention" => { default => 0, parent => "local", description => "calling convention checking" },
|
||||
"misplaced" => { default => 0, parent => "local", description => "checking for misplaced functions" },
|
||||
|
||||
"global" => { default => 1, description => "global checking" },
|
||||
"declared" => { default => 1, parent => "global", description => "declared checking" },
|
||||
"implemented" => { default => 0, parent => "global", description => "implemented checking" }
|
||||
|
||||
);
|
||||
|
||||
my %short_options = (
|
||||
"d" => "debug",
|
||||
"?" => "help",
|
||||
"v" => "verbose"
|
||||
);
|
||||
|
||||
sub new {
|
||||
my $proto = shift;
|
||||
my $class = ref($proto) || $proto;
|
||||
my $self = {};
|
||||
bless ($self, $class);
|
||||
|
||||
my $refarguments = shift;
|
||||
my @ARGV = @$refarguments;
|
||||
|
||||
for my $name (sort(keys(%options))) {
|
||||
my $option = $options{$name};
|
||||
my $key = uc($name);
|
||||
$key =~ tr/-/_/;
|
||||
$$option{key} = $key;
|
||||
my $refvalue = \${$self->{$key}};
|
||||
$$refvalue = $$option{default};
|
||||
}
|
||||
|
||||
my $files = \@{$self->{FILES}};
|
||||
my $module = \${$self->{MODULE}};
|
||||
my $global = \${$self->{GLOBAL}};
|
||||
|
||||
while(defined($_ = shift @ARGV)) {
|
||||
if(/^-([^=]*)(=(.*))?$/) {
|
||||
my $name;
|
||||
my $value;
|
||||
if(defined($2)) {
|
||||
$name = $1;
|
||||
$value = $3;
|
||||
} else {
|
||||
$name = $1;
|
||||
}
|
||||
|
||||
if($name =~ /^([^-].*)$/) {
|
||||
$name = $short_options{$1};
|
||||
} else {
|
||||
$name =~ s/^-(.*)$/$1/;
|
||||
}
|
||||
|
||||
my $prefix;
|
||||
if($name =~ /^no-(.*)$/) {
|
||||
$name = $1;
|
||||
$prefix = "no";
|
||||
if(defined($value)) {
|
||||
print STDERR "<internal>: options with prefix 'no' can't take parameters\n";
|
||||
exit 1;
|
||||
}
|
||||
}
|
||||
|
||||
my $option = $options{$name};
|
||||
if(defined($option)) {
|
||||
my $key = $$option{key};
|
||||
my $parser = $$option{parser};
|
||||
my $refvalue = \${$self->{$key}};
|
||||
|
||||
if(defined($parser)) {
|
||||
$$refvalue = &$parser($prefix,$value);
|
||||
} else {
|
||||
if(defined($value)) {
|
||||
$$refvalue = $value;
|
||||
} elsif(!defined($prefix)) {
|
||||
$$refvalue = 1;
|
||||
} else {
|
||||
$$refvalue = 0;
|
||||
}
|
||||
}
|
||||
next;
|
||||
}
|
||||
}
|
||||
|
||||
if(/^--module-dlls$/) {
|
||||
my @dirs = `cd dlls && find ./ -type d ! -name CVS`;
|
||||
my %names;
|
||||
for my $dir (@dirs) {
|
||||
chomp $dir;
|
||||
$dir =~ s/^\.\/(.*)$/$1/;
|
||||
next if $dir eq "";
|
||||
$names{$dir} = 1;
|
||||
}
|
||||
$$module = { active => 1, filter => 1, hash => \%names };
|
||||
}
|
||||
elsif(/^-(.*)$/) {
|
||||
print STDERR "<internal>: unknown option: $&\n";
|
||||
print STDERR "<internal>: usage: winapi-check [--help] [<files>]\n";
|
||||
exit 1;
|
||||
} else {
|
||||
push @$files, $_;
|
||||
}
|
||||
}
|
||||
|
||||
if($#$files == -1) {
|
||||
@$files = map {
|
||||
s/^.\/(.*)$/$1/;
|
||||
$_;
|
||||
} split(/\n/, `find . -name \\*.c`);
|
||||
} else {
|
||||
$$global = 0
|
||||
}
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub show_help {
|
||||
my $self = shift;
|
||||
|
||||
my $maxname = 0;
|
||||
for my $name (sort(keys(%options))) {
|
||||
if(length($name) > $maxname) {
|
||||
$maxname = length($name);
|
||||
}
|
||||
}
|
||||
|
||||
print "usage: winapi-check [--help] [<files>]\n";
|
||||
print "\n";
|
||||
for my $name (sort(keys(%options))) {
|
||||
my $option = $options{$name};
|
||||
my $description = $$option{description};
|
||||
my $default = $$option{default};
|
||||
|
||||
my $output;
|
||||
if(ref($default) ne "HASH") {
|
||||
if($default) {
|
||||
$output = "--no-$name";
|
||||
} else {
|
||||
$output = "--$name";
|
||||
}
|
||||
} else {
|
||||
if($default->{active}) {
|
||||
$output = "--[no-]$name\[=<value>]";
|
||||
} else {
|
||||
$output = "--$name\[=<value>]";
|
||||
}
|
||||
}
|
||||
|
||||
print "$output";
|
||||
for (0..(($maxname - length($name) + 14) - (length($output) - length($name) + 1))) { print " "; }
|
||||
if(ref($default) ne "HASH") {
|
||||
if($default) {
|
||||
print "Disable $description\n";
|
||||
} else {
|
||||
print "Enable $description\n";
|
||||
}
|
||||
} else {
|
||||
if($default->{active}) {
|
||||
print "(Disable) $description\n";
|
||||
} else {
|
||||
print "Enable $description\n";
|
||||
}
|
||||
|
||||
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
sub AUTOLOAD {
|
||||
my $self = shift;
|
||||
|
||||
my $name = $winapi_options::AUTOLOAD;
|
||||
$name =~ s/^.*::(.[^:]*)$/\U$1/;
|
||||
|
||||
my $refvalue = $self->{$name};
|
||||
if(!defined($refvalue)) {
|
||||
die "<internal>: winapi_options.pm: member $name does not exists\n";
|
||||
}
|
||||
return $$refvalue;
|
||||
}
|
||||
|
||||
sub files { my $self = shift; return @{$self->{FILES}}; }
|
||||
|
||||
sub report_module {
|
||||
my $self = shift;
|
||||
my $module = $self->module;
|
||||
|
||||
my $name = shift;
|
||||
|
||||
if(defined($name)) {
|
||||
return $module->{active} && (!$module->{filter} || $module->{hash}->{$name});
|
||||
} else {
|
||||
return 0;
|
||||
}
|
||||
}
|
||||
|
||||
sub report_argument_forbidden {
|
||||
my $self = shift;
|
||||
my $argument_forbidden = $self->argument_forbidden;
|
||||
|
||||
my $type = shift;
|
||||
|
||||
return $argument_forbidden->{active} && (!$argument_forbidden->{filter} || $argument_forbidden->{hash}->{$type});
|
||||
}
|
||||
|
||||
sub report_argument_kind {
|
||||
my $self = shift;
|
||||
my $argument_kind = $self->argument_kind;
|
||||
|
||||
my $kind = shift;
|
||||
|
||||
return $argument_kind->{active} && (!$argument_kind->{filter} || $argument_kind->{hash}->{$kind});
|
||||
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
|
|
@ -0,0 +1,161 @@
|
|||
package winapi_parser;
|
||||
|
||||
use strict;
|
||||
|
||||
sub parse_c_file {
|
||||
my $options = shift;
|
||||
my $file = shift;
|
||||
my $function_found_callback = shift;
|
||||
|
||||
my $level = 0;
|
||||
my $again = 0;
|
||||
my $lookahead = 0;
|
||||
my $lookahead_count = 0;
|
||||
|
||||
print STDERR "Processing file '$file' ... " if $options->verbose;
|
||||
open(IN, "< $file") || die "<internal>: $file: $!\n";
|
||||
$/ = "\n";
|
||||
while($again || defined(my $line = <IN>)) {
|
||||
if(!$again) {
|
||||
chomp $line;
|
||||
|
||||
if($lookahead) {
|
||||
$lookahead = 0;
|
||||
$_ .= "\n" . $line;
|
||||
} else {
|
||||
$_ = $line;
|
||||
$lookahead_count = 0;
|
||||
}
|
||||
$lookahead_count++;
|
||||
print "$level: $line\n" if $options->debug >= 2;
|
||||
} else {
|
||||
$lookahead_count = 0;
|
||||
$again = 0;
|
||||
}
|
||||
|
||||
# remove comments
|
||||
if(s/^(.*?)\/\*.*?\*\/(.*)$/$1 $2/s) { $again = 1; next };
|
||||
if(/^(.*?)\/\*/s) {
|
||||
$lookahead = 1;
|
||||
next;
|
||||
}
|
||||
|
||||
# remove empty rows
|
||||
if(/^\s*$/) { next; }
|
||||
|
||||
# remove preprocessor directives
|
||||
if(s/^\s*\#.*$//m) { $again = 1; next; }
|
||||
|
||||
if($level > 0)
|
||||
{
|
||||
s/^[^\{\}]*//s;
|
||||
if(/^\{/) {
|
||||
$_ = $'; $again = 1;
|
||||
print "+1: $_\n" if $options->debug >= 2;
|
||||
$level++;
|
||||
} elsif(/^\}/) {
|
||||
$_ = $'; $again = 1;
|
||||
print "-1: $_\n" if $options->debug >= 2;
|
||||
$level--;
|
||||
}
|
||||
next;
|
||||
} elsif(/((struct\s+|union\s+|enum\s+)?\w+((\s*\*)+\s*|\s+))(__cdecl|__stdcall|VFWAPIV|VFWAPI|WINAPIV|WINAPI)\s+(\w+(\(\w+\))?)\s*\(([^\)]*)\)\s*(\{|\;)/s) {
|
||||
$_ = $'; $again = 1;
|
||||
|
||||
if($9 eq ";") {
|
||||
next;
|
||||
} elsif($9 eq "{") {
|
||||
$level++;
|
||||
}
|
||||
|
||||
my $return_type = $1;
|
||||
my $calling_convention = $5;
|
||||
my $name = $6;
|
||||
my $arguments = $8;
|
||||
|
||||
$return_type =~ s/\s*$//;
|
||||
$return_type =~ s/\s*\*\s*/*/g;
|
||||
$return_type =~ s/(\*+)/ $1/g;
|
||||
|
||||
$name =~ s/^REGS_FUNC\((.*?)\)/$1/;
|
||||
|
||||
$arguments =~ y/\t\n/ /;
|
||||
$arguments =~ s/^\s*(.*?)\s*$/$1/;
|
||||
if($arguments eq "") { $arguments = "void" }
|
||||
|
||||
my @arguments = split(/,/, $arguments);
|
||||
foreach my $n (0..$#arguments) {
|
||||
my $argument = $arguments[$n];
|
||||
$argument =~ s/^\s*(.*?)\s*$/$1/;
|
||||
#print " " . ($n + 1) . ": '$argument'\n";
|
||||
$argument =~ s/^(const(?=\s)|IN(?=\s)|OUT(?=\s)|(\s*))\s*//;
|
||||
if($argument =~ /^...$/) {
|
||||
$argument = "...";
|
||||
} elsif($argument =~ /^((struct\s+|union\s+|enum\s+)?\w+)\s*((\*\s*?)*)\s*/) {
|
||||
$argument = "$1";
|
||||
if($3 ne "") {
|
||||
$argument .= " $3";
|
||||
}
|
||||
} else {
|
||||
die "$file: $.: syntax error: '$argument'\n";
|
||||
}
|
||||
$arguments[$n] = $argument;
|
||||
#print " " . ($n + 1) . ": '" . $arguments[$n] . "'\n";
|
||||
}
|
||||
if($#arguments == 0 && $arguments[0] =~ /^void$/i) { $#arguments = -1; }
|
||||
|
||||
if($options->debug) {
|
||||
print "$file: $return_type $calling_convention $name(" . join(",", @arguments) . ")\n";
|
||||
}
|
||||
&$function_found_callback($return_type,$calling_convention,$name,\@arguments);
|
||||
|
||||
} elsif(/DC_(GET_X_Y|GET_VAL_16)\s*\(\s*(.*?)\s*,\s*(.*?)\s*,\s*(.*?)\s*\)/s) {
|
||||
$_ = $'; $again = 1;
|
||||
my @arguments = ("HDC16");
|
||||
&$function_found_callback($2, "WINAPI", $3, \@arguments);
|
||||
} elsif(/DC_(GET_VAL_32)\s*\(\s*(.*?)\s*,\s*(.*?)\s*,.*?\)/s) {
|
||||
$_ = $'; $again = 1;
|
||||
my @arguments = ("HDC");
|
||||
&$function_found_callback($2, "WINAPI", $3, \@arguments);
|
||||
} elsif(/DC_(GET_VAL_EX)\s*\(\s*(.*?)\s*,\s*(.*?)\s*,\s*(.*?)\s*,\s*(.*?)\s*\)/s) {
|
||||
$_ = $'; $again = 1;
|
||||
my @arguments16 = ("HDC16", "LP" . $5 . "16");
|
||||
my @arguments32 = ("HDC", "LP" . $5);
|
||||
&$function_found_callback("BOOL16", "WINAPI", $2 . "16", \@arguments16);
|
||||
&$function_found_callback("BOOL", "WINAPI", $2, \@arguments32);
|
||||
} elsif(/DC_(SET_MODE)\s*\(\s*(.*?)\s*,\s*(.*?)\s*,\s*(.*?)\s*,\s*(.*?)\s*\)/s) {
|
||||
$_ = $'; $again = 1;
|
||||
my @arguments16 = ("HDC16", "INT16");
|
||||
my @arguments32 = ("HDC", "INT");
|
||||
&$function_found_callback("INT16", "WINAPI", $2 . "16", \@arguments16);
|
||||
&$function_found_callback("INT", "WINAPI", $2, \@arguments32);
|
||||
} elsif(/WAVEOUT_SHORTCUT_(1|2)\s*\(\s*(.*?)\s*,\s*(.*?)\s*,\s*(.*?)\s*\)/s) {
|
||||
$_ = $'; $again = 1;
|
||||
print "$_";
|
||||
if($1 eq "1") {
|
||||
my @arguments16 = ("HWAVEOUT16", $4);
|
||||
my @arguments32 = ("HWAVEOUT", $4);
|
||||
&$function_found_callback("UINT16", "WINAPI", "waveOut" . $2 . "16", \@arguments16);
|
||||
&$function_found_callback("UINT", "WINAPI", "waveOut" . $2, \@arguments32);
|
||||
} elsif($1 eq 2) {
|
||||
my @arguments16 = ("UINT16", $4);
|
||||
my @arguments32 = ("UINT", $4);
|
||||
&$function_found_callback("UINT16", "WINAPI", "waveOut". $2 . "16", \@arguments16);
|
||||
&$function_found_callback("UINT", "WINAPI", "waveOut" . $2, \@arguments32)
|
||||
}
|
||||
} elsif(/;/s) {
|
||||
$_ = $'; $again = 1;
|
||||
} elsif(/\{/s) {
|
||||
$_ = $'; $again = 1;
|
||||
print "+1: $_\n" if $options->debug >= 2;
|
||||
$level++;
|
||||
} else {
|
||||
$lookahead = 1;
|
||||
}
|
||||
}
|
||||
close(IN);
|
||||
print STDERR "done\n" if $options->verbose;
|
||||
print "$file: <>: not at toplevel at end of file\n" unless $level == 0;
|
||||
}
|
||||
|
||||
1;
|
||||
Loading…
Reference in New Issue