Ros-diffs November 2008

ros-diffs@reactos.org

28 participants
657 discussions

[cgutman] 37321: - Update adns to the latest version
by cgutman＠svn.reactos.org 12 Nov '08

12 Nov '08

Author: cgutman Date: Wed Nov 12 16:06:44 2008 New Revision: 37321 URL: http://svn.reactos.org/svn/reactos?rev=37321&view=rev Log: - Update adns to the latest version Modified: branches/aicom-network-fixes/lib/3rdparty/adns/adns_win32/README.TXT branches/aicom-network-fixes/lib/3rdparty/adns/adns_win32/adns_unix_calls.c branches/aicom-network-fixes/lib/3rdparty/adns/adns_win32/adns_win32.h branches/aicom-network-fixes/lib/3rdparty/adns/client/adh-main.c branches/aicom-network-fixes/lib/3rdparty/adns/client/adnslogres.c branches/aicom-network-fixes/lib/3rdparty/adns/client/fanftest.c branches/aicom-network-fixes/lib/3rdparty/adns/src/adns.h branches/aicom-network-fixes/lib/3rdparty/adns/src/check.c branches/aicom-network-fixes/lib/3rdparty/adns/src/event.c branches/aicom-network-fixes/lib/3rdparty/adns/src/general.c branches/aicom-network-fixes/lib/3rdparty/adns/src/internal.h branches/aicom-network-fixes/lib/3rdparty/adns/src/parse.c branches/aicom-network-fixes/lib/3rdparty/adns/src/setup.c branches/aicom-network-fixes/lib/3rdparty/adns/src/transmit.c Modified: branches/aicom-network-fixes/lib/3rdparty/adns/adns_win32/README.TXT URL: http://svn.reactos.org/svn/reactos/branches/aicom-network-fixes/lib/3rdpart… ============================================================================== --- branches/aicom-network-fixes/lib/3rdparty/adns/adns_win32/README.TXT [iso-8859-1] (original) +++ branches/aicom-network-fixes/lib/3rdparty/adns/adns_win32/README.TXT [iso-8859-1] Wed Nov 12 16:06:44 2008 @@ -5,9 +5,9 @@ port provides a 100% native Windows DLL and linker library for the DLL - suitable for traditional compilers and linkers under Windows. The library itself is ported to -Microsot Visual C++ 6.0 SP 2. +Microsot Visual C++ 6.0. -The library is tested under Windows 2000, but should work +The library is tested under Windows 2000 and XP, but should work with all versions from Windows NT 4 and up, and Windows98 and up. Windows95 is not supported. @@ -37,3 +37,32 @@ For more information about this port, see http://adns.jgaa.com +/////////////////////////////////////////////////////// + +October 13th 2005 jgaa: adns-1.0-win32-05 + - Fixed a problem with the return-value from adns_inet_aton() + Thanks to Gerald Combs for reporting the problem. + +October 7th 2004 jgaa: adns-1.0-win32-03 + + - Fixed a problem with error-messages when the program + works off-line. + Thanks to Ulf Lamping for pointing ourt and solving the problem. + + +April 4th 2004 jgaa: adns-1.0-win32-03 + + - Fixed broken gettimeofday() function. + + - Fixed problem with TCP connections, where the librarry + failed to connect to DNS servers with TCP, and flooded + the servers with TCP connection attempts. + + - Made sure that errno was handled corrcetly after all network + (winsock) calls. + + - Fixed a few places where noblocking calls were not handled + EAGAIN and EWOULDBLOCK is not the same under Windows. + + + Modified: branches/aicom-network-fixes/lib/3rdparty/adns/adns_win32/adns_unix_calls.c URL: http://svn.reactos.org/svn/reactos/branches/aicom-network-fixes/lib/3rdpart… ============================================================================== --- branches/aicom-network-fixes/lib/3rdparty/adns/adns_win32/adns_unix_calls.c [iso-8859-1] (original) +++ branches/aicom-network-fixes/lib/3rdparty/adns/adns_win32/adns_unix_calls.c [iso-8859-1] Wed Nov 12 16:06:44 2008 @@ -1,3 +1,4 @@ + /* * adns_unix_calls.c * - Simple implementation of requiered UNIX system calls and @@ -29,20 +30,20 @@ #include "adns.h" -int adns_writev(SOCKET FileDescriptor, const struct iovec * iov, int iovCount) +int adns_writev(int FileDescriptor, const struct iovec * iov, int iovCount) { - int total_len = 0; + size_t total_len = 0; int i = 0, r = 0; char *buf = NULL, *p = NULL; for(; i < iovCount; i++) total_len += iov[i].iov_len; - p = buf = (char *)alloca( (size_t) total_len); + p = buf = (char *)alloca(total_len); for(; i < iovCount; i++) { - memcpy(p, iov[i].iov_base, (size_t) iov[i].iov_len); + memcpy(p, iov[i].iov_base, iov[i].iov_len); p += iov[i].iov_len; } @@ -54,8 +55,21 @@ int adns_inet_aton(const char *cp, struct in_addr *inp) { + if (!cp || !*cp || !inp) + { + errno = EINVAL; + return -1; + } + + if (!strcmp(cp, "255.255.255.255")) + { + // Special case + inp->s_addr = INADDR_NONE; + return 0; + } + inp->s_addr = inet_addr(cp); - return inp->s_addr != INADDR_ANY; + return (inp->s_addr == INADDR_NONE) ? -1 : 0; } int adns_getpid() @@ -63,35 +77,30 @@ return GetCurrentProcessId(); } -/* ReactOS: Fixed gettimeofday implementation. Was wrong by a factor of - * 10 */ int gettimeofday(struct timeval *tv, struct timezone *tz) { - static __int64 Adjustment; - __int64 Now = 0; + static __int64 Adjustment; + __int64 now = 0; + + if (!Adjustment) + { + SYSTEMTIME st = {1970,1,0,1,0,0,0}; + SystemTimeToFileTime(&st, (LPFILETIME)&Adjustment); + } + + if (tz) + { + errno = EINVAL; + return -1; + } + + GetSystemTimeAsFileTime((LPFILETIME)&now); + now -= Adjustment; + + tv->tv_sec = (long)(now / 10000000); + tv->tv_usec = (long)((now % 10000000) / 10); - - if (!Adjustment) - { - SYSTEMTIME st = {1970,1,3,0,0,0,0}; - - SystemTimeToFileTime(&st, ((LPFILETIME)(VOID *)&Adjustment)); - } - - if (tz) - { - return -1; - } - - GetSystemTimeAsFileTime(((LPFILETIME)(VOID *)&Now)); - Now -= Adjustment; - - /* 100 ns - .1 us - 10 * 1000000 */ - tv->tv_sec = (long)(Now / 10000000); - tv->tv_usec = (long)((Now / 10) % 1000000); - return 0; + return 0; } /* Memory allocated in the DLL must be freed in the dll, so Modified: branches/aicom-network-fixes/lib/3rdparty/adns/adns_win32/adns_win32.h URL: http://svn.reactos.org/svn/reactos/branches/aicom-network-fixes/lib/3rdpart… ============================================================================== --- branches/aicom-network-fixes/lib/3rdparty/adns/adns_win32/adns_win32.h [iso-8859-1] (original) +++ branches/aicom-network-fixes/lib/3rdparty/adns/adns_win32/adns_win32.h [iso-8859-1] Wed Nov 12 16:06:44 2008 @@ -105,6 +105,8 @@ #define EINPROGRESS WSAEINPROGRESS #define EMSGSIZE WSAEMSGSIZE #define ENOPROTOOPT WSAENOPROTOOPT +#define ECONNRESET WSAECONNRESET + //#define NONRETURNING //#define NONRETURNPRINTFFORMAT(si,tc) @@ -129,9 +131,9 @@ * Undef ADNS_MAP_UNIXAPI in the calling code to use natve calls */ ADNS_API int adns_gettimeofday(struct timeval *tv, struct timezone *tz); -ADNS_API int adns_writev (SOCKET FileDescriptor, const struct iovec * iov, int iovCount); +ADNS_API int adns_writev (int FileDescriptor, const struct iovec * iov, int iovCount); ADNS_API int adns_inet_aton(const char *cp, struct in_addr *inp); -ADNS_API int adns_getpid(void); +ADNS_API int adns_getpid(); #ifdef ADNS_DLL ADNS_API void *adns_malloc(const size_t bytes); @@ -155,7 +157,5 @@ } #endif /* __cplusplus */ -#include "timercmp.h" /* arty added: mingw headers don't seem to have it */ - #endif /* ADNS_WIN32_H_INCLUDED */ Modified: branches/aicom-network-fixes/lib/3rdparty/adns/client/adh-main.c URL: http://svn.reactos.org/svn/reactos/branches/aicom-network-fixes/lib/3rdpart… ============================================================================== --- branches/aicom-network-fixes/lib/3rdparty/adns/client/adh-main.c [iso-8859-1] (original) +++ branches/aicom-network-fixes/lib/3rdparty/adns/client/adh-main.c [iso-8859-1] Wed Nov 12 16:06:44 2008 @@ -240,7 +240,7 @@ for (;;) { qu= ov_asynch ? 0 : outstanding.head ? outstanding.head->qu : 0; r= adns_check(ads,&qu,&answer,&qun_v); - if (r == EAGAIN) break; + if ((r == EAGAIN) || (r == EWOULDBLOCK)) break; if (r == ESRCH) { if (!ov_pipe) goto x_quit; else break; } assert(!r); query_done(qun_v,answer); @@ -259,7 +259,6 @@ r= select(maxfd, &readfds,&writefds,&exceptfds, tv); ADNS_CAPTURE_ERRNO; if (r == -1) { - ADNS_CAPTURE_ERRNO; if (errno == EINTR) continue; sysfail("select",errno); } Modified: branches/aicom-network-fixes/lib/3rdparty/adns/client/adnslogres.c URL: http://svn.reactos.org/svn/reactos/branches/aicom-network-fixes/lib/3rdpart… ============================================================================== --- branches/aicom-network-fixes/lib/3rdparty/adns/client/adnslogres.c [iso-8859-1] (original) +++ branches/aicom-network-fixes/lib/3rdparty/adns/client/adnslogres.c [iso-8859-1] Wed Nov 12 16:06:44 2008 @@ -29,9 +29,6 @@ * modified by Ian Jackson as it was incorporated into adns and * subsequently. */ - -static const char * const cvsid = - "$Id$"; #ifdef ADNS_JGAA_WIN32 # include "adns_win32.h" @@ -202,7 +199,7 @@ } else { err= adns_check(adns, &head->query, &answer, NULL); } - if (err == EAGAIN) break; + if ((err == EAGAIN) || (EWOULDBLOCK == err)) break; if (err) { fprintf(stderr, "%s: adns_wait/check: %s", progname, strerror(err)); exit(1); Modified: branches/aicom-network-fixes/lib/3rdparty/adns/client/fanftest.c URL: http://svn.reactos.org/svn/reactos/branches/aicom-network-fixes/lib/3rdpart… ============================================================================== --- branches/aicom-network-fixes/lib/3rdparty/adns/client/fanftest.c [iso-8859-1] (original) +++ branches/aicom-network-fixes/lib/3rdparty/adns/client/fanftest.c [iso-8859-1] Wed Nov 12 16:06:44 2008 @@ -28,9 +28,6 @@ * This version was originally supplied by Tony Finch, but has been * modified by Ian Jackson as it was incorporated into adns. */ - -static const char * const cvsid = - "$Id$"; #ifdef ADNS_JGAA_WIN32 # include "adns_win32.h" Modified: branches/aicom-network-fixes/lib/3rdparty/adns/src/adns.h URL: http://svn.reactos.org/svn/reactos/branches/aicom-network-fixes/lib/3rdpart… ============================================================================== --- branches/aicom-network-fixes/lib/3rdparty/adns/src/adns.h [iso-8859-1] (original) +++ branches/aicom-network-fixes/lib/3rdparty/adns/src/adns.h [iso-8859-1] Wed Nov 12 16:06:44 2008 @@ -51,7 +51,6 @@ * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. * * - * $Id$ */ #ifndef ADNS_H_INCLUDED @@ -95,8 +94,7 @@ adns_if_eintr= 0x0020, /* allow _wait and _synchronous to return EINTR */ adns_if_nosigpipe= 0x0040, /* applic has SIGPIPE set to SIG_IGN, do not protect */ adns_if_checkc_entex= 0x0100, /* do consistency checks on entry/exit to adns funcs */ - adns_if_checkc_freq= 0x0300, /* do consistency checks very frequently (slow!) */ - adns_if_noserver= 0x0800, /* do not get dns servers from the environment */ + adns_if_checkc_freq= 0x0300 /* do consistency checks very frequently (slow!) */ } adns_initflags; typedef enum { @@ -368,9 +366,6 @@ ADNS_API int adns_init(adns_state *newstate_r, adns_initflags flags, FILE *diagfile /*0=>stderr*/); -/* ReactOS addition */ -ADNS_API void adns_addserver(adns_state state, struct in_addr server); - ADNS_API int adns_init_strcfg(adns_state *newstate_r, adns_initflags flags, FILE *diagfile /*0=>discard*/, const char *configtext); Modified: branches/aicom-network-fixes/lib/3rdparty/adns/src/check.c URL: http://svn.reactos.org/svn/reactos/branches/aicom-network-fixes/lib/3rdpart… ============================================================================== --- branches/aicom-network-fixes/lib/3rdparty/adns/src/check.c [iso-8859-1] (original) +++ branches/aicom-network-fixes/lib/3rdparty/adns/src/check.c [iso-8859-1] Wed Nov 12 16:06:44 2008 @@ -101,8 +101,8 @@ static void checkc_global(adns_state ads) { int i; - - assert(ads->udpsocket != INVALID_SOCKET); + + assert(ads->udpsocket >= 0); for (i=0; i<ads->nsortlist; i++) assert(!(ads->sortlist[i].base.s_addr & ~ads->sortlist[i].mask.s_addr)); @@ -111,16 +111,16 @@ switch (ads->tcpstate) { case server_connecting: - assert(ads->tcpsocket != INVALID_SOCKET); + assert(ads->tcpsocket >= 0); checkc_notcpbuf(ads); break; case server_disconnected: case server_broken: - assert(ads->tcpsocket == INVALID_SOCKET); + assert(ads->tcpsocket == -1); checkc_notcpbuf(ads); break; case server_ok: - assert(ads->tcpsocket != INVALID_SOCKET); + assert(ads->tcpsocket >= 0); assert(ads->tcprecv_skip <= ads->tcprecv.used); break; default: Modified: branches/aicom-network-fixes/lib/3rdparty/adns/src/event.c URL: http://svn.reactos.org/svn/reactos/branches/aicom-network-fixes/lib/3rdpart… ============================================================================== --- branches/aicom-network-fixes/lib/3rdparty/adns/src/event.c [iso-8859-1] (original) +++ branches/aicom-network-fixes/lib/3rdparty/adns/src/event.c [iso-8859-1] Wed Nov 12 16:06:44 2008 @@ -28,10 +28,10 @@ */ #include <errno.h> +#include <stdlib.h> + +#ifdef ADNS_JGAA_WIN32 # include "adns_win32.h" -#include <stdlib.h> - -#ifdef ADNS_JGAA_WIN32 #else # include <unistd.h> # include <sys/types.h> @@ -52,7 +52,7 @@ serv= ads->tcpserver; adns_socket_close(ads->tcpsocket); - ads->tcpsocket= INVALID_SOCKET; + ads->tcpsocket= -1; ads->tcprecv.used= ads->tcprecv_skip= ads->tcpsend.used= 0; } @@ -114,7 +114,7 @@ ADNS_CLEAR_ERRNO fd= socket(AF_INET,SOCK_STREAM,proto->p_proto); ADNS_CAPTURE_ERRNO; - if (fd == INVALID_SOCKET) { + if (fd<0) { adns__diag(ads,-1,0,"cannot create TCP socket: %s",strerror(errno)); return; } @@ -128,7 +128,9 @@ addr.sin_family= AF_INET; addr.sin_port= htons(DNS_PORT); addr.sin_addr= ads->servers[ads->tcpserver].addr; + ADNS_CLEAR_ERRNO; r= connect(fd,(const struct sockaddr*)&addr,sizeof(addr)); + ADNS_CAPTURE_ERRNO; ads->tcpsocket= fd; ads->tcpstate= server_connecting; if (r==0) { tcp_connected(ads,now); return; } @@ -398,10 +400,10 @@ (struct sockaddr*)&udpaddr,&udpaddrlen); ADNS_CAPTURE_ERRNO; if (r<0) { - if (errno == EAGAIN || errno == EWOULDBLOCK) { r= 0; goto xit; } + if (errno == EAGAIN || errno == EWOULDBLOCK || errno == ECONNRESET) { r= 0; goto xit; } if (errno == EINTR) continue; if (errno_resources(errno)) { r= errno; goto xit; } - adns__warn(ads,-1,0,"datagram receive error: %s",strerror(errno)); + adns__warn(ads,-1,0,"datagram receive error: %s (%d)",strerror(errno), errno); r= 0; goto xit; } if (udpaddrlen != sizeof(udpaddr)) { Modified: branches/aicom-network-fixes/lib/3rdparty/adns/src/general.c URL: http://svn.reactos.org/svn/reactos/branches/aicom-network-fixes/lib/3rdpart… ============================================================================== --- branches/aicom-network-fixes/lib/3rdparty/adns/src/general.c [iso-8859-1] (original) +++ branches/aicom-network-fixes/lib/3rdparty/adns/src/general.c [iso-8859-1] Wed Nov 12 16:06:44 2008 @@ -254,7 +254,7 @@ SINFO( nodata, "No such data" ) }; -static int __cdecl si_compar(const void *key, const void *elem) { +static int si_compar(const void *key, const void *elem) { const adns_status *st= key; const struct sinfo *si= elem; @@ -295,7 +295,7 @@ STINFO( permfail ) }; -static int __cdecl sti_compar(const void *key, const void *elem) { +static int sti_compar(const void *key, const void *elem) { const adns_status *st= key; const struct stinfo *sti= elem; Modified: branches/aicom-network-fixes/lib/3rdparty/adns/src/internal.h URL: http://svn.reactos.org/svn/reactos/branches/aicom-network-fixes/lib/3rdpart… ============================================================================== --- branches/aicom-network-fixes/lib/3rdparty/adns/src/internal.h [iso-8859-1] (original) +++ branches/aicom-network-fixes/lib/3rdparty/adns/src/internal.h [iso-8859-1] Wed Nov 12 16:06:44 2008 @@ -31,7 +31,7 @@ #define ADNS_INTERNAL_H_INCLUDED #include "config.h" -/*typedef unsigned char byte;*/ /* FIXME: horrible kludge to avoid conflicts with an SDK type */ +typedef unsigned char byte; #include <stdarg.h> #include <assert.h> @@ -575,7 +575,7 @@ } parsedomain_flags; adns_status adns__parse_domain(adns_state ads, int serv, adns_query qu, - vbuf *vb, parsedomain_flags flags, + vbuf *vb, adns_queryflags flags, const byte *dgram, int dglen, int *cbyte_io, int max); /* vb must already have been initialised; it will be reset if necessary. * If there is truncation, vb->used will be set to 0; otherwise @@ -690,17 +690,17 @@ /* Useful static inline functions: */ -static __inline int ctype_whitespace(int c) { return c==' ' || c=='\n' || c=='\t'; } -static __inline int ctype_digit(int c) { return c>='0' && c<='9'; } -static __inline int ctype_alpha(int c) { +static inline int ctype_whitespace(int c) { return c==' ' || c=='\n' || c=='\t'; } +static inline int ctype_digit(int c) { return c>='0' && c<='9'; } +static inline int ctype_alpha(int c) { return (c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z'); } -static __inline int ctype_822special(int c) { return strchr("()<>@,;:\\\".[]",c) != 0; } -static __inline int ctype_domainunquoted(int c) { +static inline int ctype_822special(int c) { return strchr("()<>@,;:\\\".[]",c) != 0; } +static inline int ctype_domainunquoted(int c) { return ctype_alpha(c) || ctype_digit(c) || (strchr("-_/+",c) != 0); } -static __inline int errno_resources(int e) { return e==ENOMEM || e==ENOBUFS; } +static inline int errno_resources(int e) { return e==ENOMEM || e==ENOBUFS; } /* Useful macros */ Modified: branches/aicom-network-fixes/lib/3rdparty/adns/src/parse.c URL: http://svn.reactos.org/svn/reactos/branches/aicom-network-fixes/lib/3rdpart… ============================================================================== --- branches/aicom-network-fixes/lib/3rdparty/adns/src/parse.c [iso-8859-1] (original) +++ branches/aicom-network-fixes/lib/3rdparty/adns/src/parse.c [iso-8859-1] Wed Nov 12 16:06:44 2008 @@ -115,7 +115,7 @@ } adns_status adns__parse_domain(adns_state ads, int serv, adns_query qu, - vbuf *vb, parsedomain_flags flags, + vbuf *vb, adns_queryflags flags, const byte *dgram, int dglen, int *cbyte_io, int max) { findlabel_state fls; Modified: branches/aicom-network-fixes/lib/3rdparty/adns/src/setup.c URL: http://svn.reactos.org/svn/reactos/branches/aicom-network-fixes/lib/3rdpart… ============================================================================== --- branches/aicom-network-fixes/lib/3rdparty/adns/src/setup.c [iso-8859-1] (original) +++ branches/aicom-network-fixes/lib/3rdparty/adns/src/setup.c [iso-8859-1] Wed Nov 12 16:06:44 2008 @@ -131,13 +131,13 @@ while (nextword(&bufp,&word,&l)) { count++; tl += l+1; } newptrs= malloc(sizeof(char*)*count); if (!newptrs) { saveerr(ads,errno); return; } - newchars= malloc((size_t) tl); if (!newchars) { saveerr(ads,errno); free(newptrs); return; } + newchars= malloc(tl); if (!newchars) { saveerr(ads,errno); free(newptrs); return; } bufp= buf; pp= newptrs; while (nextword(&bufp,&word,&l)) { *pp++= newchars; - memcpy(newchars,word,(size_t) l); + memcpy(newchars,word,l); newchars += l; *newchars++ = 0; } @@ -163,12 +163,12 @@ return; } - if (l >= (int)sizeof(tbuf)) { + if (l >= sizeof(tbuf)) { configparseerr(ads,fn,lno,"sortlist entry `%.*s' too long",l,word); continue; } - memcpy(tbuf,word, (size_t) l); tbuf[l]= 0; + memcpy(tbuf,word,l); tbuf[l]= 0; slash= strchr(tbuf,'/'); if (slash) *slash++= 0; @@ -351,7 +351,7 @@ return -2; } - memcpy(buf,cp, (size_t) l); + memcpy(buf,cp,l); buf[l]= 0; return l; } @@ -382,7 +382,7 @@ while (*q && !ctype_whitespace(*q)) q++; dirl= q-p; for (ccip=configcommandinfos; - ccip->name && !((int)strlen(ccip->name)==dirl && !memcmp(ccip->name,p,(size_t) (q-p))); + ccip->name && !((int)strlen(ccip->name)==dirl && !memcmp(ccip->name,p,q-p)); ccip++); if (!ccip->name) { adns__diag(ads,-1,0,"%s:%d: unknown configuration directive `%.*s'", @@ -457,7 +457,7 @@ int adns__setnonblock(adns_state ads, ADNS_SOCKET fd) { #ifdef ADNS_JGAA_WIN32 unsigned long Val = 1; - return (ioctlsocket (fd, (long) FIONBIO, &Val) == 0) ? 0 : -1; + return (ioctlsocket (fd, FIONBIO, &Val) == 0) ? 0 : -1; #else int r; @@ -488,7 +488,7 @@ LIST_INIT(ads->output); ads->forallnext= 0; ads->nextid= 0x311f; - ads->udpsocket= ads->tcpsocket= ((unsigned) -1); + ads->udpsocket= ads->tcpsocket= -1; adns__vbuf_init(&ads->tcpsend); adns__vbuf_init(&ads->tcprecv); ads->tcprecv_skip= 0; @@ -525,7 +525,7 @@ struct protoent *proto; int r; - if (!ads->nservers && !(ads->iflags & adns_if_noserver)) { + if (!ads->nservers) { if (ads->diagfile && ads->iflags & adns_if_debug) fprintf(ads->diagfile,"adns: no nameservers, using localhost\n"); ia.s_addr= htonl(INADDR_LOOPBACK); @@ -536,7 +536,7 @@ ADNS_CLEAR_ERRNO; ads->udpsocket= socket(AF_INET,SOCK_DGRAM,proto->p_proto); ADNS_CAPTURE_ERRNO; - if (ads->udpsocket == INVALID_SOCKET) { r= errno; goto x_free; } + if (ads->udpsocket<0) { r= errno; goto x_free; } r= adns__setnonblock(ads,ads->udpsocket); if (r) { r= errno; goto x_closeudp; } @@ -589,35 +589,33 @@ ccf_options(ads,"ADNS_RES_OPTIONS",-1,adns_res_options); #ifdef ADNS_JGAA_WIN32 - if (!(flags & adns_if_noserver)) { - GetWindowsDirectory(PathBuf, SECURE_PATH_LEN); - strcat(PathBuf,"\\resolv.conf"); - readconfig(ads,PathBuf,1); - GetWindowsDirectory(PathBuf, SECURE_PATH_LEN); - strcat(PathBuf,"\\resolv-adns.conf"); - readconfig(ads,PathBuf,0); - GetWindowsDirectory(PathBuf, SECURE_PATH_LEN); - strcat(PathBuf,"\\System32\\Drivers\\etc\\resolv.conf"); - readconfig(ads,PathBuf,1); - GetWindowsDirectory(PathBuf, SECURE_PATH_LEN); - strcat(PathBuf,"\\System32\\Drivers\\etc\\resolv-adns.conf"); - readconfig(ads,PathBuf,0); - network_info_result = GetNetworkParams(network_info, &network_info_blen); - if (network_info_result != ERROR_SUCCESS){ - switch(network_info_result) { - case ERROR_BUFFER_OVERFLOW: network_err_str = "ERROR_BUFFER_OVERFLOW"; break; - case ERROR_INVALID_PARAMETER: network_err_str = "ERROR_INVALID_PARAMETER"; break; - case ERROR_NO_DATA: network_err_str = "ERROR_NO_DATA"; break; - case ERROR_NOT_SUPPORTED: network_err_str = "ERROR_NOT_SUPPORTED"; break;} - adns__diag(ads,-1,0,"GetNetworkParams() failed with error [%d] %s", - network_info_result,network_err_str); - } - else { - for(pip = &(network_info->DnsServerList); pip; pip = pip->Next) { - addr.s_addr = inet_addr(pip->IpAddress.String); - if ((addr.s_addr != INADDR_ANY) && (addr.s_addr != INADDR_NONE)) - addserver(ads, addr); - } + GetWindowsDirectory(PathBuf, SECURE_PATH_LEN); + strcat(PathBuf,"\\resolv.conf"); + readconfig(ads,PathBuf,1); + GetWindowsDirectory(PathBuf, SECURE_PATH_LEN); + strcat(PathBuf,"\\resolv-adns.conf"); + readconfig(ads,PathBuf,0); + GetWindowsDirectory(PathBuf, SECURE_PATH_LEN); + strcat(PathBuf,"\\System32\\Drivers\\etc\\resolv.conf"); + readconfig(ads,PathBuf,1); + GetWindowsDirectory(PathBuf, SECURE_PATH_LEN); + strcat(PathBuf,"\\System32\\Drivers\\etc\\resolv-adns.conf"); + readconfig(ads,PathBuf,0); + network_info_result = GetNetworkParams(network_info, &network_info_blen); + if (network_info_result != ERROR_SUCCESS){ + switch(network_info_result) { + case ERROR_BUFFER_OVERFLOW: network_err_str = "ERROR_BUFFER_OVERFLOW"; break; + case ERROR_INVALID_PARAMETER: network_err_str = "ERROR_INVALID_PARAMETER"; break; + case ERROR_NO_DATA: network_err_str = "ERROR_NO_DATA"; break; + case ERROR_NOT_SUPPORTED: network_err_str = "ERROR_NOT_SUPPORTED"; break;} + adns__diag(ads,-1,0,"GetNetworkParams() failed with error [%d] %s", + network_info_result,network_err_str); + } + else { + for(pip = &(network_info->DnsServerList); pip; pip = pip->Next) { + addr.s_addr = inet_addr(pip->IpAddress.String); + if ((addr.s_addr != INADDR_ANY) && (addr.s_addr != INADDR_NONE)) + addserver(ads, addr); } } #else @@ -682,7 +680,7 @@ else break; } adns_socket_close(ads->udpsocket); - if (ads->tcpsocket != INVALID_SOCKET) adns_socket_close(ads->tcpsocket); + if (ads->tcpsocket >= 0) adns_socket_close(ads->tcpsocket); adns__vbuf_free(&ads->tcpsend); adns__vbuf_free(&ads->tcprecv); freesearchlist(ads); @@ -732,8 +730,3 @@ if (context_r) *context_r= qu->ctx.ext; return qu; } - -/* ReactOS addition */ -void adns_addserver(adns_state ads, struct in_addr addr) { - addserver(ads, addr); -} Modified: branches/aicom-network-fixes/lib/3rdparty/adns/src/transmit.c URL: http://svn.reactos.org/svn/reactos/branches/aicom-network-fixes/lib/3rdpart… ============================================================================== --- branches/aicom-network-fixes/lib/3rdparty/adns/src/transmit.c [iso-8859-1] (original) +++ branches/aicom-network-fixes/lib/3rdparty/adns/src/transmit.c [iso-8859-1] Wed Nov 12 16:06:44 2008 @@ -194,10 +194,13 @@ iov[1].iov_base= (char*)qu->query_dgram; iov[1].iov_len= qu->query_dglen; adns__sigpipe_protect(qu->ads); + + ADNS_CLEAR_ERRNO; wr= writev(qu->ads->tcpsocket,iov,2); + ADNS_CAPTURE_ERRNO; adns__sigpipe_unprotect(qu->ads); if (wr < 0) { - if (!(errno == EAGAIN || errno == EINTR || errno == ENOSPC || + if (!(errno == EAGAIN || EWOULDBLOCK || errno == EINTR || errno == ENOSPC || errno == ENOBUFS || errno == ENOMEM)) { adns__tcp_broken(ads,"write",strerror(errno)); return; @@ -255,7 +258,7 @@ (const struct sockaddr*)&servaddr,sizeof(servaddr)); ADNS_CAPTURE_ERRNO; if (r<0 && errno == EMSGSIZE) { qu->retries= 0; query_usetcp(qu,now); return; } - if (r<0 && errno != EAGAIN) adns__warn(ads,serv,0,"sendto failed: %s (%d)",strerror(errno), errno); + if (r<0 && ((errno != EAGAIN) && (errno != EWOULDBLOCK))) adns__warn(ads,serv,0,"sendto failed: %s (%d)",strerror(errno), errno); qu->timeout= now; timevaladd(&qu->timeout,UDPRETRYMS);

1 0

[tkreuzer] 37320: Make sure we don't parse instructions beyond the eh_frame section. Looks like in some cases the last Fde isn't terminated with a 0 Length field.
by tkreuzer＠svn.reactos.org 12 Nov '08

12 Nov '08

Author: tkreuzer Date: Wed Nov 12 15:30:16 2008 New Revision: 37320 URL: http://svn.reactos.org/svn/reactos?rev=37320&view=rev Log: Make sure we don't parse instructions beyond the eh_frame section. Looks like in some cases the last Fde isn't terminated with a 0 Length field. Modified: branches/ros-amd64-bringup/reactos/tools/rsym/rsym64.c Modified: branches/ros-amd64-bringup/reactos/tools/rsym/rsym64.c URL: http://svn.reactos.org/svn/reactos/branches/ros-amd64-bringup/reactos/tools… ============================================================================== --- branches/ros-amd64-bringup/reactos/tools/rsym/rsym64.c [iso-8859-1] (original) +++ branches/ros-amd64-bringup/reactos/tools/rsym/rsym64.c [iso-8859-1] Wed Nov 12 15:30:16 2008 @@ -87,7 +87,7 @@ pc += Cie->AugLength; Cie->Instructions = pc; - return Cie->Length; + return Cie->Length + 4; } unsigned long @@ -103,7 +103,7 @@ Fde->AugData = pc; Fde->Instructions = Fde->AugData + Fde->AugLength; - return Fde->Length; + return Fde->Length + 4; } unsigned long @@ -214,7 +214,6 @@ } State->FramePtrDiff = State->FramePtr - PrevFramePtr; - //printf("@%p: code=%x, Loc=%lx, offset=%lx, reg=0x%lx:%s\n", pc, code, State->Location, State->Offset, State->Reg, regnames_64[State->Reg]); return Length; } @@ -371,7 +370,7 @@ { DW2CIEFDE *p; DW2FDE Fde; - char *pInst; + char *pInst, *pmax; DW2CFSTATE State; File->cFuncs = 0; @@ -380,7 +379,8 @@ State.FramePtr = 0; p = GetSectionPointer(File, File->eh_frame.idx); - for (; p->Length; p = NextCIE(p)) + pmax = (char*)p + File->eh_frame.psh->Misc.VirtualSize; + for (; p->Length && (char*)p < pmax; p = NextCIE(p)) { /* Is this an FDE? */ if (p->CiePointer != 0) @@ -421,6 +421,7 @@ ULONG cbSize; PIMAGE_SECTION_HEADER pshp, pshx; ULONG FileAlignment; + char *pmax; FileAlignment = File->OptionalHeader->FileAlignment; @@ -463,7 +464,9 @@ Offset = File->eh_frame.psh->VirtualAddress; xdata_va = pshx->VirtualAddress; xdata_p = File->xdata.p; - for (p = eh_frame; p->Length; p = NextCIE(p)) + pmax = (char*)eh_frame + File->eh_frame.psh->Misc.VirtualSize - 100; + + for (p = eh_frame; p->Length && (char*)p < pmax; p = NextCIE(p)) { /* Is this an FDE? */ if (p->CiePointer != 0)

1 0

[hyperion] 37319: modified include/reactos/libs/pseh/pseh2.h Kill the last few remaining "'x' may be used uninitialized in this function" warnings. I'd love to know the opinion of GCC developers on what does this hack do to their compiler and why
by hyperion＠svn.reactos.org 12 Nov '08

12 Nov '08

Author: hyperion Date: Wed Nov 12 15:15:45 2008 New Revision: 37319 URL: http://svn.reactos.org/svn/reactos?rev=37319&view=rev Log: modified include/reactos/libs/pseh/pseh2.h Kill the last few remaining "'x' may be used uninitialized in this function" warnings. I'd love to know the opinion of GCC developers on what does this hack do to their compiler and why Modified: trunk/reactos/include/reactos/libs/pseh/pseh2.h Modified: trunk/reactos/include/reactos/libs/pseh/pseh2.h URL: http://svn.reactos.org/svn/reactos/trunk/reactos/include/reactos/libs/pseh/… ============================================================================== --- trunk/reactos/include/reactos/libs/pseh/pseh2.h [iso-8859-1] (original) +++ trunk/reactos/include/reactos/libs/pseh/pseh2.h [iso-8859-1] Wed Nov 12 15:15:45 2008 @@ -234,8 +234,6 @@ __SEH_BEGIN_SCOPE \ { \ __SEH_SCOPE_LOCALS; \ - \ - void _SEHJumpToHandler() { goto _SEHBeginExcept; } \ \ __SEH_BEGIN_TRY \ { @@ -327,6 +325,7 @@ { \ { \ _SEHFrame_t * const _SEHFrameP = _SEHTopTryLevel ? &_SEHFrame : _SEHCurFrameP; \ + (void)_SEHFrameP; \ __SEH_BARRIER; #define _SEH2_END \ @@ -334,6 +333,12 @@ } \ } \ _SEHEndExcept: __SEH_SIDE_EFFECT; \ + \ + void _SEHJumpToHandler() \ + { \ + if(_SEHFrameP == (_SEHTopTryLevel ? &_SEHFrame : _SEHCurFrameP) && _SEHPrevTryLevelP == _SEHTryLevelP) \ + goto _SEHBeginExcept; \ + } \ } \ __SEH_END_SCOPE;

1 0

[hyperion] 37318: modified include/reactos/libs/pseh/pseh2.h modified lib/pseh/framebased-gcchack.c modified lib/pseh/i386/framebased-gcchack.S Implemented _SEH2_YIELD and _SEH2_LEAVE - 2.0 equivalents of _SEH_YIELD and _SEH_LEAVE, naturally
by hyperion＠svn.reactos.org 12 Nov '08

12 Nov '08

Author: hyperion Date: Wed Nov 12 14:39:18 2008 New Revision: 37318 URL: http://svn.reactos.org/svn/reactos?rev=37318&view=rev Log: modified include/reactos/libs/pseh/pseh2.h modified lib/pseh/framebased-gcchack.c modified lib/pseh/i386/framebased-gcchack.S Implemented _SEH2_YIELD and _SEH2_LEAVE - 2.0 equivalents of _SEH_YIELD and _SEH_LEAVE, naturally Modified: trunk/reactos/include/reactos/libs/pseh/pseh2.h trunk/reactos/lib/pseh/framebased-gcchack.c trunk/reactos/lib/pseh/i386/framebased-gcchack.S Modified: trunk/reactos/include/reactos/libs/pseh/pseh2.h URL: http://svn.reactos.org/svn/reactos/trunk/reactos/include/reactos/libs/pseh/… ============================================================================== --- trunk/reactos/include/reactos/libs/pseh/pseh2.h [iso-8859-1] (original) +++ trunk/reactos/include/reactos/libs/pseh/pseh2.h [iso-8859-1] Wed Nov 12 14:39:18 2008 @@ -340,6 +340,17 @@ #define _SEH2_GetExceptionPointers() ((struct _EXCEPTION_POINTERS *)_SEHExceptionPointers) #define _SEH2_GetExceptionCode() ((_SEHFrameP)->SF_Code) +#define _SEH2_YIELD(STMT_) \ + for(;;) \ + { \ + if(!_SEHScopeKind) \ + _SEH2Return(); \ + \ + STMT_; \ + } + +#define _SEH2_LEAVE goto _SEHEndTry + __SEH_END_SCOPE_CHAIN; #ifdef __cplusplus @@ -349,6 +360,7 @@ extern void __cdecl _SEH2EnterFrame(_SEHFrame_t *); extern void __cdecl _SEH2LeaveFrame(void); +extern void __cdecl _SEH2Return(void); #ifdef __cplusplus } Modified: trunk/reactos/lib/pseh/framebased-gcchack.c URL: http://svn.reactos.org/svn/reactos/trunk/reactos/lib/pseh/framebased-gcchac… ============================================================================== --- trunk/reactos/lib/pseh/framebased-gcchack.c [iso-8859-1] (original) +++ trunk/reactos/lib/pseh/framebased-gcchack.c [iso-8859-1] Wed Nov 12 14:39:18 2008 @@ -28,6 +28,8 @@ #include <pseh/pseh2.h> #include <excpt.h> + +extern _SEHRegistration_t * __cdecl _SEH2CurrentRegistration(void); extern int __SEH2Except(void *, void *, void *); extern void __SEH2Finally(void *, void *); @@ -156,4 +158,11 @@ ); } +extern +void __cdecl _SEH2Return(void) +{ + _SEH2LocalUnwind(CONTAINING_RECORD(_SEH2CurrentRegistration(), _SEHFrame_t, SF_Registration), NULL); + _SEH2LeaveFrame(); +} + /* EOF */ Modified: trunk/reactos/lib/pseh/i386/framebased-gcchack.S URL: http://svn.reactos.org/svn/reactos/trunk/reactos/lib/pseh/i386/framebased-g… ============================================================================== --- trunk/reactos/lib/pseh/i386/framebased-gcchack.S [iso-8859-1] (original) +++ trunk/reactos/lib/pseh/i386/framebased-gcchack.S [iso-8859-1] Wed Nov 12 14:39:18 2008 @@ -20,6 +20,11 @@ .text .intel_syntax noprefix + +.globl __SEH2CurrentRegistration +__SEH2CurrentRegistration: + mov eax, [fs:0] + ret .globl ___SEH2Except ___SEH2Except:

1 0

[cgutman] 37317: - Fix CID 1380 and 1382 (Run 2)
by cgutman＠svn.reactos.org 12 Nov '08

12 Nov '08

Author: cgutman Date: Wed Nov 12 14:26:29 2008 New Revision: 37317 URL: http://svn.reactos.org/svn/reactos?rev=37317&view=rev Log: - Fix CID 1380 and 1382 (Run 2) Modified: branches/aicom-network-fixes/drivers/network/tcpip/tcpip/dispatch.c Modified: branches/aicom-network-fixes/drivers/network/tcpip/tcpip/dispatch.c URL: http://svn.reactos.org/svn/reactos/branches/aicom-network-fixes/drivers/net… ============================================================================== --- branches/aicom-network-fixes/drivers/network/tcpip/tcpip/dispatch.c [iso-8859-1] (original) +++ branches/aicom-network-fixes/drivers/network/tcpip/tcpip/dispatch.c [iso-8859-1] Wed Nov 12 14:26:29 2008 @@ -841,7 +841,7 @@ PTRANSPORT_CONTEXT TranContext; TDI_REQUEST Request; NTSTATUS Status; - ULONG BytesReceived; + ULONG BytesReceived = 0; TI_DbgPrint(DEBUG_IRP, ("Called.\n")); @@ -918,7 +918,7 @@ PTDI_REQUEST_KERNEL_SEND SendInfo; PTRANSPORT_CONTEXT TranContext; NTSTATUS Status; - ULONG BytesSent; + ULONG BytesSent = 0; TI_DbgPrint(DEBUG_IRP, ("Called.\n"));

1 0

[mkupfer] 37316: - add and enable partition creation and file system selection dialog
by mkupfer＠svn.reactos.org 12 Nov '08

12 Nov '08

Author: mkupfer Date: Wed Nov 12 14:00:09 2008 New Revision: 37316 URL: http://svn.reactos.org/svn/reactos?rev=37316&view=rev Log: - add and enable partition creation and file system selection dialog Modified: trunk/reactos/base/setup/reactos/lang/en-US.rc trunk/reactos/base/setup/reactos/reactos.c trunk/reactos/base/setup/reactos/resource.h Modified: trunk/reactos/base/setup/reactos/lang/en-US.rc URL: http://svn.reactos.org/svn/reactos/trunk/reactos/base/setup/reactos/lang/en… ============================================================================== --- trunk/reactos/base/setup/reactos/lang/en-US.rc [iso-8859-1] (original) +++ trunk/reactos/base/setup/reactos/lang/en-US.rc [iso-8859-1] Wed Nov 12 14:00:09 2008 @@ -64,6 +64,22 @@ LTEXT "Click Next to start the installation process.", IDC_STATIC, 10, 180 ,277, 20 END +IDD_PARTITION DIALOGEX DISCARDABLE 0, 0, 145, 90 +STYLE WS_VISIBLE|WS_CAPTION|WS_SYSMENU|WS_THICKFRAME +CAPTION "Create Partition" +FONT 8, "MS Shell Dlg" +BEGIN + CONTROL "",IDC_UPDOWN1,"msctls_updown32", WS_VISIBLE,104,22,9,13 + CONTROL "Create and format partition",IDC_STATIC,"Button",BS_GROUPBOX,7,5,129,57 + LTEXT "Size:",IDC_STATIC, 13,24,27,9 + EDITTEXT IDC_PARTSIZE,52,23,53,13, WS_VISIBLE|WS_TABSTOP + LTEXT "GB",IDC_UNIT, 117,24,14,9 + LTEXT "Filesystem:",IDC_STATIC,13,46,35,9 + CONTROL "",IDC_FSTYPE,"ComboBox",WS_VISIBLE|WS_TABSTOP|CBS_DROPDOWNLIST,52,42,79,50 + PUSHBUTTON "&OK",IDOK,35,68,47,15, WS_VISIBLE|WS_TABSTOP + PUSHBUTTON "&Cancel",IDCANCEL,87,68,47,15, WS_VISIBLE|WS_TABSTOP +END + IDD_BOOTOPTIONS DIALOGEX DISCARDABLE 0, 0, 305, 105 STYLE WS_VISIBLE|WS_CAPTION|WS_SYSMENU|WS_THICKFRAME CAPTION "Advanced Partition Settings" Modified: trunk/reactos/base/setup/reactos/reactos.c URL: http://svn.reactos.org/svn/reactos/trunk/reactos/base/setup/reactos/reactos… ============================================================================== --- trunk/reactos/base/setup/reactos/reactos.c [iso-8859-1] (original) +++ trunk/reactos/base/setup/reactos/reactos.c [iso-8859-1] Wed Nov 12 14:00:09 2008 @@ -544,7 +544,30 @@ return FALSE; } - +static INT_PTR CALLBACK +PartitionDlgProc(HWND hwndDlg, + UINT uMsg, + WPARAM wParam, + LPARAM lParam) +{ + switch (uMsg) + { + case WM_INITDIALOG: + break; + case WM_COMMAND: + switch(LOWORD(wParam)) + { + case IDOK: + EndDialog(hwndDlg, IDOK); + break; + case IDCANCEL: + EndDialog(hwndDlg, IDCANCEL); + break; + } + } + return FALSE; +} + static INT_PTR CALLBACK DriveDlgProc(HWND hwndDlg, UINT uMsg, @@ -613,6 +636,11 @@ case IDC_PARTMOREOPTS: DialogBox(hInstance,MAKEINTRESOURCE(IDD_BOOTOPTIONS),hwndDlg,MoreOptDlgProc); break; + case IDC_PARTCREATE: + DialogBox(hInstance,MAKEINTRESOURCE(IDD_PARTITION),hwndDlg,PartitionDlgProc); + break; + case IDC_PARTDELETE: + break; } } Modified: trunk/reactos/base/setup/reactos/resource.h URL: http://svn.reactos.org/svn/reactos/trunk/reactos/base/setup/reactos/resourc… ============================================================================== --- trunk/reactos/base/setup/reactos/resource.h [iso-8859-1] (original) +++ trunk/reactos/base/setup/reactos/resource.h [iso-8859-1] Wed Nov 12 14:00:09 2008 @@ -51,6 +51,11 @@ #define IDC_ACTION 2040 #define IDC_PARTMOREOPTS 2041 #define IDD_BOOTOPTIONS 2042 +#define IDD_PARTITION 2043 +#define IDC_UPDOWN1 2044 +#define IDC_PARTSIZE 2045 +#define IDC_UNIT 2046 +#define IDC_FSTYPE 2047 #define IDI_MAIN 3000

1 0

[hyperion] 37315: added include/reactos/libs/pseh/pseh2.h added lib/pseh/framebased-gcchack.c added lib/pseh/i386/framebased-gcchack.S modified lib/pseh/pseh.rbuild Introducing PSEH 2.0. It only wants to be loved. Highlights of this version: - PSEH 2.0 syntax is 99% compatible with native SEH syntax - PSEH 2.0 binary code a vast improvement over 1.1 - no more setjmp, no bogus loops, no weird optimizer behavior PSEH 2.0 is a horrible, GCC-only, x86-only hack. It makes several non-portable assumpt
by hyperion＠svn.reactos.org 12 Nov '08

12 Nov '08

Author: hyperion Date: Wed Nov 12 13:52:16 2008 New Revision: 37315 URL: http://svn.reactos.org/svn/reactos?rev=37315&view=rev Log: added include/reactos/libs/pseh/pseh2.h added lib/pseh/framebased-gcchack.c added lib/pseh/i386/framebased-gcchack.S modified lib/pseh/pseh.rbuild Introducing PSEH 2.0. It only wants to be loved. Highlights of this version: - PSEH 2.0 syntax is 99% compatible with native SEH syntax - PSEH 2.0 binary code a vast improvement over 1.1 - no more setjmp, no bogus loops, no weird optimizer behavior PSEH 2.0 is a horrible, GCC-only, x86-only hack. It makes several non-portable assumptions and hey, did you know __builtin_frame_address(0) is *not* the same thing as EBP? Overall, it must be a world record for compiler abuse PSEH 2.0 is, sadly, not binary-compatible with PSEH 1.1, although I will almost certainly unify the implementation at a later time PSEH 2.0 needs testers. And love. Not implemented yet: returning from a SEH block (i.e. _SEH2_YIELD()) Example of 2.0 syntax (yes, _SEH2_END is unavoidable): _SEH2_TRY { _SEH2_TRY { /* ... */ } _SEH2_EXCEPT((/* ... */)) { /* ... */ } _SEH2_END; } _SEH2_FINALLY { /* ... */ } _SEH2_END; -- Happy early birthday, Aleksey. Added: trunk/reactos/include/reactos/libs/pseh/pseh2.h (with props) trunk/reactos/lib/pseh/framebased-gcchack.c (with props) trunk/reactos/lib/pseh/i386/framebased-gcchack.S (with props) Modified: trunk/reactos/lib/pseh/pseh.rbuild Added: trunk/reactos/include/reactos/libs/pseh/pseh2.h URL: http://svn.reactos.org/svn/reactos/trunk/reactos/include/reactos/libs/pseh/… ============================================================================== --- trunk/reactos/include/reactos/libs/pseh/pseh2.h (added) +++ trunk/reactos/include/reactos/libs/pseh/pseh2.h [iso-8859-1] Wed Nov 12 13:52:16 2008 @@ -1,0 +1,359 @@ +/* + Copyright (c) 2008 KJK::Hyperion + + Permission is hereby granted, free of charge, to any person obtaining a + copy of this software and associated documentation files (the "Software"), + to deal in the Software without restriction, including without limitation + the rights to use, copy, modify, merge, publish, distribute, sublicense, + and/or sell copies of the Software, and to permit persons to whom the + Software is furnished to do so, subject to the following conditions: + + The above copyright notice and this permission notice shall be included in + all copies or substantial portions of the Software. + + THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR + IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, + FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE + AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER + LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING + FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER + DEALINGS IN THE SOFTWARE. +*/ + +#ifndef KJK_PSEH2_H_ +#define KJK_PSEH2_H_ + +#ifndef __GNUC__ +#error TODO +#endif + +struct _EXCEPTION_RECORD; +struct _EXCEPTION_POINTERS; +struct _CONTEXT; + +typedef int (__cdecl * _SEHFrameHandler_t) +( + struct _EXCEPTION_RECORD *, + void *, + struct _CONTEXT *, + void * +); + +#if defined(__i386__) +typedef struct __SEHTrampoline +{ + unsigned char STR_MovEcx; + unsigned char STR_Closure[4]; + unsigned char STR_Jmp; + unsigned char STR_Function[4]; +} +_SEHTrampoline_t; + +static +__inline__ +__attribute__((always_inline)) +int _SEHIsTrampoline(_SEHTrampoline_t * trampoline_) +{ + return trampoline_->STR_MovEcx == 0xb9 && trampoline_->STR_Jmp == 0xe9; +} + +static +__inline__ +__attribute__((always_inline)) +void * _SEHFunctionFromTrampoline(_SEHTrampoline_t * trampoline_) +{ + return (void *)(*(int *)(&trampoline_->STR_Function[0]) + (int)(trampoline_ + 1)); +} + +static +__inline__ +__attribute__((always_inline)) +void * _SEHClosureFromTrampoline(_SEHTrampoline_t * trampoline_) +{ + return (void *)*(int *)(&trampoline_->STR_Closure[0]); +} +#else +#error TODO +#endif + +/* A no-op side effect that scares GCC */ +#define __SEH_SIDE_EFFECT __asm__ __volatile__("#") + +/* A no-op without any real side effects, but silences warnings */ +#define __SEH_PRETEND_SIDE_EFFECT (void)0 + +/* Forces GCC to consider the specified label reachable */ +#define __SEH_USE_LABEL(L_) __asm__ __volatile__("# %0\n" : : "i" (&&L_)) + +/* Makes GCC pretend the specified label is reachable, to silence warnings */ +#define __SEH_PRETEND_USE_LABEL(L_) (void)(&&L_) + +/* Forces GCC to emit the specified nested function as a function */ +#define __SEH_USE_NESTED_FUNCTION(F_) (void)(&F_) /* __attribute__((noinline)) seems to do the trick */ + +/* Soft memory barrier */ +#define __SEH_BARRIER __asm__ __volatile__("#":::"memory") + +typedef struct __SEHRegistration +{ + struct __SEHRegistration * SER_Prev; + _SEHFrameHandler_t SER_Handler; +} +_SEHRegistration_t; + +#define __SEH_FORCE_NEST \ + __asm__ __volatile__("#%0" : : "r" (&_SEHFrame)) + +#define __SEH_NESTED_PROLOG \ + __SEH_FORCE_NEST; + +#define __SEH_DECLARE_EXCEPT_PFN(NAME_) int (__cdecl * NAME_)(void *) +#define __SEH_DECLARE_EXCEPT(NAME_) int __cdecl NAME_(void *) +#define __SEH_DEFINE_EXCEPT(NAME_) int __cdecl NAME_(void * _SEHExceptionPointers) + +#define __SEH_DECLARE_FINALLY_PFN(NAME_) void (__cdecl * NAME_)(void) +#define __SEH_DECLARE_FINALLY(NAME_) void __cdecl NAME_(void) +#define __SEH_DEFINE_FINALLY(NAME_) void __cdecl NAME_(void) + +#define __SEH_RETURN_EXCEPT(R_) return (int)(R_) +#define __SEH_RETURN_FINALLY() return + +typedef struct __SEHFrame +{ + _SEHRegistration_t SF_Registration; + volatile struct __SEHTryLevel * volatile SF_TopTryLevel; + void * SF_FramePointer; + void * volatile SF_StackPointer; + volatile unsigned long SF_Code; +} +_SEHFrame_t; + +typedef struct __SEHTryLevel +{ + volatile struct __SEHTryLevel * ST_Next; + void * ST_FramePointer; + void * ST_Filter; + void * ST_Body; +} +_SEHTryLevel_t; + +#define __SEH_BEGIN_TRY \ + { \ + __label__ _SEHBeginTry; \ + __label__ _SEHEndTry; \ + \ + __SEH_USE_LABEL(_SEHBeginTry); \ + __SEH_USE_LABEL(_SEHEndTry); \ + \ + _SEHBeginTry: __SEH_SIDE_EFFECT; \ + { \ + __SEH_BARRIER; + +#define __SEH_END_TRY \ + __SEH_BARRIER; \ + } \ + _SEHEndTry: __SEH_SIDE_EFFECT; \ + } + +#define __SEH_SET_TRYLEVEL(TRYLEVEL_) \ + { \ + __SEH_BARRIER; _SEHFrameP->SF_TopTryLevel = (TRYLEVEL_); __SEH_BARRIER; \ + } + +#define __SEH_ENTER_TRYLEVEL() __SEH_SET_TRYLEVEL(&_SEHTryLevel) +#define __SEH_LEAVE_TRYLEVEL() __SEH_SET_TRYLEVEL(_SEHPrevTryLevelP) + +#define __SEH_END_SCOPE_CHAIN \ + static const int _SEHScopeKind = 1; \ + static _SEHFrame_t * const _SEHFrameP = 0; \ + static _SEHTryLevel_t * const _SEHTryLevelP = 0; + +#define __SEH_BEGIN_SCOPE \ + for(;;) \ + { \ + __label__ _SEHBeginScope; \ + __label__ _SEHEndScope; \ + \ + _SEHBeginScope: __SEH_SIDE_EFFECT; \ + \ + static const int _SEHTopTryLevel = (_SEHScopeKind != 0); \ + _SEHFrame_t * const _SEHCurFrameP = _SEHFrameP; \ + volatile _SEHTryLevel_t * const _SEHPrevTryLevelP = _SEHTryLevelP; \ + \ + (void)_SEHTopTryLevel; \ + (void)_SEHCurFrameP; \ + (void)_SEHPrevTryLevelP; \ + \ + __SEH_USE_LABEL(_SEHBeginScope); \ + __SEH_USE_LABEL(_SEHEndScope); \ + \ + { \ + __label__ _SEHBeforeTry; \ + __label__ _SEHDoTry; \ + __label__ _SEHAfterTry; \ + static const int _SEHScopeKind = 0; \ + _SEHFrame_t _SEHFrame; \ + volatile _SEHTryLevel_t _SEHTryLevel; \ + _SEHFrame_t * const _SEHFrameP = _SEHTopTryLevel ? &_SEHFrame : _SEHCurFrameP; \ + volatile _SEHTryLevel_t * const _SEHTryLevelP = &_SEHTryLevel; \ + \ + (void)_SEHScopeKind; \ + (void)_SEHFrame; \ + (void)_SEHTryLevel; \ + (void)_SEHFrameP; \ + (void)_SEHTryLevelP; \ + \ + _SEHTryLevel.ST_Next = _SEHPrevTryLevelP; \ + goto _SEHBeforeTry; \ + \ + _SEHDoTry:; \ + __SEH_ENTER_TRYLEVEL(); \ + \ + if(_SEHTopTryLevel) \ + { \ + __SEH_BARRIER; __asm__ __volatile__("mov %%ebp, %0\n#%1" : "=m" (_SEHFrame.SF_FramePointer) : "r" (__builtin_frame_address(0))); __SEH_BARRIER; \ + _SEH2EnterFrame(&_SEHFrame); \ + } \ + +#define __SEH_END_SCOPE \ + } \ + \ + _SEHEndScope: __SEH_SIDE_EFFECT; \ + \ + break; \ + } + +#define __SEH_SCOPE_LOCALS \ + __label__ _SEHBeginExcept; \ + __label__ _SEHEndExcept; \ + \ + auto __SEH_DECLARE_EXCEPT(_SEHExcept); \ + auto __SEH_DECLARE_FINALLY(_SEHFinally); + +#define _SEH2_TRY \ + __SEH_BEGIN_SCOPE \ + { \ + __SEH_SCOPE_LOCALS; \ + \ + void _SEHJumpToHandler() { goto _SEHBeginExcept; } \ +\ + __SEH_BEGIN_TRY \ + { + +#define _SEH2_FINALLY \ + } \ + __SEH_END_TRY; \ + \ + goto _SEHAfterTry; \ + _SEHBeforeTry:; \ + \ + __SEH_PRETEND_USE_LABEL(_SEHBeginExcept); \ + __SEH_PRETEND_USE_LABEL(_SEHEndExcept); \ + \ + __SEH_USE_NESTED_FUNCTION(_SEHFinally); \ + \ + _SEHTryLevel.ST_FramePointer = _SEHClosureFromTrampoline((_SEHTrampoline_t *)&_SEHFinally); \ + _SEHTryLevel.ST_Filter = NULL; \ + _SEHTryLevel.ST_Body = _SEHFunctionFromTrampoline((_SEHTrampoline_t *)&_SEHFinally); \ + \ + goto _SEHDoTry; \ + _SEHAfterTry:; \ + \ + if(_SEHTopTryLevel) \ + _SEH2LeaveFrame(); \ + else \ + { \ + __SEH_LEAVE_TRYLEVEL(); \ + } \ + \ + _SEHFinally(); \ + goto _SEHEndExcept; \ + \ + _SEHBeginExcept: __SEH_PRETEND_SIDE_EFFECT; \ + __attribute__((unused)) __SEH_DEFINE_EXCEPT(_SEHExcept) { __SEH_RETURN_EXCEPT(0); } \ + \ + __attribute__((noinline)) __attribute__((used)) __SEH_DEFINE_FINALLY(_SEHFinally) \ + { \ + __SEH_END_SCOPE_CHAIN; \ + \ + (void)_SEHScopeKind; \ + (void)_SEHFrameP; \ + (void)_SEHTryLevelP; \ + \ + __SEH_NESTED_PROLOG; \ + \ + for(;; ({ __SEH_RETURN_FINALLY(); })) \ + { + +#define _SEH2_EXCEPT(E_) \ + } \ + __SEH_END_TRY; \ + \ + goto _SEHAfterTry; \ + \ + _SEHBeforeTry:; \ +\ + __SEH_USE_LABEL(_SEHBeginExcept); \ + __SEH_USE_LABEL(_SEHEndExcept); \ +\ + __SEH_USE_NESTED_FUNCTION(_SEHExcept); \ + \ + _SEHTryLevel.ST_FramePointer = _SEHClosureFromTrampoline((_SEHTrampoline_t *)&_SEHExcept); \ + _SEHTryLevel.ST_Filter = _SEHFunctionFromTrampoline((_SEHTrampoline_t *)&_SEHExcept); \ + _SEHTryLevel.ST_Body = &&_SEHBeginExcept; \ + __SEH_BARRIER; __asm__ __volatile__("mov %%esp, %0" : "=m" (_SEHFrameP->SF_StackPointer)); __SEH_BARRIER; \ +\ + goto _SEHDoTry; \ +\ + __attribute__((noinline)) __attribute__((used)) __SEH_DEFINE_EXCEPT(_SEHExcept) \ + { \ + __SEH_NESTED_PROLOG; \ + __SEH_RETURN_EXCEPT(E_); \ + } \ +\ + __attribute__((unused)) __SEH_DEFINE_FINALLY(_SEHFinally) { __SEH_RETURN_FINALLY(); } \ +\ + _SEHAfterTry:; \ + if(_SEHTopTryLevel) \ + _SEH2LeaveFrame(); \ + else \ + { \ + __SEH_LEAVE_TRYLEVEL(); \ + } \ +\ + goto _SEHEndExcept; \ +\ + _SEHBeginExcept: __SEH_SIDE_EFFECT; \ + { \ + { \ + _SEHFrame_t * const _SEHFrameP = _SEHTopTryLevel ? &_SEHFrame : _SEHCurFrameP; \ + __SEH_BARRIER; + +#define _SEH2_END \ + __SEH_BARRIER; \ + } \ + } \ + _SEHEndExcept: __SEH_SIDE_EFFECT; \ + } \ + __SEH_END_SCOPE; + +#define _SEH2_GetExceptionPointers() ((struct _EXCEPTION_POINTERS *)_SEHExceptionPointers) +#define _SEH2_GetExceptionCode() ((_SEHFrameP)->SF_Code) + +__SEH_END_SCOPE_CHAIN; + +#ifdef __cplusplus +extern "C" +{ +#endif + +extern void __cdecl _SEH2EnterFrame(_SEHFrame_t *); +extern void __cdecl _SEH2LeaveFrame(void); + +#ifdef __cplusplus +} +#endif + +#endif + +/* EOF */ Propchange: trunk/reactos/include/reactos/libs/pseh/pseh2.h ------------------------------------------------------------------------------ svn:eol-style = native Added: trunk/reactos/lib/pseh/framebased-gcchack.c URL: http://svn.reactos.org/svn/reactos/trunk/reactos/lib/pseh/framebased-gcchac… ============================================================================== --- trunk/reactos/lib/pseh/framebased-gcchack.c (added) +++ trunk/reactos/lib/pseh/framebased-gcchack.c [iso-8859-1] Wed Nov 12 13:52:16 2008 @@ -1,0 +1,159 @@ +/* + Copyright (c) 2008 KJK::Hyperion + + Permission is hereby granted, free of charge, to any person obtaining a + copy of this software and associated documentation files (the "Software"), + to deal in the Software without restriction, including without limitation + the rights to use, copy, modify, merge, publish, distribute, sublicense, + and/or sell copies of the Software, and to permit persons to whom the + Software is furnished to do so, subject to the following conditions: + + The above copyright notice and this permission notice shall be included in + all copies or substantial portions of the Software. + + THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR + IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, + FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE + AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER + LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING + FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER + DEALINGS IN THE SOFTWARE. +*/ + +#define _NTSYSTEM_ +#define STRICT +#define WIN32_LEAN_AND_MEAN +#include <windows.h> + +#include <pseh/pseh2.h> + +#include <excpt.h> + +extern int __SEH2Except(void *, void *, void *); +extern void __SEH2Finally(void *, void *); + +static +__attribute__((always_inline)) +int _SEH2Except(_SEHFrame_t * frame, volatile _SEHTryLevel_t * trylevel, EXCEPTION_POINTERS * ep) +{ + return __SEH2Except(trylevel->ST_Filter, trylevel->ST_FramePointer, ep); +} + +static +__attribute__((noinline)) +void _SEH2Finally(_SEHFrame_t * frame, volatile _SEHTryLevel_t * trylevel) +{ + __SEH2Finally(trylevel->ST_Body, trylevel->ST_FramePointer); +} + +static +void _SEH2LocalUnwind(_SEHFrame_t * frame, volatile _SEHTryLevel_t * dsttrylevel) +{ + volatile _SEHTryLevel_t * trylevel; + + for(trylevel = frame->SF_TopTryLevel; trylevel && trylevel != dsttrylevel; trylevel = trylevel->ST_Next) + { + if(!trylevel->ST_Filter) + _SEH2Finally(frame, trylevel); + } + + frame->SF_TopTryLevel = dsttrylevel; +} + +extern void _SEH2GlobalUnwind(void *); + +static +__attribute__((noreturn)) +void _SEH2Handle(_SEHFrame_t * frame, volatile _SEHTryLevel_t * trylevel) +{ + _SEH2GlobalUnwind(frame); + _SEH2LocalUnwind(frame, trylevel); + + __asm__ __volatile__ + ( + "mov %[frame], %%ebp\n" + "mov %[stack], %%esp\n" + "jmp *%[handler]\n" : + : + [frame] "m" (frame->SF_FramePointer), [stack] "m" (frame->SF_StackPointer), [handler] "r" (trylevel->ST_Body) + ); + + for(;;); +} + +static +int __cdecl _SEH2FrameHandler +( + struct _EXCEPTION_RECORD * ExceptionRecord, + void * EstablisherFrame, + struct _CONTEXT * ContextRecord, + void * DispatcherContext +) +{ + _SEHFrame_t * frame; + + __asm__ __volatile__("cld"); + + frame = EstablisherFrame; + + /* Unwinding */ + if(ExceptionRecord->ExceptionFlags & (4 | 2)) + { + _SEH2LocalUnwind(frame, NULL); + } + /* Handling */ + else + { + int ret = 0; + volatile _SEHTryLevel_t * trylevel; + + frame->SF_Code = ExceptionRecord->ExceptionCode; + + for(trylevel = frame->SF_TopTryLevel; trylevel != NULL; trylevel = trylevel->ST_Next) + { + if(trylevel->ST_Filter) + { + EXCEPTION_POINTERS ep; + + ep.ExceptionRecord = ExceptionRecord; + ep.ContextRecord = ContextRecord; + + ret = _SEH2Except(frame, trylevel, &ep); + + if(ret < 0) + return ExceptionContinueExecution; + else if(ret > 0) + _SEH2Handle(frame, trylevel); + } + } + } + + return ExceptionContinueSearch; +} + +extern +void __cdecl _SEH2EnterFrame(_SEHFrame_t * frame) +{ + frame->SF_Registration.SER_Handler = _SEH2FrameHandler; + frame->SF_Code = 0; + __asm__ __volatile__("movl %%fs:0, %k0\n" : "=q" (frame->SF_Registration.SER_Prev)); + + __SEH_BARRIER; + __asm__ __volatile__("movl %k0, %%fs:0\n" : : "q" (&frame->SF_Registration)); +} + +extern +void __cdecl _SEH2LeaveFrame() +{ + __asm__ __volatile__ + ( + "movl %%fs:0, %%edx\n" + "movl 0(%%edx), %%edx\n" + "movl %%edx, %%fs:0\n" : + : + : + "ecx" + ); +} + +/* EOF */ Propchange: trunk/reactos/lib/pseh/framebased-gcchack.c ------------------------------------------------------------------------------ svn:eol-style = native Added: trunk/reactos/lib/pseh/i386/framebased-gcchack.S URL: http://svn.reactos.org/svn/reactos/trunk/reactos/lib/pseh/i386/framebased-g… ============================================================================== --- trunk/reactos/lib/pseh/i386/framebased-gcchack.S (added) +++ trunk/reactos/lib/pseh/i386/framebased-gcchack.S [iso-8859-1] Wed Nov 12 13:52:16 2008 @@ -1,0 +1,68 @@ +// Copyright (c) 2008 KJK::Hyperion + +// Permission is hereby granted, free of charge, to any person obtaining a copy +// of this software and associated documentation files (the "Software"), to deal +// in the Software without restriction, including without limitation the rights +// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +// copies of the Software, and to permit persons to whom the Software is +// furnished to dos so, subject to the following conditions: + +// The above copyright notice and this permission notice shall be included in all +// copies or substantial portions of the Software. + +// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE +// SOFTWARE. + +.text +.intel_syntax noprefix + +.globl ___SEH2Except +___SEH2Except: + mov eax, [esp+4] + mov ecx, [esp+8] + + push [esp+12] + call eax + + pop ecx + + ret + +.globl ___SEH2Finally +___SEH2Finally: + mov eax, [esp+4] + mov ecx, [esp+8] + + call eax + + ret + +.globl __SEH2GlobalUnwind +__SEH2GlobalUnwind: + +.extern _RtlUnwind@16 + + push ebx + mov ebx, [esp+8] + push esi + push edi + + push 0 // ReturnValue + push 0 // ExceptionRecord + push .RestoreRegisters // TargetIp + push ebx // TargetFrame + call _RtlUnwind@16 + +.RestoreRegisters: + pop edi + pop esi + pop ebx + + ret + +// EOF Propchange: trunk/reactos/lib/pseh/i386/framebased-gcchack.S ------------------------------------------------------------------------------ svn:eol-style = native Modified: trunk/reactos/lib/pseh/pseh.rbuild URL: http://svn.reactos.org/svn/reactos/trunk/reactos/lib/pseh/pseh.rbuild?rev=3… ============================================================================== --- trunk/reactos/lib/pseh/pseh.rbuild [iso-8859-1] (original) +++ trunk/reactos/lib/pseh/pseh.rbuild [iso-8859-1] Wed Nov 12 13:52:16 2008 @@ -4,6 +4,7 @@ <if property="ARCH" value="i386"> <directory name="i386"> <file>framebased.S</file> + <file>framebased-gcchack.S</file> </directory> </if> <if property="ARCH" value="powerpc"> @@ -12,4 +13,5 @@ </directory> </if> <file>framebased.c</file> + <file>framebased-gcchack.c</file> </module>

1 0

[ekohl] 37314: Sync to wine-0.9.61: Oooops, forgot to add these files!! - Rob Shearman <rob@codeweavers.com> Sun, 20 Apr 2008 widl: Stop looping in check_remoting_args when a context_handle or wire_marshal type is found as they are in effect fundamental types. - Rob Shearman <rob@codeweavers.com> Sun, 20 Apr 2008 widl: Check that fields in structures and unions referenced by non-local functions can be marshalled and that their attributes are consistent. -Rob Shearman <rob@codeweavers.com> Sun, 2
by ekohl＠svn.reactos.org 12 Nov '08

12 Nov '08

Author: ekohl Date: Wed Nov 12 13:30:10 2008 New Revision: 37314 URL: http://svn.reactos.org/svn/reactos?rev=37314&view=rev Log: Sync to wine-0.9.61: Oooops, forgot to add these files!! - Rob Shearman <rob(a)codeweavers.com> Sun, 20 Apr 2008 widl: Stop looping in check_remoting_args when a context_handle or wire_marshal type is found as they are in effect fundamental types. - Rob Shearman <rob(a)codeweavers.com> Sun, 20 Apr 2008 widl: Check that fields in structures and unions referenced by non-local functions can be marshalled and that their attributes are consistent. -Rob Shearman <rob(a)codeweavers.com> Sun, 20 Apr 2008 widl: The implicit_handle attribute is allowed with a handle explicitly specified in the function parameters. In that case, that handle is used instead of the implicit handle. Fix the check for the explicit_handle attribute being specified without a handle being specified in the function parameters, even though issuing an error is wrong. (Thanks to Marcus Meissner & Coverity for spotting that the check didn't do what it was supposed to do.) - Rob Shearman <rob(a)codeweavers.com> Sun, 20 Apr 2008 widl: Automatically add "handle_t IDL_handle" parameter to functions with no explicit handle specified whose containing interface has the explicit_handle attribute. - Rob Shearman <rob(a)codeweavers.com> Sun, 20 Apr 2008 widl: Issue an error instead of crashing for dividing by zero in a constant expression. - Rob Shearman <rob(a)codeweavers.com> Sun, 20 Apr 2008 widl: Add support for "->" and "." operators in expressions. - Rob Shearman <rob(a)codeweavers.com> Sun, 20 Apr 2008 widl: Add support for arrays in expressions. - Rob Shearman <rob(a)codeweavers.com> Sun, 20 Apr 2008 widl: Add support for '%' operator in expressions. - Rob Shearman <rob(a)codeweavers.com> Tue, 22 Apr 2008 widl: Fix operator precedence in expressions. - Rob Shearman <rob(a)codeweavers.com> Tue, 22 Apr 2008 widl: Require a constant expression for case statements. - Rob Shearman <rob(a)codeweavers.com> Tue, 22 Apr 2008 widl: Add support for comparison, exclusive or, logical not and positive operators in expressions. - Rob Shearman <rob(a)codeweavers.com> Tue, 22 Apr 2008 widl: Remove EXPR_MEMBERPTR and implement it using EXPR_PPTR and EXPR_MEMBER instead. - Rob Shearman <rob(a)codeweavers.com> Tue, 22 Apr 2008 widl: Don't free input_name in pop_import as we keep pointers to it in the var_t type now. - Rob Shearman <rob(a)codeweavers.com> Tue, 22 Apr 2008 widl: Pass the actual type into check_remoting_fields and check_field_common instead of the type name. - Rob Shearman <rob(a)codeweavers.com> Tue, 22 Apr 2008 widl: Check that expressions resolve so that expressions in generated code will compile. Also check that expressions return the correct type for the attribute. - Rob Shearman <rob(a)codeweavers.com> Tue, 22 Apr 2008 widl: Move expression functions to a new file, expr.c. - Rob Shearman <rob(a)codeweavers.com> Tue, 22 Apr 2008 widl: Use expr_resolve_type to get the type of the identifier in write_conf_or_var_desc. Remove the conversion of pointer types into base types as this was only needed due to lack of proper type resolving. - Rob Shearman <rob(a)codeweavers.com> Tue, 22 Apr 2008 widl: Remove duplicated code in the form of the write_struct_expr function by enhancing write_expr to allow toplevel identifiers to be prefixed by a string, if specified. - Rob Shearman <rob(a)codeweavers.com> Thu, 24 Apr 2008 widl: Implement lcid property on library declarations. - Rob Shearman <rob(a)codeweavers.com> Thu, 24 Apr 2008 widl: Construct the pointer chain while parsing pointers, rather than storing a ptr_level. This method is more flexible and somewhat simpler. - Rob Shearman <rob(a)codeweavers.com> Thu, 24 Apr 2008 widl: Allow NULL to be used in expressions. - Rob Shearman <rob(a)codeweavers.com> Thu, 24 Apr 2008 widl: Create a list of statements in the whole IDL file, instead of just a list of interfaces. - Rob Shearman <rob(a)codeweavers.com> Thu, 24 Apr 2008 widl: Add typedef statements to the statement lists. - Rob Shearman <rob(a)codeweavers.com> Fri, 25 Apr 2008 widl: Consolidate most of the inner loop of reg_typedefs into set_type. - Rob Shearman <rob(a)codeweavers.com> Fri, 25 Apr 2008 widl: Rename pident to declarator and parse the array declarations as part of declarators. This allows arrays to be used in typedefs and const statements. - Rob Shearman <rob(a)codeweavers.com> Fri, 25 Apr 2008 widl: Make the rules for parsing fields in structures, encapsulated unions and non-encapsulated unions more strict. Move the rules in fields that handle empty union cases into separate union rules so that they can't erroneously be accepted for structures or other types of unions. - Rob Shearman <rob(a)codeweavers.com> Fri, 25 Apr 2008 widl: Add support for declaring multiple fields of a structure in one statement. - Rob Shearman <rob(a)codeweavers.com> Fri, 25 Apr 2008 widl: Add support for string literals and wide-string literals in expressions. - Rob Shearman <rob(a)codeweavers.com> Fri, 25 Apr 2008 widl: Create a statement object for import statements. Move the writing of include directives into the generated header into header.c. - Rob Shearman <rob(a)codeweavers.com> Fri, 25 Apr 2008 widl: Move the func_declarator rule entirely into direct_declarator. - Rob Shearman <rob(a)codeweavers.com> Sat, 26 Apr 2008 widl: Add typedefs to typelibs which have the public or uuid attributes, not any other attribute. - Rob Shearman <rob(a)codeweavers.com> Sat, 26 Apr 2008 widl: Support hex digits that use an uppercase 0X prefix. - Rob Shearman <rob(a)codeweavers.com> Sun, 27 Apr 2008 widl: Accept integer constant suffixes in the lexer. - Rob Shearman <rob(a)codeweavers.com> Tue, 29 Apr 2008 widl: Keep const attributes applied to pointers when writing out the type. Use an attribute to store the const qualifier for the pointer and type. Allow multiple type-qualifiers to be applied to a type by adding a declaration-specifier rule that encompasses type-qualifiers and types. - Rob Shearman <rob(a)codeweavers.com> Tue, 29 Apr 2008 widl: Add support for "inline" on function definitions. Fix applying calling convention to function type. - Rob Shearman <rob(a)codeweavers.com> Tue, 29 Apr 2008 widl: Make constdef and externdef take a declarator instead of an ident so that functions and arrays can be defined using the statements. - Rob Shearman <rob(a)codeweavers.com> Tue, 29 Apr 2008 widl: Allow pointer attributes to be applied to function pointers. - Rob Shearman <rob(a)codeweavers.com> Tue, 29 Apr 2008 widl: callback, code, comm_status and in_line are attribute names, not keywords. - Rob Shearman <rob(a)codeweavers.com> Wed, 30 Apr 2008 widl: Prepare for supporting storage classes in declaration statements. Return a decl_spec_t structure from decl_spec rules so that the storage class and type qualifiers can both be returned. - Rob Shearman <rob(a)codeweavers.com> Wed, 30 Apr 2008 widl: Add the parsing of storage classes into declaration-specifiers. Support the static and register keywords. This consolidates externdef and constdef rules into one declaration rule. - Rob Shearman <rob(a)codeweavers.com> Thu, 1 May 2008 widl: Consolidate writing of COM and dispatch interfaces into one function to remove duplicated code. Split up the writing into start and end to eventually support the style MIDL uses where it writes declared types, etc. between the start and end of the interface. Make internal header functions take the file pointer to print to. Don't write interface IDs for non-object interfaces and always write handle declarations even if the interface has no methods, like MIDL does. - Gerald Pfeifer <gerald(a)pfeifer.com> Fri, 2 May 2008 widl: Fix syntax to also work with older versions of bison. Added: trunk/reactos/tools/widl/expr.c (with props) trunk/reactos/tools/widl/expr.h (with props) Added: trunk/reactos/tools/widl/expr.c URL: http://svn.reactos.org/svn/reactos/trunk/reactos/tools/widl/expr.c?rev=3731… ============================================================================== --- trunk/reactos/tools/widl/expr.c (added) +++ trunk/reactos/tools/widl/expr.c [iso-8859-1] Wed Nov 12 13:30:10 2008 @@ -1,0 +1,815 @@ +/* + * Expression Abstract Syntax Tree Functions + * + * Copyright 2002 Ove Kaaven + * Copyright 2006-2008 Robert Shearman + * + * This library is free software; you can redistribute it and/or + * modify it under the terms of the GNU Lesser General Public + * License as published by the Free Software Foundation; either + * version 2.1 of the License, or (at your option) any later version. + * + * This library is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + * Lesser General Public License for more details. + * + * You should have received a copy of the GNU Lesser General Public + * License along with this library; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA + */ + +#include "config.h" + +#include <stdio.h> +#include <stdlib.h> +#include <stdarg.h> +#include <assert.h> +#include <ctype.h> +#include <string.h> + +#include "widl.h" +#include "utils.h" +#include "expr.h" +#include "header.h" + +expr_t *make_expr(enum expr_type type) +{ + expr_t *e = xmalloc(sizeof(expr_t)); + e->type = type; + e->ref = NULL; + e->u.lval = 0; + e->is_const = FALSE; + e->cval = 0; + return e; +} + +expr_t *make_exprl(enum expr_type type, long val) +{ + expr_t *e = xmalloc(sizeof(expr_t)); + e->type = type; + e->ref = NULL; + e->u.lval = val; + e->is_const = FALSE; + /* check for numeric constant */ + if (type == EXPR_NUM || type == EXPR_HEXNUM || type == EXPR_TRUEFALSE) + { + /* make sure true/false value is valid */ + assert(type != EXPR_TRUEFALSE || val == 0 || val == 1); + e->is_const = TRUE; + e->cval = val; + } + return e; +} + +expr_t *make_exprd(enum expr_type type, double val) +{ + expr_t *e = xmalloc(sizeof(expr_t)); + e->type = type; + e->ref = NULL; + e->u.dval = val; + e->is_const = TRUE; + e->cval = val; + return e; +} + +expr_t *make_exprs(enum expr_type type, char *val) +{ + expr_t *e; + e = xmalloc(sizeof(expr_t)); + e->type = type; + e->ref = NULL; + e->u.sval = val; + e->is_const = FALSE; + /* check for predefined constants */ + if (type == EXPR_IDENTIFIER) + { + var_t *c = find_const(val, 0); + if (c) + { + e->u.sval = c->name; + free(val); + e->is_const = TRUE; + e->cval = c->eval->cval; + } + } + return e; +} + +expr_t *make_exprt(enum expr_type type, type_t *tref, expr_t *expr) +{ + expr_t *e; + e = xmalloc(sizeof(expr_t)); + e->type = type; + e->ref = expr; + e->u.tref = tref; + e->is_const = FALSE; + /* check for cast of constant expression */ + if (type == EXPR_SIZEOF) + { + switch (tref->type) + { + case RPC_FC_BYTE: + case RPC_FC_CHAR: + case RPC_FC_SMALL: + case RPC_FC_USMALL: + e->is_const = TRUE; + e->cval = 1; + break; + case RPC_FC_WCHAR: + case RPC_FC_USHORT: + case RPC_FC_SHORT: + e->is_const = TRUE; + e->cval = 2; + break; + case RPC_FC_LONG: + case RPC_FC_ULONG: + case RPC_FC_FLOAT: + case RPC_FC_ERROR_STATUS_T: + e->is_const = TRUE; + e->cval = 4; + break; + case RPC_FC_HYPER: + case RPC_FC_DOUBLE: + e->is_const = TRUE; + e->cval = 8; + break; + } + } + if (type == EXPR_CAST && expr->is_const) + { + e->is_const = TRUE; + e->cval = expr->cval; + } + return e; +} + +expr_t *make_expr1(enum expr_type type, expr_t *expr) +{ + expr_t *e; + e = xmalloc(sizeof(expr_t)); + e->type = type; + e->ref = expr; + e->u.lval = 0; + e->is_const = FALSE; + /* check for compile-time optimization */ + if (expr->is_const) + { + e->is_const = TRUE; + switch (type) + { + case EXPR_LOGNOT: + e->cval = !expr->cval; + break; + case EXPR_POS: + e->cval = +expr->cval; + break; + case EXPR_NEG: + e->cval = -expr->cval; + break; + case EXPR_NOT: + e->cval = ~expr->cval; + break; + default: + e->is_const = FALSE; + break; + } + } + return e; +} + +expr_t *make_expr2(enum expr_type type, expr_t *expr1, expr_t *expr2) +{ + expr_t *e; + e = xmalloc(sizeof(expr_t)); + e->type = type; + e->ref = expr1; + e->u.ext = expr2; + e->is_const = FALSE; + /* check for compile-time optimization */ + if (expr1->is_const && expr2->is_const) + { + e->is_const = TRUE; + switch (type) + { + case EXPR_ADD: + e->cval = expr1->cval + expr2->cval; + break; + case EXPR_SUB: + e->cval = expr1->cval - expr2->cval; + break; + case EXPR_MOD: + if (expr2->cval == 0) + { + error_loc("divide by zero in expression\n"); + e->cval = 0; + } + else + e->cval = expr1->cval % expr2->cval; + break; + case EXPR_MUL: + e->cval = expr1->cval * expr2->cval; + break; + case EXPR_DIV: + if (expr2->cval == 0) + { + error_loc("divide by zero in expression\n"); + e->cval = 0; + } + else + e->cval = expr1->cval / expr2->cval; + break; + case EXPR_OR: + e->cval = expr1->cval | expr2->cval; + break; + case EXPR_AND: + e->cval = expr1->cval & expr2->cval; + break; + case EXPR_SHL: + e->cval = expr1->cval << expr2->cval; + break; + case EXPR_SHR: + e->cval = expr1->cval >> expr2->cval; + break; + case EXPR_LOGOR: + e->cval = expr1->cval || expr2->cval; + break; + case EXPR_LOGAND: + e->cval = expr1->cval && expr2->cval; + break; + case EXPR_XOR: + e->cval = expr1->cval ^ expr2->cval; + break; + case EXPR_EQUALITY: + e->cval = expr1->cval == expr2->cval; + break; + case EXPR_INEQUALITY: + e->cval = expr1->cval != expr2->cval; + break; + case EXPR_GTR: + e->cval = expr1->cval > expr2->cval; + break; + case EXPR_LESS: + e->cval = expr1->cval < expr2->cval; + break; + case EXPR_GTREQL: + e->cval = expr1->cval >= expr2->cval; + break; + case EXPR_LESSEQL: + e->cval = expr1->cval <= expr2->cval; + break; + default: + e->is_const = FALSE; + break; + } + } + return e; +} + +expr_t *make_expr3(enum expr_type type, expr_t *expr1, expr_t *expr2, expr_t *expr3) +{ + expr_t *e; + e = xmalloc(sizeof(expr_t)); + e->type = type; + e->ref = expr1; + e->u.ext = expr2; + e->ext2 = expr3; + e->is_const = FALSE; + /* check for compile-time optimization */ + if (expr1->is_const && expr2->is_const && expr3->is_const) + { + e->is_const = TRUE; + switch (type) + { + case EXPR_COND: + e->cval = expr1->cval ? expr2->cval : expr3->cval; + break; + default: + e->is_const = FALSE; + break; + } + } + return e; +} + +struct expression_type +{ + int is_variable; /* is the expression resolved to a variable? */ + int is_temporary; /* should the type be freed? */ + type_t *type; +}; + +static int is_integer_type(const type_t *type) +{ + switch (type->type) + { + case RPC_FC_BYTE: + case RPC_FC_CHAR: + case RPC_FC_SMALL: + case RPC_FC_USMALL: + case RPC_FC_WCHAR: + case RPC_FC_SHORT: + case RPC_FC_USHORT: + case RPC_FC_LONG: + case RPC_FC_ULONG: + case RPC_FC_INT3264: + case RPC_FC_UINT3264: + case RPC_FC_HYPER: + case RPC_FC_ENUM16: + case RPC_FC_ENUM32: + return TRUE; + default: + return FALSE; + } +} + +static void check_scalar_type(const struct expr_loc *expr_loc, + const type_t *cont_type, const type_t *type) +{ + if (!cont_type || (!is_integer_type(type) && !is_ptr(type) && + type->type != RPC_FC_FLOAT && + type->type != RPC_FC_DOUBLE)) + error_loc_info(&expr_loc->v->loc_info, "scalar type required in expression%s%s\n", + expr_loc->attr ? " for attribute " : "", + expr_loc->attr ? expr_loc->attr : ""); +} + +static void check_arithmetic_type(const struct expr_loc *expr_loc, + const type_t *cont_type, const type_t *type) +{ + if (!cont_type || (!is_integer_type(type) && + type->type != RPC_FC_FLOAT && + type->type != RPC_FC_DOUBLE)) + error_loc_info(&expr_loc->v->loc_info, "arithmetic type required in expression%s%s\n", + expr_loc->attr ? " for attribute " : "", + expr_loc->attr ? expr_loc->attr : ""); +} + +static void check_integer_type(const struct expr_loc *expr_loc, + const type_t *cont_type, const type_t *type) +{ + if (!cont_type || !is_integer_type(type)) + error_loc_info(&expr_loc->v->loc_info, "integer type required in expression%s%s\n", + expr_loc->attr ? " for attribute " : "", + expr_loc->attr ? expr_loc->attr : ""); +} + +static type_t *find_identifier(const char *identifier, const type_t *cont_type, int *found_in_cont_type) +{ + type_t *type = NULL; + const var_t *field; + const var_list_t *fields = NULL; + + *found_in_cont_type = 0; + + if (cont_type && (cont_type->type == RPC_FC_FUNCTION || is_struct(cont_type->type))) + fields = cont_type->fields_or_args; + else if (cont_type && is_union(cont_type->type)) + { + if (cont_type->type == RPC_FC_ENCAPSULATED_UNION) + { + const var_t *uv = LIST_ENTRY(list_tail(cont_type->fields_or_args), const var_t, entry); + fields = uv->type->fields_or_args; + } + else + fields = cont_type->fields_or_args; + } + + if (fields) LIST_FOR_EACH_ENTRY( field, fields, const var_t, entry ) + if (field->name && !strcmp(identifier, field->name)) + { + type = field->type; + *found_in_cont_type = 1; + break; + } + + if (!type) + { + var_t *const_var = find_const(identifier, 0); + if (const_var) type = const_var->type; + } + + return type; +} + +static struct expression_type resolve_expression(const struct expr_loc *expr_loc, + const type_t *cont_type, + const expr_t *e) +{ + struct expression_type result; + result.is_variable = FALSE; + result.is_temporary = FALSE; + result.type = NULL; + switch (e->type) + { + case EXPR_VOID: + break; + case EXPR_HEXNUM: + case EXPR_NUM: + case EXPR_TRUEFALSE: + result.is_variable = FALSE; + result.is_temporary = FALSE; + result.type = find_type("int", 0); + break; + case EXPR_STRLIT: + result.is_variable = FALSE; + result.is_temporary = TRUE; + result.type = make_type(RPC_FC_RP, find_type("char", 0)); + break; + case EXPR_WSTRLIT: + result.is_variable = FALSE; + result.is_temporary = TRUE; + result.type = make_type(RPC_FC_RP, find_type("wchar_t", 0)); + break; + case EXPR_DOUBLE: + result.is_variable = FALSE; + result.is_temporary = FALSE; + result.type = find_type("double", 0); + break; + case EXPR_IDENTIFIER: + { + int found_in_cont_type; + result.is_variable = TRUE; + result.is_temporary = FALSE; + result.type = find_identifier(e->u.sval, cont_type, &found_in_cont_type); + if (!result.type) + { + error_loc_info(&expr_loc->v->loc_info, "identifier %s cannot be resolved in expression%s%s\n", + e->u.sval, expr_loc->attr ? " for attribute " : "", + expr_loc->attr ? expr_loc->attr : ""); + } + break; + } + case EXPR_LOGNOT: + result = resolve_expression(expr_loc, cont_type, e->ref); + check_scalar_type(expr_loc, cont_type, result.type); + result.is_variable = FALSE; + result.is_temporary = FALSE; + result.type = find_type("int", 0); + break; + case EXPR_NOT: + result = resolve_expression(expr_loc, cont_type, e->ref); + check_integer_type(expr_loc, cont_type, result.type); + result.is_variable = FALSE; + break; + case EXPR_POS: + case EXPR_NEG: + result = resolve_expression(expr_loc, cont_type, e->ref); + check_arithmetic_type(expr_loc, cont_type, result.type); + result.is_variable = FALSE; + break; + case EXPR_ADDRESSOF: + result = resolve_expression(expr_loc, cont_type, e->ref); + if (!result.is_variable) + error_loc_info(&expr_loc->v->loc_info, "address-of operator applied to non-variable type in expression%s%s\n", + expr_loc->attr ? " for attribute " : "", + expr_loc->attr ? expr_loc->attr : ""); + result.is_variable = FALSE; + result.is_temporary = TRUE; + result.type = make_type(RPC_FC_RP, result.type); + break; + case EXPR_PPTR: + result = resolve_expression(expr_loc, cont_type, e->ref); + if (result.type && is_ptr(result.type)) + result.type = result.type->ref; + else + error_loc_info(&expr_loc->v->loc_info, "dereference operator applied to non-pointer type in expression%s%s\n", + expr_loc->attr ? " for attribute " : "", + expr_loc->attr ? expr_loc->attr : ""); + break; + case EXPR_CAST: + result = resolve_expression(expr_loc, cont_type, e->ref); + result.type = e->u.tref; + break; + case EXPR_SIZEOF: + result.is_variable = FALSE; + result.is_temporary = FALSE; + result.type = find_type("int", 0); + break; + case EXPR_SHL: + case EXPR_SHR: + case EXPR_MOD: + case EXPR_MUL: + case EXPR_DIV: + case EXPR_ADD: + case EXPR_SUB: + case EXPR_AND: + case EXPR_OR: + case EXPR_XOR: + { + struct expression_type result_right; + result = resolve_expression(expr_loc, cont_type, e->ref); + result.is_variable = FALSE; + result_right = resolve_expression(expr_loc, cont_type, e->u.ext); + /* FIXME: these checks aren't strict enough for some of the operators */ + check_scalar_type(expr_loc, cont_type, result.type); + check_scalar_type(expr_loc, cont_type, result_right.type); + break; + } + case EXPR_LOGOR: + case EXPR_LOGAND: + case EXPR_EQUALITY: + case EXPR_INEQUALITY: + case EXPR_GTR: + case EXPR_LESS: + case EXPR_GTREQL: + case EXPR_LESSEQL: + { + struct expression_type result_left, result_right; + result_left = resolve_expression(expr_loc, cont_type, e->ref); + result_right = resolve_expression(expr_loc, cont_type, e->u.ext); + check_scalar_type(expr_loc, cont_type, result_left.type); + check_scalar_type(expr_loc, cont_type, result_right.type); + result.is_variable = FALSE; + result.is_temporary = FALSE; + result.type = find_type("int", 0); + break; + } + case EXPR_MEMBER: + result = resolve_expression(expr_loc, cont_type, e->ref); + if (result.type && (is_struct(result.type->type) || is_union(result.type->type) || result.type->type == RPC_FC_ENUM16 || result.type->type == RPC_FC_ENUM32)) + result = resolve_expression(expr_loc, result.type, e->u.ext); + else + error_loc_info(&expr_loc->v->loc_info, "'.' or '->' operator applied to a type that isn't a structure, union or enumeration in expression%s%s\n", + expr_loc->attr ? " for attribute " : "", + expr_loc->attr ? expr_loc->attr : ""); + break; + case EXPR_COND: + { + struct expression_type result_first, result_second, result_third; + result_first = resolve_expression(expr_loc, cont_type, e->ref); + check_scalar_type(expr_loc, cont_type, result_first.type); + result_second = resolve_expression(expr_loc, cont_type, e->u.ext); + result_third = resolve_expression(expr_loc, cont_type, e->ext2); + /* FIXME: determine the correct return type */ + result = result_second; + result.is_variable = FALSE; + break; + } + case EXPR_ARRAY: + result = resolve_expression(expr_loc, cont_type, e->ref); + if (result.type && is_array(result.type)) + { + struct expression_type index_result; + result.type = result.type->ref; + index_result = resolve_expression(expr_loc, cont_type /* FIXME */, e->u.ext); + if (!index_result.type || !is_integer_type(index_result.type)) + error_loc_info(&expr_loc->v->loc_info, "array subscript not of integral type in expression%s%s\n", + expr_loc->attr ? " for attribute " : "", + expr_loc->attr ? expr_loc->attr : ""); + } + else + error_loc_info(&expr_loc->v->loc_info, "array subscript operator applied to non-array type in expression%s%s\n", + expr_loc->attr ? " for attribute " : "", + expr_loc->attr ? expr_loc->attr : ""); + break; + } + return result; +} + +const type_t *expr_resolve_type(const struct expr_loc *expr_loc, const type_t *cont_type, const expr_t *expr) +{ + struct expression_type expr_type; + expr_type = resolve_expression(expr_loc, cont_type, expr); + return expr_type.type; +} + +void write_expr(FILE *h, const expr_t *e, int brackets, + int toplevel, const char *toplevel_prefix, + const type_t *cont_type) +{ + switch (e->type) + { + case EXPR_VOID: + break; + case EXPR_NUM: + fprintf(h, "%lu", e->u.lval); + break; + case EXPR_HEXNUM: + fprintf(h, "0x%lx", e->u.lval); + break; + case EXPR_DOUBLE: + fprintf(h, "%#.15g", e->u.dval); + break; + case EXPR_TRUEFALSE: + if (e->u.lval == 0) + fprintf(h, "FALSE"); + else + fprintf(h, "TRUE"); + break; + case EXPR_IDENTIFIER: + if (toplevel && toplevel_prefix && cont_type) + { + int found_in_cont_type; + find_identifier(e->u.sval, cont_type, &found_in_cont_type); + if (found_in_cont_type) fprintf(h, "%s", toplevel_prefix); + } + fprintf(h, "%s", e->u.sval); + break; + case EXPR_STRLIT: + fprintf(h, "\"%s\"", e->u.sval); + break; + case EXPR_WSTRLIT: + fprintf(h, "L\"%s\"", e->u.sval); + break; + case EXPR_LOGNOT: + fprintf(h, "!"); + write_expr(h, e->ref, 1, toplevel, toplevel_prefix, cont_type); + break; + case EXPR_NOT: + fprintf(h, "~"); + write_expr(h, e->ref, 1, toplevel, toplevel_prefix, cont_type); + break; + case EXPR_POS: + fprintf(h, "+"); + write_expr(h, e->ref, 1, toplevel, toplevel_prefix, cont_type); + break; + case EXPR_NEG: + fprintf(h, "-"); + write_expr(h, e->ref, 1, toplevel, toplevel_prefix, cont_type); + break; + case EXPR_ADDRESSOF: + fprintf(h, "&"); + write_expr(h, e->ref, 1, toplevel, toplevel_prefix, cont_type); + break; + case EXPR_PPTR: + fprintf(h, "*"); + write_expr(h, e->ref, 1, toplevel, toplevel_prefix, cont_type); + break; + case EXPR_CAST: + fprintf(h, "("); + write_type_decl(h, e->u.tref, NULL); + fprintf(h, ")"); + write_expr(h, e->ref, 1, toplevel, toplevel_prefix, cont_type); + break; + case EXPR_SIZEOF: + fprintf(h, "sizeof("); + write_type_decl(h, e->u.tref, NULL); + fprintf(h, ")"); + break; + case EXPR_SHL: + case EXPR_SHR: + case EXPR_MOD: + case EXPR_MUL: + case EXPR_DIV: + case EXPR_ADD: + case EXPR_SUB: + case EXPR_AND: + case EXPR_OR: + case EXPR_LOGOR: + case EXPR_LOGAND: + case EXPR_XOR: + case EXPR_EQUALITY: + case EXPR_INEQUALITY: + case EXPR_GTR: + case EXPR_LESS: + case EXPR_GTREQL: + case EXPR_LESSEQL: + if (brackets) fprintf(h, "("); + write_expr(h, e->ref, 1, toplevel, toplevel_prefix, cont_type); + switch (e->type) + { + case EXPR_SHL: fprintf(h, " << "); break; + case EXPR_SHR: fprintf(h, " >> "); break; + case EXPR_MOD: fprintf(h, " %% "); break; + case EXPR_MUL: fprintf(h, " * "); break; + case EXPR_DIV: fprintf(h, " / "); break; + case EXPR_ADD: fprintf(h, " + "); break; + case EXPR_SUB: fprintf(h, " - "); break; + case EXPR_AND: fprintf(h, " & "); break; + case EXPR_OR: fprintf(h, " | "); break; + case EXPR_LOGOR: fprintf(h, " || "); break; + case EXPR_LOGAND: fprintf(h, " && "); break; + case EXPR_XOR: fprintf(h, " ^ "); break; + case EXPR_EQUALITY: fprintf(h, " == "); break; + case EXPR_INEQUALITY: fprintf(h, " != "); break; + case EXPR_GTR: fprintf(h, " > "); break; + case EXPR_LESS: fprintf(h, " < "); break; + case EXPR_GTREQL: fprintf(h, " >= "); break; + case EXPR_LESSEQL: fprintf(h, " <= "); break; + default: break; + } + write_expr(h, e->u.ext, 1, toplevel, toplevel_prefix, cont_type); + if (brackets) fprintf(h, ")"); + break; + case EXPR_MEMBER: + if (brackets) fprintf(h, "("); + if (e->ref->type == EXPR_PPTR) + { + write_expr(h, e->ref->ref, 1, toplevel, toplevel_prefix, cont_type); + fprintf(h, "->"); + } + else + { + write_expr(h, e->ref, 1, toplevel, toplevel_prefix, cont_type); + fprintf(h, "."); + } + write_expr(h, e->u.ext, 1, toplevel, toplevel_prefix, cont_type); + if (brackets) fprintf(h, ")"); + break; + case EXPR_COND: + if (brackets) fprintf(h, "("); + write_expr(h, e->ref, 1, toplevel, toplevel_prefix, cont_type); + fprintf(h, " ? "); + write_expr(h, e->u.ext, 1, toplevel, toplevel_prefix, cont_type); + fprintf(h, " : "); + write_expr(h, e->ext2, 1, toplevel, toplevel_prefix, cont_type); + if (brackets) fprintf(h, ")"); + break; + case EXPR_ARRAY: + if (brackets) fprintf(h, "("); + write_expr(h, e->ref, 1, toplevel, toplevel_prefix, cont_type); + fprintf(h, "["); + write_expr(h, e->u.ext, 1, toplevel, toplevel_prefix, cont_type); + fprintf(h, "]"); + if (brackets) fprintf(h, ")"); + break; + } +} + +/* This is actually fairly involved to implement precisely, due to the + effects attributes may have and things like that. Right now this is + only used for optimization, so just check for a very small set of + criteria that guarantee the types are equivalent; assume every thing + else is different. */ +static int compare_type(const type_t *a, const type_t *b) +{ + if (a == b + || (a->name + && b->name + && strcmp(a->name, b->name) == 0)) + return 0; + /* Ordering doesn't need to be implemented yet. */ + return 1; +} + +int compare_expr(const expr_t *a, const expr_t *b) +{ + int ret; + + if (a->type != b->type) + return a->type - b->type; + + switch (a->type) + { + case EXPR_NUM: + case EXPR_HEXNUM: + case EXPR_TRUEFALSE: + return a->u.lval - b->u.lval; + case EXPR_DOUBLE: + return a->u.dval - b->u.dval; + case EXPR_IDENTIFIER: + case EXPR_STRLIT: + case EXPR_WSTRLIT: + return strcmp(a->u.sval, b->u.sval); + case EXPR_COND: + ret = compare_expr(a->ref, b->ref); + if (ret != 0) + return ret; + ret = compare_expr(a->u.ext, b->u.ext); + if (ret != 0) + return ret; + return compare_expr(a->ext2, b->ext2); + case EXPR_OR: + case EXPR_AND: + case EXPR_ADD: + case EXPR_SUB: + case EXPR_MOD: + case EXPR_MUL: + case EXPR_DIV: + case EXPR_SHL: + case EXPR_SHR: + case EXPR_MEMBER: + case EXPR_ARRAY: + case EXPR_LOGOR: + case EXPR_LOGAND: + case EXPR_XOR: + case EXPR_EQUALITY: + case EXPR_INEQUALITY: + case EXPR_GTR: + case EXPR_LESS: + case EXPR_GTREQL: + case EXPR_LESSEQL: + ret = compare_expr(a->ref, b->ref); + if (ret != 0) + return ret; + return compare_expr(a->u.ext, b->u.ext); + case EXPR_CAST: + ret = compare_type(a->u.tref, b->u.tref); + if (ret != 0) + return ret; + /* Fall through. */ + case EXPR_NOT: + case EXPR_NEG: + case EXPR_PPTR: + case EXPR_ADDRESSOF: + case EXPR_LOGNOT: + case EXPR_POS: + return compare_expr(a->ref, b->ref); + case EXPR_SIZEOF: + return compare_type(a->u.tref, b->u.tref); + case EXPR_VOID: + return 0; + } + return -1; +} Propchange: trunk/reactos/tools/widl/expr.c ------------------------------------------------------------------------------ svn:eol-style = native Propchange: trunk/reactos/tools/widl/expr.c ------------------------------------------------------------------------------ svn:keywords = Author Date Id Revision Added: trunk/reactos/tools/widl/expr.h URL: http://svn.reactos.org/svn/reactos/trunk/reactos/tools/widl/expr.h?rev=3731… ============================================================================== --- trunk/reactos/tools/widl/expr.h (added) +++ trunk/reactos/tools/widl/expr.h [iso-8859-1] Wed Nov 12 13:30:10 2008 @@ -1,0 +1,40 @@ +/* + * Expression Abstract Syntax Tree Functions + * + * Copyright 2002 Ove Kaaven + * Copyright 2006-2008 Robert Shearman + * + * This library is free software; you can redistribute it and/or + * modify it under the terms of the GNU Lesser General Public + * License as published by the Free Software Foundation; either + * version 2.1 of the License, or (at your option) any later version. + * + * This library is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + * Lesser General Public License for more details. + * + * You should have received a copy of the GNU Lesser General Public + * License along with this library; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA + */ + +struct expr_loc +{ + const var_t *v; + const char *attr; +}; + +extern expr_t *make_expr(enum expr_type type); +extern expr_t *make_exprl(enum expr_type type, long val); +extern expr_t *make_exprd(enum expr_type type, double val); +extern expr_t *make_exprs(enum expr_type type, char *val); +extern expr_t *make_exprt(enum expr_type type, type_t *tref, expr_t *expr); +extern expr_t *make_expr1(enum expr_type type, expr_t *expr); +extern expr_t *make_expr2(enum expr_type type, expr_t *exp1, expr_t *exp2); +extern expr_t *make_expr3(enum expr_type type, expr_t *expr1, expr_t *expr2, expr_t *expr3); + +extern const type_t *expr_resolve_type(const struct expr_loc *expr_loc, const type_t *cont_type, const expr_t *expr); +extern int compare_expr(const expr_t *a, const expr_t *b); + +extern void write_expr(FILE *h, const expr_t *e, int brackets, int toplevel, const char *toplevel_prefix, const type_t *cont_type); Propchange: trunk/reactos/tools/widl/expr.h ------------------------------------------------------------------------------ svn:eol-style = native Propchange: trunk/reactos/tools/widl/expr.h ------------------------------------------------------------------------------ svn:keywords = Author Date Id Revision

1 0

[ekohl] 37313: Sync to wine-0.9.61: - Rob Shearman <rob@codeweavers.com> Sun, 20 Apr 2008 widl: Stop looping in check_remoting_args when a context_handle or wire_marshal type is found as they are in effect fundamental types. - Rob Shearman <rob@codeweavers.com> Sun, 20 Apr 2008 widl: Check that fields in structures and unions referenced by non-local functions can be marshalled and that their attributes are consistent. -Rob Shearman <rob@codeweavers.com> Sun, 20 Apr 2008 widl: The implicit_handle
by ekohl＠svn.reactos.org 12 Nov '08

12 Nov '08

Author: ekohl Date: Wed Nov 12 13:26:25 2008 New Revision: 37313 URL: http://svn.reactos.org/svn/reactos?rev=37313&view=rev Log: Sync to wine-0.9.61: - Rob Shearman <rob(a)codeweavers.com> Sun, 20 Apr 2008 widl: Stop looping in check_remoting_args when a context_handle or wire_marshal type is found as they are in effect fundamental types. - Rob Shearman <rob(a)codeweavers.com> Sun, 20 Apr 2008 widl: Check that fields in structures and unions referenced by non-local functions can be marshalled and that their attributes are consistent. -Rob Shearman <rob(a)codeweavers.com> Sun, 20 Apr 2008 widl: The implicit_handle attribute is allowed with a handle explicitly specified in the function parameters. In that case, that handle is used instead of the implicit handle. Fix the check for the explicit_handle attribute being specified without a handle being specified in the function parameters, even though issuing an error is wrong. (Thanks to Marcus Meissner & Coverity for spotting that the check didn't do what it was supposed to do.) - Rob Shearman <rob(a)codeweavers.com> Sun, 20 Apr 2008 widl: Automatically add "handle_t IDL_handle" parameter to functions with no explicit handle specified whose containing interface has the explicit_handle attribute. - Rob Shearman <rob(a)codeweavers.com> Sun, 20 Apr 2008 widl: Issue an error instead of crashing for dividing by zero in a constant expression. - Rob Shearman <rob(a)codeweavers.com> Sun, 20 Apr 2008 widl: Add support for "->" and "." operators in expressions. - Rob Shearman <rob(a)codeweavers.com> Sun, 20 Apr 2008 widl: Add support for arrays in expressions. - Rob Shearman <rob(a)codeweavers.com> Sun, 20 Apr 2008 widl: Add support for '%' operator in expressions. - Rob Shearman <rob(a)codeweavers.com> Tue, 22 Apr 2008 widl: Fix operator precedence in expressions. - Rob Shearman <rob(a)codeweavers.com> Tue, 22 Apr 2008 widl: Require a constant expression for case statements. - Rob Shearman <rob(a)codeweavers.com> Tue, 22 Apr 2008 widl: Add support for comparison, exclusive or, logical not and positive operators in expressions. - Rob Shearman <rob(a)codeweavers.com> Tue, 22 Apr 2008 widl: Remove EXPR_MEMBERPTR and implement it using EXPR_PPTR and EXPR_MEMBER instead. - Rob Shearman <rob(a)codeweavers.com> Tue, 22 Apr 2008 widl: Don't free input_name in pop_import as we keep pointers to it in the var_t type now. - Rob Shearman <rob(a)codeweavers.com> Tue, 22 Apr 2008 widl: Pass the actual type into check_remoting_fields and check_field_common instead of the type name. - Rob Shearman <rob(a)codeweavers.com> Tue, 22 Apr 2008 widl: Check that expressions resolve so that expressions in generated code will compile. Also check that expressions return the correct type for the attribute. - Rob Shearman <rob(a)codeweavers.com> Tue, 22 Apr 2008 widl: Move expression functions to a new file, expr.c. - Rob Shearman <rob(a)codeweavers.com> Tue, 22 Apr 2008 widl: Use expr_resolve_type to get the type of the identifier in write_conf_or_var_desc. Remove the conversion of pointer types into base types as this was only needed due to lack of proper type resolving. - Rob Shearman <rob(a)codeweavers.com> Tue, 22 Apr 2008 widl: Remove duplicated code in the form of the write_struct_expr function by enhancing write_expr to allow toplevel identifiers to be prefixed by a string, if specified. - Rob Shearman <rob(a)codeweavers.com> Thu, 24 Apr 2008 widl: Implement lcid property on library declarations. - Rob Shearman <rob(a)codeweavers.com> Thu, 24 Apr 2008 widl: Construct the pointer chain while parsing pointers, rather than storing a ptr_level. This method is more flexible and somewhat simpler. - Rob Shearman <rob(a)codeweavers.com> Thu, 24 Apr 2008 widl: Allow NULL to be used in expressions. - Rob Shearman <rob(a)codeweavers.com> Thu, 24 Apr 2008 widl: Create a list of statements in the whole IDL file, instead of just a list of interfaces. - Rob Shearman <rob(a)codeweavers.com> Thu, 24 Apr 2008 widl: Add typedef statements to the statement lists. - Rob Shearman <rob(a)codeweavers.com> Fri, 25 Apr 2008 widl: Consolidate most of the inner loop of reg_typedefs into set_type. - Rob Shearman <rob(a)codeweavers.com> Fri, 25 Apr 2008 widl: Rename pident to declarator and parse the array declarations as part of declarators. This allows arrays to be used in typedefs and const statements. - Rob Shearman <rob(a)codeweavers.com> Fri, 25 Apr 2008 widl: Make the rules for parsing fields in structures, encapsulated unions and non-encapsulated unions more strict. Move the rules in fields that handle empty union cases into separate union rules so that they can't erroneously be accepted for structures or other types of unions. - Rob Shearman <rob(a)codeweavers.com> Fri, 25 Apr 2008 widl: Add support for declaring multiple fields of a structure in one statement. - Rob Shearman <rob(a)codeweavers.com> Fri, 25 Apr 2008 widl: Add support for string literals and wide-string literals in expressions. - Rob Shearman <rob(a)codeweavers.com> Fri, 25 Apr 2008 widl: Create a statement object for import statements. Move the writing of include directives into the generated header into header.c. - Rob Shearman <rob(a)codeweavers.com> Fri, 25 Apr 2008 widl: Move the func_declarator rule entirely into direct_declarator. - Rob Shearman <rob(a)codeweavers.com> Sat, 26 Apr 2008 widl: Add typedefs to typelibs which have the public or uuid attributes, not any other attribute. - Rob Shearman <rob(a)codeweavers.com> Sat, 26 Apr 2008 widl: Support hex digits that use an uppercase 0X prefix. - Rob Shearman <rob(a)codeweavers.com> Sun, 27 Apr 2008 widl: Accept integer constant suffixes in the lexer. - Rob Shearman <rob(a)codeweavers.com> Tue, 29 Apr 2008 widl: Keep const attributes applied to pointers when writing out the type. Use an attribute to store the const qualifier for the pointer and type. Allow multiple type-qualifiers to be applied to a type by adding a declaration-specifier rule that encompasses type-qualifiers and types. - Rob Shearman <rob(a)codeweavers.com> Tue, 29 Apr 2008 widl: Add support for "inline" on function definitions. Fix applying calling convention to function type. - Rob Shearman <rob(a)codeweavers.com> Tue, 29 Apr 2008 widl: Make constdef and externdef take a declarator instead of an ident so that functions and arrays can be defined using the statements. - Rob Shearman <rob(a)codeweavers.com> Tue, 29 Apr 2008 widl: Allow pointer attributes to be applied to function pointers. - Rob Shearman <rob(a)codeweavers.com> Tue, 29 Apr 2008 widl: callback, code, comm_status and in_line are attribute names, not keywords. - Rob Shearman <rob(a)codeweavers.com> Wed, 30 Apr 2008 widl: Prepare for supporting storage classes in declaration statements. Return a decl_spec_t structure from decl_spec rules so that the storage class and type qualifiers can both be returned. - Rob Shearman <rob(a)codeweavers.com> Wed, 30 Apr 2008 widl: Add the parsing of storage classes into declaration-specifiers. Support the static and register keywords. This consolidates externdef and constdef rules into one declaration rule. - Rob Shearman <rob(a)codeweavers.com> Thu, 1 May 2008 widl: Consolidate writing of COM and dispatch interfaces into one function to remove duplicated code. Split up the writing into start and end to eventually support the style MIDL uses where it writes declared types, etc. between the start and end of the interface. Make internal header functions take the file pointer to print to. Don't write interface IDs for non-object interfaces and always write handle declarations even if the interface has no methods, like MIDL does. - Gerald Pfeifer <gerald(a)pfeifer.com> Fri, 2 May 2008 widl: Fix syntax to also work with older versions of bison. Modified: trunk/reactos/media/doc/README.WINE trunk/reactos/tools/widl/client.c trunk/reactos/tools/widl/header.c trunk/reactos/tools/widl/header.h trunk/reactos/tools/widl/parser.l trunk/reactos/tools/widl/parser.tab.c trunk/reactos/tools/widl/parser.tab.h trunk/reactos/tools/widl/parser.y trunk/reactos/tools/widl/parser.yy.c trunk/reactos/tools/widl/proxy.c trunk/reactos/tools/widl/server.c trunk/reactos/tools/widl/typegen.c trunk/reactos/tools/widl/typegen.h trunk/reactos/tools/widl/typelib.c trunk/reactos/tools/widl/typelib.h trunk/reactos/tools/widl/widl.c trunk/reactos/tools/widl/widl.h trunk/reactos/tools/widl/widl.rbuild trunk/reactos/tools/widl/widltypes.h trunk/reactos/tools/widl/write_msft.c [This mail would be too long, it was shortened to contain the URLs only.] Modified: trunk/reactos/media/doc/README.WINE URL: http://svn.reactos.org/svn/reactos/trunk/reactos/media/doc/README.WINE?rev=… Modified: trunk/reactos/tools/widl/client.c URL: http://svn.reactos.org/svn/reactos/trunk/reactos/tools/widl/client.c?rev=37… Modified: trunk/reactos/tools/widl/header.c URL: http://svn.reactos.org/svn/reactos/trunk/reactos/tools/widl/header.c?rev=37… Modified: trunk/reactos/tools/widl/header.h URL: http://svn.reactos.org/svn/reactos/trunk/reactos/tools/widl/header.h?rev=37… Modified: trunk/reactos/tools/widl/parser.l URL: http://svn.reactos.org/svn/reactos/trunk/reactos/tools/widl/parser.l?rev=37… Modified: trunk/reactos/tools/widl/parser.tab.c URL: http://svn.reactos.org/svn/reactos/trunk/reactos/tools/widl/parser.tab.c?re… Modified: trunk/reactos/tools/widl/parser.tab.h URL: http://svn.reactos.org/svn/reactos/trunk/reactos/tools/widl/parser.tab.h?re… Modified: trunk/reactos/tools/widl/parser.y URL: http://svn.reactos.org/svn/reactos/trunk/reactos/tools/widl/parser.y?rev=37… Modified: trunk/reactos/tools/widl/parser.yy.c URL: http://svn.reactos.org/svn/reactos/trunk/reactos/tools/widl/parser.yy.c?rev… Modified: trunk/reactos/tools/widl/proxy.c URL: http://svn.reactos.org/svn/reactos/trunk/reactos/tools/widl/proxy.c?rev=373… Modified: trunk/reactos/tools/widl/server.c URL: http://svn.reactos.org/svn/reactos/trunk/reactos/tools/widl/server.c?rev=37… Modified: trunk/reactos/tools/widl/typegen.c URL: http://svn.reactos.org/svn/reactos/trunk/reactos/tools/widl/typegen.c?rev=3… Modified: trunk/reactos/tools/widl/typegen.h URL: http://svn.reactos.org/svn/reactos/trunk/reactos/tools/widl/typegen.h?rev=3… Modified: trunk/reactos/tools/widl/typelib.c URL: http://svn.reactos.org/svn/reactos/trunk/reactos/tools/widl/typelib.c?rev=3… Modified: trunk/reactos/tools/widl/typelib.h URL: http://svn.reactos.org/svn/reactos/trunk/reactos/tools/widl/typelib.h?rev=3… Modified: trunk/reactos/tools/widl/widl.c URL: http://svn.reactos.org/svn/reactos/trunk/reactos/tools/widl/widl.c?rev=3731… Modified: trunk/reactos/tools/widl/widl.h URL: http://svn.reactos.org/svn/reactos/trunk/reactos/tools/widl/widl.h?rev=3731… Modified: trunk/reactos/tools/widl/widl.rbuild URL: http://svn.reactos.org/svn/reactos/trunk/reactos/tools/widl/widl.rbuild?rev… Modified: trunk/reactos/tools/widl/widltypes.h URL: http://svn.reactos.org/svn/reactos/trunk/reactos/tools/widl/widltypes.h?rev… Modified: trunk/reactos/tools/widl/write_msft.c URL: http://svn.reactos.org/svn/reactos/trunk/reactos/tools/widl/write_msft.c?re…

1 0

[greatlrd] 37312: port a really old test I have for ddraw.dll, this test testing see if the internal value are right when u create the com interface
by greatlrd＠svn.reactos.org 12 Nov '08

12 Nov '08

Author: greatlrd Date: Wed Nov 12 12:48:24 2008 New Revision: 37312 URL: http://svn.reactos.org/svn/reactos?rev=37312&view=rev Log: port a really old test I have for ddraw.dll, this test testing see if the internal value are right when u create the com interface Added: branches/reactx/rostests/apitests/ddrawapi/ branches/reactx/rostests/apitests/ddrawapi/ddrawapi.c (with props) branches/reactx/rostests/apitests/ddrawapi/ddrawapi.h (with props) branches/reactx/rostests/apitests/ddrawapi/ddrawapi.rbuild (with props) branches/reactx/rostests/apitests/ddrawapi/testlist.c (with props) branches/reactx/rostests/apitests/ddrawapi/tests/ branches/reactx/rostests/apitests/ddrawapi/tests/Test_DirectDrawCreateEx.c (with props) Modified: branches/reactx/rostests/apitests/directory.rbuild Added: branches/reactx/rostests/apitests/ddrawapi/ddrawapi.c URL: http://svn.reactos.org/svn/reactos/branches/reactx/rostests/apitests/ddrawa… ============================================================================== --- branches/reactx/rostests/apitests/ddrawapi/ddrawapi.c (added) +++ branches/reactx/rostests/apitests/ddrawapi/ddrawapi.c [iso-8859-1] Wed Nov 12 12:48:24 2008 @@ -1,0 +1,21 @@ +#include "ddrawapi.h" + +HINSTANCE g_hInstance; + +BOOL +IsFunctionPresent(LPWSTR lpszFunction) +{ + return TRUE; +} + +int APIENTRY +WinMain(HINSTANCE hInstance, + HINSTANCE hPrevInstance, + LPSTR lpCmdLine, + int nCmdShow) +{ + g_hInstance = hInstance; + return TestMain(L"ddrawapi", L"ddraw.dll"); +} + + Propchange: branches/reactx/rostests/apitests/ddrawapi/ddrawapi.c ------------------------------------------------------------------------------ svn:eol-style = native Added: branches/reactx/rostests/apitests/ddrawapi/ddrawapi.h URL: http://svn.reactos.org/svn/reactos/branches/reactx/rostests/apitests/ddrawa… ============================================================================== --- branches/reactx/rostests/apitests/ddrawapi/ddrawapi.h (added) +++ branches/reactx/rostests/apitests/ddrawapi/ddrawapi.h [iso-8859-1] Wed Nov 12 12:48:24 2008 @@ -1,0 +1,21 @@ + + +/* Definitions */ +#define WIN32_NO_STATUS +#define NTOS_MODE_USER + +/* SDK/DDK/NDK Headers. */ +#include <windows.h> +#include <stdio.h> +#include <ddraw.h> +#include <ddrawi.h> +#include <d3dhal.h> +#include <ddrawgdi.h> + + + + +#include "../apitest.h" + + + Propchange: branches/reactx/rostests/apitests/ddrawapi/ddrawapi.h ------------------------------------------------------------------------------ svn:eol-style = native Added: branches/reactx/rostests/apitests/ddrawapi/ddrawapi.rbuild URL: http://svn.reactos.org/svn/reactos/branches/reactx/rostests/apitests/ddrawa… ============================================================================== --- branches/reactx/rostests/apitests/ddrawapi/ddrawapi.rbuild (added) +++ branches/reactx/rostests/apitests/ddrawapi/ddrawapi.rbuild [iso-8859-1] Wed Nov 12 12:48:24 2008 @@ -1,0 +1,16 @@ +<module name="ddrawapi" type="win32cui"> + <include base="ddrawapi">.</include> + <define name="__USE_W32API" /> + <library>apitest</library> + <library>kernel32</library> + <library>user32</library> + <library>gdi32</library> + <library>d3d8thk</library> + <library>dxguid</library> + <library>ddraw</library> + <library>ole32</library> + <library>advapi32</library> + <library>shell32</library> + <file>ddrawapi.c</file> + <file>testlist.c</file> +</module> Propchange: branches/reactx/rostests/apitests/ddrawapi/ddrawapi.rbuild ------------------------------------------------------------------------------ svn:eol-style = native Added: branches/reactx/rostests/apitests/ddrawapi/testlist.c URL: http://svn.reactos.org/svn/reactos/branches/reactx/rostests/apitests/ddrawa… ============================================================================== --- branches/reactx/rostests/apitests/ddrawapi/testlist.c (added) +++ branches/reactx/rostests/apitests/ddrawapi/testlist.c [iso-8859-1] Wed Nov 12 12:48:24 2008 @@ -1,0 +1,44 @@ +#ifndef _DDRAWTESTLIST_H +#define _DDRAWTESTLIST_H + +#include "ddrawapi.h" +void dump_ddrawi_directdraw_int(LPDDRAWI_DIRECTDRAW_INT lpDraw_int); + +/* dump all data struct when this is trun onm usefull when u debug ddraw.dll */ +#define DUMP_ON 1 + +/* include the tests */ +#include "tests/Test_DirectDrawCreateEx.c" + + + + + + + + +/* The List of tests */ +TESTENTRY TestList[] = +{ + { L"DirectDrawCreateEx", Test_DirectDrawCreateEx } +}; + +/* The function that gives us the number of tests */ +INT NumTests(void) +{ + return sizeof(TestList) / sizeof(TESTENTRY); +} + +/* old debug macro and dump data */ + + +void dump_ddrawi_directdraw_int(LPDDRAWI_DIRECTDRAW_INT lpDraw_int) +{ + printf("%08lx pIntDirectDraw7->lpVtbl : 0x%p\n", FIELD_OFFSET(DDRAWI_DIRECTDRAW_INT, lpVtbl), lpDraw_int->lpVtbl); + printf("%08lx pIntDirectDraw7->lpLcl : 0x%p\n", FIELD_OFFSET(DDRAWI_DIRECTDRAW_INT, lpLcl), lpDraw_int->lpLcl ); + printf("%08lx pIntDirectDraw7->lpLink : 0x%p\n", FIELD_OFFSET(DDRAWI_DIRECTDRAW_INT, lpLink), lpDraw_int->lpLink ); + printf("%08lx pIntDirectDraw7->dwIntRefCnt : 0x%08lx \n", FIELD_OFFSET(DDRAWI_DIRECTDRAW_INT, dwIntRefCnt), lpDraw_int->dwIntRefCnt ); +} +#endif + +/* EOF */ Propchange: branches/reactx/rostests/apitests/ddrawapi/testlist.c ------------------------------------------------------------------------------ svn:eol-style = native Added: branches/reactx/rostests/apitests/ddrawapi/tests/Test_DirectDrawCreateEx.c URL: http://svn.reactos.org/svn/reactos/branches/reactx/rostests/apitests/ddrawa… ============================================================================== --- branches/reactx/rostests/apitests/ddrawapi/tests/Test_DirectDrawCreateEx.c (added) +++ branches/reactx/rostests/apitests/ddrawapi/tests/Test_DirectDrawCreateEx.c [iso-8859-1] Wed Nov 12 12:48:24 2008 @@ -1,0 +1,35 @@ + +INT +Test_DirectDrawCreateEx(PTESTINFO pti) +{ + + LPDIRECTDRAW7 DirectDraw7; + LPDDRAWI_DIRECTDRAW_INT pIntDirectDraw7; + HRESULT ret; + + + /* Create DirectDraw7 */ + ret = DirectDrawCreateEx(NULL, (VOID**)&DirectDraw7, &IID_IDirectDraw7, NULL); + pIntDirectDraw7 = (DDRAWI_DIRECTDRAW_INT *)DirectDraw7; + + RTEST(ret == DD_OK); + if (ret == DD_OK) + { + RTEST(pIntDirectDraw7->lpVtbl != NULL); + RTEST(pIntDirectDraw7->lpLcl != NULL); + RTEST(pIntDirectDraw7->lpLink == NULL); + RTEST(pIntDirectDraw7->dwIntRefCnt == 1); + } + +#if DUMP_ON + if (pIntDirectDraw7 != NULL) + { + dump_ddrawi_directdraw_int(pIntDirectDraw7); + } +#endif + + DirectDraw7 = NULL; + pIntDirectDraw7 = NULL; + return APISTATUS_NORMAL; +} + Propchange: branches/reactx/rostests/apitests/ddrawapi/tests/Test_DirectDrawCreateEx.c ------------------------------------------------------------------------------ svn:eol-style = native Modified: branches/reactx/rostests/apitests/directory.rbuild URL: http://svn.reactos.org/svn/reactos/branches/reactx/rostests/apitests/direct… ============================================================================== --- branches/reactx/rostests/apitests/directory.rbuild [iso-8859-1] (original) +++ branches/reactx/rostests/apitests/directory.rbuild [iso-8859-1] Wed Nov 12 12:48:24 2008 @@ -10,7 +10,11 @@ <directory name="dciman32api"> <xi:include href="dciman32api/dciman32api.rbuild" /> </directory> - + + <directory name="ddrawapi"> + <xi:include href="ddrawapi/ddrawapi.rbuild" /> + </directory> + <directory name="gdi32api"> <xi:include href="gdi32api/gdi32api.rbuild" /> </directory>

1 0

← Newer
1
...
44
45
46
47
48
49
50
...
66
Older →

Jump to page:

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

Ros-diffs November 2008