1 // win32.cc - Helper functions for Microsoft-flavored OSs.
3 /* Copyright (C) 2002, 2003 Free Software Foundation
5 This file is part of libgcj.
7 This software is copyrighted work licensed under the terms of the
8 Libgcj License. Please consult the file "LIBGCJ_LICENSE" for
13 #include <sys/timeb.h>
17 #include <java/lang/ArithmeticException.h>
18 #include <java/lang/UnsupportedOperationException.h>
19 #include <java/io/IOException.h>
20 #include <java/net/SocketException.h>
21 #include <java/util/Properties.h>
24 win32_exception_handler (LPEXCEPTION_POINTERS e
)
26 if (e
->ExceptionRecord
->ExceptionCode
== EXCEPTION_ACCESS_VIOLATION
)
27 _Jv_ThrowNullPointerException();
28 else if (e
->ExceptionRecord
->ExceptionCode
== EXCEPTION_INT_DIVIDE_BY_ZERO
)
29 throw new java::lang::ArithmeticException
;
31 return EXCEPTION_CONTINUE_SEARCH
;
34 // Platform-specific executable name
35 static char exec_name
[MAX_PATH
];
36 // initialized in _Jv_platform_initialize()
38 const char *_Jv_ThisExecutable (void)
43 // Helper classes and methods implementation
45 // class WSAEventWrapper
46 WSAEventWrapper::WSAEventWrapper (int fd
, DWORD dwSelFlags
):
49 m_dwSelFlags(dwSelFlags
)
51 m_hEvent
= WSACreateEvent ();
53 WSAEventSelect(fd
, m_hEvent
, dwSelFlags
);
56 WSAEventWrapper::~WSAEventWrapper ()
60 WSAEventSelect(m_fd
, m_hEvent
, 0);
61 if (m_dwSelFlags
& (FD_ACCEPT
| FD_CONNECT
))
63 // Set the socket back to non-blocking mode.
64 // Ignore any error since we're in a destructor.
65 unsigned long lSockOpt
= 0L;
67 ::ioctlsocket (m_fd
, FIONBIO
, &lSockOpt
);
70 WSACloseEvent (m_hEvent
);
75 _Jv_WinStrError (LPCTSTR lpszPrologue
, int nErrorCode
)
79 DWORD dwFlags
= FORMAT_MESSAGE_ALLOCATE_BUFFER
|
80 FORMAT_MESSAGE_FROM_SYSTEM
|
81 FORMAT_MESSAGE_IGNORE_INSERTS
;
83 FormatMessage (dwFlags
,
86 MAKELANGID(LANG_NEUTRAL
, SUBLANG_DEFAULT
),
95 (LPTSTR
) _Jv_Malloc (strlen (lpszPrologue
) +
96 strlen (lpMsgBuf
) + 3);
97 strcpy (lpszTemp
, lpszPrologue
);
98 strcat (lpszTemp
, ": ");
99 strcat (lpszTemp
, lpMsgBuf
);
100 ret
= JvNewStringLatin1 (lpszTemp
);
104 ret
= JvNewStringLatin1 (lpMsgBuf
);
112 _Jv_WinStrError (int nErrorCode
)
114 return _Jv_WinStrError (0, nErrorCode
);
117 void _Jv_ThrowIOException (DWORD dwErrorCode
)
119 throw new java::io::IOException (_Jv_WinStrError (dwErrorCode
));
122 void _Jv_ThrowIOException()
124 DWORD dwErrorCode
= WSAGetLastError ();
125 _Jv_ThrowIOException (dwErrorCode
);
128 void _Jv_ThrowSocketException (DWORD dwErrorCode
)
130 throw new java::net::SocketException (_Jv_WinStrError (dwErrorCode
));
133 void _Jv_ThrowSocketException()
135 DWORD dwErrorCode
= WSAGetLastError ();
136 _Jv_ThrowSocketException (dwErrorCode
);
139 // Platform-specific VM initialization.
141 _Jv_platform_initialize (void)
143 // Initialise winsock for networking
145 if (WSAStartup (MAKEWORD (1, 1), &data
))
146 MessageBox (NULL
, "Error initialising winsock library.", "Error",
147 MB_OK
| MB_ICONEXCLAMATION
);
149 // Install exception handler
150 SetUnhandledExceptionFilter (win32_exception_handler
);
152 // Initialize our executable name
153 GetModuleFileName(NULL
, exec_name
, sizeof(exec_name
));
156 // gettimeofday implementation.
158 _Jv_platform_gettimeofday ()
162 return t
.time
* 1000LL + t
.millitm
;
165 // The following definitions "fake out" mingw to think that -mthreads
166 // was enabled and that mingwthr.dll was linked. GCJ-compiled
167 // applications don't need this helper library because we can safely
168 // detect thread death (return from Thread.run()).
173 __mingwthr_key_dtor (DWORD
, void (*) (void *))
175 // FIXME: for now we do nothing; this causes a memory leak of
176 // approximately 24 bytes per thread created.
180 // Set platform-specific System properties.
182 _Jv_platform_initProperties (java::util::Properties
* newprops
)
184 // A convenience define.
185 #define SET(Prop,Val) \
186 newprops->put(JvNewStringLatin1 (Prop), JvNewStringLatin1 (Val))
188 SET ("file.separator", "\\");
189 SET ("path.separator", ";");
190 SET ("line.separator", "\r\n");
192 // Use GetCurrentDirectory to set 'user.dir'.
193 DWORD buflen
= MAX_PATH
;
194 char *buffer
= (char *) _Jv_MallocUnchecked (buflen
);
197 if (GetCurrentDirectory (buflen
, buffer
))
198 SET ("user.dir", buffer
);
200 if (GetTempPath (buflen
, buffer
))
201 SET ("java.io.tmpdir", buffer
);
206 // Use GetUserName to set 'user.name'.
207 buflen
= 257; // UNLEN + 1
208 buffer
= (char *) _Jv_MallocUnchecked (buflen
);
211 if (GetUserName (buffer
, &buflen
))
212 SET ("user.name", buffer
);
216 // According to the api documentation for 'GetWindowsDirectory()', the
217 // environmental variable HOMEPATH always specifies the user's home
218 // directory or a default directory. On the 3 windows machines I checked
219 // only 1 had it set. If it's not set, JDK1.3.1 seems to set it to
220 // the windows directory, so we'll do the same.
221 char *userHome
= NULL
;
222 if ((userHome
= ::getenv ("HOMEPATH")) == NULL
)
224 // Check HOME since it's what I use.
225 if ((userHome
= ::getenv ("HOME")) == NULL
)
227 // Not found - use the windows directory like JDK1.3.1 does.
228 char *winHome
= (char *) _Jv_MallocUnchecked (MAX_PATH
);
231 if (GetWindowsDirectory (winHome
, MAX_PATH
))
232 SET ("user.home", winHome
);
237 if (userHome
!= NULL
)
238 SET ("user.home", userHome
);
240 // Get and set some OS info.
242 ZeroMemory (&osvi
, sizeof(OSVERSIONINFO
));
243 osvi
.dwOSVersionInfoSize
= sizeof(OSVERSIONINFO
);
244 if (GetVersionEx (&osvi
))
246 char *buffer
= (char *) _Jv_MallocUnchecked (30);
249 sprintf (buffer
, "%d.%d", (int) osvi
.dwMajorVersion
,
250 (int) osvi
.dwMinorVersion
);
251 SET ("os.version", buffer
);
255 switch (osvi
.dwPlatformId
)
257 case VER_PLATFORM_WIN32_WINDOWS
:
258 if (osvi
.dwMajorVersion
== 4 && osvi
.dwMinorVersion
== 0)
259 SET ("os.name", "Windows 95");
260 else if (osvi
.dwMajorVersion
== 4 && osvi
.dwMinorVersion
== 10)
261 SET ("os.name", "Windows 98");
262 else if (osvi
.dwMajorVersion
== 4 && osvi
.dwMinorVersion
== 90)
263 SET ("os.name", "Windows Me");
265 SET ("os.name", "Windows ??");
268 case VER_PLATFORM_WIN32_NT
:
269 if (osvi
.dwMajorVersion
<= 4 )
270 SET ("os.name", "Windows NT");
271 else if (osvi
.dwMajorVersion
== 5 && osvi
.dwMinorVersion
== 0)
272 SET ("os.name", "Windows 2000");
273 else if (osvi
.dwMajorVersion
== 5 && osvi
.dwMinorVersion
== 1)
274 SET ("os.name", "Windows XP");
276 SET ("os.name", "Windows NT ??");
280 SET ("os.name", "Windows UNKNOWN");
285 // Set the OS architecture.
288 switch (si
.wProcessorArchitecture
)
290 case PROCESSOR_ARCHITECTURE_INTEL
:
291 SET ("os.arch", "x86");
293 case PROCESSOR_ARCHITECTURE_MIPS
:
294 SET ("os.arch", "mips");
296 case PROCESSOR_ARCHITECTURE_ALPHA
:
297 SET ("os.arch", "alpha");
299 case PROCESSOR_ARCHITECTURE_PPC
:
300 SET ("os.arch", "ppc");
302 case PROCESSOR_ARCHITECTURE_IA64
:
303 SET ("os.arch", "ia64");
305 case PROCESSOR_ARCHITECTURE_UNKNOWN
:
307 SET ("os.arch", "unknown");
312 /* Store up to SIZE return address of the current program state in
313 ARRAY and return the exact number of values stored. */
315 backtrace (void **__array
, int __size
)
317 register void *_ebp
__asm__ ("ebp");
318 register void *_esp
__asm__ ("esp");
322 for (rfp
= *(unsigned int**)_ebp
;
324 rfp
= *(unsigned int **)rfp
)
326 int diff
= *rfp
- (unsigned int)rfp
;
327 if ((void*)rfp
< _esp
|| diff
> 4 * 1024 || diff
< 0) break;
329 __array
[i
++] = (void*)(rfp
[1]-4);
335 _Jv_select (int n
, fd_set
*readfds
, fd_set
*writefds
,
336 fd_set
*exceptfds
, struct timeval
*timeout
)
338 int r
= ::select (n
, readfds
, writefds
, exceptfds
, timeout
);
339 if (r
== SOCKET_ERROR
)
341 DWORD dwErrorCode
= WSAGetLastError ();
342 throw new java::io::IOException (_Jv_WinStrError (dwErrorCode
));
348 _Jv_pipe (int filedes
[2])
350 return _pipe (filedes
, 4096, _O_BINARY
);