hg/stx-libbasic: Win32OperatingSystem.st@389daab3ee10 (annotated)

16285 d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	1	"{ Encoding: utf8 }"
d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	2
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4	COPYRIGHT (c) 1988 by Claus Gittinger
8078 dc95f02fa4c5 commandAndArgsForOSCommand: if no redirection and the command starts ca parents: 7865 diff changeset	5	COPYRIGHT (c) 1998-2004 by eXept Software AG
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6	All Rights Reserved
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8	This software is furnished under a license and may be used
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9	only in accordance with the terms of that license and with the
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10	inclusion of the above copyright notice. This software may not
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11	be provided or otherwise made available to, or used by, any
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12	other person. No title to or ownership of the software is
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13	hereby transferred.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	14	"
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	15	"{ Package: 'stx:libbasic' }"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	16
17286 a7170033e17f directory access ca parents: 17169 diff changeset	17	"{ NameSpace: Smalltalk }"
a7170033e17f directory access ca parents: 17169 diff changeset	18
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	19	AbstractOperatingSystem subclass:#Win32OperatingSystem
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	20	instanceVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	21	classVariableNames:'CurrentDirectory DomainName HostName LastOsTimeHi LastOsTimeLow
25237 c830ee387d02 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25236 diff changeset	22	LastTimeInfo LastTimeInfoIsLocal ConsoleOutputEncoder'
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	23	poolDictionaries:'Win32Constants'
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	24	category:'OS-Windows'
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	25	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	26
9475 c57956a348bf printing support fm parents: 9431 diff changeset	27	ByteArray variableByteSubclass:#DevModeStructure
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	28	instanceVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	29	classVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	30	poolDictionaries:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	31	privateIn:Win32OperatingSystem
9475 c57956a348bf printing support fm parents: 9431 diff changeset	32	!
c57956a348bf printing support fm parents: 9431 diff changeset	33
c57956a348bf printing support fm parents: 9431 diff changeset	34	ByteArray variableByteSubclass:#DocInfoStructure
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	35	instanceVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	36	classVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	37	poolDictionaries:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	38	privateIn:Win32OperatingSystem
9475 c57956a348bf printing support fm parents: 9431 diff changeset	39	!
c57956a348bf printing support fm parents: 9431 diff changeset	40
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	41	Object subclass:#FileStatusInfo
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	42	instanceVariableNames:'type mode uid gid size id accessed modified created statusChanged
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	43	sourcePath linkTargetPath fullPathName alternativePathName'
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	44	classVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	45	poolDictionaries:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	46	privateIn:Win32OperatingSystem
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	47	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	48
21180 88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	49	Object subclass:#OSProcessDescriptor
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	50	instanceVariableNames:'pid parentPid commandLine'
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	51	classVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	52	poolDictionaries:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	53	privateIn:Win32OperatingSystem
21180 88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	54	!
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	55
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	56	Object subclass:#OSProcessStatus
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	57	instanceVariableNames:'pid status code core'
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	58	classVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	59	poolDictionaries:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	60	privateIn:Win32OperatingSystem
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	61	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	62
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	63	SharedPool subclass:#PECOFFConstants
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	64	instanceVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	65	classVariableNames:'PE_Signature_OFFSET_OFFSET PE_Signature COFF_HEADER_SIZE
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	66	COFF_HEADER_Machine_OFFSET IMAGE_FILE_MACHINE_UNKNOWN
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	67	IMAGE_FILE_MACHINE_AM33 IMAGE_FILE_MACHINE_AMD64
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	68	IMAGE_FILE_MACHINE_ARM IMAGE_FILE_MACHINE_ARMNT
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	69	IMAGE_FILE_MACHINE_ARM64 IMAGE_FILE_MACHINE_EBC
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	70	IMAGE_FILE_MACHINE_I386 IMAGE_FILE_MACHINE_IA64
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	71	IMAGE_FILE_MACHINE_M32R IMAGE_FILE_MACHINE_MIPS16
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	72	IMAGE_FILE_MACHINE_MIPSFPU IMAGE_FILE_MACHINE_MIPSFPU16
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	73	IMAGE_FILE_MACHINE_POWERPC IMAGE_FILE_MACHINE_POWEPCFP
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	74	IMAGE_FILE_MACHINE_R4000 IMAGE_FILE_MACHINE_SH3
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	75	IMAGE_FILE_MACHINE_SH3DSP IMAGE_FILE_MACHINE_SH4
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	76	IMAGE_FILE_MACHINE_SH5 IMAGE_FILE_MACHINE_THUMB
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	77	IMAGE_FILE_MACHINE_WCEMIPSV2'
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	78	poolDictionaries:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	79	privateIn:Win32OperatingSystem
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	80	!
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	81
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	82	Object subclass:#PECOFFFileHeader
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	83	instanceVariableNames:'file data'
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	84	classVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	85	poolDictionaries:'Win32OperatingSystem::PECOFFConstants'
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	86	privateIn:Win32OperatingSystem
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	87	!
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	88
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	89	Object subclass:#PerformanceData
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	90	instanceVariableNames:'objectArray perfTime perfFreq perfTime100nSec'
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	91	classVariableNames:'CounterIndexTextDictionary HelpIndexTextDictionary
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	92	PerformanceText'
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	93	poolDictionaries:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	94	privateIn:Win32OperatingSystem
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	95	!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	96
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	97	Object subclass:#Abstract
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	98	instanceVariableNames:'lastData lastTimestamp cachedResults'
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	99	classVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	100	poolDictionaries:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	101	privateIn:Win32OperatingSystem::PerformanceData
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	102	!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	103
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	104	Win32OperatingSystem::PerformanceData::Abstract subclass:#DiskIO
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	105	instanceVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	106	classVariableNames:'TheOneAndOnlyInstance'
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	107	poolDictionaries:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	108	privateIn:Win32OperatingSystem::PerformanceData
10688 1e8dc6018c76 * empty log message * sr parents: 10687 diff changeset	109	!
1e8dc6018c76 * empty log message * sr parents: 10687 diff changeset	110
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	111	Win32OperatingSystem::PerformanceData::Abstract subclass:#Global
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	112	instanceVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	113	classVariableNames:'TheOneAndOnlyInstance'
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	114	poolDictionaries:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	115	privateIn:Win32OperatingSystem::PerformanceData
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	116	!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	117
10707 3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	118	Win32OperatingSystem::PerformanceData::Abstract subclass:#Memory
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	119	instanceVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	120	classVariableNames:'TheOneAndOnlyInstance'
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	121	poolDictionaries:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	122	privateIn:Win32OperatingSystem::PerformanceData
10707 3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	123	!
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	124
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	125	Win32OperatingSystem::PerformanceData::Abstract subclass:#Network
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	126	instanceVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	127	classVariableNames:'TheOneAndOnlyInstance'
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	128	poolDictionaries:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	129	privateIn:Win32OperatingSystem::PerformanceData
10710 1055a716e253 * empty log message * sr parents: 10709 diff changeset	130	!
1055a716e253 * empty log message * sr parents: 10709 diff changeset	131
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	132	Win32OperatingSystem::PerformanceData::Abstract subclass:#Process
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	133	instanceVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	134	classVariableNames:'TheOneAndOnlyInstance'
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	135	poolDictionaries:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	136	privateIn:Win32OperatingSystem::PerformanceData
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	137	!
9110d864362d * empty log message * sr parents: 10704 diff changeset	138
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	139	Win32OperatingSystem::PerformanceData::Abstract subclass:#Processor
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	140	instanceVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	141	classVariableNames:'TheOneAndOnlyInstance'
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	142	poolDictionaries:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	143	privateIn:Win32OperatingSystem::PerformanceData
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	144	!
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	145
9475 c57956a348bf printing support fm parents: 9431 diff changeset	146	ByteArray variableByteSubclass:#PrinterInfo2Structure
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	147	instanceVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	148	classVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	149	poolDictionaries:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	150	privateIn:Win32OperatingSystem
9475 c57956a348bf printing support fm parents: 9431 diff changeset	151	!
c57956a348bf printing support fm parents: 9431 diff changeset	152
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	153	Object subclass:#RegistryEntry
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	154	instanceVariableNames:'path handle isNew'
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	155	classVariableNames:'Lobby HKEY_CLASSES_ROOT HKEY_CURRENT_USER HKEY_LOCAL_MACHINE
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	156	HKEY_USERS HKEY_PERFORMANCE_DATA HKEY_CURRENT_CONFIG
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	157	HKEY_DYN_DATA HKEY_PERFORMANCE_TEXT HKEY_PERFORMANCE_NLSTEXT'
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	158	poolDictionaries:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	159	privateIn:Win32OperatingSystem
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	160	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	161
9475 c57956a348bf printing support fm parents: 9431 diff changeset	162	ByteArray variableByteSubclass:#TextMetricsStructure
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	163	instanceVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	164	classVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	165	poolDictionaries:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	166	privateIn:Win32OperatingSystem
9475 c57956a348bf printing support fm parents: 9431 diff changeset	167	!
c57956a348bf printing support fm parents: 9431 diff changeset	168
19499 ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	169	Win32Handle subclass:#Win32ChangeNotificationHandle
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	170	instanceVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	171	classVariableNames:'Lobby'
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	172	poolDictionaries:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	173	privateIn:Win32OperatingSystem
19499 ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	174	!
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	175
16345 575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	176	Win32Handle subclass:#Win32IOHandle
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	177	instanceVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	178	classVariableNames:'Lobby'
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	179	poolDictionaries:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	180	privateIn:Win32OperatingSystem
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	181	!
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	182
22253 e1b728149a94 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 22248 diff changeset	183	Win32OperatingSystem::Win32IOHandle subclass:#Win32FileHandle
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	184	instanceVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	185	classVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	186	poolDictionaries:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	187	privateIn:Win32OperatingSystem
22253 e1b728149a94 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 22248 diff changeset	188	!
e1b728149a94 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 22248 diff changeset	189
20591 e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	190	Win32Handle subclass:#Win32MutexHandle
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	191	instanceVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	192	classVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	193	poolDictionaries:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	194	privateIn:Win32OperatingSystem
20591 e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	195	!
e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	196
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	197	Win32Handle subclass:#Win32NetworkResourceHandle
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	198	instanceVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	199	classVariableNames:'ScopeMappingTable TypeMappingTable DisplayTypeMappingTable
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	200	UsageMappingTable'
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	201	poolDictionaries:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	202	privateIn:Win32OperatingSystem
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	203	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	204
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	205	Object subclass:#NetworkResource
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	206	instanceVariableNames:'scope type usage displayType remoteName localName provider
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	207	comment'
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	208	classVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	209	poolDictionaries:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	210	privateIn:Win32OperatingSystem::Win32NetworkResourceHandle
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	211	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	212
9475 c57956a348bf printing support fm parents: 9431 diff changeset	213	Win32Handle subclass:#Win32PrinterHandle
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	214	instanceVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	215	classVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	216	poolDictionaries:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	217	privateIn:Win32OperatingSystem
9475 c57956a348bf printing support fm parents: 9431 diff changeset	218	!
c57956a348bf printing support fm parents: 9431 diff changeset	219
9255 fded804fe4e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9249 diff changeset	220	Win32Handle subclass:#Win32ProcessHandle
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	221	instanceVariableNames:'pid'
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	222	classVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	223	poolDictionaries:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	224	privateIn:Win32OperatingSystem
7645 fd98d4cfa617 terminateProcess and closePid are now two separate operations. Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	225	!
fd98d4cfa617 terminateProcess and closePid are now two separate operations. Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	226
9100 0ebdc95e88ff * empty log message * Claus Gittinger <cg@exept.de> parents: 9094 diff changeset	227	Win32OperatingSystem::Win32IOHandle subclass:#Win32SerialPortHandle
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	228	instanceVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	229	classVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	230	poolDictionaries:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	231	privateIn:Win32OperatingSystem
8740 bb4a76c88cca temporary kludge: added dummy SocketHandle for Unix compat. Claus Gittinger <cg@exept.de> parents: 8667 diff changeset	232	!
bb4a76c88cca temporary kludge: added dummy SocketHandle for Unix compat. Claus Gittinger <cg@exept.de> parents: 8667 diff changeset	233
9100 0ebdc95e88ff * empty log message * Claus Gittinger <cg@exept.de> parents: 9094 diff changeset	234	Win32OperatingSystem::Win32IOHandle subclass:#Win32SocketHandle
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	235	instanceVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	236	classVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	237	poolDictionaries:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	238	privateIn:Win32OperatingSystem
9092 286c8b9e8780 * empty log message * Claus Gittinger <cg@exept.de> parents: 9089 diff changeset	239	!
286c8b9e8780 * empty log message * Claus Gittinger <cg@exept.de> parents: 9089 diff changeset	240
9475 c57956a348bf printing support fm parents: 9431 diff changeset	241	ByteArray variableByteSubclass:#WinPointStructure
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	242	instanceVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	243	classVariableNames:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	244	poolDictionaries:''
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	245	privateIn:Win32OperatingSystem
9475 c57956a348bf printing support fm parents: 9431 diff changeset	246	!
c57956a348bf printing support fm parents: 9431 diff changeset	247
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	248	!Win32OperatingSystem primitiveDefinitions!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	249	%{
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	250
14364 c2c870cc557c * empty log message * Claus Gittinger <cg@exept.de> parents: 14088 diff changeset	251	# define WINVER 0x0500 /required for CoInitializeEx/
c2c870cc557c * empty log message * Claus Gittinger <cg@exept.de> parents: 14088 diff changeset	252
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	253	#include "stxOSDefs.h"
14852 f8cf16374fd5 Fix getnameinfo() and getaddrinfo() #ifdefed code Stefan Vogel <sv@exept.de> parents: 14849 diff changeset	254
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	255	#define USE_H_ERRNO
6095 fd28101edf09 * empty log message * Claus Gittinger <cg@exept.de> parents: 5922 diff changeset	256
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	257	# if defined(i386) \|\| defined(__i386__)
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	258	# ifndef _X86_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	259	# define _X86_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	260	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	261	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	262
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	263	/*
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	264	* notice: although many systems' include files
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	265	* already block against multiple inclusion, some
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	266	* do not. Therefore, this is done here again.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	267	* (it does not hurt)
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	268	*/
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	269	# ifndef _SIGNAL_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	270	# include <signal.h>
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	271	# define _SIGNAL_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	272	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	273
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	274	# ifndef _SYS_TYPES_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	275	# include <sys/types.h>
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	276	# define _SYS_TYPES_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	277	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	278
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	279	# ifndef _TIME_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	280	# include <time.h>
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	281	# define _TIME_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	282	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	283
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	284	# ifndef _SYS_TIMEB_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	285	# include <sys/timeb.h>
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	286	# define _SYS_TIMEB_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	287	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	288
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	289	# ifndef _SYS_STAT_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	290	# include <sys/stat.h>
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	291	# define _SYS_STAT_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	292	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	293
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	294	# ifndef _ERRNO_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	295	# include <errno.h>
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	296	# define _ERRNO_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	297	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	298
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	299	# ifndef _STDIO_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	300	# include <stdio.h>
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	301	# define _STDIO_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	302	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	303
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	304	# ifndef _FCNTL_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	305	# include <fcntl.h>
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	306	# define _FCNTL_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	307	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	308
20896 c88fbd0cb367 * empty log message * Claus Gittinger <cg@exept.de> parents: 20677 diff changeset	309	# define PROCESSDEBUGWIN32
18954 813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	310	// # define PROCESS1DEBUGWIN32
813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	311	// # define PROCESS2DEBUGWIN32
813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	312	// # define PROCESSDEBUG_CHILDPROCESSWAIT
813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	313	// # define SELECTDEBUGWIN32
813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	314	// # define SELECT1DEBUGWIN32
813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	315	// # define SELECT2DEBUGWIN32
813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	316	// # define WAITDEBUGWIN32
813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	317	// # define SIGNALDEBUGWIN32
7852 5e0c389a8164 * empty log message * ca parents: 7850 diff changeset	318
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	319	# undef INT
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	320	# undef UINT
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	321
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	322	# undef Array
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	323	# undef Number
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	324	# undef Method
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	325	# undef Point
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	326	# undef Rectangle
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	327	# undef Block
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	328	# undef String
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	329	# undef Message
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	330	# undef Object
11920 4d2ef58645de compilable with VC9.0 Claus Gittinger <cg@exept.de> parents: 11842 diff changeset	331	# undef Class
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	332	# undef Context
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	333	# undef Time
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	334	# undef Date
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	335	# undef Set
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	336	# undef Signal
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	337	# undef Delay
9025 e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	338	# undef Message
e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	339	# undef Process
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	340	# undef NameSpace
10341 5138e7faf10b * empty log message * Claus Gittinger <cg@exept.de> parents: 10334 diff changeset	341	# undef Processor
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	342	# undef String
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	343	# undef Character
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	344
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	345	# include <stdarg.h> /* */
9092 286c8b9e8780 * empty log message * Claus Gittinger <cg@exept.de> parents: 9089 diff changeset	346
7531 4682ca752d27 * empty log message * Claus Gittinger <cg@exept.de> parents: 7287 diff changeset	347	# ifndef WINDOWS_H_INCLUDED
4682ca752d27 * empty log message * Claus Gittinger <cg@exept.de> parents: 7287 diff changeset	348	# define WINDOWS_H_INCLUDED
4682ca752d27 * empty log message * Claus Gittinger <cg@exept.de> parents: 7287 diff changeset	349	# include <windows.h>
4682ca752d27 * empty log message * Claus Gittinger <cg@exept.de> parents: 7287 diff changeset	350	# endif
7840 a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	351
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	352	# ifndef TLHELP32_H_INCLUDE
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	353	# define TLHELP32_H_INCLUDE
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	354	# include <TLHELP32.h> /* to get all processes in system */
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	355	#endif
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	356
6543 916373aeb49f * empty log message * Claus Gittinger <cg@exept.de> parents: 6542 diff changeset	357	# ifndef NO_GETADAPTERSINFO
7840 a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	358	# include <iphlpapi.h>
6543 916373aeb49f * empty log message * Claus Gittinger <cg@exept.de> parents: 6542 diff changeset	359	# endif
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	360
23927 3f82716744b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 23848 diff changeset	361	// not needed
3f82716744b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 23848 diff changeset	362	// #define PSAPI_VERSION 1
3f82716744b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 23848 diff changeset	363	// #include <psapi.h>
3f82716744b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 23848 diff changeset	364
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	365	# ifndef WINDOWSX_H_INCLUDED
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	366	# define WINDOWSX_H_INCLUDED
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	367	# include <windowsx.h>
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	368	# endif
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	369
11217 c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	370	# define _WIN32_DCOM /required for CoInitializeEx/
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	371	# include <objbase.h> //for COM
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	372
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	373	# include <shlobj.h>
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	374	# include <objbase.h>
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	375	# include <initguid.h>
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	376	# ifndef _STRING_H_INCLUDED_
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	377	# define _STRING_H_INCLUDED_
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	378	# include <string.h>
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	379	# endif
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	380
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	381	# ifdef __DEF_Array
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	382	# define Array __DEF_Array
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	383	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	384	# ifdef __DEF_Number
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	385	# define Number __DEF_Number
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	386	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	387	# ifdef __DEF_Method
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	388	# define Method __DEF_Method
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	389	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	390	# ifdef __DEF_Point
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	391	# define Point __DEF_Point
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	392	# endif
7860 d08a47772aa1 * empty log message * ca parents: 7852 diff changeset	393	# ifdef __DEF_Rectangle
d08a47772aa1 * empty log message * ca parents: 7852 diff changeset	394	# define Rectangle __DEF_Rectangle
d08a47772aa1 * empty log message * ca parents: 7852 diff changeset	395	# endif
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	396	# ifdef __DEF_Block
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	397	# define Block __DEF_Block
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	398	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	399	# ifdef __DEF_String
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	400	# define String __DEF_String
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	401	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	402	# ifdef __DEF_Message
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	403	# define Message __DEF_Message
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	404	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	405	# ifdef __DEF_Object
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	406	# define Object __DEF_Object
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	407	# endif
11920 4d2ef58645de compilable with VC9.0 Claus Gittinger <cg@exept.de> parents: 11842 diff changeset	408	# ifndef __DEF_Class
4d2ef58645de compilable with VC9.0 Claus Gittinger <cg@exept.de> parents: 11842 diff changeset	409	# define Class __DEF_Class
4d2ef58645de compilable with VC9.0 Claus Gittinger <cg@exept.de> parents: 11842 diff changeset	410	# endif
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	411	# ifdef __DEF_Context
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	412	# define Context __DEF_Context
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	413	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	414	# ifdef __DEF_Date
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	415	# define Date __DEF_Date
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	416	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	417	# ifdef __DEF_Time
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	418	# define Time __DEF_Time
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	419	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	420	# ifdef __DEF_Set
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	421	# define Set __DEF_Set
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	422	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	423	# ifdef __DEF_Signal
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	424	# define Signal __DEF_Signal
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	425	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	426	# ifdef __DEF_Delay
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	427	# define Delay __DEF_Delay
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	428	# endif
9025 e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	429	# ifdef __DEF_Message
e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	430	# define Message __DEF_Message
e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	431	# endif
e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	432	# ifdef __DEF_Process
e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	433	# define Process __DEF_Process
e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	434	# endif
10341 5138e7faf10b * empty log message * Claus Gittinger <cg@exept.de> parents: 10334 diff changeset	435	# ifdef __DEF_Processor
5138e7faf10b * empty log message * Claus Gittinger <cg@exept.de> parents: 10334 diff changeset	436	# define Processor __DEF_Processor
5138e7faf10b * empty log message * Claus Gittinger <cg@exept.de> parents: 10334 diff changeset	437	# endif
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	438	# ifdef __DEF_NameSpace
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	439	# define NameSpace __DEF_NameSpace
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	440	# endif
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	441	# ifdef __DEF_String
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	442	# define String __DEF_String
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	443	# endif
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	444	# ifdef __DEF_Character
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	445	# define Character __DEF_Character
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	446	# endif
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	447
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	448	# define INT STX_INT
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	449	# define UINT STX_UINT
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	450
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	451	typedef int (*intf)(int);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	452	BOOL __signalUserInterruptWIN32(DWORD sig);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	453
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	454	# if defined (HAS_LOCALECONV)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	455	# ifndef _LOCALE_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	456	# include <locale.h>
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	457	# define _LOCALE_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	458	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	459	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	460
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	461	# ifdef __BORLANDC__
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	462	# include <dir.h>
13778 8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	463	# define xMAXPATHLEN MAXPATH
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	464	# define MAXFILELEN MAXFILE
9094 c4d084167915 * empty log message * Claus Gittinger <cg@exept.de> parents: 9093 diff changeset	465
14740 609c0c77a4c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 14731 diff changeset	466	# if 0
9094 c4d084167915 * empty log message * Claus Gittinger <cg@exept.de> parents: 9093 diff changeset	467	OBJ _SEND0(OBJ, OBJ, OBJ, inlineCachePtr);
c4d084167915 * empty log message * Claus Gittinger <cg@exept.de> parents: 9093 diff changeset	468	OBJ _SEND1(OBJ, OBJ, OBJ, inlineCachePtr, OBJ);
c4d084167915 * empty log message * Claus Gittinger <cg@exept.de> parents: 9093 diff changeset	469	OBJ _SEND2(OBJ, OBJ, OBJ, inlineCachePtr, OBJ, OBJ);
c4d084167915 * empty log message * Claus Gittinger <cg@exept.de> parents: 9093 diff changeset	470	OBJ _SEND3(OBJ, OBJ, OBJ, inlineCachePtr, OBJ, OBJ, OBJ);
14740 609c0c77a4c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 14731 diff changeset	471	# endif
9094 c4d084167915 * empty log message * Claus Gittinger <cg@exept.de> parents: 9093 diff changeset	472
10449 41456eed5b53 chmod def for WIN32/msvc Claus Gittinger <cg@exept.de> parents: 10448 diff changeset	473	# endif /* BORLANDC */
41456eed5b53 chmod def for WIN32/msvc Claus Gittinger <cg@exept.de> parents: 10448 diff changeset	474
41456eed5b53 chmod def for WIN32/msvc Claus Gittinger <cg@exept.de> parents: 10448 diff changeset	475	# ifndef __BORLANDC__
41456eed5b53 chmod def for WIN32/msvc Claus Gittinger <cg@exept.de> parents: 10448 diff changeset	476	# define chmod _chmod
41456eed5b53 chmod def for WIN32/msvc Claus Gittinger <cg@exept.de> parents: 10448 diff changeset	477	# endif /* not BORLANDC */
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	478
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	479	# ifndef MAXPATHLEN
13778 8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	480
8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	481	# ifdef FILENAME_MAX
8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	482	# define xMAXPATHLEN FILENAME_MAX
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	483	# endif
13778 8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	484
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	485	# ifndef MAXPATHLEN
13778 8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	486	# define MAXPATHLEN 1024
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	487	# endif
13778 8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	488
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	489	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	490
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	491	/*
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	492	* sigaction dummies (you won't believe these call themself ``POSIX'' systems ...)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	493	*/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	494	# ifndef SA_RESTART
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	495	# define SA_RESTART 0
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	496	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	497	# ifndef SA_SIGINFO
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	498	# define SA_SIGINFO 0
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	499	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	500
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	501	# if defined(HAS_WAITPID) \|\| defined(HAS_WAIT3)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	502	# include <sys/wait.h>
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	503	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	504
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	505	# if defined(HAS_SYSINFO)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	506	# include <sys/systeminfo.h>
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	507	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	508
11215 b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	509	# ifndef __BORLANDC__
b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	510	# ifndef COINIT_MULTITHREADED
b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	511	# define COINIT_MULTITHREADED 0x0
b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	512	# endif
b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	513	# endif
b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	514
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	515	#define SIGHANDLER_ARG int
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	516
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	517	#define _HANDLEVal(o) (HANDLE)(__externalAddressVal(o))
14636 26765f6a6b11 * empty log message * Claus Gittinger <cg@exept.de> parents: 14632 diff changeset	518	#define _SETHANDLEVal(o, v) (__externalAddressVal(o) = (v))
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	519
15871 2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	520	#if defined(__BORLANDC__)
18548 1a1879f23a05 Mingw fixes Stefan Vogel <sv@exept.de> parents: 18543 diff changeset	521	HANDLE _get_osfhandle(int); // not for MINGW!
19269 1089087bca33 mingw stuff Claus Gittinger <cg@exept.de> parents: 19174 diff changeset	522	#endif
1089087bca33 mingw stuff Claus Gittinger <cg@exept.de> parents: 19174 diff changeset	523
1089087bca33 mingw stuff Claus Gittinger <cg@exept.de> parents: 19174 diff changeset	524	#if defined(__BORLANDC__) \|\| !defined(TOKEN_EXECUTE)
15871 2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	525
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	526	typedef enum _TOKEN_ELEVATION_TYPE {
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	527	TokenElevationTypeDefault = 1,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	528	TokenElevationTypeFull,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	529	TokenElevationTypeLimited,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	530	} TOKEN_ELEVATION_TYPE, *PTOKEN_ELEVATION_TYPE;
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	531
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	532	typedef struct _TOKEN_ELEVATION {
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	533	DWORD TokenIsElevated;
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	534	} TOKEN_ELEVATION, *PTOKEN_ELEVATION;
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	535
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	536	typedef enum _TOKEN_INFORMATION_CLASS_V2 {
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	537	nTokenUser = 1,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	538	nTokenGroups,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	539	nTokenPrivileges,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	540	nTokenOwner,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	541	nTokenPrimaryGroup,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	542	nTokenDefaultDacl,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	543	nTokenSource,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	544	nTokenType,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	545	nTokenImpersonationLevel,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	546	nTokenStatistics,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	547	nTokenRestrictedSids,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	548	nTokenSessionId,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	549	nTokenGroupsAndPrivileges,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	550	nTokenSessionReference,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	551	nTokenSandBoxInert,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	552	nTokenAuditPolicy,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	553	nTokenOrigin,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	554	nTokenElevationType,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	555	nTokenLinkedToken,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	556	nTokenElevation,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	557	nTokenHasRestrictions,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	558	nTokenAccessInformation,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	559	nTokenVirtualizationAllowed,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	560	nTokenVirtualizationEnabled,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	561	nTokenIntegrityLevel,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	562	nTokenUIAccess,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	563	nTokenMandatoryPolicy,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	564	nTokenLogonSid,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	565	nMaxTokenInfoClass // MaxTokenInfoClass should always be the last enum
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	566	} TOKEN_INFORMATION_CLASS_V2, *PTOKEN_INFORMATION_CLASS_V2;
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	567	# define TokenElevationType (TOKEN_INFORMATION_CLASS)nTokenElevationType
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	568	# define TokenElevation (TOKEN_INFORMATION_CLASS)nTokenElevation
19269 1089087bca33 mingw stuff Claus Gittinger <cg@exept.de> parents: 19174 diff changeset	569
1089087bca33 mingw stuff Claus Gittinger <cg@exept.de> parents: 19174 diff changeset	570	#endif /* BORLAND */
15871 2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	571
20896 c88fbd0cb367 * empty log message * Claus Gittinger <cg@exept.de> parents: 20677 diff changeset	572	#ifdef PROCESSDEBUGWIN32
c88fbd0cb367 * empty log message * Claus Gittinger <cg@exept.de> parents: 20677 diff changeset	573	static int flag_PROCESSDEBUGWIN32 = 0;
c88fbd0cb367 * empty log message * Claus Gittinger <cg@exept.de> parents: 20677 diff changeset	574	#endif
c88fbd0cb367 * empty log message * Claus Gittinger <cg@exept.de> parents: 20677 diff changeset	575
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	576	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	577	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	578
11258 5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	579	!Win32OperatingSystem primitiveVariables!
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	580	%{
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	581	static int coInitialized = 0;
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	582	%}
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	583	! !
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	584
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	585	!Win32OperatingSystem primitiveFunctions!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	586	%{
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	587	int
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	588	_makeWchar(OBJ string, wchar_t *buffer, int bufferSize)
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	589	{
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	590	int i, len;
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	591
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	592	if (__isStringLike(string)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	593	len = __stringSize(string);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	594	if (len > bufferSize) len = bufferSize;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	595	for (i=0; i<len; i++) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	596	buffer[i] = __stringVal(string)[i];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	597	}
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	598	} else if (__isUnicode16String(string)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	599	len = __unicode16StringSize(string);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	600	if (len > bufferSize) len = bufferSize;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	601	for (i=0; i<len; i++) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	602	buffer[i] = __unicode16StringVal(string)[i];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	603	}
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	604	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	605	buffer[0] = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	606	return(-1);
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	607	}
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	608	buffer[len] = 0;
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	609	return(len);
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	610	}
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	611
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	612
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	613
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	614	static int
16367 e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	615	_canAccessIOWithoutBlocking (HANDLE handle, int readMode)
7825 b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	616	{
b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	617	struct timeval tv;
b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	618	fd_set fds;
b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	619	int n;
10454 0905cc7c6903 readCheck for broken non-socket (broken named pipes) fixed; Claus Gittinger <cg@exept.de> parents: 10449 diff changeset	620	int winErrNo;
7825 b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	621
16367 e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	622	FD_ZERO(&fds);
e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	623	FD_SET (handle, &fds);
7825 b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	624
b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	625	tv.tv_sec = 0;
b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	626	tv.tv_usec = 0;
b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	627
b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	628	if (readMode) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	629	n = select (1 , &fds, NULL, NULL, &tv); // first parameter to select is ignored in windows
7825 b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	630	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	631	n = select (1, NULL, &fds, NULL, &tv);
7825 b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	632	}
b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	633
b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	634	if (n == 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	635	return (0);
7825 b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	636	}
b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	637
b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	638	if (n > 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	639	return (FD_ISSET(handle, &fds) ? 1 : 0);
10454 0905cc7c6903 readCheck for broken non-socket (broken named pipes) fixed; Claus Gittinger <cg@exept.de> parents: 10449 diff changeset	640	}
0905cc7c6903 readCheck for broken non-socket (broken named pipes) fixed; Claus Gittinger <cg@exept.de> parents: 10449 diff changeset	641
0905cc7c6903 readCheck for broken non-socket (broken named pipes) fixed; Claus Gittinger <cg@exept.de> parents: 10449 diff changeset	642	winErrNo = WSAGetLastError();
0905cc7c6903 readCheck for broken non-socket (broken named pipes) fixed; Claus Gittinger <cg@exept.de> parents: 10449 diff changeset	643	switch (winErrNo) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	644	case WSAENOTSOCK:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	645	if (readMode) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	646	DWORD w = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	647
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	648	if (PeekNamedPipe (handle, 0, 0, 0, & w, 0)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	649	return (w > 0);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	650	}
10458 678c2c39488f * empty log message * Claus Gittinger <cg@exept.de> parents: 10454 diff changeset	651	#if 0
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	652	console_fprintf(stderr, "_canAccessIOWithoutBlocking non Socket\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	653	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	654	return (-1);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	655	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	656	/* in writeMode we return always true for none-sockets */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	657	return (1);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	658
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	659	case WSAEINPROGRESS:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	660	case WSAEWOULDBLOCK:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	661	return (0);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	662
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	663	default:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	664	console_fprintf(stderr, "_canAccessIOWithoutBlocking -> %d (0x%x)\n", winErrNo, winErrNo);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	665	return (-1);
10454 0905cc7c6903 readCheck for broken non-socket (broken named pipes) fixed; Claus Gittinger <cg@exept.de> parents: 10449 diff changeset	666	}
0905cc7c6903 readCheck for broken non-socket (broken named pipes) fixed; Claus Gittinger <cg@exept.de> parents: 10449 diff changeset	667
0905cc7c6903 readCheck for broken non-socket (broken named pipes) fixed; Claus Gittinger <cg@exept.de> parents: 10449 diff changeset	668	/* not reached */
7825 b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	669	return (0);
b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	670	}
b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	671
7840 a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	672	#define _canReadWithoutBlocking(fd) _canAccessIOWithoutBlocking(fd, 1)
a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	673	#define _canWriteWithoutBlocking(fd) _canAccessIOWithoutBlocking(fd, 0)
7825 b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	674
11217 c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	675	/*
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	676	* Attention: some API calls are not available on old NT4.0/W95/W98
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	677	* For those, the dll does not include the calls directly, but tries to
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	678	* load the library and looks what we get.
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	679	* Here are support functions to load the libs.
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	680	*/
8654 872098a9943e * empty log message * Claus Gittinger <cg@exept.de> parents: 8653 diff changeset	681	static FARPROC
11217 c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	682	__get_functionAddress(HINSTANCE pLibHandle, char libraryName, char *functionName)
8654 872098a9943e * empty log message * Claus Gittinger <cg@exept.de> parents: 8653 diff changeset	683	{
9094 c4d084167915 * empty log message * Claus Gittinger <cg@exept.de> parents: 9093 diff changeset	684	FARPROC entry;
11217 c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	685
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	686	if (*pLibHandle == NULL) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	687	*pLibHandle = LoadLibrary(libraryName);
11217 c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	688	}
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	689	entry = GetProcAddress(*pLibHandle, functionName);
8654 872098a9943e * empty log message * Claus Gittinger <cg@exept.de> parents: 8653 diff changeset	690	return entry;
872098a9943e * empty log message * Claus Gittinger <cg@exept.de> parents: 8653 diff changeset	691	}
872098a9943e * empty log message * Claus Gittinger <cg@exept.de> parents: 8653 diff changeset	692
872098a9943e * empty log message * Claus Gittinger <cg@exept.de> parents: 8653 diff changeset	693	static FARPROC
11217 c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	694	__get_kernel32_functionAddress(char *functionName)
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	695	{
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	696	static HINSTANCE libHandle = NULL;
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	697
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	698	return __get_functionAddress(&libHandle, "kernel32.DLL", functionName);
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	699	}
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	700
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	701	static FARPROC
8654 872098a9943e * empty log message * Claus Gittinger <cg@exept.de> parents: 8653 diff changeset	702	__get_iphlpapi_functionAddress(functionName)
872098a9943e * empty log message * Claus Gittinger <cg@exept.de> parents: 8653 diff changeset	703	char *functionName;
872098a9943e * empty log message * Claus Gittinger <cg@exept.de> parents: 8653 diff changeset	704	{
11217 c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	705	static HINSTANCE libHandle = NULL;
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	706
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	707	return __get_functionAddress(&libHandle, "iphlpapi.DLL", functionName);
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	708	}
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	709
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	710	static FARPROC
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	711	__get_ole32_functionAddress(functionName)
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	712	char *functionName;
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	713	{
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	714	static HINSTANCE libHandle = NULL;
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	715
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	716	return __get_functionAddress(&libHandle, "ole32.DLL", functionName);
8654 872098a9943e * empty log message * Claus Gittinger <cg@exept.de> parents: 8653 diff changeset	717	}
7825 b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	718
19653 ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	719	#if 0
23130 48acb2bbb580 added getSystemWow64Directory for 32 vs. 64bit determination Claus Gittinger <cg@exept.de> parents: 23070 diff changeset	720
19651 59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	721	// original: biased for 1.1.1601
19653 ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	722	// obsolete...
12821 56c56e8bee2a Raise TimeConversionError if appropriate. Stefan Vogel <sv@exept.de> parents: 12820 diff changeset	723	OBJ
56c56e8bee2a Raise TimeConversionError if appropriate. Stefan Vogel <sv@exept.de> parents: 12820 diff changeset	724	FileTimeToOsTime(LPFILETIME pft)
56c56e8bee2a Raise TimeConversionError if appropriate. Stefan Vogel <sv@exept.de> parents: 12820 diff changeset	725	{
56c56e8bee2a Raise TimeConversionError if appropriate. Stefan Vogel <sv@exept.de> parents: 12820 diff changeset	726	LONGLONG lTime = ((LONGLONG)pft->dwHighDateTime << 32) + pft->dwLowDateTime;
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	727	lTime = (lTime / 10000); // convert multiple of 100ns to milliseconds
19651 59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	728	#if __POINTER_SIZE__ == 8
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	729	return(__MKUINT(lTime));
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	730	#else
12821 56c56e8bee2a Raise TimeConversionError if appropriate. Stefan Vogel <sv@exept.de> parents: 12820 diff changeset	731	return(__MKLARGEINT64(1, (unsigned INT)(lTime & 0xFFFFFFFF), (unsigned INT)(lTime >> 32)));
19651 59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	732	#endif
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	733	}
23130 48acb2bbb580 added getSystemWow64Directory for 32 vs. 64bit determination Claus Gittinger <cg@exept.de> parents: 23070 diff changeset	734
48acb2bbb580 added getSystemWow64Directory for 32 vs. 64bit determination Claus Gittinger <cg@exept.de> parents: 23070 diff changeset	735	#endif // 0
19651 59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	736
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	737	// biased for 1.1.1970
19653 ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	738	// (renamed to catch references from other classes)
19651 59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	739	OBJ
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	740	FileTimeToOsTime1970(LPFILETIME pft)
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	741	{
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	742	LONGLONG lTime = ((LONGLONG)pft->dwHighDateTime << 32) + pft->dwLowDateTime;
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	743	lTime = (lTime / 10000); // convert multiple of 100ns to milliseconds
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	744
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	745	#if __POINTER_SIZE__ == 8
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	746	lTime -= 11644473600000LL; // the number of millis from 1.1.1601 to 1.1.1970
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	747	return(__MKINT(lTime));
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	748	#else
19666 755edabcbe67 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19653 diff changeset	749	if (lTime >= (LONGLONG)11644473600000L) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	750	lTime -= (LONGLONG)11644473600000L; // the number of millis from 1.1.1601 to 1.1.1970
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	751	return(__MKLARGEINT64(1, (unsigned INT)(lTime & 0xFFFFFFFF), (unsigned INT)(lTime >> 32)));
19651 59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	752	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	753	lTime = (LONGLONG)11644473600000L - lTime;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	754	return(__MKLARGEINT64(-1, (unsigned INT)(lTime & 0xFFFFFFFF), (unsigned INT)(lTime >> 32)));
22246 436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	755	}
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	756	#endif
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	757	}
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	758
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	759
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	760	// nanoseconds biased for 1.1.1970
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	761	// (renamed to catch references from other classes)
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	762	OBJ
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	763	FileTimeToNanosecondTime1970(LPFILETIME pft)
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	764	{
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	765	LONGLONG lTime = ((LONGLONG)pft->dwHighDateTime << 32) + pft->dwLowDateTime;
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	766
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	767	#if __POINTER_SIZE__ == 8
22247 2cb99dbc787d #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22246 diff changeset	768	lTime -= 11644473600000000LL; // the number of 100nanos from 1.1.1601 to 1.1.1970
2cb99dbc787d #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22246 diff changeset	769	lTime *= 100; // convert multiple of 100ns to nanoseconds
22246 436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	770	return(__MKINT(lTime));
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	771	#else
22247 2cb99dbc787d #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22246 diff changeset	772	if (lTime >= (LONGLONG)11644473600000000L) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	773	lTime -= (LONGLONG)11644473600000000L; // the number of 100nanos from 1.1.1601 to 1.1.1970
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	774	lTime *= 100; // convert multiple of 100ns to nanoseconds
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	775	return(__MKLARGEINT64(1, (unsigned INT)(lTime & 0xFFFFFFFF), (unsigned INT)(lTime >> 32)));
22247 2cb99dbc787d #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22246 diff changeset	776	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	777	lTime = (LONGLONG)11644473600000000L - lTime;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	778	lTime *= 100; // convert multiple of 100ns to nanoseconds
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	779	return(__MKLARGEINT64(-1, (unsigned INT)(lTime & 0xFFFFFFFF), (unsigned INT)(lTime >> 32)));
22247 2cb99dbc787d #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22246 diff changeset	780	}
19651 59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	781	#endif
12821 56c56e8bee2a Raise TimeConversionError if appropriate. Stefan Vogel <sv@exept.de> parents: 12820 diff changeset	782	}
56c56e8bee2a Raise TimeConversionError if appropriate. Stefan Vogel <sv@exept.de> parents: 12820 diff changeset	783
19653 ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	784	#if 0
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	785	// obsolete; biased for 1.1.1601
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	786	int
16948 45832ec999e2 method name cleanup Claus Gittinger <cg@exept.de> parents: 16947 diff changeset	787	OsTimeToFileTime(OBJ tLow, OBJ tHigh, LPFILETIME pft) {
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	788	LONGLONG lTime;
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	789	UINT low = __unsignedLongIntVal(tLow);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	790	UINT hi = __unsignedLongIntVal(tHigh);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	791
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	792	if (hi == 0 && !__isSmallInteger(tHigh))
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	793	return(0); // conversion error
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	794
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	795	lTime = ((LONGLONG)hi << 32) + (LONGLONG)low;
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	796	lTime = lTime * 10000; // convert to multiple of 100ns
17006 d6ec5e448ac5 timestamp changes Claus Gittinger <cg@exept.de> parents: 17004 diff changeset	797
16951 cf9c2837afb8 * empty log message * Claus Gittinger <cg@exept.de> parents: 16948 diff changeset	798	pft->dwHighDateTime = (UINT)(lTime >> 32);
cf9c2837afb8 * empty log message * Claus Gittinger <cg@exept.de> parents: 16948 diff changeset	799	pft->dwLowDateTime = (UINT)(lTime & 0xFFFFFFFF);
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	800	return(1);
16948 45832ec999e2 method name cleanup Claus Gittinger <cg@exept.de> parents: 16947 diff changeset	801	}
23130 48acb2bbb580 added getSystemWow64Directory for 32 vs. 64bit determination Claus Gittinger <cg@exept.de> parents: 23070 diff changeset	802
48acb2bbb580 added getSystemWow64Directory for 32 vs. 64bit determination Claus Gittinger <cg@exept.de> parents: 23070 diff changeset	803	#endif // 0
19653 ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	804
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	805	// biased for 1.1.1970
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	806	// renamed to catch any references from other classes.
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	807	int
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	808	OsTime1970ToFileTime(OBJ tLow, OBJ tHigh, LPFILETIME pft) {
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	809	LONGLONG lTime;
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	810	UINT low = __unsignedLongIntVal(tLow);
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	811	UINT hi = __unsignedLongIntVal(tHigh);
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	812
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	813	if (hi == 0 && !__isSmallInteger(tHigh))
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	814	return(0); // conversion error
19653 ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	815
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	816	lTime = ((LONGLONG)hi << 32) + (LONGLONG)low;
19668 8c30d204cd7b bcc fix Claus Gittinger <cg@exept.de> parents: 19666 diff changeset	817	lTime += (LONGLONG)11644473600000L; // rebias to 1.1.1601
19653 ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	818	lTime = lTime * 10000; // convert to multiple of 100ns
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	819
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	820	pft->dwHighDateTime = (UINT)(lTime >> 32);
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	821	pft->dwLowDateTime = (UINT)(lTime & 0xFFFFFFFF);
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	822	return(1);
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	823	}
12817 33771eb7d88b Fix daylight saving time computations by converting from broken libc Stefan Vogel <sv@exept.de> parents: 12815 diff changeset	824
23528 64850968fa93 experiment to get the real version Claus Gittinger <cg@exept.de> parents: 23510 diff changeset	825	char*
25095 ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	826	__stx_OSVersion(int* pMajor, int* pMinor) {
23528 64850968fa93 experiment to get the real version Claus Gittinger <cg@exept.de> parents: 23510 diff changeset	827	static int verMinor, verMajor;
64850968fa93 experiment to get the real version Claus Gittinger <cg@exept.de> parents: 23510 diff changeset	828	static int haveVersion = 0;
64850968fa93 experiment to get the real version Claus Gittinger <cg@exept.de> parents: 23510 diff changeset	829	static char *system = "unknown";
64850968fa93 experiment to get the real version Claus Gittinger <cg@exept.de> parents: 23510 diff changeset	830
23534 ec2221eaada0 debug prints Claus Gittinger <cg@exept.de> parents: 23533 diff changeset	831	// console_printf(">OSVersion\n");
23528 64850968fa93 experiment to get the real version Claus Gittinger <cg@exept.de> parents: 23510 diff changeset	832	if (! haveVersion) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	833	int winVer;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	834	DWORD vsn;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	835
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	836	vsn = GetVersion();
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	837	winVer = LOWORD(vsn);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	838	verMinor = HIBYTE(winVer);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	839	verMajor = LOBYTE(winVer);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	840
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	841	if (HIWORD(vsn) & 0x8000) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	842	system = "win95";
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	843	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	844	if ((verMajor > 5) \|\| ((verMajor == 5) && (verMinor >= 1))) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	845	system = "xp";
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	846	if (verMajor >= 6) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	847	system = "vista";
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	848	if ((verMajor > 6) \|\| (verMinor >= 1)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	849	system = "win7";
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	850	if ((verMajor > 6) \|\| (verMinor >= 2)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	851	system = "win8";
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	852	// console_printf(">win8\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	853	{
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	854	static HINSTANCE libHandle = NULL;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	855
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	856	FARPROC RtlGetVersion = __get_functionAddress(&libHandle, "ntdll.DLL", "RtlGetVersion");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	857	OSVERSIONINFOEXW osInfo;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	858
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	859	if (NULL != RtlGetVersion) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	860	osInfo.dwOSVersionInfoSize = sizeof(osInfo);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	861	RtlGetVersion(&osInfo);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	862	verMajor = osInfo.dwMajorVersion;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	863	verMinor = osInfo.dwMinorVersion;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	864	if (verMajor >= 10) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	865	system = "win10";
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	866	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	867	if (verMajor == 6) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	868	if (verMinor == 3) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	869	system = "win8.1";
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	870	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	871	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	872	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	873	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	874	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	875	// console_printf("<win8\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	876	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	877	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	878	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	879	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	880	system = "nt";
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	881	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	882	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	883	haveVersion = 1;
23528 64850968fa93 experiment to get the real version Claus Gittinger <cg@exept.de> parents: 23510 diff changeset	884	}
23534 ec2221eaada0 debug prints Claus Gittinger <cg@exept.de> parents: 23533 diff changeset	885	// console_printf("<OSVersion %s\n", system);
23528 64850968fa93 experiment to get the real version Claus Gittinger <cg@exept.de> parents: 23510 diff changeset	886	*pMajor = verMajor;
64850968fa93 experiment to get the real version Claus Gittinger <cg@exept.de> parents: 23510 diff changeset	887	*pMinor = verMinor;
64850968fa93 experiment to get the real version Claus Gittinger <cg@exept.de> parents: 23510 diff changeset	888	return system;
23529 6200b9cff090 fix Claus Gittinger <cg@exept.de> parents: 23528 diff changeset	889	}
6200b9cff090 fix Claus Gittinger <cg@exept.de> parents: 23528 diff changeset	890
6200b9cff090 fix Claus Gittinger <cg@exept.de> parents: 23528 diff changeset	891
23528 64850968fa93 experiment to get the real version Claus Gittinger <cg@exept.de> parents: 23510 diff changeset	892	%}
64850968fa93 experiment to get the real version Claus Gittinger <cg@exept.de> parents: 23510 diff changeset	893
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	894	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	895
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	896	!Win32OperatingSystem class methodsFor:'documentation'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	897
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	898	copyright
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	899	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	900	COPYRIGHT (c) 1988 by Claus Gittinger
7852 5e0c389a8164 * empty log message * ca parents: 7850 diff changeset	901	COPYRIGHT (c) 1998-2004 by eXept Software AG
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	902	All Rights Reserved
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	903
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	904	This software is furnished under a license and may be used
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	905	only in accordance with the terms of that license and with the
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	906	inclusion of the above copyright notice. This software may not
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	907	be provided or otherwise made available to, or used by, any
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	908	other person. No title to or ownership of the software is
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	909	hereby transferred.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	910	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	911	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	912
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	913	documentation
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	914	"
20275 e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	915	This class resulted from extracting WIN32 specifics of the old
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	916	OperatingSystemClass into this sub-class.
20275 e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	917
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	918	This class realizes required operating system services for MS-Windows systems.
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	919	The name is misleading and a historic leftover: it supports both 32bit and 64bit OSes.
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	920
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	921	Some of it is very specific for windows, so do not depend on
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	922	things available here if your application runs under unix/linux/osx
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	923	Some may not be found in other OS's or be slightly different.
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	924	On the other hand: I do not want to hide all features
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	925	from you - in some situations it MAY be interesting to be
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	926	able to get down to a low level system call easily.
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	927	If you use sch features, make sure that you wrap the call into a condition,
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	928	such as 'OperatingSystem isMSWINDOWSlike ifTrue:[...]'
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	929
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	930	You decide - portability vs. functionality)
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	931
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	932	[Class variables:]
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	933
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	934	HostName <String> remembered hostname
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	935
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	936	DomainName <String> remembered domainname
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	937
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	938	CurrentDirectory <String> remembered currentDirectories path
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	939
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	940	[author:]
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	941	Claus Gittinger (initial version & cleanup)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	942	Manfred Dierolf (many features)
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	943
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	944	[see also:]
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	945	OSProcessStatus
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	946	Filename Date Time
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	947	ExternalStream FileStream PipeStream Socket
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	948	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	949	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	950
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	951	examples
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	952	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	953	various queries
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	954	[exBegin]
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	955	Transcript
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	956	showCR:'hello ' , (OperatingSystem getLoginName)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	957	[exEnd]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	958
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	959	[exBegin]
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	960	OperatingSystem isUNIXlike ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	961	Transcript showCR:'this is some UNIX-like OS'
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	962	] ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	963	Transcript showCR:'this OS is not UNIX-like'
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	964	]
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	965	[exEnd]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	966
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	967	[exBegin]
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	968	Transcript
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	969	showCR:'this machine is called ' , OperatingSystem getHostName
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	970	[exEnd]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	971
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	972	[exBegin]
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	973	Transcript
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	974	showCR:('this machine is in the '
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	975	, OperatingSystem getDomainName
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	976	, ' domain')
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	977	[exEnd]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	978
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	979	[exBegin]
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	980	Transcript
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	981	showCR:('this machine''s CPU is a '
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	982	, OperatingSystem getCPUType
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	983	)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	984	[exEnd]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	985
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	986	[exBegin]
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	987	Transcript showCR:'executing ls command ...'.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	988	OperatingSystem executeCommand:'ls'.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	989	Transcript showCR:'... done.'.
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	990	[exEnd]
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	991
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	992	locking a file
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	993	(should be executed on two running smalltalks - not in two threads):
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	994	[exBegin]
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	995	\|f\|
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	996
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	997	f := 'testFile' asFilename readWriteStream.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	998
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	999	10 timesRepeat:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1000	'about to lock ...' printCR.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1001	[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1002	OperatingSystem
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1003	lockFD:(f fileDescriptor)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1004	shared:false
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1005	blocking:false
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1006	] whileFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1007	'process ' print. OperatingSystem getProcessId print. ' is waiting' printCR.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1008	Delay waitForSeconds:1
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1009	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1010	'LOCKED ...' printCR.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1011	Delay waitForSeconds:10.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1012	'unlock ...' printCR.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1013	(OperatingSystem
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1014	unlockFD:(f fileDescriptor)) printCR.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1015	Delay waitForSeconds:3.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1016	]
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1017	[exBegin]
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1018	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1019	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1020
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1021	!Win32OperatingSystem class methodsFor:'initialization'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1022
11253 ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	1023	coInitialize
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	1024	%{
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	1025	HRESULT hres;
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	1026
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	1027	if( ! coInitialized ) {
15252 621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	1028
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1029	hres = CoInitializeEx(NULL, COINIT_MULTITHREADED);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1030	if (! SUCCEEDED(hres)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1031	console_fprintf(stderr, "OperatingSystem [info]: Could not open the COM library hres = %08x\n", hres );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1032	goto error;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1033	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1034	coInitialized = 1;
15252 621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	1035
11253 ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	1036	#ifdef COM_DEBUG
15252 621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	1037
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1038	console_fprintf(stderr, "OperatingSystem [info]: COM initialized\n" );
15169 0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	1039	#endif
11253 ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	1040	}
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	1041	RETURN (self );
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	1042
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	1043	error: ;
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	1044	%}.
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	1045	self primitiveFailed
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	1046	!
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	1047
16367 e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	1048	getOSVersion
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1049	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1050	OSVERSIONINFO osvi;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1051
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1052	memset(&osvi, 0, sizeof(OSVERSIONINFO));
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1053	osvi.dwOSVersionInfoSize = sizeof (OSVERSIONINFO);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1054	GetVersionEx (&osvi);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1055
16367 e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	1056	RETURN(__mkSmallInteger(osvi.dwPlatformId));
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1057	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1058	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1059
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1060	initialize
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1061	"initialize the class"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1062
11253 ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	1063	"/ attention: must be ok to be called twice during startup.
21600 7f72334cd6a9 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21510 diff changeset	1064	PipeFailed isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1065	ObjectMemory addDependent:self.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1066	HostName := nil.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1067	DomainName := nil.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1068	LastErrorNumber := nil.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1069	PipeFailed := false.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1070	self coInitialize.
11253 ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	1071	].
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1072
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1073	"Modified: 13.9.1997 / 10:47:32 / cg"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1074	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1075
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1076	update:something with:aParameter from:changedObject
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1077	"catch image restart and flush some cached data"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1078
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1079	something == #earlyRestart ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1080	"
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1081	flush cached data
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1082	"
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1083	HostName := nil.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1084	DomainName := nil.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1085	LastErrorNumber := nil.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1086	PipeFailed := false.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1087	self coInitialize.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1088	]
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1089
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1090	"Modified: 22.4.1996 / 13:10:43 / cg"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1091	"Created: 15.6.1996 / 15:22:37 / cg"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1092	"Modified: 7.1.1997 / 19:36:11 / stefan"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1093	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1094
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1095	!Win32OperatingSystem class methodsFor:'OS signal constants'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1096
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1097	sigABRT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1098	"return the signal number for SIGABRT - 0 if not supported by OS
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1099	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1100
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1101	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1102	#ifdef SIGABRT
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1103	RETURN ( __mkSmallInteger(SIGABRT) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1104	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1105	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1106	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1107	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1108	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1109
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1110	sigALRM
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1111	"return the signal number for SIGALRM - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1112	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1113
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1114	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1115	#ifdef SIGALRM
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1116	RETURN ( __mkSmallInteger(SIGALRM) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1117	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1118	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1119	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1120	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1121	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1122
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1123	sigBREAK
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1124	"return the signal number for SIGBREAK - 0 if not supported.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1125	This is an MSDOS specific signal"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1126
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1127	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1128	#ifdef SIGBREAK
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1129	RETURN ( __mkSmallInteger(SIGBREAK) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1130	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1131	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1132	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1133	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1134	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1135
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1136	sigBUS
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1137	"return the signal number for SIGBUS - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1138	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1139
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1140	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1141	#ifdef SIGBUS
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1142	RETURN ( __mkSmallInteger(SIGBUS) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1143	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1144	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1145	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1146	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1147	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1148
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1149	sigCHLD
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1150	"return the signal number for SIGCHLD - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1151	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1152
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1153	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1154	#if defined(SIGCHLD)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1155	RETURN ( __mkSmallInteger(SIGCHLD) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1156	#else
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1157	# if defined(SIGCLD)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1158	RETURN ( __mkSmallInteger(SIGCLD) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1159	# else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1160	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1161	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1162	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1163	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1164	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1165
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1166	sigCONT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1167	"return the signal number for SIGCONT - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1168	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1169
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1170	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1171	#if defined(SIGCONT)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1172	RETURN ( __mkSmallInteger(SIGCONT) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1173	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1174	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1175	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1176	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1177	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1178
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1179	sigDANGER
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1180	"return the signal number for SIGDANGER - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1181	(seems to be an AIX special)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1182
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1183	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1184	#if defined(SIGDANGER)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1185	RETURN ( __mkSmallInteger(SIGDANGER) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1186	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1187	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1188	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1189	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1190	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1191
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1192	sigEMT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1193	"return the signal number for SIGEMT - 0 if not supported by OS
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1194	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1195
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1196	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1197	#ifdef SIGEMT
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1198	RETURN ( __mkSmallInteger(SIGEMT) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1199	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1200	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1201	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1202	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1203	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1204
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1205	sigFP
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1206	"return the signal number for SIGFP - 0 if not supported by OS
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1207	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1208
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1209	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1210	#ifdef SIGFPE
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1211	RETURN ( __mkSmallInteger(SIGFPE) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1212	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1213	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1214	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1215	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1216	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1217
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1218	sigGRANT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1219	"return the signal number for SIGGRANT - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1220	(seems to be an AIX special)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1221
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1222	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1223	#if defined(SIGGRANT)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1224	RETURN ( __mkSmallInteger(SIGGRANT) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1225	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1226	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1227	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1228	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1229	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1230
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1231	sigHUP
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1232	"return the signal number for SIGHUP
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1233	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1234
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1235	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1236	#ifdef SIGHUP
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1237	RETURN ( __mkSmallInteger(SIGHUP) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1238	#else
11669 db58374346b3 Define (and handle) the HUP and PWR signals Stefan Vogel <sv@exept.de> parents: 11623 diff changeset	1239	RETURN ( __mkSmallInteger(1) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1240	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1241	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1242	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1243
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1244	sigILL
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1245	"return the signal number for SIGILL - 0 if not supported by OS
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1246	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1247
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1248	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1249	#ifdef SIGILL
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1250	RETURN ( __mkSmallInteger(SIGILL) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1251	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1252	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1253	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1254	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1255	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1256
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1257	sigINT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1258	"return the signal number for SIGINT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1259	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1260
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1261	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1262	#ifdef SIGINT
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1263	RETURN ( __mkSmallInteger(SIGINT) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1264	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1265	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1266	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1267	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1268	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1269
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1270	sigIO
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1271	"return the signal number for SIGIO - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1272	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1273
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1274	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1275	#if defined(SIGIO)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1276	RETURN ( __mkSmallInteger(SIGIO) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1277	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1278	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1279	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1280	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1281	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1282
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1283	sigIOT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1284	"return the signal number for SIGIOT - 0 if not supported by OS
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1285	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1286
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1287	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1288	#ifdef SIGIOT
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1289	RETURN ( __mkSmallInteger(SIGIOT) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1290	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1291	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1292	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1293	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1294	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1295
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1296	sigKILL
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1297	"return the signal number for SIGKILL
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1298	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1299
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1300	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1301	#ifdef SIGKILL
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1302	RETURN ( __mkSmallInteger(SIGKILL) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1303	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1304	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1305	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1306	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1307	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1308
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1309	sigLOST
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1310	"return the signal number for SIGLOST - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1311	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1312
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1313	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1314	#if defined(SIGLOST)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1315	RETURN ( __mkSmallInteger(SIGLOST) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1316	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1317	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1318	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1319	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1320	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1321
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1322	sigMIGRATE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1323	"return the signal number for SIGMIGRATE - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1324	(seems to be an AIX special)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1325
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1326	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1327	#if defined(SIGMIGRATE)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1328	RETURN ( __mkSmallInteger(SIGMIGRATE) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1329	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1330	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1331	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1332	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1333	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1334
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1335	sigMSG
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1336	"return the signal number for SIGMSG - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1337	(seems to be an AIX special)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1338
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1339	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1340	#if defined(SIGMSG)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1341	RETURN ( __mkSmallInteger(SIGMSG) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1342	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1343	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1344	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1345	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1346	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1347
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1348	sigPIPE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1349	"return the signal number for SIGPIPE - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1350	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1351
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1352	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1353	#ifdef SIGPIPE
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1354	RETURN ( __mkSmallInteger(SIGPIPE) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1355	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1356	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1357	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1358	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1359	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1360
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1361	sigPOLL
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1362	"return the signal number for SIGPOLL - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1363	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1364
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1365	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1366	#if defined(SIGPOLL)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1367	RETURN ( __mkSmallInteger(SIGPOLL) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1368	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1369	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1370	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1371	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1372	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1373
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1374	sigPRE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1375	"return the signal number for SIGPRE - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1376	(seems to be an AIX special)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1377
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1378	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1379	#if defined(SIGPRE)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1380	RETURN ( __mkSmallInteger(SIGPRE) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1381	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1382	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1383	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1384	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1385	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1386
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1387	sigPROF
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1388	"return the signal number for SIGPROF - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1389	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1390
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1391	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1392	#if defined(SIGPROF)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1393	RETURN ( __mkSmallInteger(SIGPROF) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1394	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1395	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1396	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1397	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1398	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1399
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1400	sigPWR
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1401	"return the signal number for SIGPWR - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1402	(not available on all systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1403
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1404	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1405	#if defined(SIGPWR)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1406	RETURN ( __mkSmallInteger(SIGPWR) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1407	#else
11669 db58374346b3 Define (and handle) the HUP and PWR signals Stefan Vogel <sv@exept.de> parents: 11623 diff changeset	1408	RETURN ( __mkSmallInteger(30) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1409	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1410	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1411	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1412
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1413	sigQUIT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1414	"return the signal number for SIGQUIT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1415	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1416
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1417	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1418	#ifdef SIGQUIT
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1419	RETURN ( __mkSmallInteger(SIGQUIT) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1420	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1421	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1422	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1423	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1424	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1425
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1426	sigRETRACT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1427	"return the signal number for SIGRETRACT - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1428	(seems to be an AIX special)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1429
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1430	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1431	#if defined(SIGRETRACT)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1432	RETURN ( __mkSmallInteger(SIGRETRACT) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1433	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1434	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1435	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1436	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1437	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1438
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1439	sigSAK
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1440	"return the signal number for SIGSAK - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1441	(seems to be an AIX special)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1442
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1443	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1444	#if defined(SIGSAK)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1445	RETURN ( __mkSmallInteger(SIGSAK) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1446	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1447	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1448	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1449	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1450	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1451
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1452	sigSEGV
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1453	"return the signal number for SIGSEGV - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1454	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1455
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1456	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1457	#ifdef SIGSEGV
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1458	RETURN ( __mkSmallInteger(SIGSEGV) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1459	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1460	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1461	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1462	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1463	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1464
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1465	sigSOUND
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1466	"return the signal number for SIGSOUND - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1467	(seems to be an AIX special)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1468
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1469	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1470	#if defined(SIGSOUND)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1471	RETURN ( __mkSmallInteger(SIGSOUND) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1472	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1473	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1474	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1475	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1476	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1477
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1478	sigSTOP
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1479	"return the signal number for SIGSTOP - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1480	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1481
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1482	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1483	#if defined(SIGSTOP)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1484	RETURN ( __mkSmallInteger(SIGSTOP) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1485	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1486	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1487	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1488	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1489	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1490
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1491	sigSYS
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1492	"return the signal number for SIGSYS - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1493	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1494
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1495	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1496	#ifdef SIGSYS
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1497	RETURN ( __mkSmallInteger(SIGSYS) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1498	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1499	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1500	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1501	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1502	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1503
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1504	sigTERM
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1505	"return the signal number for SIGTERM - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1506	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1507
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1508	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1509	#ifdef SIGTERM
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1510	RETURN ( __mkSmallInteger(SIGTERM) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1511	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1512	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1513	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1514	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1515	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1516
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1517	sigTRAP
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1518	"return the signal number for SIGTRAP - 0 if not supported by OS
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1519	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1520
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1521	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1522	#ifdef SIGTRAP
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1523	RETURN ( __mkSmallInteger(SIGTRAP) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1524	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1525	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1526	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1527	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1528	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1529
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1530	sigTSTP
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1531	"return the signal number for SIGTSTP - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1532	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1533
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1534	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1535	#if defined(SIGTSTP)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1536	RETURN ( __mkSmallInteger(SIGTSTP) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1537	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1538	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1539	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1540	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1541	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1542
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1543	sigTTIN
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1544	"return the signal number for SIGTTIN - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1545	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1546
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1547	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1548	#if defined(SIGTTIN)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1549	RETURN ( __mkSmallInteger(SIGTTIN) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1550	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1551	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1552	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1553	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1554	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1555
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1556	sigTTOU
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1557	"return the signal number for SIGTTOU - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1558	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1559
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1560	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1561	#if defined(SIGTTOU)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1562	RETURN ( __mkSmallInteger(SIGTTOU) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1563	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1564	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1565	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1566	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1567	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1568
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1569	sigURG
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1570	"return the signal number for SIGURG - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1571	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1572
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1573	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1574	#if defined(SIGURG)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1575	RETURN ( __mkSmallInteger(SIGURG) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1576	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1577	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1578	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1579	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1580	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1581
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1582	sigUSR1
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1583	"return the signal number for SIGUSR1 - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1584	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1585
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1586	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1587	#if defined(SIGUSR1)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1588	RETURN ( __mkSmallInteger(SIGUSR1) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1589	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1590	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1591	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1592	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1593	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1594
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1595	sigUSR2
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1596	"return the signal number for SIGUSR2 - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1597	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1598
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1599	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1600	#if defined(SIGUSR2)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1601	RETURN ( __mkSmallInteger(SIGUSR2) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1602	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1603	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1604	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1605	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1606	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1607
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1608	sigVTALRM
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1609	"return the signal number for SIGVTALRM - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1610	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1611
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1612	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1613	#if defined(SIGVTALRM)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1614	RETURN ( __mkSmallInteger(SIGVTALRM) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1615	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1616	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1617	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1618	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1619	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1620
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1621	sigWINCH
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1622	"return the signal number for SIGWINCH - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1623	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1624
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1625	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1626	#if defined(SIGWINCH)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1627	RETURN ( __mkSmallInteger(SIGWINCH) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1628	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1629	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1630	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1631	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1632	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1633
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1634	sigXCPU
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1635	"return the signal number for SIGXCPU - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1636	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1637
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1638	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1639	#if defined(SIGXCPU)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1640	RETURN ( __mkSmallInteger(SIGXCPU) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1641	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1642	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1643	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1644	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1645	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1646
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1647	sigXFSZ
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1648	"return the signal number for SIGXFSZ - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1649	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1650
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1651	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1652	#if defined(SIGXFSZ)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1653	RETURN ( __mkSmallInteger(SIGXFSZ) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1654	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1655	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1656	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1657	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1658	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1659
9209 0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1660	!Win32OperatingSystem class methodsFor:'VM messages'!
0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1661
11511 8e097a558bac * empty log message * Claus Gittinger <cg@exept.de> parents: 11402 diff changeset	1662	win32LogFile
11513 97a94bac0991 comments Claus Gittinger <cg@exept.de> parents: 11512 diff changeset	1663	"return the name of the log file.
97a94bac0991 comments Claus Gittinger <cg@exept.de> parents: 11512 diff changeset	1664	This is mostly used by standAlone apps, without a console,
97a94bac0991 comments Claus Gittinger <cg@exept.de> parents: 11512 diff changeset	1665	which write their log info into a file named xxx_log_xxx.log.
97a94bac0991 comments Claus Gittinger <cg@exept.de> parents: 11512 diff changeset	1666	The default logFilename is defined be the make-build process, and
97a94bac0991 comments Claus Gittinger <cg@exept.de> parents: 11512 diff changeset	1667	can be overwritten by a command line argumen (--logFile). In order to
97a94bac0991 comments Claus Gittinger <cg@exept.de> parents: 11512 diff changeset	1668	provide access to that files path (for example, to open an editor on it),
11920 4d2ef58645de compilable with VC9.0 Claus Gittinger <cg@exept.de> parents: 11842 diff changeset	1669	use this method to ask for the files name.
11513 97a94bac0991 comments Claus Gittinger <cg@exept.de> parents: 11512 diff changeset	1670	Returns nil, of nothing has been written to the logfile, yet.
97a94bac0991 comments Claus Gittinger <cg@exept.de> parents: 11512 diff changeset	1671	Enforce a logFile, by doing an errorPrint or infoPrint first."
11511 8e097a558bac * empty log message * Claus Gittinger <cg@exept.de> parents: 11402 diff changeset	1672
8e097a558bac * empty log message * Claus Gittinger <cg@exept.de> parents: 11402 diff changeset	1673	\|ret\|
8e097a558bac * empty log message * Claus Gittinger <cg@exept.de> parents: 11402 diff changeset	1674
8e097a558bac * empty log message * Claus Gittinger <cg@exept.de> parents: 11402 diff changeset	1675	%{
11512 c6a1dc4bad14 * empty log message * Claus Gittinger <cg@exept.de> parents: 11511 diff changeset	1676	extern char *__win32_getLogFilename();
11511 8e097a558bac * empty log message * Claus Gittinger <cg@exept.de> parents: 11402 diff changeset	1677	char *lp;
8e097a558bac * empty log message * Claus Gittinger <cg@exept.de> parents: 11402 diff changeset	1678
11512 c6a1dc4bad14 * empty log message * Claus Gittinger <cg@exept.de> parents: 11511 diff changeset	1679	lp = __win32_getLogFilename();
11511 8e097a558bac * empty log message * Claus Gittinger <cg@exept.de> parents: 11402 diff changeset	1680	if (lp) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1681	ret = __MKSTRING(lp);
11511 8e097a558bac * empty log message * Claus Gittinger <cg@exept.de> parents: 11402 diff changeset	1682	}
8e097a558bac * empty log message * Claus Gittinger <cg@exept.de> parents: 11402 diff changeset	1683	%}.
8e097a558bac * empty log message * Claus Gittinger <cg@exept.de> parents: 11402 diff changeset	1684	^ ret
8e097a558bac * empty log message * Claus Gittinger <cg@exept.de> parents: 11402 diff changeset	1685
8e097a558bac * empty log message * Claus Gittinger <cg@exept.de> parents: 11402 diff changeset	1686	"
8e097a558bac * empty log message * Claus Gittinger <cg@exept.de> parents: 11402 diff changeset	1687	Win32OperatingSystem win32LogFile
8e097a558bac * empty log message * Claus Gittinger <cg@exept.de> parents: 11402 diff changeset	1688	"
8e097a558bac * empty log message * Claus Gittinger <cg@exept.de> parents: 11402 diff changeset	1689	!
8e097a558bac * empty log message * Claus Gittinger <cg@exept.de> parents: 11402 diff changeset	1690
9209 0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1691	win32LogFile:aFilenameOrNil
11513 97a94bac0991 comments Claus Gittinger <cg@exept.de> parents: 11512 diff changeset	1692	"change the file, into which log info is written.
97a94bac0991 comments Claus Gittinger <cg@exept.de> parents: 11512 diff changeset	1693	This is mostly used by standAlone apps, without a console,
97a94bac0991 comments Claus Gittinger <cg@exept.de> parents: 11512 diff changeset	1694	which write their log info into a file named xxx_log_xxx.log"
9209 0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1695
0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1696	\|logFilePath\|
0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1697
0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1698	aFilenameOrNil notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1699	logFilePath := aFilenameOrNil asFilename pathName
9209 0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1700	].
0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1701
0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1702	%{
0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1703	extern void __win32_setLogFile();
0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1704
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	1705	if (__isStringLike(logFilePath)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1706	__win32_setLogFile(__stringVal(logFilePath));
9209 0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1707	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1708	__win32_setLogFile( NULL );
9209 0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1709	}
0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1710	%}
0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1711
0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1712	"
0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1713	Win32OperatingSystem win32LogFile:'myLog.log'
9210 ed7cf7380224 * empty log message * Claus Gittinger <cg@exept.de> parents: 9209 diff changeset	1714	Win32OperatingSystem win32LogFile:nil
9209 0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1715	"
0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1716	! !
0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1717
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	1718	!Win32OperatingSystem class methodsFor:'accessing'!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	1719
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	1720	performanceData
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	1721	^ PerformanceData
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	1722	! !
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	1723
25132 b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	1724	!Win32OperatingSystem class methodsFor:'clipboard & console'!
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1725
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	1726	characterEncoderForConsoleOutput
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	1727	"see what encoding is set in the console"
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	1728
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	1729	\|cp outputEncoder\|
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	1730
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	1731	ConsoleOutputEncoder isNil ifTrue:[
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	1732	cp := self getConsoleOutputCP.
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	1733	"/ should handle more codePages via GetConsoleOutputCP
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	1734	outputEncoder := CharacterEncoder encoderNamed:('cp%1' bindWith:cp).
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	1735	outputEncoder isNullEncoder ifTrue:[
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	1736	"/ ('no encoder for cp%1' bindWith:cp) _errorPrintCR.
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	1737	"/ should we fallback here???
25248 ed551410febe #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 25242 diff changeset	1738	] ifFalse:[
ed551410febe #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 25242 diff changeset	1739	ConsoleOutputEncoder := outputEncoder
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	1740	].
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	1741	].
25238 888c46cafed2 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 25237 diff changeset	1742	^ ConsoleOutputEncoder
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	1743
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	1744	"
25248 ed551410febe #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 25242 diff changeset	1745	ConsoleOutputEncoder := nil.
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	1746	self characterEncoderForConsoleOutput
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	1747	"
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	1748	!
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	1749
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1750	clipboardContainsBitmap
25132 b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	1751	"Answer whether the clipboard contains a bitmap."
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1752
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1753	^self clipboardContainsFormat: 2 "CfBitmap"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1754	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1755
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1756	clipboardContainsFormat: aCfConstant
25132 b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	1757	"Answer true if the clipboard contains data in
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	1758	the format described by aCfConstant. "
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1759
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1760	^self primIsClipboardFormatAvailable: aCfConstant
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1761	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1762
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1763	closeClipboard
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1764	\| result \|
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1765
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1766	result := self primCloseClipboard.
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1767	result ifFalse: [
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1768	self error:'Clipboard close failed'
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1769	].
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1770	^ result
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1771
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1772	"Modified: / 03-08-2018 / 11:15:15 / Stefan Vogel"
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1773	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1774
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1775	emptyClipboard
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1776	"Private - empty the clipboard. Note: it must be opened first."
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1777	\| result \|
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1778	result := self primEmptyClipboard.
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1779	result ifFalse: [
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1780	self error:'Clipboard empty failed'
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1781	].
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1782	^result
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1783
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1784	"Modified: / 03-08-2018 / 11:15:47 / Stefan Vogel"
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1785	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1786
25132 b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	1787	getConsoleOutputCP
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	1788	"get the console's output code page identifier"
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	1789
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	1790	<apicall: uint "GetConsoleOutputCP" () module: "kernel32.dll" >
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	1791	^self primitiveFailed
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	1792
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	1793	"
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	1794	OperatingSystem getConsoleOutputCP
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	1795	"
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	1796	!
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	1797
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1798	getDesktopWindow
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1799
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1800	^self primGetDesktopWindow
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1801	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1802
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1803	openClipboard
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1804
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1805	^self openClipboard: self getDesktopWindow
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1806	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1807
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1808	openClipboard: aHwnd
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1809	\| result \|
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1810
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1811	result := self primOpenClipboard: aHwnd.
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1812	result ifFalse: [
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1813	self error:'Clipboard open failed'
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1814	].
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1815	^ result
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1816
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1817	"Modified: / 03-08-2018 / 11:16:08 / Stefan Vogel"
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1818	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1819
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1820	primCloseClipboard
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1821
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1822	<apicall: bool "CloseClipboard" () module: "user32.dll" >
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1823	^self primitiveFailed
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1824	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1825
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1826	primEmptyClipboard
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1827
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1828	<apicall: bool "EmptyClipboard" () module: "user32.dll" >
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1829	^self primitiveFailed
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1830	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1831
25132 b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	1832	primGenerateConsoleCtrlEvent:dwProcessId
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	1833	"it looks as if that does not work at the moment,
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	1834	unless the process has the same console as me.
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	1835	This is not the case with embedded terminals, so CTRL-C cannot be sent to it."
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	1836
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	1837	%{
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	1838	if ( __isSmallInteger(dwProcessId) ) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1839	GenerateConsoleCtrlEvent(CTRL_BREAK_EVENT, __intVal(dwProcessId));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1840	RETURN( self );
25132 b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	1841	}
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	1842	%}.
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	1843	self primitiveFailed:#invalidParameter.
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	1844	!
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	1845
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1846	primGetDesktopWindow
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1847
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1848	<apicall: ulongReturn "GetDesktopWindow" () module: "user32.dll" >
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1849	^self primitiveFailed
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1850	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1851
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1852	primIsClipboardFormatAvailable: aCfConstant
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1853
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1854	<apicall: boolean "IsClipboardFormatAvailable" (ulong) module: "user32.dll" >
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1855	^self primitiveFailed
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1856	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1857
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1858	primOpenClipboard: aHwnd
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1859
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1860	<apicall: bool "OpenClipboard" (ulong) module: "user32.dll" >
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1861	^self primitiveFailed
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1862	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1863
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1864	primSetClipboardData: aCfConstant hMem: aMemHandle
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1865
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1866	<apicall: ulongReturn "SetClipboardData" (ulong ulong) module: "user32.dll" >
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1867	^self primitiveFailed
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1868	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1869
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1870	setBitmapToClipboard: aBitmap
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1871	"Copy aBitmap to the clipboard."
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1872
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1873	\| handle \|
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1874
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1875	aBitmap isNil ifTrue:[ ^nil ].
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1876	aBitmap id isNil ifTrue:[aBitmap onDevice: Screen current].
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1877	handle := aBitmap id.
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1878	handle isNil ifTrue: [ ^ nil ].
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1879	self openClipboard ifFalse: [ ^ nil ].
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1880	self emptyClipboard.
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1881	self setClipboardData: 2 "CfBitmap" hMem: handle.
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1882	self closeClipboard
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1883
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1884	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1885	Win32OperatingSystem setBitmapToClipboard: Image fromUser
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1886	"
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1887
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1888	"Modified (format): / 03-08-2018 / 11:24:11 / Stefan Vogel"
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1889	!
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1890
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1891	setClipboardData:aCfConstant hMem:aMemHandle
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1892	\|result\|
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1893
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1894	result := self primSetClipboardData: aCfConstant hMem: aMemHandle address.
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1895	result = 0 ifTrue: [
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1896	self error:'Set clipboard data failed'
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1897	].
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1898	^ result.
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1899
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	1900	"Modified: / 03-08-2018 / 11:21:11 / Stefan Vogel"
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1901	! !
10913 b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	1902
20930 793c81da8cb1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20897 diff changeset	1903	!Win32OperatingSystem class methodsFor:'debugging'!
793c81da8cb1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20897 diff changeset	1904
793c81da8cb1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20897 diff changeset	1905	verbose:aBoolean
793c81da8cb1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20897 diff changeset	1906	%{
793c81da8cb1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20897 diff changeset	1907	#ifdef PROCESSDEBUGWIN32
793c81da8cb1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20897 diff changeset	1908	flag_PROCESSDEBUGWIN32 = (aBoolean == true);
793c81da8cb1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20897 diff changeset	1909	#endif
793c81da8cb1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20897 diff changeset	1910	%}
793c81da8cb1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20897 diff changeset	1911	! !
793c81da8cb1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20897 diff changeset	1912
17286 a7170033e17f directory access ca parents: 17169 diff changeset	1913	!Win32OperatingSystem class methodsFor:'directory access'!
a7170033e17f directory access ca parents: 17169 diff changeset	1914
a7170033e17f directory access ca parents: 17169 diff changeset	1915	linkInfoFor:osPathname fileSize:fileSize fileAttributes:osFileAttributes osCrtTime:osCrtTime osAccTime:osAccTime osModTime:osModTime
a7170033e17f directory access ca parents: 17169 diff changeset	1916	\|type modeBits crtTime accTime modTime\|
a7170033e17f directory access ca parents: 17169 diff changeset	1917
a7170033e17f directory access ca parents: 17169 diff changeset	1918	%{
a7170033e17f directory access ca parents: 17169 diff changeset	1919	DWORD __fileAttr = __unsignedLongIntVal( osFileAttributes );
a7170033e17f directory access ca parents: 17169 diff changeset	1920	int __modeBits = 0;
a7170033e17f directory access ca parents: 17169 diff changeset	1921
a7170033e17f directory access ca parents: 17169 diff changeset	1922	if (__fileAttr & FILE_ATTRIBUTE_DIRECTORY) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1923	type = @symbol(directory);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1924	__modeBits = 0777; /* executable and WRITABLE - refer to comment in #isWritable: */
17286 a7170033e17f directory access ca parents: 17169 diff changeset	1925	} else if (__fileAttr & FILE_ATTRIBUTE_REPARSE_POINT) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1926	type = @symbol(symbolicLink);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1927	__modeBits = 0777; /* even in UNIX symlinks have 0777 */
17286 a7170033e17f directory access ca parents: 17169 diff changeset	1928	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1929	type = @symbol(regular);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1930	if (__fileAttr & FILE_ATTRIBUTE_READONLY) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1931	__modeBits = 0444;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1932	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1933	__modeBits = 0666;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1934	}
17286 a7170033e17f directory access ca parents: 17169 diff changeset	1935	}
a7170033e17f directory access ca parents: 17169 diff changeset	1936	modeBits = __mkSmallInteger(__modeBits);
a7170033e17f directory access ca parents: 17169 diff changeset	1937
a7170033e17f directory access ca parents: 17169 diff changeset	1938	%}.
a7170033e17f directory access ca parents: 17169 diff changeset	1939	osCrtTime isNil
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1940	ifTrue: [crtTime := Timestamp now]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1941	ifFalse:[crtTime := Timestamp new fromOSTime:(osCrtTime "- OperatingSystem osTimeOf19700101 -- already done")].
17286 a7170033e17f directory access ca parents: 17169 diff changeset	1942
a7170033e17f directory access ca parents: 17169 diff changeset	1943	osAccTime isNil
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1944	ifTrue: [accTime := Timestamp now]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1945	ifFalse:[accTime := Timestamp new fromOSTime:(osAccTime "- OperatingSystem osTimeOf19700101 -- already done")].
17286 a7170033e17f directory access ca parents: 17169 diff changeset	1946
a7170033e17f directory access ca parents: 17169 diff changeset	1947	osModTime isNil
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1948	ifTrue: [modTime := accTime]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1949	ifFalse:[modTime := Timestamp new fromOSTime:(osModTime "- OperatingSystem osTimeOf19700101 -- already done")].
17286 a7170033e17f directory access ca parents: 17169 diff changeset	1950
a7170033e17f directory access ca parents: 17169 diff changeset	1951	^ FileStatusInfo
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1952	type:type
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1953	mode:modeBits
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1954	uid:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1955	gid:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1956	size:fileSize
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1957	id:0
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1958	accessed:accTime
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1959	modified:modTime
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1960	created:crtTime
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1961	sourcePath:osPathname
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1962	fullName:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1963	alternativeName:nil.
17286 a7170033e17f directory access ca parents: 17169 diff changeset	1964	!
a7170033e17f directory access ca parents: 17169 diff changeset	1965
a7170033e17f directory access ca parents: 17169 diff changeset	1966	nextLinkInfoFrom:aDirectoryStream dirPointer:dirPointer
a7170033e17f directory access ca parents: 17169 diff changeset	1967	"return the next FileStatusInfo or nil at the end"
a7170033e17f directory access ca parents: 17169 diff changeset	1968
a7170033e17f directory access ca parents: 17169 diff changeset	1969	\|resultInfo error fileSize osPathname osModTime osCrtTime osAccTime osFileAttributes\|
a7170033e17f directory access ca parents: 17169 diff changeset	1970
a7170033e17f directory access ca parents: 17169 diff changeset	1971	%{
a7170033e17f directory access ca parents: 17169 diff changeset	1972	WIN32_FIND_DATAW data;
a7170033e17f directory access ca parents: 17169 diff changeset	1973	int rslt;
a7170033e17f directory access ca parents: 17169 diff changeset	1974
a7170033e17f directory access ca parents: 17169 diff changeset	1975	if ((dirPointer != nil)
a7170033e17f directory access ca parents: 17169 diff changeset	1976	&& __isExternalAddressLike(dirPointer)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1977	// __INST(lastErrorNumber) = nil;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1978	HANDLE d = _HANDLEVal(dirPointer);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1979
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1980	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1981	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1982	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1983	rslt = (int)(STX_API_NOINT_CALL2( "FindNextFileW", FindNextFileW, d, &data ));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1984	} while ((rslt < 0) && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1985
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1986	if (rslt > 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1987	fileSize = __MKLARGEINT64(1, (unsigned INT)data.nFileSizeLow, (unsigned INT)data.nFileSizeHigh);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1988	osPathname = __mkStringOrU16String_maxlen( data.cFileName, MAXPATHLEN );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1989	osFileAttributes = __mkSmallInteger( data.dwFileAttributes );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1990
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1991	osCrtTime = FileTimeToOsTime1970(&data.ftCreationTime);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1992	osAccTime = FileTimeToOsTime1970(&data.ftLastAccessTime);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1993	osModTime = FileTimeToOsTime1970(&data.ftLastWriteTime);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1994	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1995	// we signal end-of-directory through a nil osPathName
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1996	if (__threadErrno != __WIN32_ERR(ERROR_NO_MORE_FILES))
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1997	error = __mkSmallInteger( __threadErrno );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	1998	}
21065 d4735595a002 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21063 diff changeset	1999	}
d4735595a002 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21063 diff changeset	2000	%}.
d4735595a002 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21063 diff changeset	2001	error notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2002	^ StreamIOError newException
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2003	errorCode:error;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2004	osErrorHolder:(OperatingSystem errorHolderForNumber:error);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2005	parameter:aDirectoryStream;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2006	raiseRequest
17286 a7170033e17f directory access ca parents: 17169 diff changeset	2007	].
a7170033e17f directory access ca parents: 17169 diff changeset	2008
a7170033e17f directory access ca parents: 17169 diff changeset	2009	osPathname isNil ifTrue:[^ nil].
a7170033e17f directory access ca parents: 17169 diff changeset	2010
a7170033e17f directory access ca parents: 17169 diff changeset	2011	^ self
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2012	linkInfoFor:osPathname
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2013	fileSize:fileSize
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2014	fileAttributes:osFileAttributes
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2015	osCrtTime:osCrtTime
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2016	osAccTime:osAccTime
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2017	osModTime:osModTime
24543 eb3802830398 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 24371 diff changeset	2018
eb3802830398 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 24371 diff changeset	2019	"Modified: / 13-08-2019 / 17:37:39 / Stefan Vogel"
17286 a7170033e17f directory access ca parents: 17169 diff changeset	2020	! !
a7170033e17f directory access ca parents: 17169 diff changeset	2021
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2022	!Win32OperatingSystem class methodsFor:'error messages'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2023
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2024	currentErrorNumber
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2025	"returns the OS's last error nr (i.e. the value of errno).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2026	Notice, that the value of this flag is only valid immediately
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2027	after the error occurred - it gets updated with every other
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2028	request to the OS.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2029	Use lastErrorNumber - currentErrorNumber is invalidated by
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2030	many, many internal calls."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2031
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2032	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2033
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	2034	RETURN ( __mkSmallInteger(__threadErrno) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2035	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2036	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2037	OperatingSystem currentErrorNumber
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2038	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2039	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2040
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2041	errorHolderForNumber:errNr
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	2042	"return an osErrorHolder for the given error number (as returned by a system call)."
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2043
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2044	\|sym typ holder\|
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2045
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2046	%{
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2047	/* claus:
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2048	* I made this primitive code, since errnos are not
16303 aad4b514271c class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16289 diff changeset	2049	* standard across operating systems
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2050	*/
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2051
9166 242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	2052	if (__isSmallInteger(errNr) \|\| (__unsignedLongIntVal(errNr) > 0)) {
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	2053	int __eno = __unsignedLongIntVal(errNr);
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2054
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2055	if (__isWIN32Error(__eno)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2056	switch (__eno & 0xFFFF) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2057	/*
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2058	* WIN32 GetLastError returns
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2059	*/
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2060	case ERROR_INVALID_FUNCTION:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2061	sym = @symbol(ERROR_INVALID_FUNCTION);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2062	typ = @symbol(illegalOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2063	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2064
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2065	case ERROR_BAD_FORMAT:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2066	sym = @symbol(ERROR_BAD_FORMAT);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2067	typ = @symbol(invalidArgumentsSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2068	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2069
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2070	case ERROR_FILE_NOT_FOUND:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2071	sym = @symbol(ERROR_FILE_NOT_FOUND);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2072	typ = @symbol(nonexistentSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2073	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2074
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2075	case ERROR_PATH_NOT_FOUND:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2076	sym = @symbol(ERROR_PATH_NOT_FOUND);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2077	typ = @symbol(nonexistentSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2078	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2079
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2080	case ERROR_TOO_MANY_OPEN_FILES:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2081	sym = @symbol(ERROR_TOO_MANY_OPEN_FILES);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2082	typ = @symbol(noResourcesSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2083	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2084
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2085	/*
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2086	* what a nice errorCode - that's the most "useful" one I ever
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2087	* encountered ... (... those stupid micro-softies ...)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2088	*/
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2089	case ERROR_OPEN_FAILED:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2090	sym = @symbol(ERROR_OPEN_FAILED);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2091	typ = @symbol(noResourcesSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2092	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2093
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2094	case ERROR_ACCESS_DENIED:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2095	sym = @symbol(ERROR_ACCESS_DENIED);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2096	typ = @symbol(noPermissionsSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2097	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2098
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2099	case ERROR_INVALID_HANDLE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2100	sym = @symbol(ERROR_INVALID_HANDLE);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2101	typ = @symbol(invalidArgumentsSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2102	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2103
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2104	case ERROR_NOT_ENOUGH_MEMORY:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2105	sym = @symbol(ERROR_NOT_ENOUGH_MEMORY);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2106	typ = @symbol(noResourcesSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2107	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2108
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2109	case ERROR_NO_SYSTEM_RESOURCES:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2110	sym = @symbol(ERROR_NO_SYSTEM_RESOURCES);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2111	typ = @symbol(noResourcesSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2112	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2113
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2114	case ERROR_NONPAGED_SYSTEM_RESOURCES:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2115	sym = @symbol(ERROR_NONPAGED_SYSTEM_RESOURCES);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2116	typ = @symbol(noResourcesSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2117	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2118
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2119	case ERROR_PAGED_SYSTEM_RESOURCES:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2120	sym = @symbol(ERROR_PAGED_SYSTEM_RESOURCES);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2121	typ = @symbol(noResourcesSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2122	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2123
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2124	case ERROR_INVALID_ACCESS:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2125	sym = @symbol(ERROR_INVALID_ACCESS);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2126	typ = @symbol(inappropriateOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2127	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2128
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2129	case ERROR_INVALID_DATA:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2130	sym = @symbol(ERROR_INVALID_DATA);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2131	typ = @symbol(invalidArgumentsSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2132	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2133
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2134	case ERROR_INVALID_NAME:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2135	sym = @symbol(ERROR_INVALID_NAME);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2136	typ = @symbol(invalidArgumentsSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2137	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2138
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2139	case ERROR_ARENA_TRASHED:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2140	sym = @symbol(ERROR_ARENA_TRASHED);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2141	typ = @symbol(noResourcesSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2142	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2143
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2144	case ERROR_OUTOFMEMORY:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2145	sym = @symbol(ERROR_OUTOFMEMORY);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2146	typ = @symbol(noResourcesSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2147	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2148
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2149	case ERROR_BROKEN_PIPE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2150	sym = @symbol(ERROR_BROKEN_PIPE);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2151	typ = @symbol(peerFaultSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2152	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2153
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2154	case ERROR_GEN_FAILURE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2155	sym = @symbol(ERROR_GEN_FAILURE);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2156	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2157
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2158	case ERROR_WRITE_PROTECT:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2159	sym = @symbol(ERROR_WRITE_PROTECT);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2160	typ = @symbol(inappropriateOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2161	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2162
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2163	case ERROR_WRITE_FAULT:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2164	sym = @symbol(ERROR_WRITE_FAULT);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2165	typ = @symbol(transferFaultSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2166	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2167
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2168	case ERROR_READ_FAULT:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2169	sym = @symbol(ERROR_READ_FAULT);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2170	typ = @symbol(transferFaultSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2171	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2172
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2173	case ERROR_HANDLE_DISK_FULL:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2174	sym = @symbol(ERROR_HANDLE_DISK_FULL);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2175	typ = @symbol(volumeFullSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2176	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2177
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2178	case ERROR_DISK_FULL:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2179	sym = @symbol(ERROR_DISK_FULL);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2180	typ = @symbol(volumeFullSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2181	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2182
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2183	case ERROR_SHARING_VIOLATION:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2184	sym = @symbol(ERROR_SHARING_VIOLATION);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2185	typ = @symbol(noPermissionsSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2186	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2187
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2188	case ERROR_LOCK_VIOLATION:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2189	sym = @symbol(ERROR_LOCK_VIOLATION);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2190	typ = @symbol(noPermissionsSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2191	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2192
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2193	case ERROR_INVALID_PARAMETER:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2194	sym = @symbol(ERROR_INVALID_PARAMETER);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2195	typ = @symbol(invalidArgumentsSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2196	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2197
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2198	case ERROR_NET_WRITE_FAULT:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2199	sym = @symbol(ERROR_NET_WRITE_FAULT);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2200	typ = @symbol(transferFaultSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2201	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2202
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2203	case ERROR_NOT_SUPPORTED:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2204	sym = @symbol(ERROR_NOT_SUPPORTED);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2205	typ = @symbol(inappropriateOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2206	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2207
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2208	case ERROR_REM_NOT_LIST:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2209	sym = @symbol(ERROR_REM_NOT_LIST);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2210	typ = @symbol(noResourcesSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2211	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2212
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2213	case ERROR_NETWORK_ACCESS_DENIED:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2214	sym = @symbol(ERROR_NETWORK_ACCESS_DENIED);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2215	typ = @symbol(noPermissionsSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2216	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2217
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2218	case ERROR_DUP_NAME:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2219	sym = @symbol(ERROR_DUP_NAME);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2220	typ = @symbol(noResourcesSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2221	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2222
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2223	case ERROR_BAD_NETPATH: // 53
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2224	sym = @symbol(ERROR_BAD_NETPATH);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2225	typ = @symbol(peerFaultSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2226	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2227
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2228	case ERROR_NETWORK_BUSY: // 54
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2229	sym = @symbol(ERROR_NETWORK_BUSY);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2230	typ = @symbol(noResourcesSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2231	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2232
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2233	case ERROR_DRIVE_LOCKED:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2234	sym = @symbol(ERROR_DRIVE_LOCKED);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2235	typ = @symbol(inappropriateOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2236	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2237
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2238	case ERROR_INVALID_DRIVE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2239	sym = @symbol(ERROR_INVALID_DRIVE);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2240	typ = @symbol(invalidArgumentsSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2241	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2242
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2243	case ERROR_WRONG_DISK:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2244	sym = @symbol(ERROR_WRONG_DISK);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2245	typ = @symbol(noResourcesSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2246	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2247
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2248	case ERROR_CURRENT_DIRECTORY:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2249	sym = @symbol(ERROR_CURRENT_DIRECTORY);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2250	typ = @symbol(invalidArgumentsSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2251	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2252
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2253	/*
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2254	* what a nice errorCode - thats the most "useful" one I ever
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2255	* encountered ... (... those stupid micro-softies ...)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2256	*/
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2257	case ERROR_CANNOT_MAKE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2258	sym = @symbol(ERROR_CANNOT_MAKE);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2259	typ = @symbol(inappropriateOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2260	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2261
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2262	case ERROR_NO_MORE_FILES:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2263	sym = @symbol(ERROR_NO_MORE_FILES);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2264	typ = @symbol(noResourcesSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2265	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2266
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2267	case ERROR_NOT_READY:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2268	sym = @symbol(ERROR_NOT_READY);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2269	typ = @symbol(noResourcesSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2270	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2271
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2272	case ERROR_NOT_DOS_DISK:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2273	sym = @symbol(ERROR_NOT_DOS_DISK);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2274	typ = @symbol(invalidArgumentsSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2275	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2276
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2277	case ERROR_OUT_OF_PAPER:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2278	sym = @symbol(ERROR_OUT_OF_PAPER);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2279	typ = @symbol(noResourcesSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2280	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2281
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2282	case ERROR_PRINTQ_FULL:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2283	sym = @symbol(ERROR_PRINTQ_FULL);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2284	typ = @symbol(noResourcesSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2285	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2286
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2287	case ERROR_FILE_EXISTS:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2288	sym = @symbol(ERROR_FILE_EXISTS);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2289	typ = @symbol(existingReferentSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2290	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2291
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2292	case ERROR_ALREADY_EXISTS:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2293	sym = @symbol(ERROR_ALREADY_EXISTS);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2294	typ = @symbol(existingReferentSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2295	break;
25184 5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	2296
25223 08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2297	#ifdef WSAHOSTUNREACH
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2298	case WSAHOSTUNREACH:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2299	sym = @symbol(EHOSTUNREACH);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2300	typ = @symbol(peerFaultSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2301	break;
25223 08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2302	#endif
08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2303
08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2304	#ifdef WSAEFAULT
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2305	case WSAEFAULT:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2306	sym = @symbol(WSAEFAULT);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2307	typ = @symbol(invalidArgumentsSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2308	break;
25223 08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2309	#endif
08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2310	#ifdef WSAEINTR
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2311	case WSAEINTR:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2312	sym = @symbol(WSAEINTR);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2313	typ = @symbol(transientErrorSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2314	break;
25223 08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2315	#endif
08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2316	#ifdef WSAEBADF
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2317	case WSAEBADF:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2318	sym = @symbol(WSAEBADF);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2319	typ = @symbol(badAccessorSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2320	break;
25223 08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2321	#endif
08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2322	#ifdef WSAEACCES
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2323	case WSAEACCES:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2324	sym = @symbol(WSAEACCES);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2325	typ = @symbol(badAccessorSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2326	break;
25223 08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2327	#endif
08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2328	#ifdef WSAEINVAL
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2329	case WSAEINVAL:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2330	sym = @symbol(WSAEINVAL);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2331	typ = @symbol(invalidArgumentsSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2332	break;
25223 08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2333	#endif
08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2334	#ifdef WSAEMFILE
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2335	case WSAEMFILE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2336	sym = @symbol(WSAEMFILE);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2337	typ = @symbol(noResourcesSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2338	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2339	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2340	#ifdef WSAEWOULDBLOCK
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2341	case WSAEWOULDBLOCK:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2342	sym = @symbol(WSAEWOULDBLOCK);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2343	typ = @symbol(notReadySignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2344	break;
25223 08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2345	#endif
08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2346	#ifdef WSAEINPROGRESS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2347	case WSAEINPROGRESS:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2348	sym = @symbol(WSAEINPROGRESS);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2349	typ = @symbol(operationStartedSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2350	break;
25223 08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2351	#endif
08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2352	#ifdef WSAEALREADY
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2353	case WSAEALREADY:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2354	sym = @symbol(WSAEALREADY);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2355	typ = @symbol(operationStartedSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2356	break;
25223 08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2357	#endif
08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2358	#ifdef WSAENOTSOCK
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2359	case WSAENOTSOCK:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2360	sym = @symbol(WSAENOTSOCK);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2361	typ = @symbol(inappropriateOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2362	break;
25223 08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2363	#endif
08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2364	#ifdef WSAEPROTONOSUPPORT
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2365	case WSAEPROTONOSUPPORT:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2366	sym = @symbol(WSAEPROTONOSUPPORT);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2367	typ = @symbol(unsupportedOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2368	break;
25223 08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2369	#endif
08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2370	#ifdef WSAESOCKTNOSUPPORT
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2371	case WSAESOCKTNOSUPPORT:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2372	sym = @symbol(WSAESOCKTNOSUPPORT);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2373	typ = @symbol(unsupportedOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2374	break;
25223 08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2375	#endif
08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2376	#ifdef CO_E_NOTINITIALIZED
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2377	case CO_E_NOTINITIALIZED:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2378	sym = @symbol(CO_E_NOTINITIALIZED);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2379	typ = @symbol(coNotInitializedSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2380	break;
25223 08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2381	#endif
08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2382	#ifdef REGDB_E_CLASSNOTREG
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2383	case REGDB_E_CLASSNOTREG:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2384	sym = @symbol(REGDB_E_CLASSNOTREG);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2385	typ = @symbol(classNotRegisteredSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2386	break;
25223 08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2387	#endif
08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2388	#ifdef CLASS_E_NOAGGREGATION
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2389	case CLASS_E_NOAGGREGATION:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2390	sym = @symbol(CLASS_E_NOAGGREGATION);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2391	typ = @symbol(noAggregationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2392	break;
25223 08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2393	#endif
08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2394	#ifdef DISP_E_UNKNOWNNAME
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2395	case DISP_E_UNKNOWNNAME:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2396	sym = @symbol(DISP_E_UNKNOWNNAME);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2397	typ = @symbol(unknownNameSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2398	break;
25223 08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2399	#endif
08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2400	#ifdef OLEOBJ_E_NOVERBS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2401	case OLEOBJ_E_NOVERBS:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2402	sym = @symbol(OLEOBJ_E_NOVERBS);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2403	typ = @symbol(noVerbsSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2404	break;
25223 08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2405	#endif
08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2406	#ifdef RPC_S_INVALID_NET_ADDR
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2407	case RPC_S_INVALID_NET_ADDR:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2408	sym = @symbol(RPC_S_INVALID_NET_ADDR);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2409	typ = @symbol(peerFaultSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2410	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2411	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2412
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2413	default:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2414	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2415	}
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2416	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2417	switch (__eno) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2418	/*
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2419	* POSIX errnos - these should be defined
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2420	*/
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2421	#ifdef EPERM
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2422	case EPERM:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2423	sym = @symbol(EPERM);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2424	typ = @symbol(noPermissionsSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2425	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2426	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2427	#ifdef ENOENT
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2428	case ENOENT:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2429	sym = @symbol(ENOENT);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2430	typ = @symbol(nonexistentSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2431	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2432	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2433	#ifdef ESRCH
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2434	case ESRCH:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2435	sym = @symbol(ESRCH);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2436	typ = @symbol(unavailableReferentSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2437	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2438	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2439	#ifdef EINTR
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2440	case EINTR:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2441	sym = @symbol(EINTR);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2442	typ = @symbol(transientErrorSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2443	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2444	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2445	#ifdef EIO
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2446	case EIO:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2447	sym = @symbol(EIO);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2448	typ = @symbol(transferFaultSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2449	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2450	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2451	#ifdef ENXIO
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2452	case ENXIO:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2453	sym = @symbol(ENXIO);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2454	typ = @symbol(unavailableReferentSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2455	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2456	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2457	#ifdef E2BIG
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2458	case E2BIG:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2459	sym = @symbol(E2BIG);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2460	typ = @symbol(invalidArgumentsSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2461	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2462	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2463	#ifdef ENOEXEC
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2464	case ENOEXEC:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2465	sym = @symbol(ENOEXEC);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2466	typ = @symbol(inappropriateOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2467	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2468	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2469	#ifdef EBADF
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2470	case EBADF:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2471	sym = @symbol(EBADF);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2472	typ = @symbol(badAccessorSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2473	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2474	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2475	#ifdef ECHILD
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2476	case ECHILD:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2477	sym = @symbol(ECHILD);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2478	typ = @symbol(informationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2479	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2480	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2481	#if !defined(EWOULDBLOCK) && defined(EAGAIN) && (EWOULDBLOCK != EAGAIN)
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2482	case EAGAIN:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2483	sym = @symbol(EAGAIN);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2484	typ = @symbol(notReadySignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2485	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2486	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2487	#ifdef ENOMEM
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2488	case ENOMEM:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2489	sym = @symbol(ENOMEM);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2490	typ = @symbol(noMemorySignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2491	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2492	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2493	#ifdef EACCES
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2494	case EACCES:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2495	sym = @symbol(EACCES);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2496	typ = @symbol(noPermissionsSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2497	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2498	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2499	#ifdef EFAULT
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2500	case EFAULT:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2501	sym = @symbol(EFAULT);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2502	typ = @symbol(invalidArgumentsSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2503	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2504	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2505	#ifdef EBUSY
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2506	case EBUSY:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2507	sym = @symbol(EBUSY);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2508	typ = @symbol(unavailableReferentSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2509	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2510	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2511	#ifdef EEXIST
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2512	case EEXIST:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2513	sym = @symbol(EEXIST);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2514	typ = @symbol(existingReferentSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2515	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2516	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2517	#ifdef EXDEV
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2518	case EXDEV:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2519	sym = @symbol(EXDEV);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2520	typ = @symbol(inappropriateReferentSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2521	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2522	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2523	#ifdef ENODEV
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2524	case ENODEV:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2525	sym = @symbol(ENODEV);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2526	typ = @symbol(inaccessibleSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2527	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2528	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2529	#ifdef ENOTDIR
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2530	case ENOTDIR:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2531	sym = @symbol(ENOTDIR);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2532	typ = @symbol(inappropriateOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2533	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2534	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2535	#ifdef EISDIR
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2536	case EISDIR:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2537	sym = @symbol(EISDIR);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2538	typ = @symbol(inappropriateOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2539	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2540	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2541	#ifdef EINVAL
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2542	case EINVAL:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2543	sym = @symbol(EINVAL);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2544	typ = @symbol(invalidArgumentsSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2545	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2546	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2547	#ifdef ENFILE
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2548	case ENFILE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2549	sym = @symbol(ENFILE);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2550	typ = @symbol(noResourcesSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2551	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2552	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2553	#ifdef EMFILE
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2554	case EMFILE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2555	sym = @symbol(EMFILE);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2556	typ = @symbol(noResourcesSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2557	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2558	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2559	#ifdef ENOTTY
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2560	case ENOTTY:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2561	sym = @symbol(ENOTTY);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2562	typ = @symbol(inappropriateOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2563	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2564	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2565	#ifdef EFBIG
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2566	case EFBIG:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2567	sym = @symbol(EFBIG);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2568	typ = @symbol(noResourcesSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2569	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2570	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2571	#ifdef ENOSPC
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2572	case ENOSPC:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2573	sym = @symbol(ENOSPC);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2574	typ = @symbol(noResourcesSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2575	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2576	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2577	#ifdef ESPIPE
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2578	case ESPIPE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2579	sym = @symbol(ESPIPE);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2580	typ = @symbol(inappropriateOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2581	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2582	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2583	#ifdef EROFS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2584	case EROFS:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2585	sym = @symbol(EROFS);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2586	typ = @symbol(inappropriateOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2587	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2588	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2589	#ifdef EMLINK
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2590	case EMLINK:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2591	sym = @symbol(EMLINK);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2592	typ = @symbol(rangeErrorSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2593	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2594	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2595	#ifdef EPIPE
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2596	case EPIPE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2597	sym = @symbol(EPIPE);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2598	typ = @symbol(peerFaultSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2599	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2600	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2601	#ifdef EDOM
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2602	case EDOM:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2603	sym = @symbol(EDOM);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2604	typ = @symbol(rangeErrorSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2605	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2606	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2607	#ifdef ERANGE
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2608	case ERANGE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2609	sym = @symbol(ERANGE);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2610	typ = @symbol(rangeErrorSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2611	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2612	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2613	#ifdef EDEADLK
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2614	# if EDEADLK != EWOULDBLOCK
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2615	case EDEADLK:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2616	sym = @symbol(EDEADLK);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2617	typ = @symbol(noResourcesSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2618	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2619	# endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2620	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2621	#ifdef ENAMETOOLONG
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2622	case ENAMETOOLONG:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2623	sym = @symbol(ENAMETOOLONG);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2624	typ = @symbol(rangeErrorSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2625	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2626	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2627	#ifdef ENOLCK
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2628	case ENOLCK:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2629	sym = @symbol(ENOLCK);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2630	typ = @symbol(inappropriateOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2631	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2632	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2633	#ifdef ENOSYS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2634	case ENOSYS:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2635	sym = @symbol(ENOSYS);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2636	typ = @symbol(inappropriateOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2637	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2638	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2639	#if defined(ENOTEMPTY) && (ENOTEMPTY != EEXIST)
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2640	case ENOTEMPTY:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2641	sym = @symbol(ENOTEMPTY);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2642	typ = @symbol(inappropriateReferentSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2643	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2644	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2645	#ifdef EILSEQ
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2646	case EILSEQ:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2647	sym = @symbol(EILSEQ);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2648	typ = @symbol(transferFaultSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2649	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2650	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2651	/*
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2652	* XPG3 errnos - defined on most systems
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2653	*/
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2654	#ifdef ENOTBLK
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2655	case ENOTBLK:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2656	sym = @symbol(ENOTBLK);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2657	typ = @symbol(inappropriateReferentSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2658	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2659	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2660	#ifdef ETXTBSY
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2661	case ETXTBSY:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2662	sym = @symbol(ETXTBSY);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2663	typ = @symbol(inaccessibleSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2664	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2665	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2666	/*
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2667	* some others
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2668	*/
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2669	#ifdef EWOULDBLOCK
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2670	case EWOULDBLOCK:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2671	sym = @symbol(EWOULDBLOCK);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2672	typ = @symbol(notReadySignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2673	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2674	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2675	#ifdef ENOMSG
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2676	case ENOMSG:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2677	sym = @symbol(ENOMSG);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2678	typ = @symbol(noDataSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2679	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2680	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2681	#ifdef ELOOP
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2682	case ELOOP:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2683	sym = @symbol(ELOOP);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2684	typ = @symbol(rangeErrorSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2685	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2686	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2687
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2688	/*
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2689	* some stream errors
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2690	*/
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2691	#ifdef ETIME
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2692	case ETIME:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2693	sym = @symbol(ETIME);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2694	typ = @symbol(peerFaultSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2695	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2696	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2697	#ifdef ENOSR
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2698	case ENOSR:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2699	sym = @symbol(ENOSR);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2700	typ = @symbol(noResourcesSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2701	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2702	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2703	#ifdef ENOSTR
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2704	case ENOSTR:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2705	sym = @symbol(ENOSTR);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2706	typ = @symbol(inappropriateReferentSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2707	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2708	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2709	#ifdef ECOMM
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2710	case ECOMM:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2711	sym = @symbol(ECOMM);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2712	typ = @symbol(transferFaultSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2713	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2714	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2715	#ifdef EPROTO
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2716	case EPROTO:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2717	sym = @symbol(EPROTO);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2718	typ = @symbol(inappropriateOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2719	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2720	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2721	/*
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2722	* nfs errors
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2723	*/
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2724	#ifdef ESTALE
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2725	case ESTALE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2726	sym = @symbol(ESTALE);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2727	typ = @symbol(unavailableReferentSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2728	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2729	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2730	#ifdef EREMOTE
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2731	case EREMOTE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2732	sym = @symbol(EREMOTE);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2733	typ = @symbol(rangeErrorSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2734	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2735	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2736	/*
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2737	* some networking errors
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2738	*/
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2739	#ifdef EINPROGRESS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2740	case EINPROGRESS:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2741	sym = @symbol(EINPROGRESS);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2742	typ = @symbol(operationStartedSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2743	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2744	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2745	#ifdef EALREADY
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2746	case EALREADY:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2747	sym = @symbol(EALREADY);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2748	typ = @symbol(operationStartedSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2749	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2750	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2751	#ifdef ENOTSOCK
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2752	case ENOTSOCK:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2753	sym = @symbol(ENOTSOCK);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2754	typ = @symbol(inappropriateOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2755	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2756	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2757	#ifdef EDESTADDRREQ
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2758	case EDESTADDRREQ:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2759	sym = @symbol(EDESTADDRREQ);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2760	typ = @symbol(underspecifiedSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2761	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2762	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2763	#ifdef EMSGSIZE
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2764	case EMSGSIZE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2765	sym = @symbol(EMSGSIZE);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2766	typ = @symbol(rangeErrorSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2767	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2768	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2769	#ifdef EPROTOTYPE
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2770	case EPROTOTYPE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2771	sym = @symbol(EPROTOTYPE);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2772	typ = @symbol(wrongSubtypeForOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2773	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2774	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2775	#ifdef ENOPROTOOPT
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2776	case ENOPROTOOPT:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2777	sym = @symbol(ENOPROTOOPT);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2778	typ = @symbol(unsupportedOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2779	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2780	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2781	#ifdef EPROTONOSUPPORT
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2782	case EPROTONOSUPPORT:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2783	sym = @symbol(EPROTONOSUPPORT);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2784	typ = @symbol(unsupportedOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2785	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2786	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2787	#ifdef ESOCKTNOSUPPORT
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2788	case ESOCKTNOSUPPORT:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2789	sym = @symbol(ESOCKTNOSUPPORT);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2790	typ = @symbol(unsupportedOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2791	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2792	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2793	#ifdef EOPNOTSUPP
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2794	case EOPNOTSUPP:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2795	sym = @symbol(EOPNOTSUPP);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2796	typ = @symbol(inappropriateOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2797	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2798	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2799	#ifdef EPFNOSUPPORT
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2800	case EPFNOSUPPORT:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2801	sym = @symbol(EPFNOSUPPORT);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2802	typ = @symbol(unsupportedOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2803	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2804	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2805	#ifdef EAFNOSUPPORT
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2806	case EAFNOSUPPORT:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2807	sym = @symbol(EAFNOSUPPORT);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2808	typ = @symbol(unsupportedOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2809	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2810	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2811	#ifdef EADDRINUSE
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2812	case EADDRINUSE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2813	sym = @symbol(EADDRINUSE);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2814	typ = @symbol(existingReferentSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2815	break;
15816 ae834743050e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15779 diff changeset	2816	#endif
ae834743050e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15779 diff changeset	2817	#ifdef WSAEADDRINUSE
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2818	case WSAEADDRINUSE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2819	sym = @symbol(WSAEADDRINUSE);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2820	typ = @symbol(existingReferentSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2821	break;
15816 ae834743050e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15779 diff changeset	2822	#endif
ae834743050e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15779 diff changeset	2823
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2824	#ifdef EADDRNOTAVAIL
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2825	case EADDRNOTAVAIL:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2826	sym = @symbol(EADDRNOTAVAIL);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2827	typ = @symbol(noPermissionsSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2828	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2829	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2830	#ifdef ETIMEDOUT
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2831	case ETIMEDOUT:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2832	sym = @symbol(ETIMEDOUT);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2833	typ = @symbol(peerFaultSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2834	break;
18954 813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	2835	#endif
813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	2836	#ifdef WSAETIMEDOUT
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2837	case WSAETIMEDOUT:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2838	sym = @symbol(ETIMEDOUT);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2839	typ = @symbol(peerFaultSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2840	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2841	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2842	#ifdef ECONNREFUSED
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2843	case ECONNREFUSED:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2844	sym = @symbol(ECONNREFUSED);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2845	typ = @symbol(peerFaultSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2846	break;
18954 813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	2847	#endif
813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	2848	#ifdef WSAECONNREFUSED
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2849	case WSAECONNREFUSED:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2850	sym = @symbol(ECONNREFUSED);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2851	typ = @symbol(peerFaultSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2852	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2853	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2854	#ifdef ENETDOWN
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2855	case ENETDOWN:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2856	sym = @symbol(ENETDOWN);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2857	typ = @symbol(peerFaultSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2858	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2859	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2860	#ifdef ENETUNREACH
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2861	case ENETUNREACH:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2862	sym = @symbol(ENETUNREACH);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2863	typ = @symbol(peerFaultSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2864	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2865	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2866	#ifdef ENETRESET
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2867	case ENETRESET:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2868	sym = @symbol(ENETRESET);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2869	typ = @symbol(peerFaultSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2870	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2871	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2872	#ifdef ECONNABORTED
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2873	case ECONNABORTED:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2874	sym = @symbol(ECONNABORTED);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2875	typ = @symbol(peerFaultSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2876	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2877	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2878	#ifdef ECONNRESET
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2879	case ECONNRESET:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2880	sym = @symbol(ECONNRESET);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2881	typ = @symbol(peerFaultSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2882	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2883	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2884	#ifdef EISCONN
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2885	case EISCONN:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2886	sym = @symbol(EISCONN);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2887	typ = @symbol(unpreparedOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2888	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2889	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2890	#ifdef ENOTCONN
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2891	case ENOTCONN:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2892	sym = @symbol(ENOTCONN);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2893	typ = @symbol(unpreparedOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2894	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2895	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2896	#ifdef ESHUTDOWN
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2897	case ESHUTDOWN:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2898	sym = @symbol(ESHUTDOWN);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2899	typ = @symbol(unpreparedOperationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2900	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2901	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2902	#ifdef EHOSTDOWN
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2903	case EHOSTDOWN:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2904	sym = @symbol(EHOSTDOWN);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2905	typ = @symbol(peerFaultSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2906	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2907	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2908	#ifdef EHOSTUNREACH
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2909	case EHOSTUNREACH:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2910	sym = @symbol(EHOSTUNREACH);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2911	typ = @symbol(peerFaultSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2912	break;
18954 813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	2913	#endif
9166 242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	2914	#ifdef E_NOINTERFACE
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2915	case E_NOINTERFACE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2916	sym = @symbol(E_NOINTERFACE);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2917	typ = @symbol(noInterfaceSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2918	break;
9166 242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	2919	#endif
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	2920	#ifdef CO_E_NOTINITIALIZED
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2921	case CO_E_NOTINITIALIZED:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2922	sym = @symbol(CO_E_NOTINITIALIZED);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2923	typ = @symbol(coNotInitializedSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2924	break;
9166 242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	2925	#endif
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	2926	#ifdef REGDB_E_CLASSNOTREG
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2927	case REGDB_E_CLASSNOTREG:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2928	sym = @symbol(REGDB_E_CLASSNOTREG);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2929	typ = @symbol(classNotRegisteredSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2930	break;
9166 242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	2931	#endif
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	2932	#ifdef CLASS_E_NOAGGREGATION
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2933	case CLASS_E_NOAGGREGATION:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2934	sym = @symbol(CLASS_E_NOAGGREGATION);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2935	typ = @symbol(noAggregationSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2936	break;
9166 242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	2937	#endif
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	2938	#ifdef DISP_E_UNKNOWNNAME
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2939	case DISP_E_UNKNOWNNAME:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2940	sym = @symbol(DISP_E_UNKNOWNNAME);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2941	typ = @symbol(unknownNameSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2942	break;
9181 90f5b5e63cb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9177 diff changeset	2943	#endif
90f5b5e63cb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9177 diff changeset	2944	#ifdef OLEOBJ_E_NOVERBS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2945	case OLEOBJ_E_NOVERBS:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2946	sym = @symbol(OLEOBJ_E_NOVERBS);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2947	typ = @symbol(noVerbsSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2948	break;
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	2949	#endif
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	2950	#ifdef RPC_S_INVALID_NET_ADDR
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2951	case RPC_S_INVALID_NET_ADDR:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2952	sym = @symbol(RPC_S_INVALID_NET_ADDR);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2953	typ = @symbol(peerFaultSignal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2954	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2955	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2956
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2957	default:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2958	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2959	}
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2960	}
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2961	}
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2962	%}.
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2963	holder := OSErrorHolder new.
16303 aad4b514271c class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16289 diff changeset	2964	sym isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2965	sym := #ERROR_OTHER.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2966	errNr notNil ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2967	"keep symbols as symbols"
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2968	holder parameter:(errNr isString ifTrue:[errNr] ifFalse:[errNr asString]).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2969	].
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	2970	].
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	2971	holder errorNumber:errNr errorSymbol:sym errorCategory:typ.
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2972	^ holder
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2973
16303 aad4b514271c class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16289 diff changeset	2974
aad4b514271c class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16289 diff changeset	2975	"
aad4b514271c class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16289 diff changeset	2976	OperatingSystem errorHolderForNumber:4
aad4b514271c class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16289 diff changeset	2977	OperatingSystem errorHolderForNumber:#badArgument
15464 032fb42505bf class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15414 diff changeset	2978	self errorHolderForNumber:16777296
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	2979	self errorHolderForNumber:(self errorNumberFor:#EPERM)
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2980	self errorHolderForNumber:(self errorNumberFor:#EIO)
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2981	self errorHolderForNumber:(self errorNumberFor:#ENXIO)
9166 242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	2982	self errorHolderForNumber:(self errorNumberFor:#E_NOINTERFACE)
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	2983	self errorHolderForNumber:1707
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	2984	self errorHolderForNumber:16787251
25223 08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2985	"
08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2986
08e0253413a8 #BUGFIX by Stefan Reise sr parents: 25209 diff changeset	2987	"Modified: / 31-01-2020 / 15:04:06 / Stefan Reise"
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2988	!
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2989
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2990	errorNumberFor:aSymbol
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2991	"given a symbolic error, return the numeric;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2992	(i.e. errorNumberFor:#EBADF returns EBADF's value).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2993	Use this, since error numbers are really not standard across unix systems."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2994
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2995	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2996	OBJ sym = aSymbol;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2997
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2998	/*
15500 f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	2999	* WIN32 GetLastError error codes - use __WIN32_ERR() to return the same as
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	3000	* the smalltalk methods
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3001	*/
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3002	#ifdef ERROR_INVALID_FUNCTION
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3003	if (sym == @symbol(ERROR_INVALID_FUNCTION)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3004	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_INVALID_FUNCTION)) );
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3005	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3006	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3007	#ifdef ERROR_BAD_FORMAT
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3008	if (sym == @symbol(ERROR_BAD_FORMAT)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3009	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_BAD_FORMAT)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3010	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3011	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3012	#ifdef ERROR_FILE_NOT_FOUND
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3013	if (sym == @symbol(ERROR_FILE_NOT_FOUND)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3014	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_FILE_NOT_FOUND)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3015	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3016	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3017	#ifdef ERROR_PATH_NOT_FOUND
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3018	if (sym == @symbol(ERROR_PATH_NOT_FOUND)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3019	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_PATH_NOT_FOUND)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3020	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3021	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3022	#ifdef ERROR_TOO_MANY_OPEN_FILES
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3023	if (sym == @symbol(ERROR_TOO_MANY_OPEN_FILES)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3024	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_TOO_MANY_OPEN_FILES)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3025	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3026	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3027	#ifdef ERROR_OPEN_FAILED
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3028	if (sym == @symbol(ERROR_OPEN_FAILED)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3029	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_OPEN_FAILED)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3030	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3031	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3032	#ifdef ERROR_ACCESS_DENIED
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3033	if (sym == @symbol(ERROR_ACCESS_DENIED)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3034	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_ACCESS_DENIED)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3035	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3036	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3037	#ifdef ERROR_INVALID_HANDLE
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3038	if (sym == @symbol(ERROR_INVALID_HANDLE)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3039	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_INVALID_HANDLE)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3040	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3041	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3042	#ifdef ERROR_NOT_ENOUGH_MEMORY
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3043	if (sym == @symbol(ERROR_NOT_ENOUGH_MEMORY)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3044	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_NOT_ENOUGH_MEMORY)));
13742 cfb6a76de348 version_CVS Claus Gittinger <cg@exept.de> parents: 13618 diff changeset	3045	}
cfb6a76de348 version_CVS Claus Gittinger <cg@exept.de> parents: 13618 diff changeset	3046	#endif
cfb6a76de348 version_CVS Claus Gittinger <cg@exept.de> parents: 13618 diff changeset	3047	#ifdef ERROR_NO_SYSTEM_RESOURCES
cfb6a76de348 version_CVS Claus Gittinger <cg@exept.de> parents: 13618 diff changeset	3048	if (sym == @symbol(ERROR_NO_SYSTEM_RESOURCES)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3049	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_NO_SYSTEM_RESOURCES)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3050	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3051	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3052	#ifdef ERROR_INVALID_ACCESS
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3053	if (sym == @symbol(ERROR_INVALID_ACCESS)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3054	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_INVALID_ACCESS)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3055	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3056	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3057	#ifdef ERROR_INVALID_DATA
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3058	if (sym == @symbol(ERROR_INVALID_DATA)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3059	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_INVALID_DATA)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3060	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3061	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3062	#ifdef ERROR_INVALID_NAME
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3063	if (sym == @symbol(ERROR_INVALID_NAME)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3064	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_INVALID_NAME)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3065	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3066	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3067	#ifdef ERROR_ARENA_TRASHED
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3068	if (sym == @symbol(ERROR_ARENA_TRASHED)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3069	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_ARENA_TRASHED)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3070	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3071	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3072	#ifdef ERROR_OUTOFMEMORY
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3073	if (sym == @symbol(ERROR_OUTOFMEMORY)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3074	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_OUTOFMEMORY)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3075	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3076	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3077	#ifdef ERROR_BROKEN_PIPE
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3078	if (sym == @symbol(ERROR_BROKEN_PIPE)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3079	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_BROKEN_PIPE)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3080	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3081	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3082	#ifdef ERROR_GEN_FAILURE
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3083	if (sym == @symbol(ERROR_GEN_FAILURE)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3084	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_GEN_FAILURE)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3085	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3086	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3087	#ifdef ERROR_WRITE_PROTECT
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3088	if (sym == @symbol(ERROR_WRITE_PROTECT)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3089	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_WRITE_PROTECT)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3090	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3091	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3092	#ifdef ERROR_WRITE_FAULT
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3093	if (sym == @symbol(ERROR_WRITE_FAULT)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3094	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_WRITE_FAULT)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3095	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3096	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3097	#ifdef ERROR_READ_FAULT
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3098	if (sym == @symbol(ERROR_READ_FAULT)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3099	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_READ_FAULT)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3100	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3101	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3102	#ifdef ERROR_HANDLE_DISK_FULL
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3103	if (sym == @symbol(ERROR_HANDLE_DISK_FULL)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3104	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_HANDLE_DISK_FULL)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3105	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3106	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3107	#ifdef ERROR_DISK_FULL
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3108	if (sym == @symbol(ERROR_DISK_FULL)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3109	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_DISK_FULL)));
21120 b930eee62bd2 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21104 diff changeset	3110	}
b930eee62bd2 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21104 diff changeset	3111	#endif
b930eee62bd2 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21104 diff changeset	3112	#ifdef ERROR_SHARING_VIOLATION
b930eee62bd2 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21104 diff changeset	3113	if (sym == @symbol(ERROR_SHARING_VIOLATION)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3114	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_SHARING_VIOLATION)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3115	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3116	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3117	#ifdef ERROR_LOCK_VIOLATION
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3118	if (sym == @symbol(ERROR_LOCK_VIOLATION)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3119	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_LOCK_VIOLATION)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3120	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3121	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3122	#ifdef ERROR_INVALID_PARAMETER
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3123	if (sym == @symbol(ERROR_INVALID_PARAMETER)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3124	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_INVALID_PARAMETER)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3125	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3126	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3127	#ifdef ERROR_NET_WRITE_FAULT
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3128	if (sym == @symbol(ERROR_NET_WRITE_FAULT)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3129	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_NET_WRITE_FAULT)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3130	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3131	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3132	#ifdef ERROR_NOT_SUPPORTED
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3133	if (sym == @symbol(ERROR_NOT_SUPPORTED)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3134	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_NOT_SUPPORTED)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3135	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3136	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3137	#ifdef ERROR_REM_NOT_LIST
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3138	if (sym == @symbol(ERROR_REM_NOT_LIST)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3139	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_REM_NOT_LIST)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3140	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3141	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3142	#ifdef ERROR_NETWORK_ACCESS_DENIED
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3143	if (sym == @symbol(ERROR_NETWORK_ACCESS_DENIED)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3144	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_NETWORK_ACCESS_DENIED)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3145	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3146	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3147	#ifdef ERROR_DUP_NAME
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3148	if (sym == @symbol(ERROR_DUP_NAME)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3149	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_DUP_NAME)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3150	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3151	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3152	#ifdef ERROR_BAD_NETPATH
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3153	if (sym == @symbol(ERROR_BAD_NETPATH)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3154	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_BAD_NETPATH)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3155	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3156	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3157	#ifdef ERROR_NETWORK_BUSY
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3158	if (sym == @symbol(ERROR_NETWORK_BUSY)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3159	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_NETWORK_BUSY)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3160	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3161	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3162	#ifdef ERROR_DRIVE_LOCKED
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3163	if (sym == @symbol(ERROR_DRIVE_LOCKED)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3164	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_DRIVE_LOCKED)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3165	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3166	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3167	#ifdef ERROR_INVALID_DRIVE
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3168	if (sym == @symbol(ERROR_INVALID_DRIVE)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3169	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_INVALID_DRIVE)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3170	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3171	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3172	#ifdef ERROR_WRONG_DISK
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3173	if (sym == @symbol(ERROR_WRONG_DISK)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3174	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_WRONG_DISK)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3175	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3176	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3177	#ifdef ERROR_CURRENT_DIRECTORY
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3178	if (sym == @symbol(ERROR_CURRENT_DIRECTORY)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3179	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_CURRENT_DIRECTORY)));
21120 b930eee62bd2 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21104 diff changeset	3180	}
b930eee62bd2 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21104 diff changeset	3181	#endif
b930eee62bd2 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21104 diff changeset	3182	#ifdef ERROR_FILE_EXISTS
b930eee62bd2 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21104 diff changeset	3183	if (sym == @symbol(ERROR_FILE_EXISTS)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3184	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_FILE_EXISTS)));
21120 b930eee62bd2 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21104 diff changeset	3185	}
b930eee62bd2 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21104 diff changeset	3186	#endif
b930eee62bd2 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21104 diff changeset	3187	#ifdef ERROR_ALREADY_EXISTS
b930eee62bd2 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21104 diff changeset	3188	if (sym == @symbol(ERROR_FILE_EXISTS)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3189	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_ALREADY_EXISTS)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3190	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3191	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3192	#ifdef ERROR_CANNOT_MAKE
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3193	if (sym == @symbol(ERROR_CANNOT_MAKE)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3194	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_CANNOT_MAKE)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3195	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3196	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3197	#ifdef ERROR_NO_MORE_FILES
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3198	if (sym == @symbol(ERROR_NO_MORE_FILES)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3199	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_NO_MORE_FILES)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3200	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3201	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3202	#ifdef ERROR_NOT_READY
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3203	if (sym == @symbol(ERROR_NOT_READY)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3204	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_NOT_READY)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3205	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3206	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3207	#ifdef ERROR_NOT_DOS_DISK
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3208	if (sym == @symbol(ERROR_NOT_DOS_DISK)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3209	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_NOT_DOS_DISK)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3210	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3211	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3212	#ifdef ERROR_OUT_OF_PAPER
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3213	if (sym == @symbol(ERROR_OUT_OF_PAPER)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3214	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_OUT_OF_PAPER)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3215	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3216	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3217	#ifdef ERROR_PRINTQ_FULL
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3218	if (sym == @symbol(ERROR_PRINTQ_FULL)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3219	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_PRINTQ_FULL)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3220	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3221	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3222
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3223	/*
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3224	* POSIX errnos - these should be defined
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3225	*/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3226	#ifdef EPERM
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3227	if (sym == @symbol(EPERM)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3228	RETURN ( __mkSmallInteger(EPERM) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3229	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3230	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3231
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3232	#ifdef ENOENT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3233	if (sym == @symbol(ENOENT)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3234	RETURN ( __mkSmallInteger(ENOENT) );
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3235	}
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3236	#endif
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3237
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3238	#ifdef ESRCH
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3239	if (sym == @symbol(ESRCH)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3240	RETURN ( __mkSmallInteger(ESRCH) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3241	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3242	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3243
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3244	#ifdef EINTR
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3245	if (sym == @symbol(EINTR)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3246	RETURN ( __mkSmallInteger(EINTR) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3247	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3248	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3249
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3250	#ifdef EIO
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3251	if (sym == @symbol(EIO)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3252	RETURN ( __mkSmallInteger(EIO) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3253	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3254	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3255
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3256	#ifdef ENXIO
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3257	if (sym == @symbol(ENXIO)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3258	RETURN ( __mkSmallInteger(ENXIO) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3259	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3260	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3261
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3262	#ifdef E2BIG
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3263	if (sym == @symbol(E2BIG)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3264	RETURN ( __mkSmallInteger(E2BIG) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3265	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3266	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3267
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3268	#ifdef ENOEXEC
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3269	if (sym == @symbol(ENOEXEC)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3270	RETURN ( __mkSmallInteger(ENOEXEC) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3271	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3272	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3273
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3274	#ifdef EBADF
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3275	if (sym == @symbol(EBADF)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3276	RETURN ( __mkSmallInteger(EBADF) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3277	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3278	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3279
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3280	#ifdef ECHILD
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3281	if (sym == @symbol(ECHILD)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3282	RETURN ( __mkSmallInteger(ECHILD) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3283	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3284	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3285
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3286	#if defined(EAGAIN)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3287	if (sym == @symbol(EAGAIN)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3288	RETURN ( __mkSmallInteger(EAGAIN) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3289	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3290	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3291
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3292	#ifdef ENOMEM
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3293	if (sym == @symbol(ENOMEM)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3294	RETURN ( __mkSmallInteger(ENOMEM) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3295	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3296	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3297
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3298	#ifdef EACCES
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3299	if (sym == @symbol(EACCES)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3300	RETURN ( __mkSmallInteger(EACCES) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3301	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3302	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3303
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3304	#ifdef EFAULT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3305	if (sym == @symbol(EFAULT)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3306	RETURN ( __mkSmallInteger(EFAULT) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3307	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3308	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3309
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3310	#ifdef EBUSY
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3311	if (sym == @symbol(EBUSY)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3312	RETURN ( __mkSmallInteger(EBUSY) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3313	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3314	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3315
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3316	#ifdef EXDEV
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3317	if (sym == @symbol(EXDEV)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3318	RETURN ( __mkSmallInteger(EXDEV) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3319	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3320	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3321
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3322	#ifdef ENODEV
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3323	if (sym == @symbol(ENODEV)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3324	RETURN ( __mkSmallInteger(ENODEV) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3325	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3326	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3327
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3328	#ifdef ENOTDIR
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3329	if (sym == @symbol(ENOTDIR)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3330	RETURN ( __mkSmallInteger(ENOTDIR) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3331	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3332	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3333
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3334	#ifdef EISDIR
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3335	if (sym == @symbol(EISDIR)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3336	RETURN ( __mkSmallInteger(EISDIR) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3337	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3338	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3339
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3340	#ifdef EINVAL
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3341	if (sym == @symbol(EINVAL)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3342	RETURN ( __mkSmallInteger(EINVAL) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3343	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3344	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3345
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3346	#ifdef ENFILE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3347	if (sym == @symbol(ENFILE)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3348	RETURN ( __mkSmallInteger(ENFILE) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3349	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3350	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3351
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3352	#ifdef EMFILE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3353	if (sym == @symbol(EMFILE)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3354	RETURN ( __mkSmallInteger(EMFILE) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3355	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3356	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3357
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3358	#ifdef ENOTTY
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3359	if (sym == @symbol(ENOTTY)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3360	RETURN ( __mkSmallInteger(ENOTTY) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3361	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3362	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3363
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3364	#ifdef EFBIG
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3365	if (sym == @symbol(EFBIG)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3366	RETURN ( __mkSmallInteger(EFBIG) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3367	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3368	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3369
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3370	#ifdef ENOSPC
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3371	if (sym == @symbol(ENOSPC)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3372	RETURN ( __mkSmallInteger(ENOSPC) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3373	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3374	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3375
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3376	#ifdef ESPIPE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3377	if (sym == @symbol(ESPIPE)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3378	RETURN ( __mkSmallInteger(ESPIPE) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3379	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3380	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3381
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3382	#ifdef EROFS
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3383	if (sym == @symbol(EROFS)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3384	RETURN ( __mkSmallInteger(EROFS) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3385	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3386	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3387
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3388	#ifdef EMLINK
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3389	if (sym == @symbol(EMLINK)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3390	RETURN ( __mkSmallInteger(EMLINK) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3391	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3392	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3393
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3394	#ifdef EPIPE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3395	if (sym == @symbol(EPIPE)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3396	RETURN ( __mkSmallInteger(EPIPE) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3397	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3398	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3399
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3400	#ifdef EDOM
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3401	if (sym == @symbol(EDOM)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3402	RETURN ( __mkSmallInteger(EDOM) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3403	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3404	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3405
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3406	#ifdef ERANGE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3407	if (sym == @symbol(ERANGE)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3408	RETURN ( __mkSmallInteger(ERANGE) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3409	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3410	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3411
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3412	#ifdef EDEADLK
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3413	if (sym == @symbol(EDEADLK)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3414	RETURN ( __mkSmallInteger(EDEADLK) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3415	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3416	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3417
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3418	#ifdef ENAMETOOLONG
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3419	if (sym == @symbol(ENAMETOOLONG)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3420	RETURN ( __mkSmallInteger(ENAMETOOLONG) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3421	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3422	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3423
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3424	#ifdef ENOLCK
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3425	if (sym == @symbol(ENOLCK)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3426	RETURN ( __mkSmallInteger(ENOLCK) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3427	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3428	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3429
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3430	#ifdef ENOSYS
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3431	if (sym == @symbol(ENOSYS)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3432	RETURN ( __mkSmallInteger(ENOSYS) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3433	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3434	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3435
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3436	#ifdef ENOTEMPTY
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3437	if (sym == @symbol(ENOTEMPTY)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3438	RETURN ( __mkSmallInteger(ENOTEMPTY) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3439	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3440	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3441
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3442	#ifdef EEXIST
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3443	if (sym == @symbol(EEXIST)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3444	RETURN ( __mkSmallInteger(EEXIST) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3445	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3446	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3447
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3448	#ifdef EILSEQ
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3449	if (sym == @symbol(EILSEQ)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3450	RETURN ( __mkSmallInteger(EILSEQ) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3451	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3452	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3453
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3454	/*
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3455	* XPG3 errnos - defined on most systems
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3456	*/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3457	#ifdef ENOTBLK
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3458	if (sym == @symbol(ENOTBLK)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3459	RETURN ( __mkSmallInteger(ENOTBLK) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3460	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3461	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3462
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3463	#ifdef ETXTBSY
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3464	if (sym == @symbol(ETXTBSY)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3465	RETURN ( __mkSmallInteger(ETXTBSY) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3466	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3467	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3468
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3469	/*
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3470	* some others
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3471	*/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3472	#ifdef EWOULDBLOCK
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3473	if (sym == @symbol(EWOULDBLOCK)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3474	RETURN ( __mkSmallInteger(EWOULDBLOCK) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3475	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3476	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3477
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3478	#ifdef ENOMSG
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3479	if (sym == @symbol(ENOMSG)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3480	RETURN ( __mkSmallInteger(ENOMSG) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3481	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3482	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3483
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3484	#ifdef ELOOP
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3485	if (sym == @symbol(ELOOP)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3486	RETURN ( __mkSmallInteger(ELOOP) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3487	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3488	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3489
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3490	/*
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3491	* some stream errors
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3492	*/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3493	#ifdef ETIME
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3494	if (sym == @symbol(ETIME)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3495	RETURN ( __mkSmallInteger(ETIME) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3496	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3497	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3498
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3499	#ifdef ENOSR
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3500	if (sym == @symbol(ENOSR)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3501	RETURN ( __mkSmallInteger(ENOSR) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3502	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3503	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3504
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3505	#ifdef ENOSTR
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3506	if (sym == @symbol(ENOSTR)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3507	RETURN ( __mkSmallInteger(ENOSTR) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3508	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3509	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3510
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3511	#ifdef ECOMM
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3512	if (sym == @symbol(ECOMM)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3513	RETURN ( __mkSmallInteger(ECOMM) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3514	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3515	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3516
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3517	#ifdef EPROTO
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3518	if (sym == @symbol(EPROTO)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3519	RETURN ( __mkSmallInteger(EPROTO) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3520	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3521	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3522
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3523	/*
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3524	* nfs errors
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3525	*/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3526	#ifdef ESTALE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3527	if (sym == @symbol(ESTALE)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3528	RETURN ( __mkSmallInteger(ESTALE) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3529	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3530	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3531
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3532	#ifdef EREMOTE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3533	if (sym == @symbol(EREMOTE)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3534	RETURN ( __mkSmallInteger(EREMOTE) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3535	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3536	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3537
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3538	/*
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3539	* some networking errors
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3540	*/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3541	#ifdef EINPROGRESS
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3542	if (sym == @symbol(EINPROGRESS)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3543	RETURN ( __mkSmallInteger(EINPROGRESS) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3544	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3545	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3546
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3547	#ifdef EALREADY
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3548	if (sym == @symbol(EALREADY)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3549	RETURN ( __mkSmallInteger(EALREADY) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3550	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3551	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3552
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3553	#ifdef ENOTSOCK
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3554	if (sym == @symbol(ENOTSOCK)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3555	RETURN ( __mkSmallInteger(ENOTSOCK) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3556	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3557	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3558
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3559	#ifdef EDESTADDRREQ
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3560	if (sym == @symbol(EDESTADDRREQ)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3561	RETURN ( __mkSmallInteger(EDESTADDRREQ) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3562	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3563	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3564
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3565	#ifdef EMSGSIZE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3566	if (sym == @symbol(EMSGSIZE)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3567	RETURN ( __mkSmallInteger(EMSGSIZE) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3568	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3569	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3570
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3571	#ifdef EPROTOTYPE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3572	if (sym == @symbol(EPROTOTYPE)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3573	RETURN ( __mkSmallInteger(EPROTOTYPE) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3574	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3575	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3576
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3577	#ifdef ENOPROTOOPT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3578	if (sym == @symbol(ENOPROTOOPT)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3579	RETURN ( __mkSmallInteger(ENOPROTOOPT) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3580	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3581	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3582
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3583	#ifdef EPROTONOSUPPORT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3584	if (sym == @symbol(EPROTONOSUPPORT)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3585	RETURN ( __mkSmallInteger(EPROTONOSUPPORT) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3586	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3587	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3588
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3589	#ifdef ESOCKTNOSUPPORT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3590	if (sym == @symbol(ESOCKTNOSUPPORT)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3591	RETURN ( __mkSmallInteger(ESOCKTNOSUPPORT) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3592	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3593	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3594
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3595	#ifdef EOPNOTSUPP
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3596	if (sym == @symbol(EOPNOTSUPP)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3597	RETURN ( __mkSmallInteger(EOPNOTSUPP) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3598	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3599	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3600
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3601	#ifdef EPFNOSUPPORT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3602	if (sym == @symbol(EPFNOSUPPORT)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3603	RETURN ( __mkSmallInteger(EPFNOSUPPORT) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3604	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3605	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3606
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3607	#ifdef EAFNOSUPPORT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3608	if (sym == @symbol(EAFNOSUPPORT)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3609	RETURN ( __mkSmallInteger(EAFNOSUPPORT) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3610	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3611	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3612
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3613	#ifdef EADDRINUSE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3614	if (sym == @symbol(EADDRINUSE)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3615	RETURN ( __mkSmallInteger(EADDRINUSE) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3616	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3617	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3618
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3619	#ifdef EADDRNOTAVAIL
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3620	if (sym == @symbol(EADDRNOTAVAIL)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3621	RETURN ( __mkSmallInteger(EADDRNOTAVAIL) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3622	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3623	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3624
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3625	#ifdef ETIMEDOUT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3626	if (sym == @symbol(ETIMEDOUT)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3627	RETURN ( __mkSmallInteger(ETIMEDOUT) );
18954 813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	3628	}
813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	3629	#endif
813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	3630	#ifdef WSAETIMEDOUT
813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	3631	if (sym == @symbol(ETIMEDOUT)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3632	RETURN ( __mkSmallInteger(WSAETIMEDOUT) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3633	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3634	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3635
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3636	#ifdef ECONNREFUSED
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3637	if (sym == @symbol(ECONNREFUSED)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3638	RETURN ( __mkSmallInteger(ECONNREFUSED) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3639	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3640	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3641
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3642	#ifdef ENETDOWN
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3643	if (sym == @symbol(ENETDOWN)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3644	RETURN ( __mkSmallInteger(ENETDOWN) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3645	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3646	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3647
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3648	#ifdef ENETUNREACH
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3649	if (sym == @symbol(ENETUNREACH)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3650	RETURN ( __mkSmallInteger(ENETUNREACH) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3651	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3652	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3653
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3654	#ifdef ENETRESET
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3655	if (sym == @symbol(ENETRESET)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3656	RETURN ( __mkSmallInteger(ENETRESET) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3657	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3658	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3659
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3660	#ifdef ECONNABORTED
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3661	if (sym == @symbol(ECONNABORTED)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3662	RETURN ( __mkSmallInteger(ECONNABORTED) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3663	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3664	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3665
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3666	#ifdef ECONNRESET
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3667	if (sym == @symbol(ECONNRESET)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3668	RETURN ( __mkSmallInteger(ECONNRESET) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3669	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3670	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3671
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3672	#ifdef EISCONN
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3673	if (sym == @symbol(EISCONN)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3674	RETURN ( __mkSmallInteger(EISCONN) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3675	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3676	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3677
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3678	#ifdef ENOTCONN
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3679	if (sym == @symbol(ENOTCONN)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3680	RETURN ( __mkSmallInteger(ENOTCONN) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3681	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3682	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3683
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3684	#ifdef ESHUTDOWN
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3685	if (sym == @symbol(ESHUTDOWN)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3686	RETURN ( __mkSmallInteger(ESHUTDOWN) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3687	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3688	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3689
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3690	#ifdef EHOSTDOWN
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3691	if (sym == @symbol(EHOSTDOWN)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3692	RETURN ( __mkSmallInteger(EHOSTDOWN) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3693	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3694	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3695
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3696	#ifdef EHOSTUNREACH
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3697	if (sym == @symbol(EHOSTUNREACH)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3698	RETURN ( __mkSmallInteger(EHOSTUNREACH) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3699	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3700	#endif
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3701	/*
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3702	* windows socket errors
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3703	*/
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3704	#ifdef WSAEINTR
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3705	if (sym == @symbol(WSAEINTR)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3706	RETURN ( __mkSmallInteger(WSAEINTR) );
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3707	}
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3708	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3709	#ifdef WSAEBADF
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3710	if (sym == @symbol(WSAEBADF)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3711	RETURN ( __mkSmallInteger(WSAEBADF) );
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3712	}
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3713	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3714	#ifdef WSAEACCESS
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3715	if (sym == @symbol(WSAEACCESS)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3716	RETURN ( __mkSmallInteger(WSAEACCESS) );
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3717	}
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3718	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3719	#ifdef WSAEFAULT
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3720	if (sym == @symbol(WSAEFAULT)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3721	RETURN ( __mkSmallInteger(WSAEFAULT) );
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3722	}
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3723	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3724	#ifdef WSAEINVAL
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3725	if (sym == @symbol(WSAEINVAL)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3726	RETURN ( __mkSmallInteger(WSAEINVAL) );
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3727	}
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3728	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3729	#ifdef WSAEMFILE
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3730	if (sym == @symbol(WSAEMFILE)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3731	RETURN ( __mkSmallInteger(WSAEMFILE) );
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3732	}
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3733	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3734	#ifdef WSAEWOULDBLOCK
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3735	if (sym == @symbol(WSAEWOULDBLOCK)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3736	RETURN ( __mkSmallInteger(WSAEWOULDBLOCK) );
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3737	}
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3738	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3739	#ifdef WSAEINPROGRESS
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3740	if (sym == @symbol(WSAEINPROGRESS)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3741	RETURN ( __mkSmallInteger(WSAEINPROGRESS) );
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3742	}
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3743	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3744	#ifdef WSAEALREADY
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3745	if (sym == @symbol(WSAEALREADY)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3746	RETURN ( __mkSmallInteger(WSAEALREADY) );
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3747	}
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3748	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3749	#ifdef WSAENOTSOCK
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3750	if (sym == @symbol(WSAENOTSOCK)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3751	RETURN ( __mkSmallInteger(WSAENOTSOCK) );
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3752	}
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3753	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3754	#ifdef WSAEPROTONOSUPPORT
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3755	if (sym == @symbol(WSAEPROTONOSUPPORT)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3756	RETURN ( __mkSmallInteger(WSAEPROTONOSUPPORT) );
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3757	}
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3758	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3759	#ifdef WSAESOCKTNOSUPPORT
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3760	if (sym == @symbol(WSAESOCKTNOSUPPORT)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3761	RETURN ( __mkSmallInteger(WSAESOCKTNOSUPPORT) );
9166 242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3762	}
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3763	#endif
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3764	#ifdef E_NOINTERFACE
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3765	if (sym == @symbol(E_NOINTERFACE)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3766	RETURN ( __MKUINT(E_NOINTERFACE) );
9166 242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3767	}
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3768	#endif
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3769	#ifdef CO_E_NOTINITIALIZED
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3770	if (sym == @symbol(CO_E_NOTINITIALIZED)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3771	RETURN ( __MKUINT(CO_E_NOTINITIALIZED) );
9166 242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3772	}
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3773	#endif
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3774	#ifdef REGDB_E_CLASSNOTREG
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3775	if (sym == @symbol(REGDB_E_CLASSNOTREG)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3776	RETURN ( __MKUINT(REGDB_E_CLASSNOTREG) );
9166 242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3777	}
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3778	#endif
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3779	#ifdef CLASS_E_NOAGGREGATION
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3780	if (sym == @symbol(CLASS_E_NOAGGREGATION)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3781	RETURN ( __MKUINT(CLASS_E_NOAGGREGATION) );
9166 242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3782	}
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3783	#endif
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3784	#ifdef DISP_E_UNKNOWNNAME
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3785	if (sym == @symbol(DISP_E_UNKNOWNNAME)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3786	RETURN ( __MKUINT(DISP_E_UNKNOWNNAME) );
9181 90f5b5e63cb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9177 diff changeset	3787	}
90f5b5e63cb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9177 diff changeset	3788	#endif
90f5b5e63cb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9177 diff changeset	3789	#ifdef OLEOBJ_E_NOVERBS
90f5b5e63cb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9177 diff changeset	3790	if (sym == @symbol(OLEOBJ_E_NOVERBS)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3791	RETURN ( __MKUINT(OLEOBJ_E_NOVERBS) );
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3792	}
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3793	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3794
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3795	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3796	^ -1
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3797	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3798
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3799	!Win32OperatingSystem class methodsFor:'executing OS commands'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3800
7066 c1df8100c4ad canExecuteCommand fixed penk parents: 7065 diff changeset	3801	canExecuteCommand:aCommandString
c1df8100c4ad canExecuteCommand fixed penk parents: 7065 diff changeset	3802	"return true, if the OS can execute aCommand."
c1df8100c4ad canExecuteCommand fixed penk parents: 7065 diff changeset	3803
8800 b1762fb45942 canExecuteCommand fixed Claus Gittinger <cg@exept.de> parents: 8792 diff changeset	3804	"/ \|fn\|
b1762fb45942 canExecuteCommand fixed Claus Gittinger <cg@exept.de> parents: 8792 diff changeset	3805	"/
b1762fb45942 canExecuteCommand fixed Claus Gittinger <cg@exept.de> parents: 8792 diff changeset	3806	"/ fn := aCommandString asFilename.
b1762fb45942 canExecuteCommand fixed Claus Gittinger <cg@exept.de> parents: 8792 diff changeset	3807	"/ ( #('com' 'exe') includes:fn suffix) ifFalse:[^ false].
7066 c1df8100c4ad canExecuteCommand fixed penk parents: 7065 diff changeset	3808	^ super canExecuteCommand:aCommandString
c1df8100c4ad canExecuteCommand fixed penk parents: 7065 diff changeset	3809
c1df8100c4ad canExecuteCommand fixed penk parents: 7065 diff changeset	3810	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	3811	OperatingSystem canExecuteCommand:'fooBar'
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	3812	OperatingSystem canExecuteCommand:'ls'
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	3813	OperatingSystem canExecuteCommand:'cvs'
8843 373303414c54 * empty log message * Claus Gittinger <cg@exept.de> parents: 8800 diff changeset	3814	OperatingSystem canExecuteCommand:'diff'
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	3815	OperatingSystem canExecuteCommand:'cvs.exe'
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	3816	OperatingSystem canExecuteCommand:'C:\Dokumente und Einstellungen\penk\work\stx\projects\smalltalk\cvs.exe'
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	3817	OperatingSystem canExecuteCommand:'C:\Windows\cvs.exe'
11920 4d2ef58645de compilable with VC9.0 Claus Gittinger <cg@exept.de> parents: 11842 diff changeset	3818	OperatingSystem canExecuteCommand:'C:\Windows\system32\mspaint.exe'
7066 c1df8100c4ad canExecuteCommand fixed penk parents: 7065 diff changeset	3819	"
c1df8100c4ad canExecuteCommand fixed penk parents: 7065 diff changeset	3820
c1df8100c4ad canExecuteCommand fixed penk parents: 7065 diff changeset	3821	"Created: 4.11.1995 / 19:13:54 / cg"
c1df8100c4ad canExecuteCommand fixed penk parents: 7065 diff changeset	3822	!
c1df8100c4ad canExecuteCommand fixed penk parents: 7065 diff changeset	3823
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3824	commandAndArgsForOSCommand:aCommandString
17521 d6bc616e4dba class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17286 diff changeset	3825	"get a shell and shell arguments for command execution.
d6bc616e4dba class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17286 diff changeset	3826	If aCommandString is a String, the commandString is passed to a shell for execution
25071 26168f32e114 #DOCUMENTATION by stefan Stefan Vogel <sv@exept.de> parents: 24999 diff changeset	3827	- see the description of 'cmd.exe' in your Windows manual.
17521 d6bc616e4dba class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17286 diff changeset	3828	If aCommandString is an Array, the first element is the command to be executed,
20531 000ea6870da3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20434 diff changeset	3829	and the next elements are the arguments to the command. No shell is invoked in this case.
000ea6870da3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20434 diff changeset	3830	Answer am Array with the command string as the first element,
000ea6870da3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20434 diff changeset	3831	the arguments (a String) as second element,
000ea6870da3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20434 diff changeset	3832	and whether a window should be opened (true, false or nil = let the executed program determine)
000ea6870da3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20434 diff changeset	3833	as third element."
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3834
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	3835	\|shell wDir cmdName path commandString\|
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3836
17521 d6bc616e4dba class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17286 diff changeset	3837	aCommandString isNonByteCollection ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3838	"easy: the caller does not want a shell to be executed"
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3839	^ Array with:aCommandString first with:(aCommandString asStringWith:' ') with:nil.
17521 d6bc616e4dba class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17286 diff changeset	3840	].
d6bc616e4dba class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17286 diff changeset	3841
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3842	"/
20559 2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3843	"/ 'x:\WINDOWS\System32\cmd /c <command>'
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3844	"/ or 'x:\WINDOWS\System\cmd /c <command>'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3845	"/ or whatever ...
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3846	"/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3847
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	3848	"/ to workaround a bug in win95's command.com
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	3849	"/ (which always returns a 0-exit code
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3850	"/ - even if the command failed),
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3851	"/ Here, we see if the command is found along the path and
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3852	"/ call it directly if found.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3853	"/ If not found, assume its a builtIn or batch command
20559 2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3854	"/ and pass it to cmd.exe.
2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3855	"/ Also use cmd.exe, if any I/O redirection is
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3856	"/ involved, since that is (not yet) handled here.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3857	"/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3858	"/ I know: this is a kludge but should work for now...
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3859	"/ ...this will change in an upcoming version to include
20559 2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3860	"/ cmd.exe command-line parsing here (sigh).
2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3861
2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3862	cmdName := (aCommandString ? '') withoutSeparators.
2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3863
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	3864	(cmdName isEmpty or:[cmdName includesAny:'<>\|&^@']) ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3865	"/ test whether the command is a plain executable;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3866	"/ if so, no shell is required
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3867	\|index file\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3868
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3869	cmdName first = $" ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3870	index := cmdName indexOf:$" startingAt:2.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3871	] ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3872	index := 1.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3873	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3874	index := cmdName indexOfSeparatorStartingAt:index.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3875	index ~~ 0 ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3876	cmdName := cmdName copyFrom:1 to:(index-1).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3877	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3878
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3879	(cmdName first == $" and:[cmdName last == $"]) ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3880	cmdName := (cmdName copyFrom:2 to:cmdName size - 1) withoutSeparators.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3881	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3882
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3883	"lookup cmdName in local directory first"
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3884	file := cmdName asFilename.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3885	file suffix notEmpty ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3886	"Note: files without .exe or .com suffix cannot be executed"
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3887	path := file osNameForFile.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3888	(self getBinaryType:path) notNil ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3889	"/ path is an executable, no shell required
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3890	^ Array with:path with:aCommandString with:nil.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3891	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3892	] ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3893	"try standard suffixes"
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3894	#('com' 'exe') do:[:eachSuffix\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3895	path := (file withSuffix:eachSuffix) osNameForFile.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3896	(self getBinaryType:path) notNil ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3897	^ Array with:path with:aCommandString with:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3898	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3899	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3900	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3901	"not found in local directory, search in %PATH%"
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3902	path := self pathOfCommand:cmdName.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3903	(path notNil and:[(self getBinaryType:path) notNil]) ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3904	"/ path is an executable, no shell required
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3905	^ Array with:path with:aCommandString with:nil.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3906	].
11831 71349fc71208 Fix #executeCommand: Stefan Vogel <sv@exept.de> parents: 11811 diff changeset	3907	].
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3908
25071 26168f32e114 #DOCUMENTATION by stefan Stefan Vogel <sv@exept.de> parents: 24999 diff changeset	3909	"when we come here, we need to pass the command to cmd.exe"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3910	shell := self getEnvironment:'COMSPEC'.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3911	shell isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3912	wDir := self getWindowsSystemDirectory asFilename.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3913	shell := #('cmd.exe' 'command.com') detect:[:eachCommand\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3914	(wDir / eachCommand) isExecutableProgram
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3915	] ifNone:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3916	self error:'no cmd.exe available'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3917	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3918	shell := (wDir / shell) pathName.
20559 2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3919	].
2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3920
2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3921	cmdName isEmpty ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3922	^ Array with:shell with:'' with:nil.
23070 d45cd560ea79 #DOCUMENTATION by Micha Michael Beyl <mb@exept.de> parents: 22981 diff changeset	3923	].
d45cd560ea79 #DOCUMENTATION by Micha Michael Beyl <mb@exept.de> parents: 22981 diff changeset	3924
d45cd560ea79 #DOCUMENTATION by Micha Michael Beyl <mb@exept.de> parents: 22981 diff changeset	3925	commandString := aCommandString.
d45cd560ea79 #DOCUMENTATION by Micha Michael Beyl <mb@exept.de> parents: 22981 diff changeset	3926	"/ cg: this has to be verified!!
d45cd560ea79 #DOCUMENTATION by Micha Michael Beyl <mb@exept.de> parents: 22981 diff changeset	3927	"/ (aCommandString includes:$") ifTrue:[
d45cd560ea79 #DOCUMENTATION by Micha Michael Beyl <mb@exept.de> parents: 22981 diff changeset	3928	"/ commandString := aCommandString copyReplaceString:'"' withString:'""'.
d45cd560ea79 #DOCUMENTATION by Micha Michael Beyl <mb@exept.de> parents: 22981 diff changeset	3929	"/ ].
d45cd560ea79 #DOCUMENTATION by Micha Michael Beyl <mb@exept.de> parents: 22981 diff changeset	3930
d45cd560ea79 #DOCUMENTATION by Micha Michael Beyl <mb@exept.de> parents: 22981 diff changeset	3931	^ Array with:shell with:(' /c "' , commandString, '"') with:false.
11831 71349fc71208 Fix #executeCommand: Stefan Vogel <sv@exept.de> parents: 11811 diff changeset	3932
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	3933	"<<EOF
20559 2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3934	self commandAndArgsForOSCommand:''
2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3935	self commandAndArgsForOSCommand:'%ProgramFiles%\notepad++\notepad++.exe'
24999 12876ef2841c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 24997 diff changeset	3936	self commandAndArgsForOSCommand:'%ProgramFiles(x86)%\notepad++\notepad++.exe'
11831 71349fc71208 Fix #executeCommand: Stefan Vogel <sv@exept.de> parents: 11811 diff changeset	3937	self commandAndArgsForOSCommand:'diff'
20559 2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3938	self commandAndArgsForOSCommand:'diff.exe'
11831 71349fc71208 Fix #executeCommand: Stefan Vogel <sv@exept.de> parents: 11811 diff changeset	3939	self commandAndArgsForOSCommand:'dir/w'
20559 2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3940	self commandAndArgsForOSCommand:'diff >nul:'
2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3941	self commandAndArgsForOSCommand:'diff /bla'
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	3942	self commandAndArgsForOSCommand:'"C:\Program Files\Mozilla Firefox\firefox.exe" /bla'
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	3943	self commandAndArgsForOSCommand:'"C:\Program Files (x86)\Mozilla Firefox\firefox" /bla'
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	3944	self commandAndArgsForOSCommand:'"command with spaces" /bla'
7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	3945	EOF"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3946
8349 b87b90e6d15a com-command generation (d-quotes in command-arg string) Claus Gittinger <cg@exept.de> parents: 8348 diff changeset	3947	"Modified: / 20-01-1998 / 16:57:19 / md"
10386 491685fba02e command execution (no need for command.com when executable Claus Gittinger <cg@exept.de> parents: 10373 diff changeset	3948	"Modified: / 11-02-2007 / 20:51:08 / cg"
25200 7f7b644443df #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25184 diff changeset	3949	"Modified: / 20-01-2020 / 07:34:01 / stefan"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3950	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3951
20548 ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	3952	exec:aCommandPath withArguments:argString environment:environment fileDescriptors:fdArray fork:doFork
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3953	newPgrp:newPgrp inDirectory:aDirectory
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3954	showWindow:showWindowBooleanOrNil
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3955
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3956	"Internal lowLevel entry for combined fork & exec for WIN32
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3957
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3958	If fork is false (chain a command):
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3959	execute the OS command specified by the argument, aCommandPath, with
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3960	arguments in argArray (no arguments, if nil).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3961	If successful, this method does not return and smalltalk is gone.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3962	If not successful, it does return.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3963	Normal use is with forkForCommand.
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3964
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3965	If fork is true (subprocess command execution):
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3966	fork a child to do the above.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3967	The Win32ProcessHandle of the child process is returned; nil if the fork failed.
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3968
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3969	fdArray contains the filedescriptors, to be used for the child (if fork is true).
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3970	fdArray[1] = 15 -> use fd 15 as stdin.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3971	If an element of the array is set to nil, the corresponding filedescriptor
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3972	will be closed for the child.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3973	fdArray[0] == StdIn for child
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3974	fdArray[1] == StdOut for child
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3975	fdArray[2] == StdErr for child
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3976
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3977	NOTE that in WIN32 the fds are HANDLES.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3978
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3979	If newPgrp is true, the subprocess will be established in a new process group.
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3980	The processgroup will be equal to id.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3981	newPgrp is not used on WIN32 and VMS systems.
20364 190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	3982
190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	3983	showWindowOrBoolean may be:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3984	true - a window is shown on start of the command
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3985	false - the command window is hidden
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3986	nil - the nCmdShown parameter of the commans's winmain function determins,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3987	if a window is shown.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3988	#default
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3989	- same as nil
23636 b9e5840e2c22 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23534 diff changeset	3990	"
b9e5840e2c22 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23534 diff changeset	3991
b9e5840e2c22 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23534 diff changeset	3992	\|dirPath handle\|
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3993
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3994	aDirectory notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3995	dirPath := aDirectory asFilename asAbsoluteFilename osNameForDirectory.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3996	dirPath isEmpty ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3997	dirPath := nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3998	] ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	3999	(dirPath endsWith:':') ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4000	dirPath := dirPath , '\'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4001	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4002	].
23636 b9e5840e2c22 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23534 diff changeset	4003	].
b9e5840e2c22 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23534 diff changeset	4004
b9e5840e2c22 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23534 diff changeset	4005	handle := self
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4006	primExec:aCommandPath
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4007	commandLine:argString
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4008	environment:environment
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4009	fileDescriptors:fdArray
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4010	fork:doFork
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4011	newPgrp:newPgrp
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4012	inPath:dirPath
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4013	createFlags:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4014	inheritHandles:true
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4015	showWindow:showWindowBooleanOrNil.
23636 b9e5840e2c22 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23534 diff changeset	4016
b9e5840e2c22 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23534 diff changeset	4017	handle notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4018	handle registerForFinalization.
23636 b9e5840e2c22 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23534 diff changeset	4019	].
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4020
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4021	"/ 'created ' print. cmdLine print. ' -> ' print. rslt printCR.
23636 b9e5840e2c22 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23534 diff changeset	4022	^ handle
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4023
20677 e3fe2f476abb #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20591 diff changeset	4024	"Modified: / 31-01-1998 / 10:54:24 / md"
e3fe2f476abb #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20591 diff changeset	4025	"Modified: / 15-05-1999 / 18:07:51 / cg"
e3fe2f476abb #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20591 diff changeset	4026	"Modified (comment): / 18-10-2016 / 16:00:26 / cg"
23636 b9e5840e2c22 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23534 diff changeset	4027	"Modified: / 22-01-2019 / 16:35:10 / Stefan Vogel"
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4028	!
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4029
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4030	getStatusOfProcess:aProcessId
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4031	"wait for a process to terminate and fetch its exit status.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4032	This is required to avoid zombie processes."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4033
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4034	%{
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4035	DWORD endStatus;
14782 31a237b7cfda * empty log message * Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	4036	INT status = -1;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4037
7662 32a1185158f3 process handles Claus Gittinger <cg@exept.de> parents: 7645 diff changeset	4038	if (__isExternalAddressLike(aProcessId)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4039	HANDLE handle = _HANDLEVal(aProcessId);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4040	if (handle) {
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4041	#ifdef DO_WRAP_CALLS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4042	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4043	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4044	endStatus = (INT)STX_API_CALL2( "WaitForSingleObject", WaitForSingleObject, handle, INFINITE);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4045	} while ((endStatus < 0) && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4046	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4047	endStatus = (INT)WaitForSingleObject(handle , INFINITE);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4048	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4049	if (endStatus != WAIT_FAILED) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4050	if (GetExitCodeProcess(handle,&endStatus)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4051	status = endStatus;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4052	#ifdef PROCESSDEBUGWIN32
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4053	if (flag_PROCESSDEBUGWIN32) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4054	console_fprintf(stderr, "getexitcode status = %d\n",status);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4055	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4056	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4057	if (flag_PROCESSDEBUGWIN32) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4058	console_fprintf(stderr, "getexitcode failed.\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4059	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4060	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4061	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4062	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4063	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4064	RETURN ( __mkSmallInteger(status));
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4065	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4066	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4067	self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4068	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4069
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4070	pathOfCommand:aCommand
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4071	"find where aCommand's executable file is;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4072	return its full pathName if there is such a command, otherwise
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4073	return nil."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4074
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	4075	\|cmdFile path rpath hasSuffix\|
13954 3ecd17f19f84 changed: #pathOfCommand: Claus Gittinger <cg@exept.de> parents: 13790 diff changeset	4076
3ecd17f19f84 changed: #pathOfCommand: Claus Gittinger <cg@exept.de> parents: 13790 diff changeset	4077	cmdFile := aCommand asFilename.
3ecd17f19f84 changed: #pathOfCommand: Claus Gittinger <cg@exept.de> parents: 13790 diff changeset	4078	cmdFile isAbsolute ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4079	cmdFile isExecutableProgram ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4080	^ aCommand
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4081	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4082	^ nil
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4083	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4084
10334 6fe7d98b0c7b care for executable to be under a subdir (debug\stx.exe) Claus Gittinger <cg@exept.de> parents: 10311 diff changeset	4085	(aCommand includes:Filename separator) ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4086	path := Filename currentDirectory construct:aCommand.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4087	path isExecutableProgram ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4088	^ path pathName.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4089	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4090	^ nil
20559 2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	4091	].
2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	4092
2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	4093	"search in all directories of PATH.
2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	4094	If there no extension, add the known extensions."
13954 3ecd17f19f84 changed: #pathOfCommand: Claus Gittinger <cg@exept.de> parents: 13790 diff changeset	4095	path := (self getEnvironment:'PATH') ? ''.
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	4096	rpath := self registryEntry
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4097	key: 'HKEY_CURRENT_USER\Environment'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4098	valueNamed:'PATH'.
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	4099	rpath notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4100	path := path , self pathSeparator , rpath
20559 2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	4101	].
2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	4102	path := '.;', path.
2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	4103	hasSuffix := cmdFile suffix notEmpty.
2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	4104
2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	4105	(path asCollectionOfSubstringsSeparatedBy:self pathSeparator) do:[:eachDirectory \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4106	\|file\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4107
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4108	eachDirectory isEmpty ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4109	file := cmdFile
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4110	] ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4111	file := eachDirectory asFilename construct:aCommand.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4112	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4113	hasSuffix ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4114	file isExecutableProgram ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4115	^ file pathName.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4116	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4117	] ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4118	self executableFileExtensions do:[:ext \|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4119	\|fExt\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4120
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4121	fExt := file withSuffix:ext.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4122	fExt isExecutableProgram ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4123	^ fExt pathName.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4124	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4125	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4126	].
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4127	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4128	^ nil
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4129
20559 2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	4130	"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4131	OperatingSystem pathOfCommand:'bcc32'
8843 373303414c54 * empty log message * Claus Gittinger <cg@exept.de> parents: 8800 diff changeset	4132	OperatingSystem pathOfCommand:'diff'
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	4133	OperatingSystem pathOfCommand:'cvs'
51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	4134	OperatingSystem pathOfCommand:'cvs.exe'
13954 3ecd17f19f84 changed: #pathOfCommand: Claus Gittinger <cg@exept.de> parents: 13790 diff changeset	4135	OperatingSystem pathOfCommand:'stx.exe'
3ecd17f19f84 changed: #pathOfCommand: Claus Gittinger <cg@exept.de> parents: 13790 diff changeset	4136	OperatingSystem pathOfCommand:'stx'
20559 2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	4137	OperatingSystem pathOfCommand:'blaFaselQuall'
13954 3ecd17f19f84 changed: #pathOfCommand: Claus Gittinger <cg@exept.de> parents: 13790 diff changeset	4138	"
3ecd17f19f84 changed: #pathOfCommand: Claus Gittinger <cg@exept.de> parents: 13790 diff changeset	4139
13618 9af72c855037 Fixes for #canExecuteCommand: vrany parents: 13616 diff changeset	4140	"Modified: / 23-08-2011 / 21:11:47 / jv"
13956 80a50d0484fb changed: #pathOfCommand: Claus Gittinger <cg@exept.de> parents: 13954 diff changeset	4141	"Modified: / 20-01-2012 / 13:32:55 / cg"
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	4142	"Modified: / 16-05-2019 / 18:43:42 / Stefan Vogel"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4143	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4144
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4145	primExec:commandPath commandLine:commandLine environment:environmentOrNil
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4146	fileDescriptors:fdArray fork:doFork newPgrp:newPgrp
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4147	inPath:dirName createFlags:flagsOrNil inheritHandles:inheritHandles
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4148	showWindow:showWindowBooleanOrNil
20364 190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	4149	"Internal lowLevel entry for combined fork & exec for WIN32
190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	4150
190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	4151	showWindowBooleanOrNil may be:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4152	true - a window is shown on start of the command
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4153	false - the command window is hidden
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4154	nil - the nCmdShown parameter of the commans's winmain function determins,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4155	if a window is shown.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4156	#default
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4157	- same as nil
20969 c6f6a1630c1c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20968 diff changeset	4158	"
c6f6a1630c1c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20968 diff changeset	4159
c6f6a1630c1c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20968 diff changeset	4160	\|handle commandPathUni16 commandLineUni16 dirNameUni16 envString16\|
7645 fd98d4cfa617 terminateProcess and closePid are now two separate operations. Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	4161
fd98d4cfa617 terminateProcess and closePid are now two separate operations. Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	4162	handle := Win32ProcessHandle new.
19651 59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	4163
19578 65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4164	commandPathUni16 := commandPath.
65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4165	commandLineUni16 := commandLine.
65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4166	dirNameUni16 := dirName.
65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4167
65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4168	commandPathUni16 notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4169	commandPathUni16 := commandPathUni16 asUnicode16String.
19578 65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4170	].
65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4171	commandLineUni16 notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4172	commandLineUni16 := commandLineUni16 asUnicode16String.
19578 65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4173	].
65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4174	dirNameUni16 notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4175	dirNameUni16 := dirNameUni16 asUnicode16String.
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4176	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4177	environmentOrNil notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4178	\|newEnv\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4179
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4180	"/ take my current environment; add the definitions given by the argument.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4181	newEnv := Dictionary new
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4182	declareAllFrom:(OperatingSystem getEnvironment);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4183	declareAllFrom:environmentOrNil;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4184	yourself.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4185
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4186	envString16 :=
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4187	Unicode16String streamContents:[:s \|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4188	newEnv keysSorted do:[:k \|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4189	s nextPutAll:k; nextPut:$=; nextPutAll:(newEnv at:k).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4190	s nextPut:(Character codePoint:0).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4191	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4192	s nextPut:(Character codePoint:0).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4193	].
20969 c6f6a1630c1c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20968 diff changeset	4194	].
c6f6a1630c1c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20968 diff changeset	4195
c6f6a1630c1c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20968 diff changeset	4196	%{ /* STACK: 32000 */
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4197
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4198	/*
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4199	* if fork is false, chain to another command (not yet supported)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4200	* otherwise, spawn a subprocess and let it execute the command.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4201	* Currently, only the forking version is supported (who chains anyway ?)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4202	*/
19578 65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4203	int i, l; // i -> for iteration, l -> for length
65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4204
19651 59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	4205	/*
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	4206	* CreateProcess supports 32767 characters/bytes including all variables and values
19578 65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4207	* so take a good average for its arguments 4096
65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4208	*/
25139 ee3a1332f546 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 25138 diff changeset	4209	#define MAX_WPATH 4096
ee3a1332f546 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 25138 diff changeset	4210	wchar_t cmdPathW[MAX_WPATH];
ee3a1332f546 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 25138 diff changeset	4211	wchar_t cmdLineW[MAX_WPATH];
ee3a1332f546 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 25138 diff changeset	4212	wchar_t dirNameW[MAX_WPATH];
19651 59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	4213
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	4214	/*
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	4215	* pass pointers to CreateProcess
19578 65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4216	* NULL pointers used to indicate no value
65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4217	* so only set the pointer if the value is valid
19651 59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	4218	*/
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	4219	wchar_t *cmdPathWP = NULL;
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	4220	wchar_t *cmdLineWP = NULL;
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	4221	wchar_t *dirNameWP = NULL;
20969 c6f6a1630c1c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20968 diff changeset	4222	wchar_t *envWP = NULL;
19578 65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4223
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4224	DWORD fdwCreate = 0;
19578 65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4225	STARTUPINFOW lpsiStartInfo;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4226	PROCESS_INFORMATION lppiProcInfo;
13112 1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4227	SECURITY_ATTRIBUTES securityAttributes;
1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4228	SECURITY_DESCRIPTOR securityDescriptor;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4229
19578 65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4230	if ((__isUnicode16String(commandPathUni16) \|\| (commandPathUni16 == nil)) && __isUnicode16String(commandLineUni16)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4231	HANDLE stdinHandle = NULL;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4232	HANDLE stdoutHandle = NULL;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4233	HANDLE stderrHandle = NULL;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4234	int mustClose_stdinHandle = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4235	int mustClose_stdoutHandle = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4236	int mustClose_stderrHandle = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4237
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4238	/*
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4239	* terminate the multi byte strings
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4240	*/
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4241	// #commandPathUni16
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4242	if (commandPathUni16 != nil) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4243	l = __unicode16StringSize(commandPathUni16);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4244	if (l >= sizeof(cmdPathW)) { // >= need 1 space for terminator
20896 c88fbd0cb367 * empty log message * Claus Gittinger <cg@exept.de> parents: 20677 diff changeset	4245	# ifdef PROCESSDEBUGWIN32
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4246	if (flag_PROCESSDEBUGWIN32) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4247	console_fprintf(stderr, "argument #commandPathUni16 is to long\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4248	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4249	# endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4250	RETURN(nil);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4251	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4252	for (i = 0; i < l; i++) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4253	cmdPathW[i] = __unicode16StringVal(commandPathUni16)[i];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4254	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4255	cmdPathW[i] = 0; // set terminator
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4256	cmdPathWP = &cmdPathW[0];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4257	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4258
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4259	// commandLineUni16
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4260	l = __unicode16StringSize(commandLineUni16);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4261	if (l >= sizeof(cmdLineW)) { // >= need 1 space for terminator
20896 c88fbd0cb367 * empty log message * Claus Gittinger <cg@exept.de> parents: 20677 diff changeset	4262	# ifdef PROCESSDEBUGWIN32
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4263	if (flag_PROCESSDEBUGWIN32) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4264	console_fprintf(stderr, "argument #commandLineUni16 is to long\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4265	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4266	# endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4267	RETURN(nil);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4268	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4269	for (i = 0; i < l; i++) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4270	cmdLineW[i] = __unicode16StringVal(commandLineUni16)[i];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4271	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4272	cmdLineW[i] = 0; // set terminator
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4273	cmdLineWP = &cmdLineW[0];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4274
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4275	// #dirNameUni16
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4276	if (__isUnicode16String(dirNameUni16)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4277	l = __unicode16StringSize(dirNameUni16);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4278	if (l >= sizeof(dirNameW)) { // >= need 1 space for terminator
20896 c88fbd0cb367 * empty log message * Claus Gittinger <cg@exept.de> parents: 20677 diff changeset	4279	# ifdef PROCESSDEBUGWIN32
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4280	if (flag_PROCESSDEBUGWIN32) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4281	console_fprintf(stderr, "argument #dirNameUni16 is to long\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4282	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4283	# endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4284	RETURN(nil);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4285	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4286	for (i = 0; i < l; i++) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4287	dirNameW[i] = __unicode16StringVal(dirNameUni16)[i];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4288	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4289	dirNameW[i] = 0; // set terminator
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4290	dirNameWP = &dirNameW[0];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4291	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4292
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4293	if (envString16 != nil) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4294	envWP = __unicode16StringVal(envString16);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4295	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4296
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4297	/*
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4298	* create descriptors as req'd
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4299	*/
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4300	memset(&securityAttributes, 0, sizeof(securityAttributes));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4301	securityAttributes.nLength = sizeof(securityAttributes);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4302	securityAttributes.bInheritHandle = (inheritHandles == true) ? TRUE : FALSE;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4303
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4304	InitializeSecurityDescriptor(&securityDescriptor, SECURITY_DESCRIPTOR_REVISION);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4305	SetSecurityDescriptorDacl(&securityDescriptor, -1, 0, 0);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4306
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4307	securityAttributes.lpSecurityDescriptor = &securityDescriptor;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4308
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4309	memset(&lpsiStartInfo, 0, sizeof(lpsiStartInfo));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4310	lpsiStartInfo.cb = sizeof(lpsiStartInfo);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4311	lpsiStartInfo.lpReserved = NULL;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4312	lpsiStartInfo.lpDesktop = NULL;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4313	lpsiStartInfo.lpTitle = NULL;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4314	lpsiStartInfo.dwX = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4315	lpsiStartInfo.dwY = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4316	lpsiStartInfo.dwXSize = 100;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4317	lpsiStartInfo.dwYSize = 100;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4318	lpsiStartInfo.dwXCountChars = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4319	lpsiStartInfo.dwYCountChars = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4320	lpsiStartInfo.dwFillAttribute = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4321	lpsiStartInfo.dwFlags = STARTF_USESTDHANDLES /\| STARTF_USEPOSITION/;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4322	if ((showWindowBooleanOrNil != nil) && (showWindowBooleanOrNil != @symbol(default))) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4323	lpsiStartInfo.dwFlags \|= STARTF_USESHOWWINDOW;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4324	lpsiStartInfo.wShowWindow = showWindowBooleanOrNil == true ? SW_SHOWNORMAL : SW_HIDE;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4325	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4326	lpsiStartInfo.cbReserved2 = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4327	lpsiStartInfo.lpReserved2 = NULL;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4328	lpsiStartInfo.hStdInput = NULL;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4329	lpsiStartInfo.hStdOutput = NULL;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4330	lpsiStartInfo.hStdError = NULL;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4331
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4332	/*
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4333	* set create process flags
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4334	* if the flags arg is nil, use common defaults;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4335	* if non-nil, it must be a positive integer containing the fdwCreate bits.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4336	*/
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4337	if (flagsOrNil != nil) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4338	fdwCreate = __longIntVal(flagsOrNil);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4339	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4340	fdwCreate = CREATE_NEW_CONSOLE; //\|IDLE_PRIORITY_CLASS; // DETACHED_PROCESS; // NORMAL_PRIORITY_CLASS ;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4341	if (newPgrp == true) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4342	fdwCreate \|= CREATE_NEW_PROCESS_GROUP;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4343	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4344	fdwCreate \|= CREATE_DEFAULT_ERROR_MODE;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4345	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4346
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4347	if (fdArray == nil) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4348	stdinHandle = (HANDLE) _get_osfhandle (0);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4349	stdoutHandle = (HANDLE) _get_osfhandle (1);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4350	stderrHandle = (HANDLE) _get_osfhandle (2);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4351	} else if (__isArrayLike(fdArray) && (__arraySize(fdArray) >= 3)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4352	if (__ArrayInstPtr(fdArray)->a_element[0] != nil) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4353	if (__isExternalAddressLike(__ArrayInstPtr(fdArray)->a_element[0])) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4354	stdinHandle = _HANDLEVal(__ArrayInstPtr(fdArray)->a_element[0]);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4355	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4356	stdinHandle = (HANDLE) _get_osfhandle (__intVal(__ArrayInstPtr(fdArray)->a_element[0]));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4357	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4358	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4359	if (__ArrayInstPtr(fdArray)->a_element[1] != nil) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4360	if (__isExternalAddressLike(__ArrayInstPtr(fdArray)->a_element[1])) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4361	stdoutHandle = _HANDLEVal(__ArrayInstPtr(fdArray)->a_element[1]);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4362	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4363	stdoutHandle = (HANDLE) _get_osfhandle (__intVal(__ArrayInstPtr(fdArray)->a_element[1]));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4364	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4365	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4366	if (__ArrayInstPtr(fdArray)->a_element[2] != nil) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4367	if (__isExternalAddressLike(__ArrayInstPtr(fdArray)->a_element[2])) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4368	stderrHandle = _HANDLEVal(__ArrayInstPtr(fdArray)->a_element[2]);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4369	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4370	stderrHandle = (HANDLE) _get_osfhandle (__intVal(__ArrayInstPtr(fdArray)->a_element[2]));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4371	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4372	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4373	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4374	console_fprintf(stderr, "Win32OS [warning]: bad fd arg in createProcess\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4375	}
13742 cfb6a76de348 version_CVS Claus Gittinger <cg@exept.de> parents: 13618 diff changeset	4376
15543 196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	4377	#if defined(PROCESSDEBUGWIN32)
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4378	if (flag_PROCESSDEBUGWIN32) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4379	console_fprintf(stderr, "stdin %x\n", stdinHandle);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4380	console_fprintf(stderr, "stdout %x\n", stdoutHandle);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4381	console_fprintf(stderr, "stderr %x\n", stderrHandle);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4382	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4383	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4384
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4385	{
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4386	HANDLE childHandle;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4387	int sameHandle = (stdoutHandle == stderrHandle);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4388
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4389	// these MUST be inheritable!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4390	if (stdinHandle) {
15543 196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	4391	#if 0
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4392	if (SetHandleInformation(stdinHandle, HANDLE_FLAG_INHERIT, HANDLE_FLAG_INHERIT)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4393	// good
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4394	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4395	console_fprintf(stderr, "Win32OS [warning]: SetHandleInformation failed in createProcess\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4396	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4397	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4398	if (DuplicateHandle(GetCurrentProcess(), stdinHandle, GetCurrentProcess(),
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4399	&childHandle, 0, TRUE, DUPLICATE_SAME_ACCESS)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4400	stdinHandle = childHandle;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4401	mustClose_stdinHandle = 1;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4402	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4403	console_fprintf(stderr, "Win32OS [warning]: duplicateHandle failed in createProcess\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4404	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4405	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4406	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4407	if (stdoutHandle) {
15543 196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	4408	#if 0
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4409	if (SetHandleInformation(stdoutHandle, HANDLE_FLAG_INHERIT, HANDLE_FLAG_INHERIT)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4410	// good
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4411	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4412	console_fprintf(stderr, "Win32OS [warning]: SetHandleInformation failed in createProcess\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4413	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4414	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4415	if (DuplicateHandle(GetCurrentProcess(), stdoutHandle, GetCurrentProcess(),
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4416	&childHandle, 0, TRUE, DUPLICATE_SAME_ACCESS)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4417	stdoutHandle = childHandle;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4418	mustClose_stdoutHandle = 1;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4419	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4420	console_fprintf(stderr, "Win32OS [warning]: duplicateHandle failed in createProcess\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4421	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4422	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4423	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4424	if (stderrHandle) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4425	if (sameHandle) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4426	stderrHandle = stdoutHandle;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4427	} else {
15543 196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	4428	#if 0
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4429	if (SetHandleInformation(stderrHandle, HANDLE_FLAG_INHERIT, HANDLE_FLAG_INHERIT)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4430	// good
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4431	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4432	console_fprintf(stderr, "Win32OS [warning]: SetHandleInformation failed in createProcess\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4433	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4434	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4435	if (DuplicateHandle(GetCurrentProcess(), stderrHandle, GetCurrentProcess(),
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4436	&childHandle, 0, TRUE, DUPLICATE_SAME_ACCESS)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4437	stderrHandle = childHandle;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4438	mustClose_stderrHandle = 1;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4439	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4440	console_fprintf(stderr, "Win32OS [warning]: duplicateHandle failed in createProcess\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4441	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4442	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4443	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4444	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4445	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4446	lpsiStartInfo.hStdInput = stdinHandle;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4447	lpsiStartInfo.hStdOutput = stdoutHandle;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4448	lpsiStartInfo.hStdError = stderrHandle;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4449
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4450	if (doFork == true) {
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4451	#ifdef PROCESSDEBUGWIN32
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4452	if (flag_PROCESSDEBUGWIN32) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4453	console_fprintf(stderr, "create process cmdPath:<%s> cmdLine:<%s> in <%s>\n", __stringVal(commandPath), __stringVal(commandLine), __stringVal(dirName));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4454	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4455	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4456	memset(&lppiProcInfo, 0, sizeof (lppiProcInfo));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4457
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4458	if (CreateProcessW( cmdPathWP,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4459	cmdLineWP,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4460	&securityAttributes, NULL /* &securityAttributes */,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4461	securityAttributes.bInheritHandle, /* inherit handles */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4462	fdwCreate \| CREATE_SUSPENDED /* resume after setting affinity */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4463	\| CREATE_UNICODE_ENVIRONMENT,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4464	envWP, /* env */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4465	dirNameWP,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4466	&lpsiStartInfo,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4467	&lppiProcInfo ))
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4468	{
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4469	DWORD_PTR processAffinityMask, systemAffinityMask;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4470
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4471	/*
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4472	* Process was created suspended, now set the affinity mask
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4473	* to any processor, and resume the processes main thread.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4474	* (in case librun/process.s limited the affinity to a single processor).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4475	*/
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4476	GetProcessAffinityMask(lppiProcInfo.hProcess, &processAffinityMask, &systemAffinityMask);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4477	SetProcessAffinityMask(lppiProcInfo.hProcess, systemAffinityMask);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4478	if ((fdwCreate & CREATE_SUSPENDED) == 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4479	ResumeThread(lppiProcInfo.hThread);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4480	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4481	CloseHandle(lppiProcInfo.hThread);
15543 196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	4482
15547 088a34ccacb1 * empty log message * Claus Gittinger <cg@exept.de> parents: 15546 diff changeset	4483	#if 0
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4484	// only works with real console handles
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4485	{
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4486	// change the child's stdIn (console) mode
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4487	DWORD mode = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4488
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4489	if (! GetConsoleMode(stdinHandle, &mode)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4490	console_fprintf(stderr, "Win32OS [warning]: GetConsoleMode failed in createProcess\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4491	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4492	if (! SetConsoleMode(stdinHandle, mode & (~ENABLE_ECHO_INPUT))){
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4493	console_fprintf(stderr, "Win32OS [warning]: SetConsoleMode failed in createProcess\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4494	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4495	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4496	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4497	if (mustClose_stdinHandle) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4498	CloseHandle(stdinHandle);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4499	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4500	if (mustClose_stdoutHandle) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4501	CloseHandle(stdoutHandle);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4502	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4503	if (mustClose_stderrHandle) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4504	CloseHandle(stderrHandle);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4505	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4506	#ifdef PROCESSDEBUGWIN32
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4507	if (flag_PROCESSDEBUGWIN32) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4508	console_fprintf(stderr, "created process hProcess=%x pid=%d\n", lppiProcInfo.hProcess, lppiProcInfo.dwProcessId);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4509	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4510	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4511
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4512	__externalAddressVal(handle) = lppiProcInfo.hProcess;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4513	((struct __Win32OperatingSystem__Win32ProcessHandle_struct *)(handle))->pid = __mkSmallInteger(lppiProcInfo.dwProcessId);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4514	RETURN (handle);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4515	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4516	#ifdef PROCESSDEBUGWIN32
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4517	if (flag_PROCESSDEBUGWIN32) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4518	console_fprintf(stderr, "created process error %d\n", GetLastError());
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4519	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4520	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4521	RETURN (nil);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4522	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4523	; /* should never be called that way */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4524	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4525	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4526	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4527	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4528	path-argument not string
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4529	or argArray not an array/nil
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4530	or malloc failed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4531	or not supported by OS
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4532	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4533	^ self primitiveFailed
20677 e3fe2f476abb #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20591 diff changeset	4534
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4535	"Created: / 15-11-2016 / 19:39:49 / cg"
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4536	!
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4537
23528 64850968fa93 experiment to get the real version Claus Gittinger <cg@exept.de> parents: 23510 diff changeset	4538	primShellExecuteUacElevated:binary
23510 a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4539	args:args
a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4540
a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4541	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4542	try executing binary with the highest privileges it can obtain.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4543	this has been implement, because a normal user (from user group, not admin group)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4544	could not write to its own HKEY_CURRENT_USER registry by Win32OperatingSystem registryEntry.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4545	but calling a corresponding *.reg file like the following examples, did the trick (even without UAC prompt)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4546
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4547	self
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4548	primShellExecuteUacElevated:'regedit' asUnicode16String
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4549	args:'/s C:\users\test\desktop\add.reg' asUnicode16String
23510 a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4550	"
a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4551
a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4552	%{
a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4553	int result;
a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4554
a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4555	if (!__isUnicode16String(binary)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4556	RETURN (false);
23510 a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4557	};
a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4558
a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4559	if (!__isUnicode16String(args)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4560	RETURN (false);
23528 64850968fa93 experiment to get the real version Claus Gittinger <cg@exept.de> parents: 23510 diff changeset	4561	};
64850968fa93 experiment to get the real version Claus Gittinger <cg@exept.de> parents: 23510 diff changeset	4562
64850968fa93 experiment to get the real version Claus Gittinger <cg@exept.de> parents: 23510 diff changeset	4563	result = (int)ShellExecuteW(
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4564	NULL,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4565	// The "runas" verb is important because that's what
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4566	// internally triggers windows to open up a UAC prompt.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4567	// windows does not always open the UAC prompt,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4568	// if not the #binary will executed UAC elevated
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4569	L"runas",
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4570	__unicode16StringVal(binary),
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4571	__unicode16StringVal(args),
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4572	NULL,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4573	SW_SHOWNORMAL
23528 64850968fa93 experiment to get the real version Claus Gittinger <cg@exept.de> parents: 23510 diff changeset	4574	);
23510 a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4575
a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4576	if (result <= 32) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4577	RETURN (false);
23510 a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4578	}
a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4579
a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4580	RETURN (true);
a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4581	%}
a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4582
a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4583	"Created: / 05-11-2018 / 13:27:41 / sr"
a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4584	!
a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4585
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	4586	shellExecute:hwndArg lpOperation:lpOperationArg lpFile:lpFileArg lpParameters:lpParametersArg lpDirectory:lpDirectoryArg nShowCmd:nShowCmd
13112 1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4587	"Opens or prints the specified file, which can be an executable, document file, or directory.
1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4588	If its a directory, an explorer window is opened (see example below).
15472 2eb14b1eaf06 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15464 diff changeset	4589	Can be used to open a browser or viewer on html-files, pdf-files etc.
2eb14b1eaf06 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15464 diff changeset	4590	lpDirectory: the pathname string of the directory used for the command,
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4591	or nil for the current directory."
13159 04ecf0207585 * empty log message * Claus Gittinger <cg@exept.de> parents: 13128 diff changeset	4592
04ecf0207585 * empty log message * Claus Gittinger <cg@exept.de> parents: 13128 diff changeset	4593	\|errorNumber handle\|
04ecf0207585 * empty log message * Claus Gittinger <cg@exept.de> parents: 13128 diff changeset	4594
04ecf0207585 * empty log message * Claus Gittinger <cg@exept.de> parents: 13128 diff changeset	4595	handle := Win32ProcessHandle new.
13112 1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4596
1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4597	%{
23272 943caf3090c8 shellExecute 16bit support Claus Gittinger <cg@exept.de> parents: 23267 diff changeset	4598	SHELLEXECUTEINFOW shExecInfo = {0};
13112 1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4599	shExecInfo.cbSize = sizeof(shExecInfo);
1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4600
1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4601	if (__isSmallInteger(nShowCmd)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4602	shExecInfo.nShow = __intVal(nShowCmd);
13112 1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4603	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4604	if (nShowCmd == @symbol(SW_SHOW)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4605	shExecInfo.nShow = SW_SHOW;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4606	} else if (nShowCmd == @symbol(SW_SHOWNORMAL)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4607	shExecInfo.nShow = SW_SHOWNORMAL;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4608	} else if (nShowCmd == @symbol(SW_SHOWDEFAULT)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4609	shExecInfo.nShow = SW_SHOWDEFAULT;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4610	} else if (nShowCmd == @symbol(SW_SHOWMAXIMIZED)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4611	shExecInfo.nShow = SW_SHOWMAXIMIZED;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4612	} else if (nShowCmd == @symbol(SW_SHOWMINIMIZED)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4613	shExecInfo.nShow = SW_SHOWMINIMIZED;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4614	} else if (nShowCmd == @symbol(SW_SHOWMINNOACTIVE)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4615	shExecInfo.nShow = SW_SHOWMINNOACTIVE;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4616	} else if (nShowCmd == @symbol(SW_SHOWNA)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4617	shExecInfo.nShow = SW_SHOWNA;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4618	} else if (nShowCmd == @symbol(SW_SHOWNOACTIVATE)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4619	shExecInfo.nShow = SW_SHOWNOACTIVATE;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4620	} else if (nShowCmd == @symbol(SW_MAXIMIZE)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4621	shExecInfo.nShow = SW_MAXIMIZE;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4622	} else if (nShowCmd == @symbol(SW_RESTORE)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4623	shExecInfo.nShow = SW_RESTORE;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4624	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4625	goto badArgument;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4626	}
13112 1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4627	}
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	4628	if (((lpOperationArg == nil) \|\| __isStringLike(lpOperationArg))
23272 943caf3090c8 shellExecute 16bit support Claus Gittinger <cg@exept.de> parents: 23267 diff changeset	4629	&& ((lpFileArg == nil) \|\| __isStringLike(lpFileArg) \|\| __isUnicode16String(lpFileArg))
943caf3090c8 shellExecute 16bit support Claus Gittinger <cg@exept.de> parents: 23267 diff changeset	4630	&& ((lpParametersArg == nil) \|\| __isStringLike(lpParametersArg) \|\| __isUnicode16String(lpParametersArg))
943caf3090c8 shellExecute 16bit support Claus Gittinger <cg@exept.de> parents: 23267 diff changeset	4631	&& ((lpDirectoryArg == nil) \|\| __isStringLike(lpDirectoryArg) \|\| __isUnicode16String(lpDirectoryArg))
13112 1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4632	) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4633	// hProcess member receives the process handle
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4634	wchar_t _wFileArg[MAXPATHLEN+1];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4635	wchar_t _wParametersArg[MAXPATHLEN+1];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4636	wchar_t _wDirectoryArg[MAXPATHLEN+1];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4637	wchar_t _wVerbArg[128];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4638
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4639	shExecInfo.fMask = SEE_MASK_NOCLOSEPROCESS;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4640
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4641	_makeWchar(lpOperationArg, _wVerbArg, sizeof(_wVerbArg));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4642	_makeWchar(lpFileArg, _wFileArg, sizeof(_wFileArg));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4643	_makeWchar(lpParametersArg, _wParametersArg, sizeof(_wParametersArg));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4644	_makeWchar(lpDirectoryArg, _wDirectoryArg, sizeof(_wDirectoryArg));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4645
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4646	shExecInfo.lpVerb = (lpOperationArg != nil) ? _wVerbArg : NULL;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4647	shExecInfo.lpFile = (lpFileArg != nil) ? _wFileArg : NULL;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4648	shExecInfo.lpParameters = (lpParametersArg != nil) ? _wParametersArg : NULL;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4649	shExecInfo.lpDirectory = (lpDirectoryArg != nil) ? _wDirectoryArg : NULL;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4650
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4651	shExecInfo.hwnd = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4652	if (hwndArg != nil) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4653	if (__isExternalAddressLike(hwndArg)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4654	shExecInfo.hwnd = _HANDLEVal(hwndArg);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4655	} else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4656	goto badArgument;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4657	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4658	if (ShellExecuteExW(&shExecInfo)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4659	if (shExecInfo.hProcess) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4660	DWORD_PTR processAffinityMask, systemAffinityMask;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4661	/*
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4662	* Set the affinity mask to any processor,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4663	* and resume the processes main thread.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4664	* (in case librun/process.s limited the affinity to a single processor).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4665	*/
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4666	GetProcessAffinityMask(shExecInfo.hProcess, &processAffinityMask, &systemAffinityMask);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4667	SetProcessAffinityMask(shExecInfo.hProcess, systemAffinityMask);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4668
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4669	__externalAddressVal(handle) = shExecInfo.hProcess;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4670	RETURN (handle);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4671	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4672	RETURN (nil); /* OK */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4673	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4674	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4675	/* error */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4676	errorNumber = __mkSmallInteger(__WIN32_ERR(GetLastError()));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4677	}
13112 1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4678	}
1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4679	badArgument: ;
1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4680	%}.
1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4681	errorNumber isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4682	self primitiveFailed:'invalid argument(s)'.
13112 1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4683	] ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4684	(OperatingSystem errorHolderForNumber:errorNumber)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4685	parameter:lpFileArg;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4686	reportError
13112 1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4687	].
1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4688
1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4689	"
1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4690	self
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4691	shellExecute:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4692	lpOperation:'open'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4693	lpFile:(Filename currentDirectory pathName)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4694	lpParameters:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4695	lpDirectory:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4696	nShowCmd:#SW_SHOWNORMAL
23274 acec2dba4092 * empty log message * Claus Gittinger <cg@exept.de> parents: 23273 diff changeset	4697
acec2dba4092 * empty log message * Claus Gittinger <cg@exept.de> parents: 23273 diff changeset	4698	self
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4699	shellExecute:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4700	lpOperation:'open'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4701	lpFile:'http://www.exept.de'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4702	lpParameters:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4703	lpDirectory:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4704	nShowCmd:#SW_SHOWNORMAL
23274 acec2dba4092 * empty log message * Claus Gittinger <cg@exept.de> parents: 23273 diff changeset	4705
13112 1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4706	self
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4707	shellExecute:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4708	lpOperation:'explore'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4709	lpFile:(Filename currentDirectory pathName)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4710	lpParameters:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4711	lpDirectory:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4712	nShowCmd:#SW_SHOWNORMAL
13112 1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4713	"
1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4714	!
1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4715
23528 64850968fa93 experiment to get the real version Claus Gittinger <cg@exept.de> parents: 23510 diff changeset	4716	shellExecuteUacElevated:binary
23510 a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4717	args:args
a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4718
a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4719	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4720	try executing binary with the highest privileges it can obtain.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4721	this has been implement, because a normal user (from user group, not admin group)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4722	could not write to its own HKEY_CURRENT_USER registry by Win32OperatingSystem registryEntry.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4723	but calling a corresponding *.reg file like the following examples, did the trick (even without UAC prompt)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4724
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4725	self
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4726	shellExecuteUacElevated:'regedit'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4727	args:'/s C:\users\test\desktop\add.reg'
23528 64850968fa93 experiment to get the real version Claus Gittinger <cg@exept.de> parents: 23510 diff changeset	4728	"
64850968fa93 experiment to get the real version Claus Gittinger <cg@exept.de> parents: 23510 diff changeset	4729
64850968fa93 experiment to get the real version Claus Gittinger <cg@exept.de> parents: 23510 diff changeset	4730	^ self
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4731	primShellExecuteUacElevated:binary asUnicode16String
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4732	args:args asUnicode16String
23510 a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4733
a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4734	"Created: / 05-11-2018 / 13:58:29 / sr"
a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4735	!
a51aaf76fd25 #FEATURE by sr sr parents: 23502 diff changeset	4736
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	4737	startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	4738	errorTo:anExternalErrStream auxFrom:anAuxiliaryStream
7638 a211d1f10797 * empty log message * Michael Beyl <mb@exept.de> parents: 7535 diff changeset	4739	environment:anEvironmentDictionary inDirectory:dir
20930 793c81da8cb1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20897 diff changeset	4740	newPgrp:newPgrp showWindow:showWindowBooleanOrNil
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4741
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4742	"start executing the OS command as specified by the argument, aCommandString
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4743	as a separate process; do not wait for the command to finish.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4744	If aCommandString is a String, the commandString is passed to a shell for execution
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4745	- see the description of 'sh -c' in your UNIX manual ('cmd.com' in your MSDOS manual).
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4746	If aCommandString is an Array, the first element is the command to be executed,
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4747	and the other elements are the arguments to the command. No shell is invoked in this case.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4748	The command gets stdIn, stdOut and stdErr assigned from the arguments;
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4749	each may be nil.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4750
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4751	Return the Win32ProcessHandle if successful, nil otherwise.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4752
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4753	Use #monitorPid:action: for synchronization and exec status return,
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4754	or #killProcess: to stop it."
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4755
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4756	\|shellAndArgs nullStream in out err rslt\|
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4757
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4758	aCommandString isNil ifTrue:[^ nil].
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4759	shellAndArgs := self commandAndArgsForOSCommand:aCommandString.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4760
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4761	(in := anExternalInStream) isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4762	nullStream := Filename nullDevice readWriteStream.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4763	in := nullStream.
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4764	].
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4765	(out := anExternalOutStream) isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4766	nullStream isNil ifTrue:[nullStream := Filename nullDevice writeStream].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4767	out := nullStream.
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4768	].
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4769	(err := anExternalErrStream) isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4770	err := out
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4771	].
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4772
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4773	rslt := self
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4774	exec:(shellAndArgs at:1)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4775	withArguments:(shellAndArgs at:2)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4776	environment:anEvironmentDictionary
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4777	fileDescriptors:(Array with:in fileHandle
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4778	with:out fileHandle
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4779	with:err fileHandle
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4780	with:(anAuxiliaryStream notNil ifTrue:[anAuxiliaryStream fileHandle] ifFalse:[nil]))
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4781	fork:true
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4782	newPgrp:newPgrp
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4783	inDirectory:dir
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4784	showWindow:(showWindowBooleanOrNil ? (shellAndArgs at:3)).
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4785
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4786	nullStream notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4787	nullStream close.
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4788	].
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4789	^ rslt
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4790
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4791	"blocking at current prio (i.e. only higher prio threads execute):
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4792
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4793	OperatingSystem executeCommand:'dir > out'.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4794	OperatingSystem executeCommand:'tree /A' outputTo:Transcript.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4795	OperatingSystem executeCommand:#('c:\windows\system32\tree.com' '/A' '/F') outputTo:Transcript.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4796	OperatingSystem executeCommand:#('c:\windows\system32\where.exe' '/T' '*.dll') outputTo:Transcript.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4797	"
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4798
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4799	"non-blocking (lower prio threads continue):
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4800
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4801	\|in out err pid sema\|
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4802
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4803	in := 'out' asFilename readStream.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4804	out := 'out2' asFilename writeStream.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4805	err := 'err' asFilename writeStream.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4806
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4807	sema := Semaphore new.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4808	pid := OperatingSystem startProcess:'sleep 10; grep drw' inputFrom:in outputTo:out errorTo:err.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4809
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4810	The following will no longer work. monitorPid has disappeared
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4811
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4812	pid notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4813	Processor monitorPid:pid action:[:OSstatus \| sema signal ].
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4814	].
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4815	in close.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4816	out close.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4817	err close.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4818	sema wait.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4819	Transcript showCR:'finished'
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4820	"
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4821
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4822	"
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4823	\|pid sema\|
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4824
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4825	sema := Semaphore new.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4826
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4827	Processor
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4828	monitor:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4829	pid := OperatingSystem startProcess:'dir > out 2>err'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4830	]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4831	action:[:osStatus \| sema signal ].
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4832
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4833	sema wait.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4834	Transcript showCR:'finished'
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4835	"
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4836
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4837	"<<END
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4838	\|pid sema\|
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4839
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4840	sema := Semaphore new.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4841
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4842	Processor
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4843	monitor:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4844	pid := OperatingSystem startProcess:'(echo 1 & stx --eval "Delay waitForSeconds:100" & dir) >out' withCRs
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4845	]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4846	action:[:osStatus \| sema signal ].
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4847
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4848	Delay waitForSeconds:5.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4849	OperatingSystem terminateProcessGroup:pid.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4850	Transcript showCR:'terminated'
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4851	END"
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4852
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4853	"<<END
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4854	\|pid sema\|
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4855
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4856	sema := Semaphore new.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4857
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4858	Processor
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4859	monitor:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4860	pid := OperatingSystem startProcess:{ 'C:\Users\cg\work\stx\projects\smalltalk\stx.com' . '--eval' . '"Delay waitForSeconds:100"' }
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4861	]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4862	action:[:osStatus \| sema signal ].
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4863
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4864	Delay waitForSeconds:5.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4865	OperatingSystem terminateProcess:pid.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4866	Transcript showCR:'terminated'
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4867	END"
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4868
20930 793c81da8cb1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20897 diff changeset	4869	"Created: / 08-11-2016 / 21:23:17 / cg"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4870	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4871
24109 35c666f2971b #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23928 diff changeset	4872	!Win32OperatingSystem class methodsFor:'executing OS commands-queries'!
35c666f2971b #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23928 diff changeset	4873
35c666f2971b #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23928 diff changeset	4874	commandNeedsShowWindowFlag:cmd
35c666f2971b #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23928 diff changeset	4875	"this is a windows speciality (again).
35c666f2971b #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23928 diff changeset	4876	Check against the set of commands which need the showWindow flag."
35c666f2971b #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23928 diff changeset	4877
35c666f2971b #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23928 diff changeset	4878	"kludge - notepad.exe on Windows does not open a window without showWindow set to true.
35c666f2971b #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23928 diff changeset	4879	all others like notepad++, excel, libreoffice do"
35c666f2971b #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23928 diff changeset	4880
35c666f2971b #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23928 diff changeset	4881	^ cmd includesString:'notepad.exe'.
35c666f2971b #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23928 diff changeset	4882
35c666f2971b #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23928 diff changeset	4883	"Modified: / 07-05-2019 / 08:05:38 / Stefan Vogel"
35c666f2971b #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23928 diff changeset	4884	! !
35c666f2971b #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23928 diff changeset	4885
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4886	!Win32OperatingSystem class methodsFor:'file access'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4887
22956 55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4888	basicRemoveFile:fullPathName
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4889	"remove the file named 'fullPathName';
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4890	return nil if successful, an OSErrorHolder on errror.
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4891	This is a lowLevel entry - use Filename protocol for compatibility."
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4892
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4893	\|error\|
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4894
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4895	%{
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4896	int success;
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4897
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4898	if (__isStringLike(fullPathName)) {
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4899	#ifdef DO_WRAP_CALLS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4900	{
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4901	char _aPathName[MAXPATHLEN];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4902
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4903	strncpy(_aPathName, __stringVal(fullPathName), MAXPATHLEN-1); _aPathName[MAXPATHLEN-1] = '\0';
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4904	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4905	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4906	success = (int)STX_API_NOINT_CALL1( "DeleteFileA", DeleteFileA, _aPathName);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4907	} while (!success && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4908	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4909	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4910	success = DeleteFileA((char *)__stringVal(fullPathName));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4911	if (!success) __threadErrno = __WIN32_ERR(GetLastError());
22956 55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4912	#endif
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4913	} else if (__isUnicode16String(fullPathName)) {
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4914	#ifdef DO_WRAP_CALLS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4915	{
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4916	wchar_t _wPathName[MAXPATHLEN+1];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4917
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4918	_makeWchar(fullPathName, _wPathName, sizeof(_wPathName));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4919	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4920	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4921	success = (int)(STX_API_NOINT_CALL1( "DeleteFileW", DeleteFileW, _wPathName));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4922	} while (!success && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4923	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4924	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4925	success = DeleteFileW((wchar_t *)__unicode16StringVal(fullPathName));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4926	if (!success) __threadErrno = __WIN32_ERR(GetLastError());
22956 55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4927	#endif
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4928	}
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4929
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4930	if (success) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4931	RETURN (nil);
22956 55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4932	}
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4933
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4934	error = __mkSmallInteger(__threadErrno);
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4935	%}.
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4936
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4937	error notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4938	LastErrorNumber := error.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4939	^ self errorHolderForNumber:error.
22956 55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4940	].
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4941
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4942	^ self primitiveFailed
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4943	!
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	4944
7662 32a1185158f3 process handles Claus Gittinger <cg@exept.de> parents: 7645 diff changeset	4945	closeFd:anIntegerOrHandle
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4946	"low level close of a filedescriptor"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4947
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4948	%{
12686 27afd11a1acd changed: Stefan Vogel <sv@exept.de> parents: 12654 diff changeset	4949	if (__isSmallInteger(anIntegerOrHandle)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4950	close(__intVal(anIntegerOrHandle));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4951	RETURN(self);
12686 27afd11a1acd changed: Stefan Vogel <sv@exept.de> parents: 12654 diff changeset	4952	}
27afd11a1acd changed: Stefan Vogel <sv@exept.de> parents: 12654 diff changeset	4953	if (__isExternalAddressLike(anIntegerOrHandle)) {
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	4954	if (!CloseHandle( _HANDLEVal(anIntegerOrHandle))) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4955	console_fprintf( stderr, "Win32OS [warning]: Could not close handle : %x\n", _HANDLEVal(anIntegerOrHandle));
7662 32a1185158f3 process handles Claus Gittinger <cg@exept.de> parents: 7645 diff changeset	4956	}
32a1185158f3 process handles Claus Gittinger <cg@exept.de> parents: 7645 diff changeset	4957	RETURN(self);
32a1185158f3 process handles Claus Gittinger <cg@exept.de> parents: 7645 diff changeset	4958	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4959	%}.
7662 32a1185158f3 process handles Claus Gittinger <cg@exept.de> parents: 7645 diff changeset	4960	^ self primitiveFailed.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4961	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4962
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4963	createDirectory:aPathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4964	"create a new directory with name 'aPathName', which may be an absolute
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4965	path, or relative to the current directory.
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4966	Return nil if successful (or the directory existed already), an OsErrorHolder otherwise.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4967	This is a low-level entry - use Filename protocol for compatibility."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4968
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4969	\|error\|
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4970
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4971	"/ if it already exists this is ok
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4972	(self isDirectory:aPathName) ifTrue:[^ nil].
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4973
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4974	%{
15543 196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	4975	SECURITY_ATTRIBUTES sa;
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4976	int success;
15543 196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	4977
196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	4978	sa.nLength = sizeof( sa );
196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	4979	sa.lpSecurityDescriptor = NULL;
196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	4980	// sa.bInheritHandle = TRUE;
196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	4981	sa.bInheritHandle = FALSE;
196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	4982
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	4983	if (__isStringLike(aPathName)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4984	success = CreateDirectoryA(__stringVal(aPathName), &sa);
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4985	} else if (__isUnicode16String(aPathName)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4986	wchar_t _wPathName[MAXPATHLEN+1];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4987
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4988	_makeWchar(aPathName, _wPathName, sizeof(_wPathName));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4989	success = CreateDirectoryW(_wPathName, &sa);
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4990	} else
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4991	goto err;
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4992
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4993	if (success == TRUE) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	4994	RETURN (nil);
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4995	}
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4996
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4997	error = __mkSmallInteger(__WIN32_ERR(GetLastError()));
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4998
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4999	err:;
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5000	%}.
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5001
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5002	error notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5003	LastErrorNumber := error.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5004	^ self errorHolderForNumber:error.
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5005	].
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5006
11617 0b0ea0b5235e unicode support for removeFile, removeDirectory, createFile and createDirectory Claus Gittinger <cg@exept.de> parents: 11609 diff changeset	5007	^ self primitiveFailed
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5008
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5009	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5010	OperatingSystem createDirectory:'foo'
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5011	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5012
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5013	"Modified: 20.12.1995 / 11:24:13 / stefan"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5014	"Modified: 29.6.1996 / 14:06:54 / cg"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5015	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5016
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5017	createFileForReadAppend:pathName
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5018	^ self openFile:pathName attributes:#(#'GENERIC_READ' #'GENERIC_WRITE')
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5019	!
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5020
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5021	createFileForReadWrite:pathName
6297 7d0a04fb50be * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5022	^ self openFile:pathName attributes:#(#'GENERIC_READ' #'GENERIC_WRITE' #'CREATE_ALWAYS')
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5023	!
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5024
13224 751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	5025	createHardLinkFrom:oldPath to:newPath
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	5026	"link the file 'oldPath' to 'newPath'. The link will be a hard link.
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5027	Return nil if successful, an OsErrorHolder if not."
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5028
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5029	(self executeCommand:('mklink/h "%1" "%2"' bindWith:newPath with:oldPath)) ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5030	^ OSErrorHolder errorSymbol:'mklink/h failed' errorCategory:nil.
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5031	].
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5032	^ nil.
13224 751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	5033
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	5034	"Created: / 19-01-2011 / 08:42:11 / cg"
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	5035	!
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	5036
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	5037	createSymbolicLinkFrom:oldPath to:newPath
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	5038	"make a link from the file 'oldPath' to the file 'newPath'.
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	5039	The link will be a soft (symbolic) link.
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5040	Return nil if successful, an OsErrorHolder if not.
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5041
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5042	Note: mklink needs special permissions or Administrator rights."
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5043
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5044	\|dirFlag\|
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5045
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5046	dirFlag := ''.
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5047	(self isDirectory:oldPath) ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5048	dirFlag := '/d'.
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5049	].
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5050
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5051	(self executeCommand:('mklink %3 "%1" "%2"' bindWith:newPath with:oldPath with:dirFlag)) ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5052	^ OSErrorHolder errorSymbol:'mklink failed' errorCategory:nil.
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5053	].
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5054	^ nil.
13224 751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	5055
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	5056	"Created: / 19-01-2011 / 08:41:44 / cg"
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	5057	!
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	5058
9475 c57956a348bf printing support fm parents: 9431 diff changeset	5059	getLastError
c57956a348bf printing support fm parents: 9431 diff changeset	5060	%{
c57956a348bf printing support fm parents: 9431 diff changeset	5061	RETURN ( __mkSmallInteger( __WIN32_ERR(GetLastError()) ));
c57956a348bf printing support fm parents: 9431 diff changeset	5062	%}.
c57956a348bf printing support fm parents: 9431 diff changeset	5063
c57956a348bf printing support fm parents: 9431 diff changeset	5064	"Created: / 31-07-2006 / 12:40:39 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	5065	!
c57956a348bf printing support fm parents: 9431 diff changeset	5066
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	5067	getLinkTarget:aPathName
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	5068	"given a filename, which represents a link-file (.lnk),
10161 fd6b02ffb383 avoid recursion Claus Gittinger <cg@exept.de> parents: 10160 diff changeset	5069	return its resolved path, or nil"
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	5070
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	5071	\|resolvedPath\|
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	5072
11253 ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	5073	%{ /* STACK:100000 */
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	5074
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	5075	static IShellLink * ipShellLink = NULL;
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	5076	static IPersistFile * ipPersistFile = NULL;
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	5077
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	5078	HRESULT hres;
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	5079	WIN32_FIND_DATA wfd;
13778 8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	5080	WORD wsz[MAXPATHLEN];
8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	5081	char szGotPath[MAXPATHLEN];
11215 b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	5082
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	5083	if (! __isStringLike(aPathName)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5084	console_fprintf(stderr, "OperatingSystem [info]: invalid argument\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5085	goto error;
11253 ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	5086	}
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	5087
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	5088	if( ! coInitialized ) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5089	console_fprintf(stderr, "OperatingSystem [info]: com not initialized\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5090	goto error;
11193 a432bfa95db0 CoInitialize -> coInitializeEx(MULTITHREADED) Claus Gittinger <cg@exept.de> parents: 11135 diff changeset	5091	}
a432bfa95db0 CoInitialize -> coInitializeEx(MULTITHREADED) Claus Gittinger <cg@exept.de> parents: 11135 diff changeset	5092
11253 ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	5093	if ( ipShellLink == NULL ) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5094	hres = CoCreateInstance(&CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5095	&IID_IShellLink, (LPVOID *)&ipShellLink);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5096	if (! SUCCEEDED(hres)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5097	console_fprintf(stderr, "OperatingSystem [info]: CoCreateInstance Error - hres = %08x\n", hres);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5098	ipShellLink = NULL;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5099	goto error;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5100	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5101
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5102	hres = ipShellLink->lpVtbl->QueryInterface( ipShellLink, &IID_IPersistFile, (void **)&ipPersistFile );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5103	if (! SUCCEEDED(hres)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5104	console_fprintf(stderr, "OperatingSystem [info]: QueryInterface Error - hres = %08x\n", hres);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5105	ipShellLink->lpVtbl->Release(ipShellLink);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5106	ipShellLink = NULL;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5107	ipPersistFile = NULL;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5108	goto error;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5109	}
11253 ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	5110	}
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	5111
13778 8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	5112	MultiByteToWideChar(CP_ACP, 0, __stringVal(aPathName), -1, wsz, MAXPATHLEN);
11253 ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	5113
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	5114	hres = ipPersistFile->lpVtbl->Load(ipPersistFile, wsz, STGM_READ);
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	5115
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	5116	if (SUCCEEDED(hres)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5117	hres = ipShellLink->lpVtbl->GetPath(ipShellLink, szGotPath, MAXPATHLEN,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5118	(WIN32_FIND_DATA )&wfd, 0 / SLGP_SHORTPATH */ );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5119	if (SUCCEEDED(hres)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5120	resolvedPath = __MKSTRING(szGotPath);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5121	} else {
11253 ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	5122	#ifdef COM_DEBUG
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5123	console_fprintf(stderr, "OperatingSystem [info]: GetPath failed - hres = %08x\n", hres );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5124	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5125	}
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	5126	} else {
11253 ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	5127	#ifdef COM_DEBUG
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5128	console_fprintf(stderr, "OperatingSystem [info]: Load failed - hres = %08x\n", hres );
11253 ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	5129	#endif
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	5130	}
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	5131	/* ipPersistFile->lpVtbl->Release(ipPersistFile); */
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	5132
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	5133	error: ;
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	5134	%}.
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	5135	resolvedPath notNil ifTrue:[^ resolvedPath ].
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	5136
10373 92efacf8b050 getLinkTarget is now done lazyly. Claus Gittinger <cg@exept.de> parents: 10365 diff changeset	5137	"/ self primitiveFailed.
92efacf8b050 getLinkTarget is now done lazyly. Claus Gittinger <cg@exept.de> parents: 10365 diff changeset	5138	^ nil.
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	5139
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	5140	"
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	5141	OperatingSystem getLinkTarget:'C:\Dokumente und Einstellungen\cg\Favoriten\Incoming.lnk'
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	5142	OperatingSystem getLinkTarget:'C:\Dokumente und Einstellungen\cg\Favoriten\cg auf G5.lnk'
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	5143	"
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	5144
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	5145	"Created: / 07-11-2006 / 10:52:44 / cg"
10373 92efacf8b050 getLinkTarget is now done lazyly. Claus Gittinger <cg@exept.de> parents: 10365 diff changeset	5146	"Modified: / 07-02-2007 / 10:37:48 / cg"
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	5147	!
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	5148
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5149	openFile:pathName attributes:attributeSpec
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5150	"non public internal helper.
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5151	open a file, return an os specific fileHandle.
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5152	attributes is a collection of symbols specifying how the file is
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5153	to be opened."
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5154
6297 7d0a04fb50be * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5155	\|fileHandle errorNumber argumentError\|
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5156
22253 e1b728149a94 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 22248 diff changeset	5157	fileHandle := Win32FileHandle new.
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5158
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5159	%{
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5160	HANDLE h;
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	5161	char _pathNameBuffer[MAXPATHLEN+1];
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	5162	wchar_t _wPathNameBuffer[MAXPATHLEN+1];
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5163	char *name;
25341 6c9eae7e45a3 bugfix, using pointer instead of char sr parents: 25339 diff changeset	5164	wchar_t *wName;
11810 24927b757d9b Fix for bad arguments Stefan Vogel <sv@exept.de> parents: 11804 diff changeset	5165	OBJ *ap;
24927b757d9b Fix for bad arguments Stefan Vogel <sv@exept.de> parents: 11804 diff changeset	5166	int numAttrib;
11617 0b0ea0b5235e unicode support for removeFile, removeDirectory, createFile and createDirectory Claus Gittinger <cg@exept.de> parents: 11609 diff changeset	5167	int i, l;
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5168	DWORD access, share, create, attr;
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5169
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	5170	if (__isStringLike(pathName)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5171	name = __stringVal(pathName);
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	5172	if (strlen(name) < MAXPATHLEN) {
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	5173	strncpy(_pathNameBuffer, name, sizeof(_pathNameBuffer));
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	5174	name = _pathNameBuffer;
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	5175	} // else: CreateA will use object's string (and execute uninterruptable)
11617 0b0ea0b5235e unicode support for removeFile, removeDirectory, createFile and createDirectory Claus Gittinger <cg@exept.de> parents: 11609 diff changeset	5176	} else if (__isUnicode16String(pathName)) {
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	5177	_makeWchar(pathName, _wPathNameBuffer, sizeof(_wPathNameBuffer));
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	5178	wName = _wPathNameBuffer;
11617 0b0ea0b5235e unicode support for removeFile, removeDirectory, createFile and createDirectory Claus Gittinger <cg@exept.de> parents: 11609 diff changeset	5179	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5180	fileHandle = nil;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5181	argumentError = @symbol(badPathName);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5182	goto badArgument;
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5183	}
11810 24927b757d9b Fix for bad arguments Stefan Vogel <sv@exept.de> parents: 11804 diff changeset	5184
8934 32a063645991 * empty log message * Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	5185	if (! __isArrayLike(attributeSpec)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5186	fileHandle = nil;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5187	argumentError = @symbol(badAttributeSpec);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5188	goto badArgument;
11617 0b0ea0b5235e unicode support for removeFile, removeDirectory, createFile and createDirectory Claus Gittinger <cg@exept.de> parents: 11609 diff changeset	5189	}
11810 24927b757d9b Fix for bad arguments Stefan Vogel <sv@exept.de> parents: 11804 diff changeset	5190	ap = __ArrayInstPtr(attributeSpec)->a_element;
24927b757d9b Fix for bad arguments Stefan Vogel <sv@exept.de> parents: 11804 diff changeset	5191	numAttrib = __arraySize(attributeSpec);
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5192
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5193	share = 0;
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5194	access = 0;
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5195	create = 0;
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5196	attr = 0;
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5197
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5198	for (i=0; i<numAttrib;i++) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5199	OBJ attrSym = ap[i];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5200
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5201	if (attrSym == @symbol(FILE_SHARE_READ)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5202	share \|= FILE_SHARE_READ;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5203	} else if (attrSym == @symbol(FILE_SHARE_WRITE)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5204	share \|= FILE_SHARE_WRITE;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5205
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5206	} else if (attrSym == @symbol(GENERIC_READ)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5207	access \|= GENERIC_READ;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5208	} else if (attrSym == @symbol(GENERIC_WRITE)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5209	access \|= GENERIC_WRITE;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5210
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5211	} else if (attrSym == @symbol(CREATE_NEW)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5212	create \|= CREATE_NEW;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5213	} else if (attrSym == @symbol(CREATE_ALWAYS)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5214	create \|= CREATE_ALWAYS;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5215	} else if (attrSym == @symbol(OPEN_EXISTING)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5216	create \|= OPEN_EXISTING;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5217	} else if (attrSym == @symbol(OPEN_ALWAYS)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5218	create \|= OPEN_ALWAYS;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5219	} else if (attrSym == @symbol(TRUNCATE_EXISTING)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5220	create \|= TRUNCATE_EXISTING;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5221
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5222	} else if (attrSym == @symbol(FILE_ATTRIBUTE_HIDDEN)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5223	attr \|= FILE_ATTRIBUTE_HIDDEN;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5224	} else if (attrSym == @symbol(FILE_ATTRIBUTE_READONLY)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5225	attr \|= FILE_ATTRIBUTE_READONLY;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5226	} else if (attrSym == @symbol(FILE_ATTRIBUTE_READONLY)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5227	attr \|= FILE_ATTRIBUTE_READONLY;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5228	} else if (attrSym == @symbol(FILE_FLAG_WRITE_THROUGH)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5229	attr \|= FILE_FLAG_WRITE_THROUGH;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5230	} else if (attrSym == @symbol(FILE_FLAG_SEQUENTIAL_SCAN)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5231	attr \|= FILE_FLAG_SEQUENTIAL_SCAN;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5232	} else if (attrSym == @symbol(FILE_FLAG_DELETE_ON_CLOSE)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5233	attr \|= FILE_FLAG_DELETE_ON_CLOSE;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5234	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5235	console_fprintf(stderr, "Win32OS [warning]: unsupported open mode\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5236	}
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5237	}
6297 7d0a04fb50be * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5238	if (create == 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5239	fileHandle = nil;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5240	argumentError = @symbol(missingCreateMode);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5241	goto badArgument;
6297 7d0a04fb50be * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5242	}
8792 6852892b27cd * empty log message * Claus Gittinger <cg@exept.de> parents: 8783 diff changeset	5243	#ifdef PROCESSDEBUGWIN32
20896 c88fbd0cb367 * empty log message * Claus Gittinger <cg@exept.de> parents: 20677 diff changeset	5244	if (flag_PROCESSDEBUGWIN32) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5245	console_fprintf(stderr, "name:<%s> access:%x share:%x create:%x attr:%x\n",
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5246	name, access, share, create, attr);
20896 c88fbd0cb367 * empty log message * Claus Gittinger <cg@exept.de> parents: 20677 diff changeset	5247	}
11617 0b0ea0b5235e unicode support for removeFile, removeDirectory, createFile and createDirectory Claus Gittinger <cg@exept.de> parents: 11609 diff changeset	5248	#endif
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	5249	if (__isStringLike(pathName)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5250	h = CreateFileA(name, access, share, 0 /* sa /, create, attr, 0 / hTempl */);
11617 0b0ea0b5235e unicode support for removeFile, removeDirectory, createFile and createDirectory Claus Gittinger <cg@exept.de> parents: 11609 diff changeset	5251	} else {
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	5252	h = CreateFileW(wName, access, share, 0 /* sa /, create, attr, 0 / hTempl */);
11617 0b0ea0b5235e unicode support for removeFile, removeDirectory, createFile and createDirectory Claus Gittinger <cg@exept.de> parents: 11609 diff changeset	5253	}
0b0ea0b5235e unicode support for removeFile, removeDirectory, createFile and createDirectory Claus Gittinger <cg@exept.de> parents: 11609 diff changeset	5254
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5255	if (h != INVALID_HANDLE_VALUE) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5256	__externalAddressVal(fileHandle) = (void *)h;
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5257	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5258	fileHandle = nil;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5259	errorNumber = __mkSmallInteger( __WIN32_ERR(GetLastError()) );
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5260	}
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5261
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5262	badArgument: ;
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5263	%}.
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5264	fileHandle notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5265	fileHandle registerForFinalization.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5266	^ fileHandle.
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5267	].
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5268	errorNumber isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5269	self error:'invalid argument(s): ', argumentError.
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5270	] ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5271	(self errorHolderForNumber:errorNumber) reportError
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5272	].
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5273	!
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5274
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5275	openFileForAppend:pathName
8412 cb1f92123250 Fix getting home directory if it is on a network share. Stefan Vogel <sv@exept.de> parents: 8360 diff changeset	5276	"noone sends this message yet"
cb1f92123250 Fix getting home directory if it is on a network share. Stefan Vogel <sv@exept.de> parents: 8360 diff changeset	5277
cb1f92123250 Fix getting home directory if it is on a network share. Stefan Vogel <sv@exept.de> parents: 8360 diff changeset	5278	^ self shouldImplement
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5279	!
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5280
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5281	openFileForRead:pathName
6297 7d0a04fb50be * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	5282	^ self openFile:pathName attributes:#(#'GENERIC_READ' #'OPEN_EXISTING')
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5283	!
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5284
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5285	openFileForReadAppend:pathName
8412 cb1f92123250 Fix getting home directory if it is on a network share. Stefan Vogel <sv@exept.de> parents: 8360 diff changeset	5286	"noone sends this message yet"
cb1f92123250 Fix getting home directory if it is on a network share. Stefan Vogel <sv@exept.de> parents: 8360 diff changeset	5287
cb1f92123250 Fix getting home directory if it is on a network share. Stefan Vogel <sv@exept.de> parents: 8360 diff changeset	5288	^ self shouldImplement
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5289	!
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5290
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5291	openFileForReadWrite:pathName
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5292	^ self openFile:pathName attributes:#(#'GENERIC_READ' #'GENERIC_WRITE')
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5293	!
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5294
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5295	openFileForWrite:pathName
6304 c51a3d81ba5b * empty log message * Claus Gittinger <cg@exept.de> parents: 6297 diff changeset	5296	^ self openFile:pathName attributes:#(#'GENERIC_WRITE' #'OPEN_EXISTING')
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5297	!
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	5298
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5299	recursiveCopyDirectory:sourcePathName to:destination
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5300	"copy the directory named 'sourcePathName' and all contained files/directories to 'destination'.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5301	Return true if successful."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5302
18979 b07c5e5e2782 #BUGFIX Stefan Vogel <sv@exept.de> parents: 18964 diff changeset	5303	^ OperatingSystem executeCommand:('xcopy %1 %2 /q /s /e /h /r /o /g /y' bindWith:sourcePathName with:destination)
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5304	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5305
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5306	removeDirectory:fullPathName
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5307	"remove the directory named 'fullPathName'.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5308	The directory must be empty and you must have appropriate access rights.
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5309	Return nil if successful, an OSErrorHolder if directory is not empty or no permission.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5310	This is a lowLevel entry - use Filename protocol for compatibility."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5311
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5312	\|error\|
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5313
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5314	%{
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5315	int success;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5316
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	5317	if (__isStringLike(fullPathName)) {
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5318	#ifdef DO_WRAP_CALLS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5319	{
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	5320	char _aPathName[MAXPATHLEN+1];
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	5321
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	5322	strncpy(_aPathName, __stringVal(fullPathName), MAXPATHLEN); _aPathName[MAXPATHLEN] = '\0';
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5323	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5324	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5325	success = (int)STX_API_NOINT_CALL1( "RemoveDirectoryA", RemoveDirectoryA, _aPathName);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5326	} while ((success < 0) && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5327	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5328	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5329	success = RemoveDirectoryA((char *)__stringVal(fullPathName));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5330	if (!success) __threadErrno = __WIN32_ERR(GetLastError());
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5331	#endif
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	5332	} else if (__isUnicode16String(fullPathName)) {
11617 0b0ea0b5235e unicode support for removeFile, removeDirectory, createFile and createDirectory Claus Gittinger <cg@exept.de> parents: 11609 diff changeset	5333	#ifdef DO_WRAP_CALLS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5334	{
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5335	wchar_t _wPathName[MAXPATHLEN+1];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5336
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5337	_makeWchar(fullPathName, _wPathName, sizeof(_wPathName));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5338	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5339	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5340	success = (int)STX_API_NOINT_CALL1( "RemoveDirectoryW", RemoveDirectoryW, _wPathName);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5341	} while ((success < 0) && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5342	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5343	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5344	success = RemoveDirectoryW((wchar_t *)__unicode16StringVal(fullPathName));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5345	if (!success) __threadErrno = __WIN32_ERR(GetLastError());
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5346	#endif
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5347	}
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5348
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5349	if (success == TRUE) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5350	RETURN (nil);
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5351	}
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5352
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5353	error = __mkSmallInteger(__threadErrno);
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5354	%}.
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5355
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5356	error notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5357	LastErrorNumber := error.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5358	^ self errorHolderForNumber:error.
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5359	].
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5360
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5361	"/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5362	"/ either not a string argument,
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5363	"/ or not supported by OS
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5364	"/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5365	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5366
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5367	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5368	OperatingSystem createDirectory:'foo'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5369	OperatingSystem removeDirectory:'foo'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5370	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5371	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5372
22942 776f3c8d88de remove file: care for AntiVir scanning Claus Gittinger <cg@exept.de> parents: 22690 diff changeset	5373	removeFile:fullPathName
776f3c8d88de remove file: care for AntiVir scanning Claus Gittinger <cg@exept.de> parents: 22690 diff changeset	5374	"redefined to retrying the remove multiple times after some delay.
776f3c8d88de remove file: care for AntiVir scanning Claus Gittinger <cg@exept.de> parents: 22690 diff changeset	5375	Needed because under windows, an AntiVirus process might be scaning the
776f3c8d88de remove file: care for AntiVir scanning Claus Gittinger <cg@exept.de> parents: 22690 diff changeset	5376	file currently, and we cannot remove the file while this is ongoing.
776f3c8d88de remove file: care for AntiVir scanning Claus Gittinger <cg@exept.de> parents: 22690 diff changeset	5377	Q: is there a better way do do this (i.e. figure out why the remove failed)."
776f3c8d88de remove file: care for AntiVir scanning Claus Gittinger <cg@exept.de> parents: 22690 diff changeset	5378
22956 55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	5379	\|retryCtr lastErrorHolder\|
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	5380
22942 776f3c8d88de remove file: care for AntiVir scanning Claus Gittinger <cg@exept.de> parents: 22690 diff changeset	5381	retryCtr := 10.
776f3c8d88de remove file: care for AntiVir scanning Claus Gittinger <cg@exept.de> parents: 22690 diff changeset	5382
22956 55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	5383	[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5384	\|linkInfo\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5385
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5386	lastErrorHolder := self basicRemoveFile:fullPathName.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5387	lastErrorHolder isNil ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5388	"succesfully removed"
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5389	^ nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5390	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5391
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5392	retryCtr := retryCtr - 1.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5393
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5394	linkInfo := self linkInfoOf:fullPathName.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5395	(linkInfo isNil "/ file does not exist
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5396	or:[linkInfo isDirectory "/ cannot remove directory
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5397	or:[(self isWritable:fullPathName) not]]) ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5398	"when the file is not writable, we know defintely,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5399	that the remove fails - no need to retry"
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5400	^ lastErrorHolder
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5401	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5402
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5403	Transcript showCR:('error caught while removing %1: %2'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5404	bindWith:fullPathName with:lastErrorHolder).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5405
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5406	Delay waitForSeconds:0.1.
22956 55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	5407	] doWhile:[retryCtr > 0].
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	5408
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	5409	^ lastErrorHolder.
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	5410
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	5411	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5412	self removeFile:'c:\windows'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5413	self removeFile:'CVS'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5414	self removeFile:'.....xxxxx.....Murks'
22956 55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	5415	"
22942 776f3c8d88de remove file: care for AntiVir scanning Claus Gittinger <cg@exept.de> parents: 22690 diff changeset	5416	!
776f3c8d88de remove file: care for AntiVir scanning Claus Gittinger <cg@exept.de> parents: 22690 diff changeset	5417
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5418	renameFile:oldPath to:newPath
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5419	"rename the file 'oldPath' to 'newPath'.
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5420	Someone else has to care for the names to be correct and
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5421	correct for the OS used - therefore, this should not be called
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5422	directlt. Instead, use Filename protocol to rename; this cares for
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5423	any invalid names.
21049 e36caa17b4b7 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21043 diff changeset	5424	Returns nil if successful, an OsErrorHolder if not"
e36caa17b4b7 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21043 diff changeset	5425
e36caa17b4b7 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21043 diff changeset	5426	\|error\|
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5427
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5428	%{
21043 1c1cec4aba39 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20975 diff changeset	5429	int success;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5430
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	5431	if (__isStringLike(oldPath) && __isStringLike(newPath)) {
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5432	#ifdef DO_WRAP_CALLS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5433	char _oldPath[MAXPATHLEN], _newPath[MAXPATHLEN];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5434
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5435	strncpy(_oldPath, __stringVal(oldPath), MAXPATHLEN-1); _oldPath[MAXPATHLEN-1] = '\0';
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5436	strncpy(_newPath, __stringVal(newPath), MAXPATHLEN-1); _newPath[MAXPATHLEN-1] = '\0';
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5437
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5438	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5439	success = STX_API_NOINT_CALL2("MoveFileA", MoveFileA, _oldPath, _newPath);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5440	} while (success < 0 && __threadErrno == EINTR);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5441	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5442	__BEGIN_INTERRUPTABLE__
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5443	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5444	success = MoveFileA((char ) __stringVal(oldPath), (char ) __stringVal(newPath));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5445	} while (success < 0 && __threadErrno == EINTR);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5446	__END_INTERRUPTABLE__
20389 1104e43dbe9c #DOCUMENTATION by stefan Stefan Vogel <sv@exept.de> parents: 20375 diff changeset	5447	#endif
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	5448	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5449	wchar_t _oldPathW[MAXPATHLEN], _newPathW[MAXPATHLEN];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5450
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5451	if (_makeWchar(oldPath, _oldPathW, sizeof(_oldPathW)) < 0
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5452	\|\| _makeWchar(newPath, _newPathW, sizeof(_newPathW)) < 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5453	goto err;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5454	}
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	5455	#ifdef DO_WRAP_CALLS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5456	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5457	success = STX_API_NOINT_CALL2( "MoveFileW", MoveFileW, _oldPathW, _newPathW);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5458	} while (success < 0 && __threadErrno == EINTR);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5459	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5460	__BEGIN_INTERRUPTABLE__
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5461	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5462	success = MoveFileW(_oldPathW, _newPathW);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5463	} while (success < 0 && __threadErrno == EINTR);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5464	__END_INTERRUPTABLE__
21043 1c1cec4aba39 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20975 diff changeset	5465	#endif
1c1cec4aba39 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20975 diff changeset	5466	}
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5467	if (success > 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5468	RETURN (nil);
21049 e36caa17b4b7 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21043 diff changeset	5469	}
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5470	error = __mkSmallInteger(__threadErrno);
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	5471
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	5472	err:;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5473	%}.
21049 e36caa17b4b7 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21043 diff changeset	5474
e36caa17b4b7 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21043 diff changeset	5475	error notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5476	LastErrorNumber := error.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5477	^ self errorHolderForNumber:error.
21049 e36caa17b4b7 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21043 diff changeset	5478	].
e36caa17b4b7 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21043 diff changeset	5479
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5480	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5481
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5482	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5483	OperatingSystem renameFile:'foo' to:'bar'
21043 1c1cec4aba39 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20975 diff changeset	5484	OperatingSystem renameFile:'c:\windows' to:'c:\win'
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5485	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5486	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5487
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5488	truncateFile:aPathName to:newSize
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5489	"change a files size return true on success, false on failure.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5490	This may not be supported on all architectures.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5491
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5492	This is a low-level entry - use Filename protocol."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5493
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5494	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5495	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5496
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5497	!Win32OperatingSystem class methodsFor:'file access rights'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5498
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5499	accessMaskFor:aSymbol
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5500	"return the access bits mask for numbers as returned by
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5501	OperatingSystem>>accessModeOf:
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5502	and expected by OperatingSystem>>changeAccessModeOf:to:.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5503	Since these numbers are OS dependent, always use the mask
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5504	(never hardcode 8rxxx into your code)."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5505
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5506	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5507	/* posix systems should define these ... */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5508	# ifndef S_IRUSR
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5509	# define S_IRUSR 0400
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5510	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5511	# ifndef S_IWUSR
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5512	# define S_IWUSR 0200
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5513	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5514	# ifndef S_IXUSR
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5515	# define S_IXUSR 0100
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5516	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5517	# ifndef S_IRGRP
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5518	# define S_IRGRP 0040
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5519	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5520	# ifndef S_IWGRP
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5521	# define S_IWGRP 0020
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5522	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5523	# ifndef S_IXGRP
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5524	# define S_IXGRP 0010
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5525	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5526	# ifndef S_IROTH
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5527	# define S_IROTH 0004
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5528	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5529	# ifndef S_IWOTH
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5530	# define S_IWOTH 0002
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5531	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5532	# ifndef S_IXOTH
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5533	# define S_IXOTH 0001
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5534	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5535
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5536	if (aSymbol == @symbol(readUser)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5537	RETURN ( __mkSmallInteger(S_IRUSR) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5538	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5539	if (aSymbol == @symbol(writeUser)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5540	RETURN ( __mkSmallInteger(S_IWUSR) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5541	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5542	if (aSymbol == @symbol(executeUser)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5543	RETURN ( __mkSmallInteger(S_IXUSR) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5544	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5545	if (aSymbol == @symbol(readGroup)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5546	RETURN ( __mkSmallInteger(S_IRGRP) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5547	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5548	if (aSymbol == @symbol(writeGroup)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5549	RETURN ( __mkSmallInteger(S_IWGRP) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5550	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5551	if (aSymbol == @symbol(executeGroup)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5552	RETURN ( __mkSmallInteger(S_IXGRP) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5553	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5554	if (aSymbol == @symbol(readOthers)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5555	RETURN ( __mkSmallInteger(S_IROTH) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5556	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5557	if (aSymbol == @symbol(writeOthers)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5558	RETURN ( __mkSmallInteger(S_IWOTH) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5559	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5560	if (aSymbol == @symbol(executeOthers)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5561	RETURN ( __mkSmallInteger(S_IXOTH) );
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	5562	}
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	5563
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	5564	// These are not defined for Win32 - simply ignore them
10664 1b41c869040a More file access mode definitions Stefan Vogel <sv@exept.de> parents: 10627 diff changeset	5565	// (but handle them for UNIX compatibility
1b41c869040a More file access mode definitions Stefan Vogel <sv@exept.de> parents: 10627 diff changeset	5566	if (aSymbol == @symbol(setUid)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5567	RETURN ( __mkSmallInteger(0) );
10664 1b41c869040a More file access mode definitions Stefan Vogel <sv@exept.de> parents: 10627 diff changeset	5568	}
1b41c869040a More file access mode definitions Stefan Vogel <sv@exept.de> parents: 10627 diff changeset	5569	if (aSymbol == @symbol(setGid)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5570	RETURN ( __mkSmallInteger(0) );
10664 1b41c869040a More file access mode definitions Stefan Vogel <sv@exept.de> parents: 10627 diff changeset	5571	}
1b41c869040a More file access mode definitions Stefan Vogel <sv@exept.de> parents: 10627 diff changeset	5572	if (aSymbol == @symbol(removeOnlyByOwner)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5573	RETURN ( __mkSmallInteger(0) );
10664 1b41c869040a More file access mode definitions Stefan Vogel <sv@exept.de> parents: 10627 diff changeset	5574	}
1b41c869040a More file access mode definitions Stefan Vogel <sv@exept.de> parents: 10627 diff changeset	5575
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5576	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5577	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5578
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5579	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5580	OperatingSystem accessMaskFor:#readUser
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5581	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5582	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5583
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5584	accessModeOf:aPathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5585	"return a number representing access rights rwxrwxrwx for owner,
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5586	group and others. Return nil if such a file does not exist.
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5587	Notice that the returned number is OS dependent - use the
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5588	modeMasks as returned by OperatingSystem>>accessMaskFor:"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5589
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5590	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5591	this could have been implemented as:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5592	(self infoOf:aPathName) at:#mode
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5593	but for huge directory searches the code below is faster
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5594	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5595
21073 488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5596	\|error\|
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5597
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5598	%{
10449 41456eed5b53 chmod def for WIN32/msvc Claus Gittinger <cg@exept.de> parents: 10448 diff changeset	5599	struct stat buf;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5600	int ret;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5601
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	5602	if (__isStringLike(aPathName)) {
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5603	#ifdef DO_WRAP_CALLS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5604	char _aPathName[MAXPATHLEN];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5605
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5606	strncpy(_aPathName, __stringVal(aPathName), MAXPATHLEN-1); _aPathName[MAXPATHLEN-1] = '\0';
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5607
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5608	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5609	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5610	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5611	ret = STX_C_NOINT_CALL2( "_stat", _stat, _aPathName, &buf);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5612	} while ((ret < 0) && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5613	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5614	__BEGIN_INTERRUPTABLE__
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5615	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5616	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5617	ret = _stat( (char *)__stringVal(aPathName), &buf);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5618	} while ((ret < 0) && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5619	__END_INTERRUPTABLE__
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5620	if (ret < 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5621	__threadErrno = __WIN32_ERR(GetLastError());
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5622	}
21073 488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5623	#endif
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	5624	} else if (__isUnicode16String(aPathName)) {
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	5625	#ifdef DO_WRAP_CALLS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5626	char _wPathName[MAXPATHLEN];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5627
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5628	_makeWchar(aPathName, _wPathName, sizeof(_wPathName));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5629
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5630	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5631	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5632	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5633	ret = STX_C_NOINT_CALL2( "_wstat", _wstat, _wPathName, &buf);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5634	} while ((ret < 0) && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5635	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5636	__BEGIN_INTERRUPTABLE__
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5637	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5638	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5639	ret = _wstat((char *)__unicode16StringVal(aPathName), &buf);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5640	} while ((ret < 0) && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5641	__END_INTERRUPTABLE__
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5642	if (ret < 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5643	__threadErrno = __WIN32_ERR(GetLastError());
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5644	}
21073 488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5645	#endif
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5646	} else
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5647	goto out;
21073 488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5648
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5649	if (ret >= 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5650	RETURN ( __mkSmallInteger(buf.st_mode & 0777) );
21073 488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5651	}
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5652	error = __mkSmallInteger(__threadErrno);
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5653	out:;
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5654	%}.
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5655
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5656	error notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5657	LastErrorNumber := error.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5658	^ self errorHolderForNumber:error.
21073 488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5659	].
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5660
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5661	^ self primitiveFailed
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5662
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5663	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5664	(OperatingSystem accessModeOf:'/') printStringRadix:8
21073 488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5665	(OperatingSystem accessModeOf:'foo') printStringRadix:8
10449 41456eed5b53 chmod def for WIN32/msvc Claus Gittinger <cg@exept.de> parents: 10448 diff changeset	5666	(OperatingSystem accessModeOf:'Make.proto') printStringRadix:8
21073 488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5667	(OperatingSystem changeAccessModeOf:'foo' to:8r644)
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	5668	'Make.proto' asUnicode16String asFilename accessRights printStringRadix:8
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5669	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5670	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5671
15500 f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5672	accessModeOfFd:aFileDescriptor
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5673	"return a number representing access rights rwxrwxrwx for owner,
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5674	group and others. Return nil if such a file does not exist.
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5675	Notice that the returned number is OS dependent - use the
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5676	modeMasks as returned by OperatingSystem>>accessMaskFor:"
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5677
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5678	"
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5679	this could have been implemented as:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5680	(self infoOf:aPathName) at:#mode
15500 f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5681	but for huge directory searches the code below is faster
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5682	"
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5683
21073 488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5684	\|error\|
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5685
15500 f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5686	%{
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5687	struct stat buf;
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5688	int ret;
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5689
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5690	if (__isSmallInteger(aFileDescriptor)) {
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5691	#ifdef DO_WRAP_CALLS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5692	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5693	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5694	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5695	ret = STX_C_NOINT_CALL2( "fstat", fstat, __smallIntegerVal(aFileDescriptor), &buf);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5696	} while ((ret < 0) && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5697	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5698	__BEGIN_INTERRUPTABLE__
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5699	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5700	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5701	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5702	ret = fstat( __smallIntegerVal(aFileDescriptor), &buf);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5703	} while ((ret < 0) && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5704	__END_INTERRUPTABLE__
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5705	if (ret < 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5706	__threadErrno = __WIN32_ERR(GetLastError());
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5707	}
21073 488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5708	#endif
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5709	} else
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5710	goto out;
21073 488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5711
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5712	if (ret >= 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5713	RETURN ( __mkSmallInteger(buf.st_mode & 0777) );
21073 488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5714	}
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5715	error = __mkSmallInteger(__threadErrno);
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5716	out:;
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5717	%}.
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5718
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5719	error notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5720	LastErrorNumber := error.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5721	^ self errorHolderForNumber:error.
21073 488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5722	].
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5723	^ self primitiveFailed
15500 f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5724
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5725	"
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5726	'c:\windows' asFilename readingFileDo:[:s\|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5727	(OperatingSystem accessModeOfFd:s fileDescriptor) printStringRadix:8.
15500 f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5728	].
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5729	'Make.proto' asFilename readingFileDo:[:s\|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5730	(OperatingSystem accessModeOfFd:s fileDescriptor) printStringRadix:8.
15500 f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5731	].
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5732	(OperatingSystem changeAccessModeOf:'Make.proto' to:8r644)
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5733	"
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5734	!
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5735
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5736	changeAccessModeOf:aPathName to:modeBits
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5737	"change the access rights of aPathName to the OS dependent modeBits.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5738	You should construct this mask using accessMaskFor, to be OS
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5739	independent. Return nil if changed,
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5740	an OsErrorHolder if such a file does not exist or change was not allowd."
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5741
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5742	\|error\|
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5743
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5744	%{
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5745	int ret;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5746
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	5747	if (__isSmallInteger(modeBits)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5748	if (__isStringLike(aPathName)) {
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5749	#ifdef DO_WRAP_CALLS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5750	int _chmod();
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5751	char _aPathName[MAXPATHLEN];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5752
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5753	strncpy(_aPathName, __stringVal(aPathName), MAXPATHLEN-1); _aPathName[MAXPATHLEN-1] = '\0';
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5754	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5755	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5756	ret = STX_C_NOINT_CALL2( "_chmod", _chmod, _aPathName, __intVal(modeBits));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5757	} while ((ret < 0) && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5758	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5759	__BEGIN_INTERRUPTABLE__
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5760	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5761	ret = _chmod((char *)__stringVal(aPathName), __intVal(modeBits));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5762	} while ((ret < 0) && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5763	__END_INTERRUPTABLE__
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5764	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5765	} else if (__isUnicode16String(aPathName)) {
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5766	#ifdef DO_WRAP_CALLS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5767	int _wchmod();
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5768	char _wPathName[MAXPATHLEN];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5769
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5770	_makeWchar(aPathName, _wPathName, sizeof(_wPathName));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5771	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5772	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5773	ret = STX_C_NOINT_CALL2( "_wchmod", _wchmod, _wPathName, __intVal(modeBits));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5774	} while ((ret < 0) && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5775	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5776	__BEGIN_INTERRUPTABLE__
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5777	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5778	ret = _chmod((wchar_t *)__unicode16StringVal(fullPathName), __intVal(modeBits));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5779	} while ((ret < 0) && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5780	__END_INTERRUPTABLE__
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5781	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5782	} else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5783	goto out;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5784
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5785	if (ret >= 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5786	RETURN (nil);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5787	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5788
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5789	error = __mkSmallInteger(__threadErrno);
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5790	}
21073 488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5791	out:;
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5792	%}.
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5793
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5794	error notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5795	LastErrorNumber := error.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5796	^ self errorHolderForNumber:error.
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5797	].
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5798
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	5799	^ self primitiveFailed:#argumentError
10449 41456eed5b53 chmod def for WIN32/msvc Claus Gittinger <cg@exept.de> parents: 10448 diff changeset	5800
41456eed5b53 chmod def for WIN32/msvc Claus Gittinger <cg@exept.de> parents: 10448 diff changeset	5801	"
41456eed5b53 chmod def for WIN32/msvc Claus Gittinger <cg@exept.de> parents: 10448 diff changeset	5802	(OperatingSystem accessModeOf:'Make.proto') printStringRadix:8
41456eed5b53 chmod def for WIN32/msvc Claus Gittinger <cg@exept.de> parents: 10448 diff changeset	5803	(OperatingSystem changeAccessModeOf:'Make.proto' to:8r644)
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	5804	'Make.proto' asUnicode16String asFilename accessRights
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	5805	'Make.proto' asUnicode16String asFilename accessRights:8r644
10449 41456eed5b53 chmod def for WIN32/msvc Claus Gittinger <cg@exept.de> parents: 10448 diff changeset	5806	"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5807	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5808
23721 2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5809	!Win32OperatingSystem class methodsFor:'file attribute setting'!
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5810
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5811	clearHidden:aPathName
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5812	"set the hidden attribute; Return true if the operation succeeded"
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5813
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5814	\|attr\|
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5815
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5816	attr := self primGetFileAttributes:aPathName.
25095 ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	5817	^ attr notNil
24371 b38f6de3d73d #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24124 diff changeset	5818	and:[(attr bitTest:FILE_ATTRIBUTE_HIDDEN) not "already unset"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5819	or:[self primSetFileAttributes:aPathName to:(attr bitClear:FILE_ATTRIBUTE_HIDDEN)]].
23721 2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5820
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5821	"Created: / 29-07-2010 / 11:31:55 / sr"
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5822	"Modified: / 12-02-2019 / 12:48:51 / Stefan Vogel"
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5823	!
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5824
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5825	setHidden:aPathName
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5826	"set the hidden attribute. Return true if the operation succeeded"
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5827
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5828	\|attr\|
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5829
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5830	attr := self primGetFileAttributes:aPathName.
25095 ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	5831	^ attr notNil
24371 b38f6de3d73d #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24124 diff changeset	5832	and:[(attr bitTest:FILE_ATTRIBUTE_HIDDEN) "already set"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5833	or:[self primSetFileAttributes:aPathName to:(attr bitOr:FILE_ATTRIBUTE_HIDDEN)]].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5834
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5835	"
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5836	self setHidden:'murks'
24371 b38f6de3d73d #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24124 diff changeset	5837	"
23721 2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5838
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5839	"Modified: / 29-07-2010 / 11:32:26 / sr"
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5840	"Modified: / 12-02-2019 / 12:46:59 / Stefan Vogel"
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5841	!
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5842
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5843	setTemporary:aPathName
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5844	"set the temporary attribute of aPathName.
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5845	Answer true on success."
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5846
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5847	\|attr\|
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5848
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5849	attr := self primGetFileAttributes:aPathName.
25095 ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	5850	^ attr notNil
24371 b38f6de3d73d #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24124 diff changeset	5851	and:[(attr bitTest:FILE_ATTRIBUTE_TEMPORARY) "already set"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5852	or:[self primSetFileAttributes:aPathName to:(attr bitOr:FILE_ATTRIBUTE_TEMPORARY)]].
23721 2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5853
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5854	"Modified: / 12-02-2019 / 12:49:29 / Stefan Vogel"
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5855	! !
2be26425bf83 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23639 diff changeset	5856
10913 b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5857	!Win32OperatingSystem class methodsFor:'file dialogs'!
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5858
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5859	commDlgExtendedError
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5860
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5861	<apicall: ulong "CommDlgExtendedError" () module: "comdlg32.dll" >
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5862	^self primitiveFailed
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5863	!
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5864
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5865	getOpenFilename: openFilenameStructureExternalAddress
19651 59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	5866	"Opens a windows native file dialog without blocking stx
19416 90a164f523de #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 19369 diff changeset	5867	for an OpenFilenameStructure stored in an externalStructure"
10913 b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5868
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5869	\| rslt \|
15983 294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5870
10913 b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5871	%{ /* STACK: 32000*/
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5872
15983 294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5873	void *__address;
15543 196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	5874	int __rslt;
10913 b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5875
15983 294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5876	if (__isExternalAddressLike(openFilenameStructureExternalAddress)
16337 40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	5877	\|\| __isExternalBytesLike(openFilenameStructureExternalAddress)){
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5878	__address = __externalAddressVal(openFilenameStructureExternalAddress);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5879	__rslt = __STX_API_CALL1( "GetOpenFileNameA", (void *)GetOpenFileNameA, __address);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5880
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5881	if (__rslt == TRUE) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5882	rslt = true;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5883	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5884	rslt = false;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5885	}
15983 294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5886	}
294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5887	%}.
294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5888	rslt isNil ifTrue:[ self primitiveFailed ].
10913 b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5889	^ rslt
15983 294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5890
294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5891	"Modified (format): / 11-02-2014 / 21:18:02 / cg"
10913 b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5892	!
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5893
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5894	getSaveFilename: openFilenameStructureExternalAddress
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5895
19651 59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	5896	"Opens a windows native file dialog without blocking stx
19416 90a164f523de #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 19369 diff changeset	5897	for an OpenFilenameStructure stored in an externalStructure."
10913 b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5898
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5899	\| rslt \|
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5900
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5901	%{ /* STACK: 32000*/
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5902
15983 294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5903	void *__address;
15543 196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	5904	int __rslt;
10913 b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5905
15983 294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5906	if (__isExternalAddressLike(openFilenameStructureExternalAddress)
16337 40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	5907	\|\| __isExternalBytesLike(openFilenameStructureExternalAddress)){
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5908	__address = __externalAddressVal(openFilenameStructureExternalAddress);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5909	__rslt = __STX_API_CALL1( "GetSaveFileName", (void *)GetSaveFileName, __address);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5910
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5911	if (__rslt == TRUE) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5912	rslt = true;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5913	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5914	rslt = false;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5915	}
15983 294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5916	}
294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5917	%}.
294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5918	rslt isNil ifTrue:[ self primitiveFailed ].
10913 b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5919	^ rslt
15983 294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5920
294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5921	"Modified: / 11-02-2014 / 21:18:20 / cg"
10913 b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5922	! !
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5923
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5924	!Win32OperatingSystem class methodsFor:'file queries'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5925
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5926	caseSensitiveFilenames
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5927	"return true, if the OS has caseSensitive file naming.
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5928	On MSDOS, this will return false;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5929	on a real OS, we return true."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5930
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5931	^ false
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5932	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5933
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5934	compressPath:pathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5935	"return the pathName compressed - that is, remove all ..-entries
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5936	and . entries. This does not always (in case of symbolic links)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5937	return the true pathName and is therefore used as a fallback
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5938	if realPath and popen failed."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5939
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5940	\|names n "{ Class: SmallInteger }" \|
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5941
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5942	names := pathName
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5943	asCollectionOfSubstringsSeparatedBy:self fileSeparator.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5944	names := names asOrderedCollection.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5945	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5946	cut off initial double-slashes
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5947	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5948	[names startsWith:#('' '')] whileTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5949	names removeFirst.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5950	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5951	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5952	cut off double-slashes at end
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5953	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5954	[names endsWith:#('')] whileTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5955	names removeLast.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5956	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5957	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5958	cut off current-dir at beginning
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5959	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5960	n := names size.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5961	[(n >= 2) and:[names startsWith:#('.')]] whileTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5962	names removeFirst.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5963	n := n - 1.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5964	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5965
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5966	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5967	cut off parent-dirs at end
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5968	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5969	[(n > 2)
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5970	and:[(names endsWith:#('..'))
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5971	and:[((names at:(n - 1)) startsWith:'.') not ]]] whileTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5972	names removeLast; removeLast.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5973	n := n - 2.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5974	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5975
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5976	^ names asStringWith:self fileSeparator
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5977	from:1
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5978	to:n
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	5979	compressTabs:false final:nil
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5980
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5981	"
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5982	OperatingSystem compressPath:'.\..'
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5983	OperatingSystem compressPath:'\foo\bar\baz\..'
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5984	OperatingSystem compressPath:'foo\bar\baz\..'
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5985	OperatingSystem compressPath:'foo\bar\baz\..\'
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5986	OperatingSystem compressPath:'foo\bar\baz\..\\\'
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5987	OperatingSystem compressPath:'\\\foo\bar\baz\..\\\'
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5988	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5989
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5990	"Modified: 1.11.1996 / 20:13:48 / cg"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5991	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5992
22690 61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	5993	extractVersionValue:which from:aByteArray
61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	5994	"Retrieves version information (VerQueryValue) specified by which from aByteArray
61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	5995	returned by getFileVersionInfoOf: (GetFileVersionInfo).
61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	5996	This is a WIN32 specific entry, not for common usage."
61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	5997	%{
61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	5998	VS_FIXEDFILEINFO *fileInfo;
61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	5999	UINT uLen;
22942 776f3c8d88de remove file: care for AntiVir scanning Claus Gittinger <cg@exept.de> parents: 22690 diff changeset	6000	OBJ data;
776f3c8d88de remove file: care for AntiVir scanning Claus Gittinger <cg@exept.de> parents: 22690 diff changeset	6001
776f3c8d88de remove file: care for AntiVir scanning Claus Gittinger <cg@exept.de> parents: 22690 diff changeset	6002	if (__isByteArrayLike(aByteArray) && __isStringLike(which)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6003	// be careful: fileInfo points into aByteArray!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6004	// Beware of garbage collection after VerQueryValue()!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6005	// We use a fixed max size of 1000 bytes here.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6006	data = __BYTEARRAY_UNINITIALIZED_NEW_INT(1000);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6007	if (VerQueryValue(__byteArrayVal(aByteArray), __stringVal(which), (LPVOID) &fileInfo, &uLen) == FALSE) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6008	RETURN (nil);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6009	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6010	memcpy(__byteArrayVal(data), fileInfo, min(1000, uLen));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6011	RETURN (data);
22690 61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	6012	}
61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	6013	badArgument: ;
61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	6014	%}.
61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	6015	self primitiveFailed
61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	6016
61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	6017	"
23846 c883aebf7fb0 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23721 diff changeset	6018	100000 timesRepeat:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6019	OperatingSystem getFileInfos:#('ProductVersion' 'CompanyName' 'FileDescription' 'FileVersion' 'ProductName')
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6020	fromFile:'C:\Program Files (x86)\Google\Chrome\Application\chrome.exe'
23846 c883aebf7fb0 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23721 diff changeset	6021	].
22690 61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	6022	"
61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	6023
61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	6024	"Created: / 23-04-2018 / 10:08:04 / Maren"
23846 c883aebf7fb0 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23721 diff changeset	6025	"Modified (comment): / 06-03-2019 / 16:07:21 / Stefan Vogel"
22690 61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	6026	!
61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	6027
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6028	fileSeparator
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6029	"return the character used to separate names in a path.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6030	This character differs for MSDOS and other systems,
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6031	(but those are currently not supported - so this is some
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6032	preparation for the future)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6033
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6034	^ $\
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6035	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6036
20548 ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	6037	getBinaryType:aPathName
20549 7dc2b7ee0584 * empty log message * Claus Gittinger <cg@exept.de> parents: 20548 diff changeset	6038	"determines whether a file is executable.
7dc2b7ee0584 * empty log message * Claus Gittinger <cg@exept.de> parents: 20548 diff changeset	6039	Returns nil if not, or some symbol describing the type of
7dc2b7ee0584 * empty log message * Claus Gittinger <cg@exept.de> parents: 20548 diff changeset	6040	binary otherwise."
7dc2b7ee0584 * empty log message * Claus Gittinger <cg@exept.de> parents: 20548 diff changeset	6041
20548 ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	6042	%{
20553 01eab04510d0 fix in getBinaryType Claus Gittinger <cg@exept.de> parents: 20549 diff changeset	6043	// the following is 'not-yet-known' in borland
01eab04510d0 fix in getBinaryType Claus Gittinger <cg@exept.de> parents: 20549 diff changeset	6044	#ifndef SCS_64BIT_BINARY
01eab04510d0 fix in getBinaryType Claus Gittinger <cg@exept.de> parents: 20549 diff changeset	6045	# define SCS_64BIT_BINARY 6
01eab04510d0 fix in getBinaryType Claus Gittinger <cg@exept.de> parents: 20549 diff changeset	6046	// SCS_32BIT_BINARY = 0, // A 32-bit Windows-based application
01eab04510d0 fix in getBinaryType Claus Gittinger <cg@exept.de> parents: 20549 diff changeset	6047	// SCS_64BIT_BINARY = 6, // A 64-bit Windows-based application.
01eab04510d0 fix in getBinaryType Claus Gittinger <cg@exept.de> parents: 20549 diff changeset	6048	// SCS_DOS_BINARY = 1, // An MS-DOS – based application
01eab04510d0 fix in getBinaryType Claus Gittinger <cg@exept.de> parents: 20549 diff changeset	6049	// SCS_OS216_BINARY = 5, // A 16-bit OS/2-based application
01eab04510d0 fix in getBinaryType Claus Gittinger <cg@exept.de> parents: 20549 diff changeset	6050	// SCS_PIF_BINARY = 3, // A PIF file that executes an MS-DOS – based application
01eab04510d0 fix in getBinaryType Claus Gittinger <cg@exept.de> parents: 20549 diff changeset	6051	// SCS_POSIX_BINARY = 4, // A POSIX – based application
01eab04510d0 fix in getBinaryType Claus Gittinger <cg@exept.de> parents: 20549 diff changeset	6052	// SCS_WOW_BINARY = 2 // A 16-bit Windows-based application
01eab04510d0 fix in getBinaryType Claus Gittinger <cg@exept.de> parents: 20549 diff changeset	6053	#endif
01eab04510d0 fix in getBinaryType Claus Gittinger <cg@exept.de> parents: 20549 diff changeset	6054
20548 ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	6055	BOOL ok;
ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	6056	DWORD binaryType;
ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	6057
ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	6058	if (__isStringLike(aPathName)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6059	ok = GetBinaryTypeA(__stringVal(aPathName), &binaryType);
20548 ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	6060	} else if (__isUnicode16String(aPathName)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6061	/* Unicode strings are not 0-terminated */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6062	wchar_t path[MAX_PATH+1];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6063	int pathLen = __unicode16StringSize(aPathName);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6064
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6065	if (pathLen > MAX_PATH) goto badArgument;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6066
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6067	memcpy(path, __unicode16StringVal(aPathName), pathLen*2);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6068	path[pathLen] = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6069	ok = GetBinaryTypeW(path, &binaryType);
20548 ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	6070	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6071	goto badArgument;
20548 ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	6072	}
ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	6073
ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	6074	if (ok) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6075	OBJ typeSymbol = nil;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6076
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6077	switch (binaryType) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6078	case SCS_32BIT_BINARY:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6079	// A 32bit Windows-based application
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6080	typeSymbol = @symbol(BINARY_32BIT);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6081	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6082	case SCS_64BIT_BINARY:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6083	// A 64bit Windows-based application.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6084	typeSymbol = @symbol(BINARY_64BIT);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6085	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6086	case SCS_DOS_BINARY:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6087	// An MSDOS based application
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6088	typeSymbol = @symbol(BINARY_DOS);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6089	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6090	case SCS_OS216_BINARY:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6091	// A 16bit OS/2-based application
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6092	typeSymbol = @symbol(BINARY_OS2_16BIT);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6093	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6094	case SCS_PIF_BINARY:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6095	// A PIF file that executes an MS-DOS – based application
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6096	typeSymbol = @symbol(BINARY_PIF);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6097	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6098	case SCS_POSIX_BINARY:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6099	// A POSIX based application
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6100	typeSymbol = @symbol(BINARY_POSIX);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6101	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6102	case SCS_WOW_BINARY:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6103	// A 16-bit Windows-based application
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6104	typeSymbol = @symbol(BINARY_WOW16);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6105	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6106	default:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6107	typeSymbol = @symbol(other);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6108	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6109	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6110	RETURN (typeSymbol);
20549 7dc2b7ee0584 * empty log message * Claus Gittinger <cg@exept.de> parents: 20548 diff changeset	6111	}
7dc2b7ee0584 * empty log message * Claus Gittinger <cg@exept.de> parents: 20548 diff changeset	6112	RETURN (nil);
7dc2b7ee0584 * empty log message * Claus Gittinger <cg@exept.de> parents: 20548 diff changeset	6113
20548 ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	6114	badArgument: ;
ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	6115	%}.
ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	6116	self primitiveFailed
22131 bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	6117
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	6118
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	6119	"
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	6120	self getBinaryType:'stx.com'
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	6121	"
20548 ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	6122	!
ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	6123
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6124	getCurrentDirectory
14731 e287dc85f721 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14730 diff changeset	6125	"get the current directory"
e287dc85f721 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14730 diff changeset	6126
18962 29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	6127	%{ /* NOCONTEXT */
14731 e287dc85f721 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14730 diff changeset	6128	int ret;
e287dc85f721 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14730 diff changeset	6129	wchar_t _aPathName[MAXPATHLEN+1];
e287dc85f721 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14730 diff changeset	6130
e287dc85f721 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14730 diff changeset	6131	ret = GetCurrentDirectoryW(MAXPATHLEN, _aPathName);
e287dc85f721 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14730 diff changeset	6132	if (ret == 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6133	__threadErrno = __WIN32_ERR(GetLastError());
18962 29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	6134	}
18964 774cb1e6201e #BUGFIX Stefan Vogel <sv@exept.de> parents: 18962 diff changeset	6135	RETURN(__mkStringOrU16String_maxlen(_aPathName, MAXPATHLEN));
18962 29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	6136	%}.
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6137
11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6138	"
11291 1e7c06d9d939 * empty log message * Claus Gittinger <cg@exept.de> parents: 11289 diff changeset	6139	self getCurrentDirectory
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6140	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6141	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6142
10014 6aba6d5620ad volumeName Claus Gittinger <cg@exept.de> parents: 9990 diff changeset	6143	getDiskInfoOf:volumeNameArg
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6144	"returns a dictionary filled with any of:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6145	freeBytes
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6146	totalBytes
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6147	and possibly additional (OS-specific) information"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6148
10014 6aba6d5620ad volumeName Claus Gittinger <cg@exept.de> parents: 9990 diff changeset	6149	\|volumeName info ok sectorsPerCluster bytesPerSector freeClusters totalClusters
9955 98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	6150	type freeBytesForUsersQuota freeBytes totalBytes \|
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6151
10014 6aba6d5620ad volumeName Claus Gittinger <cg@exept.de> parents: 9990 diff changeset	6152	volumeName := volumeNameArg.
6aba6d5620ad volumeName Claus Gittinger <cg@exept.de> parents: 9990 diff changeset	6153	(volumeName endsWith:$\) ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6154	volumeName := volumeName , '\'
10014 6aba6d5620ad volumeName Claus Gittinger <cg@exept.de> parents: 9990 diff changeset	6155	].
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6156	%{
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	6157	typedef BOOL (WINAPI *P_GDFSE)(LPCTSTR, PULARGE_INTEGER,
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6158	PULARGE_INTEGER, PULARGE_INTEGER);
9955 98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	6159	P_GDFSE pGetDiskFreeSpaceEx = NULL;
98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	6160
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6161	DWORD __sectorsPerCluster, __bytesPerSector, __freeClusters, __totalClusters;
9955 98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	6162	BOOL fResult = 0;
98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	6163	unsigned __int64 i64FreeBytesForUsersQuota, i64TotalBytes, i64FreeBytes;
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	6164
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	6165	if (__isStringLike(volumeName) \|\| __isSymbol(volumeName)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6166	/*
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6167	* Use GetDiskFreeSpaceEx if available; otherwise, use GetDiskFreeSpace.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6168	* Notice that GetDiskFreeSpace does not work correctly under win2k,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6169	* and GetDiskFreeSpaceEx is not avail. for all win versions (can microsoft ever do something right ?).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6170	*/
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6171	pGetDiskFreeSpaceEx = (P_GDFSE)GetProcAddress (
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6172	GetModuleHandle ("kernel32.dll"),
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6173	"GetDiskFreeSpaceExA");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6174	if (pGetDiskFreeSpaceEx) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6175	fResult = pGetDiskFreeSpaceEx (__stringVal(volumeName),
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6176	(PULARGE_INTEGER)&i64FreeBytesForUsersQuota,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6177	(PULARGE_INTEGER)&i64TotalBytes,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6178	(PULARGE_INTEGER)&i64FreeBytes);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6179	if (fResult) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6180	freeBytesForUsersQuota = __MKUINT64(&i64FreeBytesForUsersQuota);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6181	totalBytes = __MKUINT64(&i64TotalBytes);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6182	freeBytes = __MKUINT64(&i64FreeBytes);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6183	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6184	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6185	fResult = GetDiskFreeSpace(__stringVal(volumeName),
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6186	&__sectorsPerCluster,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6187	&__bytesPerSector,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6188	&__freeClusters,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6189	&__totalClusters);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6190	if (fResult) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6191	sectorsPerCluster = __MKUINT(__sectorsPerCluster);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6192	bytesPerSector = __MKUINT(__bytesPerSector);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6193	freeClusters = __MKUINT(__freeClusters);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6194	totalClusters = __MKUINT(__totalClusters);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6195	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6196	switch (GetDriveType(__stringVal(volumeName))) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6197	case DRIVE_REMOVABLE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6198	type = @symbol(removable); break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6199	case DRIVE_FIXED:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6200	type = @symbol(fixed); break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6201	case DRIVE_REMOTE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6202	type = @symbol(network); break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6203	case DRIVE_CDROM:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6204	type = @symbol(cdrom); break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6205	case DRIVE_RAMDISK:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6206	type = @symbol(ramdisk); break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6207	case DRIVE_UNKNOWN:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6208	default:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6209	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6210	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6211	if (fResult) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6212	ok = true;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6213	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6214	__threadErrno = __WIN32_ERR(GetLastError());
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6215	@global(LastErrorNumber) = __mkSmallInteger(__threadErrno);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6216	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6217	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6218	%}.
9955 98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	6219	ok == true ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6220	self primitiveFailed.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6221	^ self
9955 98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	6222	].
98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	6223
98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	6224	info := IdentityDictionary new.
98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	6225	info at:#sectorsPerCluster put:sectorsPerCluster.
98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	6226	info at:#bytesPerSector put:bytesPerSector.
98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	6227	info at:#freeClusters put:freeClusters.
98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	6228	info at:#totalClusters put:totalClusters.
98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	6229
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	6230	info at:#freeBytes put:(freeBytes notNil
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6231	ifTrue:[freeBytes]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6232	ifFalse:[freeClusters * sectorsPerCluster * bytesPerSector]).
9955 98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	6233	info at:#totalBytes put:(totalBytes notNil
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6234	ifTrue:[totalBytes]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6235	ifFalse:[totalClusters * sectorsPerCluster * bytesPerSector]).
9955 98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	6236	info at:#freeBytesForUsersQuota put:freeBytesForUsersQuota.
98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	6237	type notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6238	info at:#type put:type
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6239	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6240	^ info
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6241
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6242	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6243	self getDiskInfoOf:'c:\'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6244	self getDiskInfoOf:'d:\'
9922 124793486a62 * empty log message * Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	6245	self getDiskInfoOf:'e:\'
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	6246	self getDiskInfoOf:'f:\'. OperatingSystem lastErrorString
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6247	"
9955 98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	6248
10014 6aba6d5620ad volumeName Claus Gittinger <cg@exept.de> parents: 9990 diff changeset	6249	"Modified: / 26-09-2006 / 16:19:33 / cg"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6250	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6251
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6252	getDriveList
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	6253	"return a list of volumes in the system.
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	6254	On unix, no such thing like a volume exists
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	6255	- there, a syntetic list with root, home & current is returned.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6256	On MSDOS, a list of drive letters is (eventually) returned.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6257	On VMS, a list of volumes is (eventually) returned."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6258
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6259	\|list\|
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6260
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6261	list := OrderedCollection new.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6262	%{
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6263	/*
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6264	* add drive letters as strings to list ...
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6265	*/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6266	char buffer[1024];
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6267	char *cp;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6268
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6269	GetLogicalDriveStrings(1023, buffer);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6270	for (cp=buffer; *cp; ) {
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6271	__SSEND1(list, @symbol(add:), 0, __MKSTRING(cp));
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6272	cp += strlen(cp) + 1;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6273	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6274	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6275	^ list
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6276	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6277
11247 f4206a7664bb * empty log message * sr parents: 11246 diff changeset	6278	getDriveType:aPathName
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6279	"returns:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6280	0 -> Unknown
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6281	1 -> Invalid
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6282	2 -> removable
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6283	3 -> fixed
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6284	4 -> remote
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6285	5 -> cdrom
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6286	6 -> ramdisk.
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6287	This is a stupid interface - do not use."
11247 f4206a7664bb * empty log message * sr parents: 11246 diff changeset	6288
f4206a7664bb * empty log message * sr parents: 11246 diff changeset	6289	%{
f4206a7664bb * empty log message * sr parents: 11246 diff changeset	6290	int ret;
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6291	wchar_t _aPathName[MAXPATHLEN];
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6292
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6293	if (_makeWchar(aPathName, _aPathName, sizeof(_aPathName)) > 0) {
11247 f4206a7664bb * empty log message * sr parents: 11246 diff changeset	6294	#ifdef DO_WRAP_CALLS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6295	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6296	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6297	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6298	ret = (int)(STX_API_NOINT_CALL1( "GetDriveTypeW", GetDriveTypeW, _aPathName));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6299	} while ((ret < 0) && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6300	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6301	ret = GetDriveTypeW(_aPathName);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6302	if (ret < 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6303	__threadErrno = __WIN32_ERR(GetLastError());
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6304	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6305	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6306	RETURN (__MKSMALLINT(ret));
11247 f4206a7664bb * empty log message * sr parents: 11246 diff changeset	6307	}
f4206a7664bb * empty log message * sr parents: 11246 diff changeset	6308	%}.
f4206a7664bb * empty log message * sr parents: 11246 diff changeset	6309	^ self primitiveFailed
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6310
11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6311	"
11291 1e7c06d9d939 * empty log message * Claus Gittinger <cg@exept.de> parents: 11289 diff changeset	6312	self getDriveType:'x:\'
1e7c06d9d939 * empty log message * Claus Gittinger <cg@exept.de> parents: 11289 diff changeset	6313	self getDriveType:'C:\'
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6314	self getDriveType:'D:\'
11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6315	"
11247 f4206a7664bb * empty log message * sr parents: 11246 diff changeset	6316	!
f4206a7664bb * empty log message * sr parents: 11246 diff changeset	6317
22690 61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	6318	getFileInfos:infoKeys fromFile:filename
23264 d31e473458a3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 23257 diff changeset	6319	"Retrieve version information from filename and return a dictionary with values for keys in infoKeys.
23847 a74f168d8848 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23846 diff changeset	6320	Returns an empty Dictionary, if fileInfo cannot be extracted."
23264 d31e473458a3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 23257 diff changeset	6321
23846 c883aebf7fb0 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23721 diff changeset	6322	\|bytes vfi lang codePage stringFileInfoBase\|
c883aebf7fb0 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23721 diff changeset	6323
c883aebf7fb0 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23721 diff changeset	6324	bytes := self getFileVersionInfoOf:(filename asFilename osName).
c883aebf7fb0 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23721 diff changeset	6325	bytes isEmptyOrNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6326	^ Dictionary new.
23846 c883aebf7fb0 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23721 diff changeset	6327	].
23264 d31e473458a3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 23257 diff changeset	6328
22690 61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	6329	self extractVersionValue:'\' from:bytes.
61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	6330	vfi := self extractVersionValue:'\VarFileInfo\Translation' from:bytes.
22942 776f3c8d88de remove file: care for AntiVir scanning Claus Gittinger <cg@exept.de> parents: 22690 diff changeset	6331	lang := vfi unsignedInt16At:1.
22690 61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	6332	codePage := vfi unsignedInt16At:3.
23846 c883aebf7fb0 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23721 diff changeset	6333	stringFileInfoBase := '\StringFileInfo\%1%2\'
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6334	bindWith:(lang hexPrintString:4)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6335	with:(codePage hexPrintString:4).
23846 c883aebf7fb0 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23721 diff changeset	6336	^ Dictionary withKeys:infoKeys valueBlock:[:eachKey\|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6337	\|sfi\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6338	sfi := self extractVersionValue:(stringFileInfoBase, eachKey) from:bytes.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6339	sfi zeroByteStringAt:1 maximumSize:999
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6340	].
23846 c883aebf7fb0 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23721 diff changeset	6341
c883aebf7fb0 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23721 diff changeset	6342	"
c883aebf7fb0 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23721 diff changeset	6343	self getFileInfos:#('ProductVersion' 'CompanyName' 'FileDescription' 'FileVersion' 'ProductName') fromFile:'C:\Program Files (x86)\Google\Chrome\Application\chrome.exe'
22690 61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	6344	"
61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	6345
61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	6346	"Created: / 23-04-2018 / 10:29:33 / Maren"
23847 a74f168d8848 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23846 diff changeset	6347	"Modified (comment): / 06-03-2019 / 16:34:54 / Stefan Vogel"
22690 61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	6348	!
61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	6349
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6350	getFileVersionInfoOf:aPathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6351	"retrieves the versionData from an executable or dll.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6352	The returned value is either a byteArray, which should be
22690 61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	6353	processed further with extractVersionValue:from: (VerQueryValue),
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6354	or nil.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6355	This is a WIN32 specific entry, not for common usage."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6356	%{
9424 a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6357	int sz;
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6358	DWORD dummy;
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6359
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	6360	if (__isStringLike(aPathName)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6361	sz = GetFileVersionInfoSizeA(__stringVal(aPathName), &dummy);
9424 a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6362	} else if (__isUnicode16String(aPathName)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6363	sz = GetFileVersionInfoSizeW(__unicode16StringVal(aPathName), &dummy);
9424 a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6364	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6365	goto badArgument;
9424 a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6366	}
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6367
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6368	if (sz > 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6369	OBJ versionData;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6370
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6371	versionData = __BYTEARRAY_UNINITIALIZED_NEW_INT(sz);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6372	if (versionData == nil) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6373	RETURN (nil);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6374	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6375	if (GetFileVersionInfo(__stringVal(aPathName), 0, sz, __ByteArrayInstPtr(versionData)->ba_element) == FALSE) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6376	RETURN (nil);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6377	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6378	RETURN (versionData);
9424 a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6379	}
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6380	RETURN (nil);
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6381	badArgument: ;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6382	%}.
9424 a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6383	self primitiveFailed
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6384
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6385	"Modified: / 05-07-2006 / 16:56:06 / cg"
22690 61e013b5ebb7 #FEATURE by Maren matilk parents: 22684 diff changeset	6386	"Modified: / 23-04-2018 / 10:37:26 / Maren"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6387	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6388
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6389	getLongPathName:aPathName
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6390	"get the full (long, not 8.3) version of aPathName"
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6391
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6392	%{
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6393	int ret;
13778 8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	6394	wchar_t _aPathName[MAXPATHLEN+1];
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6395
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6396	if (_makeWchar(aPathName, _aPathName, sizeof(_aPathName)) > 0) {
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6397	#ifdef DO_WRAP_CALLS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6398	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6399	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6400	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6401	ret = (int)(STX_API_NOINT_CALL3( "GetLongPathNameW", GetLongPathNameW, _aPathName, _aPathName, MAXPATHLEN));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6402	} while ((ret == 0) && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6403	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6404	ret = GetLongPathNameW(_aPathName, _aPathName, MAXPATHLEN);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6405	if (ret == 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6406	__threadErrno = __WIN32_ERR(GetLastError());
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6407	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6408	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6409	RETURN (__mkStringOrU16String_maxlen(_aPathName, MAXPATHLEN));
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6410	}
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6411	%}.
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6412	^ self primitiveFailed
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6413
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6414	"
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6415	self getLongPathName:'x:\'
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	6416	self getLongPathName:'c:\Dokumente und Einstellungen'
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	6417	self getShortPathName:'c:\Dokumente und Einstellungen'
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6418	"
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6419	!
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6420
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6421	getNullDevice
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6422	"get the name of the null-device."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6423
8755 8e67c864b126 Fix #getNullDevice Stefan Vogel <sv@exept.de> parents: 8742 diff changeset	6424	^ 'nul:'
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6425	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6426
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	6427	getObjectFileInfoFor:aStringOrFilename
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	6428	"Return and info object for given executable or shared object
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	6429	or throw an error if given file is not a valid an executable now
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	6430	shared object.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	6431
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	6432	The info object returned is OS-specific, however it responds to at
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	6433	least
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6434	#isFor32BitArchitecture
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6435	#isFor64BitArchitecture ... returns true, if the given object is for
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6436	32bit, 64bit architecture respectively
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	6437	"
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	6438	^ PECOFFFileHeader fromFile: aStringOrFilename
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	6439
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	6440	"Created: / 18-03-2015 / 09:52:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	6441	!
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	6442
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6443	getShortPathName:aPathName
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6444	"get the full (long, not 8.3) version of aPathName"
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6445
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6446	%{
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6447	int ret;
13778 8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	6448	wchar_t _aPathName[MAXPATHLEN+1];
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6449
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6450	if (_makeWchar(aPathName, _aPathName, sizeof(_aPathName)) > 0) {
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6451	#ifdef DO_WRAP_CALLS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6452	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6453	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6454	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6455	ret = (int)(STX_API_NOINT_CALL3( "GetShortPathNameW", GetShortPathNameW, _aPathName, _aPathName, MAXPATHLEN));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6456	} while ((ret == 0) && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6457	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6458	ret = GetShortPathNameW(_aPathName, _aPathName, MAXPATHLEN);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6459	if (ret == 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6460	__threadErrno = __WIN32_ERR(GetLastError());
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6461	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6462	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6463	RETURN (__mkStringOrU16String_maxlen(_aPathName, MAXPATHLEN));
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6464	}
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6465	%}.
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6466	^ self primitiveFailed
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6467
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6468	"
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6469	self getShortPathName:'x:\'
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	6470	self getShortPathName:'c:\Dokumente und Einstellungen'
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	6471	self getLongPathName:'c:\Dokumente und Einstellungen'
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6472	"
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6473	!
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6474
23130 48acb2bbb580 added getSystemWow64Directory for 32 vs. 64bit determination Claus Gittinger <cg@exept.de> parents: 23070 diff changeset	6475	getSystemWow64Directory
48acb2bbb580 added getSystemWow64Directory for 32 vs. 64bit determination Claus Gittinger <cg@exept.de> parents: 23070 diff changeset	6476	"retrieves the system's wow64 directory,
48acb2bbb580 added getSystemWow64Directory for 32 vs. 64bit determination Claus Gittinger <cg@exept.de> parents: 23070 diff changeset	6477	or nil, if running on a 32bit system"
48acb2bbb580 added getSystemWow64Directory for 32 vs. 64bit determination Claus Gittinger <cg@exept.de> parents: 23070 diff changeset	6478
48acb2bbb580 added getSystemWow64Directory for 32 vs. 64bit determination Claus Gittinger <cg@exept.de> parents: 23070 diff changeset	6479	\| rslt \|
48acb2bbb580 added getSystemWow64Directory for 32 vs. 64bit determination Claus Gittinger <cg@exept.de> parents: 23070 diff changeset	6480
48acb2bbb580 added getSystemWow64Directory for 32 vs. 64bit determination Claus Gittinger <cg@exept.de> parents: 23070 diff changeset	6481	%{ /* STACK: 8000*/
48acb2bbb580 added getSystemWow64Directory for 32 vs. 64bit determination Claus Gittinger <cg@exept.de> parents: 23070 diff changeset	6482	char buffer[MAXPATHLEN+1];
48acb2bbb580 added getSystemWow64Directory for 32 vs. 64bit determination Claus Gittinger <cg@exept.de> parents: 23070 diff changeset	6483
23848 b74dc3385473 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23847 diff changeset	6484	int __rslt = 0;
b74dc3385473 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23847 diff changeset	6485	#if defined(__BORLANDC__) // only change to 0 if all systems/compiles support GetSystemWow64DirectoryW
b74dc3385473 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23847 diff changeset	6486	// starting with Windows XP, this:
23149 a98c7a9eac95 * empty log message * Claus Gittinger <cg@exept.de> parents: 23138 diff changeset	6487	// GetSystemWow64DirectoryW(&fileTime);
a98c7a9eac95 * empty log message * Claus Gittinger <cg@exept.de> parents: 23138 diff changeset	6488	// can be called directly.
a98c7a9eac95 * empty log message * Claus Gittinger <cg@exept.de> parents: 23138 diff changeset	6489	{
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6490	typedef unsigned int (WINAPI *P_GetSystemWow64DirectoryW)(LPTSTR, unsigned int);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6491	static P_GetSystemWow64DirectoryW pGetSystemWow64DirectoryW = NULL;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6492	static int didCheck = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6493
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6494	if (pGetSystemWow64DirectoryW == NULL) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6495	if (!didCheck) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6496	pGetSystemWow64DirectoryW =
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6497	(P_GetSystemWow64DirectoryW)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6498	GetProcAddress ( GetModuleHandle ("kernel32.dll"),
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6499	"GetSystemWow64DirectoryW");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6500
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6501	didCheck = 1;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6502	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6503	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6504
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6505	if (pGetSystemWow64DirectoryW != NULL) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6506	__rslt = (*pGetSystemWow64DirectoryW)(buffer, MAXPATHLEN);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6507	}
23149 a98c7a9eac95 * empty log message * Claus Gittinger <cg@exept.de> parents: 23138 diff changeset	6508	}
a98c7a9eac95 * empty log message * Claus Gittinger <cg@exept.de> parents: 23138 diff changeset	6509	#else
23130 48acb2bbb580 added getSystemWow64Directory for 32 vs. 64bit determination Claus Gittinger <cg@exept.de> parents: 23070 diff changeset	6510	__rslt = GetSystemWow64DirectoryW(buffer, MAXPATHLEN);
23149 a98c7a9eac95 * empty log message * Claus Gittinger <cg@exept.de> parents: 23138 diff changeset	6511	#endif
23848 b74dc3385473 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23847 diff changeset	6512	if (__rslt != 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6513	rslt = __mkStringOrU16String_maxlen(buffer, MAXPATHLEN);
23130 48acb2bbb580 added getSystemWow64Directory for 32 vs. 64bit determination Claus Gittinger <cg@exept.de> parents: 23070 diff changeset	6514	}
48acb2bbb580 added getSystemWow64Directory for 32 vs. 64bit determination Claus Gittinger <cg@exept.de> parents: 23070 diff changeset	6515	%}.
48acb2bbb580 added getSystemWow64Directory for 32 vs. 64bit determination Claus Gittinger <cg@exept.de> parents: 23070 diff changeset	6516	^ rslt
48acb2bbb580 added getSystemWow64Directory for 32 vs. 64bit determination Claus Gittinger <cg@exept.de> parents: 23070 diff changeset	6517
48acb2bbb580 added getSystemWow64Directory for 32 vs. 64bit determination Claus Gittinger <cg@exept.de> parents: 23070 diff changeset	6518	"Modified: / 11-02-2014 / 21:18:20 / cg"
23848 b74dc3385473 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23847 diff changeset	6519	"Modified: / 07-03-2019 / 15:47:39 / Stefan Vogel"
23130 48acb2bbb580 added getSystemWow64Directory for 32 vs. 64bit determination Claus Gittinger <cg@exept.de> parents: 23070 diff changeset	6520	!
48acb2bbb580 added getSystemWow64Directory for 32 vs. 64bit determination Claus Gittinger <cg@exept.de> parents: 23070 diff changeset	6521
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6522	getVolumeInformation: rootPath
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6523	name: volumeNameBuffer
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6524	nameSize: volumeNameSize
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6525	serialNumber: serialNumber
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6526	maximumComponentLength: maximumComponentLength
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6527	fileSystemFlags: fileSystemFlags
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6528	fileSystemName: fileSystemName
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6529	fileSystemNameSize: fileSystemNameSize
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6530
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6531	<apicall: boolean "GetVolumeInformationA" (struct struct ulong struct struct struct struct ulong) module: "kernel32.dll" >
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6532	^self primitiveFailed
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6533	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6534
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6535	infoOf:aPathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6536	"return some object filled with info for the file 'aPathName';
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6537	the info (for which corresponding access methods are understood by
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6538	the returned object) is:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6539	type - a symbol giving the files type
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6540	mode - numeric access mode
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6541	uid - owners user id
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6542	gid - owners group id
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6543	size - files size
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6544	id - files number (i.e. inode number)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6545	accessed - last access time (as Timestamp)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6546	modified - last modification time (as Timestamp)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6547	statusChanged - last status change time (as Timestamp)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6548	alternativeName - (windows only:) the MSDOS name of the file
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6549
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6550	Some of the fields may be returned as nil on systems which do not provide
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6551	all of the information.
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	6552	Return nil if such a file does not exist.
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	6553	For symbolic links (if supported by the OS),
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6554	the info of the pointed-to-file (i.e. the target) is returned;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6555	use #linkInfoOf: to get info about the link itself.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6556	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6557
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6558	\|info target\|
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6559
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6560	info := self linkInfoOf:aPathName.
10164 2a98bef917b7 care for nil linkInfo ca parents: 10161 diff changeset	6561	(info notNil and:[info isSymbolicLink]) ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6562	target := info path.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6563	target notNil ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6564	^ self linkInfoOf:target.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6565	]
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6566	].
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6567	^ info
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6568
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6569	"
6377 0113dcb902c5 simulate :drive as a directory Claus Gittinger <cg@exept.de> parents: 6372 diff changeset	6570	OperatingSystem infoOf:'c:\windows'
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6571	OperatingSystem infoOf:'stx.exe'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6572	(OperatingSystem infoOf:'/') uid
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6573	(OperatingSystem infoOf:'/') accessed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6574	"
6377 0113dcb902c5 simulate :drive as a directory Claus Gittinger <cg@exept.de> parents: 6372 diff changeset	6575
10373 92efacf8b050 getLinkTarget is now done lazyly. Claus Gittinger <cg@exept.de> parents: 10365 diff changeset	6576	"Modified: / 07-02-2007 / 10:37:14 / cg"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6577	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6578
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6579	isDirectory:aPathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6580	"return true, if 'aPathName' is a valid directory path name.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6581	(i.e. exists and is a directory).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6582	This also returns true for symbolic links pointing to a directory;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6583	if you need to check for this, use #linkInfo:."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6584
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6585	%{
22981 d5ed71f44e7a #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22956 diff changeset	6586	#if defined(__BORLANDC__)
d5ed71f44e7a #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22956 diff changeset	6587	// missing in Borland header file
d5ed71f44e7a #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22956 diff changeset	6588	# define INVALID_FILE_ATTRIBUTES -1
d5ed71f44e7a #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22956 diff changeset	6589	#endif
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6590	int ret;
11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6591
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	6592	if (__isStringLike(aPathName)) {
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6593	#ifdef DO_WRAP_CALLS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6594	char _aPathName[MAXPATHLEN];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6595
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6596	strncpy(_aPathName, __stringVal(aPathName), MAXPATHLEN-1); _aPathName[MAXPATHLEN-1] = '\0';
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6597	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6598	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6599	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6600	ret = (int)(STX_API_NOINT_CALL1( "GetFileAttributesA", GetFileAttributesA, _aPathName));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6601	} while ((ret == INVALID_FILE_ATTRIBUTES) && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6602	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6603	ret = GetFileAttributesA((char *) __stringVal(aPathName));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6604	if (ret == INVALID_FILE_ATTRIBUTES) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6605	__threadErrno = __WIN32_ERR(GetLastError());
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6606	}
12715 1ef13bfe9cbb changed:15 methods sr parents: 12686 diff changeset	6607	#endif
12730 d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	6608	} else if (__isUnicode16String(aPathName)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6609	wchar_t _wPathName[MAXPATHLEN+1];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6610
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6611	_makeWchar(aPathName, _wPathName, sizeof(_wPathName));
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6612	#ifdef DO_WRAP_CALLS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6613	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6614	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6615	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6616	ret = (int)(STX_API_NOINT_CALL1( "GetFileAttributesW", GetFileAttributesW, _wPathName));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6617	} while ((ret == INVALID_FILE_ATTRIBUTES) && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6618	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6619	ret = GetFileAttributesW(_wPathName);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6620	if (ret == INVALID_FILE_ATTRIBUTES) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6621	__threadErrno = __WIN32_ERR(GetLastError());
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6622	}
12715 1ef13bfe9cbb changed:15 methods sr parents: 12686 diff changeset	6623	#endif
12730 d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	6624	} else
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6625	goto err;
22956 55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	6626
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	6627	if (ret == INVALID_FILE_ATTRIBUTES) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6628	@global(LastErrorNumber) = __mkSmallInteger(__threadErrno);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6629	RETURN ( false );
12730 d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	6630	}
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	6631	RETURN ( (ret & FILE_ATTRIBUTE_DIRECTORY) ? true : false);
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	6632	err:;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6633	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6634	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6635
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6636	"an alternative implementation would be:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6637	^ (self infoOf:aPathName) type == #directory
22956 55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	6638	"
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	6639	"
55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	6640	self isDirectory:'c:\bbbbbb'
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6641	self isDirectory:'.' asUnicode16String
9424 a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6642	"
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6643
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6644	"Modified: / 05-07-2006 / 17:23:42 / cg"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6645	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6646
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6647	isExecutable:aPathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6648	"return true, if the given file is executable.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6649	For symbolic links, the pointed-to-file is checked."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6650
9424 a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6651	"/
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6652	"/ under windows, there is no executable attribute ...
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6653	"/ so, only check for the files existence here.
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6654	"/
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6655	^ self isValidPath:aPathName.
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6656
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6657	"Modified: / 05-07-2006 / 17:23:19 / cg"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6658	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6659
10596 072effcc1e88 added #isHidden sr parents: 10585 diff changeset	6660	isHidden:aPathName
072effcc1e88 added #isHidden sr parents: 10585 diff changeset	6661	"return true, if the given file is hidden"
072effcc1e88 added #isHidden sr parents: 10585 diff changeset	6662
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6663	\|attr\|
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6664
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6665	attr := self primGetFileAttributes:aPathName.
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6666	attr notNil ifTrue:[^ attr bitTest: FILE_ATTRIBUTE_HIDDEN ].
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6667	^ false
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6668
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6669	"
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	6670	self isHidden:'.'
11291 1e7c06d9d939 * empty log message * Claus Gittinger <cg@exept.de> parents: 11289 diff changeset	6671	self isHidden:'.' asUnicode16String
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6672	"
10596 072effcc1e88 added #isHidden sr parents: 10585 diff changeset	6673	!
072effcc1e88 added #isHidden sr parents: 10585 diff changeset	6674
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6675	isReadable:aPathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6676	"return true, if the file/dir 'aPathName' is readable.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6677	For symbolic links, the pointed-to-file is checked."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6678
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6679	"under windows, all files are readable ...
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6680	so, only check for the files existence here"
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6681
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6682	^ (self primGetFileAttributes:aPathName) notNil.
9424 a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6683
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6684	"
11291 1e7c06d9d939 * empty log message * Claus Gittinger <cg@exept.de> parents: 11289 diff changeset	6685	self isReadable:'.'
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6686	self isReadable:'ughoiweuhiourw'
11291 1e7c06d9d939 * empty log message * Claus Gittinger <cg@exept.de> parents: 11289 diff changeset	6687	self isReadable:'.' asUnicode16String
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6688	"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6689	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6690
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6691	isTemporary:aPathName
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6692	"return true, if the given file is a temporary file"
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6693
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6694	\|attr\|
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6695
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6696	attr := self primGetFileAttributes:aPathName.
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6697	attr notNil ifTrue:[^ attr bitTest: FILE_ATTRIBUTE_TEMPORARY ].
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6698	^ false
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6699
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6700	"
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	6701	self isTemporary:'.'
1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	6702	self isTemporary:'.' asUnicode16String
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6703	"
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6704	!
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6705
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6706	isValidPath:aPathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6707	"return true, if 'aPathName' is a valid path name
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6708	(i.e. the file or directory exists)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6709
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6710	^ (self primGetFileAttributes:aPathName) notNil.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6711	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6712
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6713	isWritable:aPathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6714	"return true, if the given file is writable.
11779 73c3f28d8960 Fix write access checking fpr directories in Windows. Stefan Vogel <sv@exept.de> parents: 11767 diff changeset	6715	For symbolic links, the pointed-to-file is checked.
73c3f28d8960 Fix write access checking fpr directories in Windows. Stefan Vogel <sv@exept.de> parents: 11767 diff changeset	6716
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	6717	In Windows, files can possibly be created in and deleted from directories marked as read only.
1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	6718	See http://support.microsoft.com/kb/326549.
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6719	So we always return true for directories."
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6720
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6721	\|attr\|
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6722
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6723	attr := self primGetFileAttributes:aPathName.
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6724	attr notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6725	^ (attr bitAnd: (FILE_ATTRIBUTE_DIRECTORY bitOr: FILE_ATTRIBUTE_READONLY ))
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6726	~~ FILE_ATTRIBUTE_READONLY
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6727	].
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6728	^ false
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6729
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6730	"
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	6731	self isWritable:'.'
1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	6732	self isWritable:'.' asUnicode16String
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6733	self isWritable:'' asUnicode16String
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	6734	"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6735	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6736
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6737	linkInfoOf:aPathName
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6738	"return some object filled with info for the file 'aPathName';
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6739	the info (for which corresponding access methods are understood by
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6740	the returned object) is:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6741	type - a symbol giving the files type
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6742	mode - numeric access mode
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6743	uid - owners user id
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6744	gid - owners group id
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6745	size - files size
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6746	id - files number (i.e. inode number)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6747	accessed - last access time (as Timestamp)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6748	modified - last modification time (as Timestamp)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6749	statusChanged - last status change time (as Timestamp)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6750	alternativeName - (windows only:) the MSDOS name of the file
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6751
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6752	Some of the fields may be returned as nil on systems which do not provide
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6753	all of the information.
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6754	Return nil if such a file does not exist.
15252 621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	6755
621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	6756	Return the info about the link itself,
621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	6757	on contrast to #infoOf:, which returns the info of the pointed to file
621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	6758	in case of a symbolic link.
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6759	"
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6760
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6761	\|info type mode uid gid size id
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6762	atime mtime ctime
12821 56c56e8bee2a Raise TimeConversionError if appropriate. Stefan Vogel <sv@exept.de> parents: 12820 diff changeset	6763	aOsTime mOsTime cOsTime
11258 5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	6764	fileName alternativeName\|
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6765
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6766	%{
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6767	BOOL result;
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6768	int ret;
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6769	wchar_t alternativeFileNameBuffer[15];
13778 8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	6770	wchar_t fileNameBuffer[MAXPATHLEN+1];
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6771	int modeBits = 0;
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6772	WIN32_FILE_ATTRIBUTE_DATA fileAttributeData;
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6773	unsigned INT ino;
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6774	wchar_t _wPathName[MAXPATHLEN+1];
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6775
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6776	if (_makeWchar(aPathName, _wPathName, sizeof(_wPathName)) < 0)
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6777	goto badArgument;
11291 1e7c06d9d939 * empty log message * Claus Gittinger <cg@exept.de> parents: 11289 diff changeset	6778
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6779	#ifdef DO_WRAP_CALLS
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6780	{
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6781	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6782	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6783	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6784	result = (int)(STX_API_NOINT_CALL3( "GetFileAttributesExW", GetFileAttributesExW, _wPathName, GetFileExInfoStandard, &fileAttributeData));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6785	} while (!result && (__threadErrno == EINTR));
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6786	}
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6787	#else
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6788	result = GetFileAttributesExW(_wPathName, GetFileExInfoStandard, &fileAttributeData);
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6789	if (!result) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6790	__threadErrno = __WIN32_ERR(GetLastError());
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6791	}
11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6792	#endif
11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6793
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6794	if (!result) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6795	@global(LastErrorNumber) = __mkSmallInteger(__threadErrno);
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6796	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6797	id = __mkSmallInteger(0); /* could get it by opening ... */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6798	size = __MKLARGEINT64(1, (unsigned INT)fileAttributeData.nFileSizeLow, (unsigned INT)fileAttributeData.nFileSizeHigh);
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6799
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6800	// if (fileAttributeData.cFileName[0] != '\0') {
13778 8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	6801	// bcopy(fileAttributeData.cFileName, fileNameBuffer, MAXPATHLEN*sizeof(wchar_t));
8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	6802	// fileNameBuffer[MAXPATHLEN] = '\0';
18964 774cb1e6201e #BUGFIX Stefan Vogel <sv@exept.de> parents: 18962 diff changeset	6803	// fileName = __mkStringOrU16String_maxlen(fileNameBuffer, MAXPATHLEN); /* FULL name */
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6804	// }
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6805
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6806	// if (fileAttributeData.cAlternateFileName[0] != '\0') {
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6807	// bcopy(fileAttributeData.cAlternateFileName, alternativeFileNameBuffer, 14*sizeof(wchar_t));
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6808	// alternativeFileNameBuffer[14] = '\0';
18964 774cb1e6201e #BUGFIX Stefan Vogel <sv@exept.de> parents: 18962 diff changeset	6809	// alternativeName = __mkStringOrU16String_maxlen(alternativeFileNameBuffer, 14); /* DOS name */
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6810	// }
11779 73c3f28d8960 Fix write access checking fpr directories in Windows. Stefan Vogel <sv@exept.de> parents: 11767 diff changeset	6811
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6812	/*
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6813	* simulate access bits
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6814	*/
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6815	if (fileAttributeData.dwFileAttributes & FILE_ATTRIBUTE_READONLY) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6816	modeBits = 0444;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6817	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6818	modeBits = 0666;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6819	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6820
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6821	if (fileAttributeData.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6822	type = @symbol(directory);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6823	modeBits = 0777; /* executable and WRITABLE - refer to comment in #isWritable: */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6824	} else if (fileAttributeData.dwFileAttributes & FILE_ATTRIBUTE_REPARSE_POINT) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6825	type = @symbol(symbolicLink);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6826	modeBits = 0777; /* even in UNIX symlinks have 0777 */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6827	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6828	type = @symbol(regular);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6829	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6830
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6831	mode = __mkSmallInteger(modeBits);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6832
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6833	cOsTime = FileTimeToOsTime1970(&fileAttributeData.ftCreationTime);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6834	aOsTime = FileTimeToOsTime1970(&fileAttributeData.ftLastAccessTime);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6835	mOsTime = FileTimeToOsTime1970(&fileAttributeData.ftLastWriteTime);
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6836	}
11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6837
11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6838	badArgument: ;
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6839	%}.
11811 530bb21f57f9 #linkInfoOf: Stefan Vogel <sv@exept.de> parents: 11810 diff changeset	6840
10161 fd6b02ffb383 avoid recursion Claus Gittinger <cg@exept.de> parents: 10160 diff changeset	6841	(aPathName endsWith:'.lnk') ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6842	type := #symbolicLink.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6843	"/ now done lazily in FileStatusInfo, when the path is accessed
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6844	"/ path := self getLinkTarget:aPathName.
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6845	].
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6846
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6847	mode isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6848	(self isDirectory:aPathName) ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6849	"/ the code above fails for root directories (these do not exist).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6850	"/ simulate here
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6851	mode := 8r777.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6852	type := #directory.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6853	uid := gid := 0.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6854	size := 0.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6855	id := 0.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6856	atime := mtime := ctime := Timestamp now.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6857	].
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6858	].
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6859	mode notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6860	atime isNil ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6861	"/ rebias to 1970 by subtracting the number of millis from 1.1.1601 to 1.1.1970
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6862	"/ aOsTime := aOsTime - self osTimeOf19700101. -- already done
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6863	atime := Timestamp new fromOSTime:aOsTime.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6864	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6865	mtime isNil ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6866	"/ rebias to 1970 by subtracting the number of millis from 1.1.1601 to 1.1.1970
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6867	"/ mOsTime := mOsTime - self osTimeOf19700101. -- already done
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6868	mtime := Timestamp new fromOSTime:mOsTime.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6869	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6870	ctime isNil ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6871	"/ rebias to 1970 by subtracting the number of millis from 1.1.1601 to 1.1.1970
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6872	"/ cOsTime := cOsTime - self osTimeOf19700101. -- already done
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6873	ctime := Timestamp new fromOSTime:cOsTime.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6874	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6875
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6876	info := FileStatusInfo
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6877	type:type mode:mode
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6878	uid:uid gid:gid
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6879	size:size
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6880	id:id
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6881	accessed:atime modified:mtime created:ctime
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6882	sourcePath:aPathName
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6883	fullName:fileName alternativeName:alternativeName.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6884	^ info
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6885	].
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6886	^ nil
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6887
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6888	"
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6889	OperatingSystem linkInfoOf:'c:\windows'
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	6890	OperatingSystem linkInfoOf:'stx.exe'
51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	6891	(OperatingSystem linkInfoOf:'/') uid
51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	6892	(OperatingSystem linkInfoOf:'/') accessed
11811 530bb21f57f9 #linkInfoOf: Stefan Vogel <sv@exept.de> parents: 11810 diff changeset	6893	OperatingSystem linkInfoOf:'C:\Dokumente und Einstellungen\stefan\Desktop\System.lnk'
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6894	"
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6895
10373 92efacf8b050 getLinkTarget is now done lazyly. Claus Gittinger <cg@exept.de> parents: 10365 diff changeset	6896	"Modified: / 07-02-2007 / 10:30:14 / cg"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6897	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6898
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6899	mimeTypeForSuffix:aFileSuffix
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6900	"given a file suffix, return a corresponding mimeType.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6901	Here, the Registry is consulted.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6902	Returns nil if no mimeType for the given suffix is known."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6903
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	6904	^ RegistryEntry
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6905	stringValueFor:'Content Type'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6906	atKey:('HKEY_CLASSES_ROOT\.' , aFileSuffix)
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6907
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6908	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	6909	self mimeTypeForSuffix:'au'
9025 e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	6910	self mimeTypeForSuffix:'st'
e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	6911	self mimeTypeForSuffix:'dll'
9013 7e4f88f6c1a5 comments Claus Gittinger <cg@exept.de> parents: 8934 diff changeset	6912	"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6913	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6914
22131 bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	6915	nameOfSTXExecutable
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	6916	"return the name of the running ST/X executable program.
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	6917	Usually, 'stx.exe or stx.com' is returned -
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	6918	but may be different for standAlone apps (or winstx.exe)."
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	6919
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	6920	^ self primNameOfSTXExecutable asSingleByteStringIfPossible
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	6921
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	6922	"
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	6923	OperatingSystem nameOfSTXExecutable
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	6924	"
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	6925	!
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	6926
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6927	parentDirectoryName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6928	"return the name used to refer to parent directories.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6929	In MSDOS, Unix and other systems this is '..', but maybe different
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6930	for other systems.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6931	(but those are currently not supported - so this is some
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6932	preparation for the future)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6933
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6934	^ '..'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6935	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6936
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6937	pathNameOf:pathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6938	"return the pathName of the argument, aPathString,
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6939	- thats the full pathname of the directory, starting at '/'.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6940	This method needs the path to be valid
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6941	(i.e. all directories must exist, be readable and executable).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6942	Notice: if symbolic links are involved, the result may look different
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6943	from what you expect."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6944
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6945	\|p path\|
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6946
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6947	"some systems have a convenient function for this ..."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6948	path := self primPathNameOf:pathName.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6949
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6950	path isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6951	(self isValidPath:pathName) ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6952	p := pathName.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6953	[(p size > 1)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6954	and:[p endsWith:(self fileSeparator)]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6955	] whileTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6956	p := p copyButLast:1.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6957	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6958	^ p
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6959	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6960
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6961	"/
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6962	"/ return the original - there is nothing else can we do
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6963	"/
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6964	path := self compressPath:pathName
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6965	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6966	^ path.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6967
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6968	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6969	OperatingSystem pathNameOf:'.'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6970	OperatingSystem pathNameOf:'../smalltalk/../smalltalk'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6971	OperatingSystem pathNameOf:'../../..'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6972	OperatingSystem pathNameOf:'..'
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	6973	OperatingSystem pathNameOf:'/tmp////'
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	6974	OperatingSystem pathNameOf:'/foo/bar'
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6975	OperatingSystem pathNameOf:'/foo/bar/'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6976	OperatingSystem pathNameOf:'/foo/bar//'
25074 1a9bfc0fc996 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 25071 diff changeset	6977	OperatingSystem pathNameOf:'%ProgramFiles%'
1a9bfc0fc996 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 25071 diff changeset	6978	OperatingSystem pathNameOf:'%programfiles%'
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6979	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6980
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6981	"Modified: 29.11.1996 / 18:02:12 / stefan"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6982	"Modified: 10.1.1997 / 19:10:42 / cg"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6983	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6984
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6985	primGetFileAttributes:aPathName
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6986	"get the file-attributes"
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6987
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6988	\|errorNumber\|
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6989
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6990	%{
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6991	int ret;
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6992
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	6993	if (__isStringLike(aPathName)) {
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6994	#ifdef DO_WRAP_CALLS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6995	char _aPathName[MAXPATHLEN];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6996
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6997	strncpy(_aPathName, __stringVal(aPathName), MAXPATHLEN-1); _aPathName[MAXPATHLEN-1] = '\0';
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6998	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	6999	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7000	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7001	ret = (int)(STX_API_NOINT_CALL1( "GetFileAttributesA", GetFileAttributesA, _aPathName));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7002	} while ((ret < 0) && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7003	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7004	ret = GetFileAttributesA((char *) __stringVal(aPathName));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7005	if (ret < 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7006	__threadErrno = __WIN32_ERR(GetLastError());
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7007	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7008	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7009	if (ret >= 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7010	RETURN ( __mkSmallInteger(ret) );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7011	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7012	__threadErrno = __WIN32_ERR(GetLastError());
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7013	RETURN (nil);
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	7014	}
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	7015
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	7016	if (__isUnicode16String(aPathName)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7017	wchar_t _wPathName[MAXPATHLEN+1];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7018
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7019	_makeWchar(aPathName, _wPathName, sizeof(_wPathName));
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	7020
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	7021	#ifdef DO_WRAP_CALLS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7022	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7023	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7024	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7025	ret = (int)(STX_API_NOINT_CALL1( "GetFileAttributesW", GetFileAttributesW, _wPathName));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7026	} while ((ret < 0) && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7027	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7028	ret = GetFileAttributesW(_wPathName);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7029	if (ret < 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7030	__threadErrno = __WIN32_ERR(GetLastError());
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7031	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7032	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7033	if (ret >= 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7034	RETURN ( __mkSmallInteger(ret) );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7035	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7036	__threadErrno = __WIN32_ERR(GetLastError());
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7037	RETURN (nil);
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	7038	}
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	7039	%}.
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	7040	(aPathName isString and:[aPathName isUnicode32String]) ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7041	"/ WIN32 only support 16 bit (wide) strings
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7042	^ self primGetFileAttributes:aPathName asUnicode16String
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	7043	].
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	7044
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	7045	^ self primitiveFailed
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	7046
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	7047	"
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	7048	self primGetFileAttributes:'.'
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	7049	self primGetFileAttributes:'bc.mak'
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	7050
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	7051	self primGetFileAttributes:'.' asUnicodeString
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	7052	self primGetFileAttributes:'.' asUnicode32String
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	7053	self primGetFileAttributes:'bc.mak' asUnicodeString
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	7054	"
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	7055	!
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	7056
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7057	primIdOf:aPathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7058	"the actual code to return the fileNumber (i.e. inode number) of a file."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7059
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7060	^ nil
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7061	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7062
22131 bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	7063	primNameOfSTXExecutable
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	7064	"return the name of the running ST/X executable program.
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	7065	Usually, 'stx' is returned -
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	7066	but may be different for standAlone apps (or winstx.exe)."
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	7067
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	7068	%{
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	7069	wchar_t name[MAX_PATH];
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	7070	int len;
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	7071
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	7072	len = GetModuleFileNameW(0, name, MAX_PATH);
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	7073	if (len <= 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7074	RETURN(nil);
22131 bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	7075	}
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	7076	RETURN(__MKU16STRING_MAXLEN(name, len));
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	7077	%}
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	7078	"
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	7079	OperatingSystem primNameOfSTXExecutable
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	7080	"
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	7081	!
bfd1058ffb7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22124 diff changeset	7082
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7083	primPathNameOf:aPathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7084	"return the pathName of the argument, aPathString,
15169 0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	7085	- thats the full pathname of the directory, starting at 'X:\'.
0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	7086	This method here returns nil, if the OS cannot perform the operation.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7087	Notice: if symbolic links are involved, the result may look different
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7088	from what you expect."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7089
15169 0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	7090	\|error\|
0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	7091
0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	7092	%{
9390 a0c059f2477c #primPathNameOf: -- allow symbol as arg (sv) ca parents: 9384 diff changeset	7093	if (__isStringLike(aPathName)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7094	char nameBuffer[MAXPATHLEN + 1];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7095	char nameBuffer2[MAXPATHLEN + 1];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7096	char *returnedName = NULL;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7097	int rslt;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7098
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7099	#ifdef DO_WRAP_CALLS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7100	char _aPathName[MAXPATHLEN+1];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7101
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7102	strncpy(_aPathName, __stringVal(aPathName), MAXPATHLEN-1); _aPathName[MAXPATHLEN-1] = '\0';
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7103	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7104	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7105	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7106	rslt = (int)(STX_API_NOINT_CALL4( "GetFullPathNameA", GetFullPathNameA, _aPathName, MAXPATHLEN, nameBuffer, NULL));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7107	} while ((rslt < 0) && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7108	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7109	rslt = GetFullPathNameA(__stringVal(aPathName), MAXPATHLEN, nameBuffer, NULL);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7110	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7111	returnedName = nameBuffer;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7112
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7113	if (rslt > 0) {
8652 793cc6e353bf * empty log message * Claus Gittinger <cg@exept.de> parents: 8651 diff changeset	7114	#ifdef DO_WRAP_CALLS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7115	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7116	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7117	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7118	rslt = (int)(STX_API_NOINT_CALL3( "GetLongPathNameA", GetLongPathNameA, nameBuffer, nameBuffer2, MAXPATHLEN));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7119	} while ((rslt < 0) && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7120	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7121	rslt = GetLongPathNameA(nameBuffer, nameBuffer2, MAXPATHLEN);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7122	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7123	returnedName = nameBuffer2;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7124	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7125	if (rslt > 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7126	RETURN ( __MKSTRING(returnedName) );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7127	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7128	__threadErrno = __WIN32_ERR(GetLastError());
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7129	RETURN (nil);
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	7130	}
11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	7131	if (__isUnicode16String(aPathName)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7132	wchar_t nameBuffer[MAXPATHLEN + 1];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7133	wchar_t nameBuffer2[MAXPATHLEN + 1];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7134	wchar_t *returnedName = NULL;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7135	int rslt;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7136	wchar_t _wPathName[MAXPATHLEN+1];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7137
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7138	_makeWchar(aPathName, _wPathName, sizeof(_wPathName));
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	7139
11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	7140	#ifdef DO_WRAP_CALLS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7141	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7142	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7143	rslt = (int)(STX_API_NOINT_CALL4( "GetFullPathNameW", GetFullPathNameW, _wPathName, MAXPATHLEN, nameBuffer, NULL));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7144	} while ((rslt < 0) && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7145	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7146	rslt = GetFullPathNameW(_wPathName, MAXPATHLEN, nameBuffer, NULL);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7147	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7148
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7149	returnedName = nameBuffer;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7150
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7151	if (rslt > 0) {
15252 621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	7152
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	7153	#ifdef DO_WRAP_CALLS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7154	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7155	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7156	rslt = (int)(STX_API_NOINT_CALL3( "GetLongPathNameW", GetLongPathNameW, nameBuffer, nameBuffer2, MAXPATHLEN));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7157	} while ((rslt < 0) && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7158	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7159	rslt = GetLongPathNameW(nameBuffer, nameBuffer2, MAXPATHLEN);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7160	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7161	returnedName = nameBuffer2;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7162	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7163	if (rslt > 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7164	RETURN (__mkStringOrU16String_maxlen(returnedName, MAXPATHLEN));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7165	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7166	__threadErrno = __WIN32_ERR(GetLastError());
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7167	RETURN (nil);
15169 0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	7168	}
0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	7169	error = @symbol(argument); // argument is not a string or unicode16string
0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	7170	%}.
15252 621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	7171
15169 0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	7172	error notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7173	self primitiveFailed:error.
15169 0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	7174	].
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7175	^ nil
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	7176
11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	7177	"
11291 1e7c06d9d939 * empty log message * Claus Gittinger <cg@exept.de> parents: 11289 diff changeset	7178	self primPathNameOf:'.'
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	7179	self primPathNameOf:'.' asUnicode16String
15169 0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	7180	self primPathNameOf:5555
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	7181	"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7182	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7183
12616 7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	7184	primSetCurrentDirectoryA:pathName
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	7185	<apicall: bool "SetCurrentDirectoryA" ( pointer ) module: "kernel32.dll" >
12616 7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	7186
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	7187	self primitiveFailed.
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	7188
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	7189	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	7190	self primSetCurrentDirectory:'C:\Dokumente und Einstellungen\User\Eigene Dateien\work5\stx\projects\smalltalk'.
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	7191	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	7192
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	7193	"Created: / 27-07-2006 / 14:47:12 / fm"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	7194	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	7195
12616 7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	7196	primSetCurrentDirectoryW:pathName
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	7197	<apicall: bool "SetCurrentDirectoryW" ( pointer ) module: "kernel32.dll" >
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	7198
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	7199	self primitiveFailed.
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	7200	!
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	7201
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	7202	primSetFileAttributes:aPathName to:anInteger
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	7203	"set the file-attributes; return true if the set did happen"
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	7204
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	7205	\|errorNumber\|
10622 87a51cae9161 added #setHidden: and #setNormal: sr parents: 10615 diff changeset	7206
87a51cae9161 added #setHidden: and #setNormal: sr parents: 10615 diff changeset	7207	%{
87a51cae9161 added #setHidden: and #setNormal: sr parents: 10615 diff changeset	7208	int ret;
87a51cae9161 added #setHidden: and #setNormal: sr parents: 10615 diff changeset	7209
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	7210	if (__isSmallInteger(anInteger)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7211	if (__isStringLike(aPathName)) {
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	7212	#ifdef DO_WRAP_CALLS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7213	char _aPathName[MAXPATHLEN];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7214
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7215	strncpy(_aPathName, __stringVal(aPathName), MAXPATHLEN-1); _aPathName[MAXPATHLEN-1] = '\0';
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7216	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7217	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7218	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7219	ret = (int)(STX_API_NOINT_CALL2( "SetFileAttributesA", SetFileAttributesA, _aPathName, __intVal(anInteger)));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7220	} while ((ret < 0) && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7221	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7222	ret = SetFileAttributesA((char *) __stringVal(aPathName), __intVal(anInteger));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7223	if (ret < 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7224	__threadErrno = __WIN32_ERR(GetLastError());
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7225	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7226	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7227	if (ret >= 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7228	RETURN ( true );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7229	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7230	__threadErrno = __WIN32_ERR(GetLastError());
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7231	RETURN (false);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7232	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7233
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7234	if (__isUnicode16String(aPathName)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7235	wchar_t _wPathName[MAXPATHLEN+1];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7236
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7237	_makeWchar(aPathName, _wPathName, sizeof(_wPathName));
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	7238	#ifdef DO_WRAP_CALLS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7239	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7240	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7241	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7242	ret = (int)(STX_API_NOINT_CALL2( "SetFileAttributesW", SetFileAttributesW, _wPathName, __intVal(anInteger)));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7243	} while ((ret < 0) && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7244	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7245	ret = SetFileAttributesW(_wPathName, __intVal(anInteger));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7246	if (ret < 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7247	__threadErrno = __WIN32_ERR(GetLastError());
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7248	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7249	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7250	if (ret >= 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7251	RETURN ( true );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7252	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7253	__threadErrno = __WIN32_ERR(GetLastError());
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7254	RETURN (false);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7255	}
10622 87a51cae9161 added #setHidden: and #setNormal: sr parents: 10615 diff changeset	7256	}
87a51cae9161 added #setHidden: and #setNormal: sr parents: 10615 diff changeset	7257	%}.
87a51cae9161 added #setHidden: and #setNormal: sr parents: 10615 diff changeset	7258	^ self primitiveFailed
87a51cae9161 added #setHidden: and #setNormal: sr parents: 10615 diff changeset	7259	!
87a51cae9161 added #setHidden: and #setNormal: sr parents: 10615 diff changeset	7260
12616 7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	7261	setCurrentDirectory:pathName
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	7262	pathName bitsPerCharacter == 16 ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7263	self primSetCurrentDirectoryW:pathName asUnicode16StringZ.
12616 7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	7264	] ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7265	self primSetCurrentDirectoryA:pathName
12616 7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	7266	].
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	7267
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	7268	"
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	7269	self getCurrentDirectory
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	7270	self setCurrentDirectory:'C:\Users\cg\work\stx\projects'
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	7271	self getCurrentDirectory
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	7272	self setCurrentDirectory:'C:\Users\cg\work\stx\projects\smalltalk'
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	7273	"
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	7274	!
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	7275
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7276	timeOfLastAccess:aPathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7277	"return the time, when the file was last accessed.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7278	For nonexistent files, nil is returned."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7279
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7280	"could be implemented as:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7281	(self infoOf:aPathName) accessed
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7282	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7283	\| i\|
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7284
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7285	i := self infoOf:aPathName.
6791 ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	7286	i notNil ifTrue:[^ i accessTime].
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7287	^ nil.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7288
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7289	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7290	OperatingSystem timeOfLastAccess:'/'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7291	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7292	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7293
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7294	timeOfLastChange:aPathName
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	7295	"return the time, when the file was last changed.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7296	For nonexistent files, nil is returned."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7297
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7298	"could be implemented as:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7299	(self infoOf:aPathName) modified
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7300	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7301
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7302	\| i\|
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7303
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7304	i := self infoOf:aPathName.
6791 ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	7305	i notNil ifTrue:[^ i modificationTime].
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7306	^ nil.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7307
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7308	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7309	OperatingSystem timeOfLastChange:'/'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7310	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7311	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7312
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7313	typeOf:aPathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7314	"return the type of a file as a symbol; for nonexistent files,
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7315	nil is returned.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7316	Notice: for symbolic links, the type of the pointed-to file is returned."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7317
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7318	\|i\|
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7319
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7320	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7321	this could have been implemented as:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7322	(self infoOf:aPathName) type
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7323	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7324
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7325	i := self infoOf:aPathName.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7326	i notNil ifTrue:[^ i type].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7327	^ nil.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7328
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7329	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	7330	OperatingSystem typeOf:'/'
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	7331	OperatingSystem typeOf:'.'
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	7332	OperatingSystem typeOf:'Make.proto'
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	7333	OperatingSystem typeOf:'resources/motif.style'
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7334	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7335	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7336
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	7337	volumeLabelOf: aFilenameOrString
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	7338
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7339	"Answer the volume label of the disk containing aFilenameOrString."
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	7340
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	7341	\| volName \|
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	7342
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	7343	volName := String new: 255.
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	7344	( self
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7345	getVolumeInformation: aFilenameOrString asFilename volume, '\'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7346	name: volName
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7347	nameSize: volName size
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7348	serialNumber: nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7349	maximumComponentLength: nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7350	fileSystemFlags: nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7351	fileSystemName: nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7352	fileSystemNameSize: 0 )
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7353	ifFalse: [
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7354	Transcript showCR:'GetVolumeInformation error'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7355	^ ''
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7356	].
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	7357	^ volName copyUpTo: Character null
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	7358
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	7359	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7360	self volumeLabelOf: 'C:\pepe.pep'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7361	self volumeLabelOf: 'C:'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7362	self volumeLabelOf: 'C:\\'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7363	self volumeLabelOf: 'C:\'
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	7364
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	7365	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	7366	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	7367
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7368	volumeNameOf:aPathString
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7369	"return the volumeName of the argument, aPath
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7370	- thats the name of the volume where aPath is.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7371	Not all OperatingSystem support/use volumes; on unix,
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7372	this always returns an empty string."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7373
7102 415388639cdd changes claus penk parents: 7080 diff changeset	7374	aPathString size < 2 ifTrue:[^ ''].
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7375	(aPathString at:2) == $: ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7376	^ (aPathString at:1) asString.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7377	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7378	^ ''
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7379	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7380
9475 c57956a348bf printing support fm parents: 9431 diff changeset	7381	!Win32OperatingSystem class methodsFor:'help support'!
c57956a348bf printing support fm parents: 9431 diff changeset	7382
9988 0126451578fd * empty log message * Claus Gittinger <cg@exept.de> parents: 9955 diff changeset	7383	openDocumentationFilename: aFilenameOrString
12154 646c4171f0d2 added: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 11920 diff changeset	7384	<resource: #obsolete>
646c4171f0d2 added: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 11920 diff changeset	7385
646c4171f0d2 added: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 11920 diff changeset	7386	self obsoleteMethodWarning:'call openApplicationForDocument:operation: and provide a proper error handler yourself'.
646c4171f0d2 added: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 11920 diff changeset	7387
9990 19a95e470d32 * empty log message * Claus Gittinger <cg@exept.de> parents: 9988 diff changeset	7388	"open a windows-shell application to present the document contained in aFilenameOrString.
19a95e470d32 * empty log message * Claus Gittinger <cg@exept.de> parents: 9988 diff changeset	7389	This looks for the files extension, and is typically used to present help-files,
19a95e470d32 * empty log message * Claus Gittinger <cg@exept.de> parents: 9988 diff changeset	7390	html documents, pdf documents etc."
19a95e470d32 * empty log message * Claus Gittinger <cg@exept.de> parents: 9988 diff changeset	7391
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	7392	Error
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7393	handle:[:ex \|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7394	Dialog warn:'Shell execution failed'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7395	] do:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7396	self openApplicationForDocument:aFilenameOrString operation:#open
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7397	]
9988 0126451578fd * empty log message * Claus Gittinger <cg@exept.de> parents: 9955 diff changeset	7398
0126451578fd * empty log message * Claus Gittinger <cg@exept.de> parents: 9955 diff changeset	7399	"
0126451578fd * empty log message * Claus Gittinger <cg@exept.de> parents: 9955 diff changeset	7400	self openDocumentationFilename: 'C:\WINDOWS\Help\clipbrd.chm' asFilename
10364 43968474508b * empty log message * Claus Gittinger <cg@exept.de> parents: 10352 diff changeset	7401	self openDocumentationFilename: Filename currentDirectory
9988 0126451578fd * empty log message * Claus Gittinger <cg@exept.de> parents: 9955 diff changeset	7402	"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	7403
c57956a348bf printing support fm parents: 9431 diff changeset	7404	"Created: / 04-08-2006 / 18:04:52 / fm"
10364 43968474508b * empty log message * Claus Gittinger <cg@exept.de> parents: 10352 diff changeset	7405	"Modified: / 26-01-2007 / 14:05:44 / cg"
10160 2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7406	!
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7407
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7408	openHelpFile: helpFilename inContextID: contextID withOwner: anApplicationModel
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7409
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7410	\|ownerHandle macro\|
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7411
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7412	anApplicationModel notNil ifTrue:[ownerHandle := anApplicationModel window id].
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7413
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7414	contextID isNil ifTrue: [^self primWinHelp: ownerHandle helpFile: helpFilename command: 3 "HelpIndex" dwData: nil ].
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7415	contextID isInteger ifTrue: [^self primWinHelp: ownerHandle helpFile: helpFilename command: 1 "HelpContext" dwData: contextID ].
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7416
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7417	self primWinHelp: ownerHandle helpFile: helpFilename command: 3 "HelpIndex" dwData: nil. "force the help window open if not currently"
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7418
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7419	macro := 'JumpId("', helpFilename asFilename baseName , '", "', contextID, '")'.
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7420	self primWinHelp: nil helpFile: helpFilename command: 258 "HelpCommand" dwData: macro
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7421
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7422
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7423	"
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7424	self openHelpFile: 'C:\vsw311\dapas.hlp' inContextID: 'IDH_ACI' withOwner: nil
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7425	"
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7426	!
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7427
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7428	primWinHelp: hWnd helpFile: aString command: anInteger dwData: anObject
10276 1e689abbfb18 #primWinHelp: helpFile: command: dwData: fm parents: 10274 diff changeset	7429	<apicall: bool "WinHelpA" ( handle lpstr int32 lpstr ) module: "user32.dll" >
10160 2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7430	self primitiveFailed.
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7431
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	7432	"
10160 2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7433	anInteger
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7434	- 1 HelpContext to open in the specified contextID
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	7435	- 3 HelpIndex to open in the help index
10160 2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7436	- 258 HelpCommand execute a macro string
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7437	"
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7438
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7439	"
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	7440	self primWinHelp: nil helpFile: 'C:\vsw311\dapas.hlp' command: 3 dwData: nil
10160 2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	7441	"
10276 1e689abbfb18 #primWinHelp: helpFile: command: dwData: fm parents: 10274 diff changeset	7442
1e689abbfb18 #primWinHelp: helpFile: command: dwData: fm parents: 10274 diff changeset	7443	"Modified: / 19-12-2006 / 11:48:15 / User"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	7444	! !
c57956a348bf printing support fm parents: 9431 diff changeset	7445
23491 113096ef5a36 #BUGFIX by Maren matilk parents: 23274 diff changeset	7446	!Win32OperatingSystem class methodsFor:'interprocess communication'!
113096ef5a36 #BUGFIX by Maren matilk parents: 23274 diff changeset	7447
113096ef5a36 #BUGFIX by Maren matilk parents: 23274 diff changeset	7448	shutdownBidirectionalPipeOutput:fileDescriptor
113096ef5a36 #BUGFIX by Maren matilk parents: 23274 diff changeset	7449	"inform the other end of the bidirectional pipe represented by fileDescriptor, that
113096ef5a36 #BUGFIX by Maren matilk parents: 23274 diff changeset	7450	we will send no more data to the pipe, i.e. EOF is reached"
113096ef5a36 #BUGFIX by Maren matilk parents: 23274 diff changeset	7451
113096ef5a36 #BUGFIX by Maren matilk parents: 23274 diff changeset	7452	"/ TODO: add the implementation for Windows
113096ef5a36 #BUGFIX by Maren matilk parents: 23274 diff changeset	7453
113096ef5a36 #BUGFIX by Maren matilk parents: 23274 diff changeset	7454	"Created: / 30-10-2018 / 10:47:10 / Maren"
113096ef5a36 #BUGFIX by Maren matilk parents: 23274 diff changeset	7455	! !
113096ef5a36 #BUGFIX by Maren matilk parents: 23274 diff changeset	7456
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7457	!Win32OperatingSystem class methodsFor:'interrupts & signals'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7458
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7459	blockingTest
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7460	"this is a test method;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7461	For testing double CTRL-C in blocking primitives"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7462
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7463	%{
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7464	while(1) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7465	console_printf("blocking...");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7466	Sleep(50);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7467	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7468	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7469	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	7470	OperatingSystem blockingTest
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7471	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7472	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7473
7852 5e0c389a8164 * empty log message * ca parents: 7850 diff changeset	7474	blockingTest2
5e0c389a8164 * empty log message * ca parents: 7850 diff changeset	7475	"this is a test method;
12730 d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7476	For testing single CTRL-C in blocking primitives"
7852 5e0c389a8164 * empty log message * ca parents: 7850 diff changeset	7477
5e0c389a8164 * empty log message * ca parents: 7850 diff changeset	7478	%{
5e0c389a8164 * empty log message * ca parents: 7850 diff changeset	7479	while(1) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7480	console_printf("blocking...");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7481	STX_API_CALL1("Sleep", Sleep, 50);
7852 5e0c389a8164 * empty log message * ca parents: 7850 diff changeset	7482	}
5e0c389a8164 * empty log message * ca parents: 7850 diff changeset	7483	%}.
5e0c389a8164 * empty log message * ca parents: 7850 diff changeset	7484	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	7485	OperatingSystem blockingTest2
7852 5e0c389a8164 * empty log message * ca parents: 7850 diff changeset	7486	"
5e0c389a8164 * empty log message * ca parents: 7850 diff changeset	7487	!
5e0c389a8164 * empty log message * ca parents: 7850 diff changeset	7488
12730 d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7489	blockingTest3
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7490	"this is a test method;
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7491	For testing single CTRL-C in non-interruptable blocking primitives.
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7492	This one should continue after typing continue in the debugger"
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7493
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7494	%{
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7495	int ret;
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7496
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7497	do {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7498	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7499	ret = (int)(STX_API_NOINT_CALL1("Sleep", Sleep, 60000));
12730 d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7500	} while (ret < 0 && __threadErrno == EINTR);
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7501	%}.
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7502	"
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7503	OperatingSystem blockingTest3
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7504	"
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7505	!
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7506
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7507	blockingTest4
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7508	"this is a test method;
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7509	For testing single CTRL-C in non-interruptable blocking primitives.
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7510	This one start a new sleep after typing continue in the debugger"
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7511
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7512	%{
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7513	int ret;
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7514
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7515	do {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7516	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7517	ret = STX_API_CALL1("Sleep", Sleep, 60000);
12730 d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7518	} while (ret < 0 && __threadErrno == EINTR);
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7519	%}.
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7520	"
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7521	OperatingSystem blockingTest4
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7522	"
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7523	!
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7524
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7525	defaultSignal:signalNumber
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7526	"revert to the default action on arrival of a (Unix-)signal.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7527	Dont confuse Unix signals with smalltalk signals.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7528	WARNING: for some signals, it is no good idea to revert to default;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7529	for example, the default for SIGINT (i.e. ^C) is to exit; while the
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7530	default for SIGQUIT (^ \) is to dump core.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7531	Also, NOTICE that signal numbers are not portable between unix
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7532	systems - use OperatingSystem sigXXX to get the numeric value for
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7533	a signal."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7534
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7535	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7536
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7537	if (__isSmallInteger(signalNumber)) {
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7538	#ifdef SIG_DFL
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7539	signal(__intVal(signalNumber), SIG_DFL);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7540	RETURN (self);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7541	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7542	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7543	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7544	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7545	this error is triggered on non-integer argument
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7546	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7547	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7548
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7549	"you better save a snapshot image before trying this ..."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7550	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7551	'if you hit ^C now, Smalltalk will exit immediately' printNewline.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7552	OperatingSystem defaultSignal:(OperatingSystem sigINT).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7553	1 to:1000000 do:[:i\| ].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7554	OperatingSystem enableSignal:(OperatingSystem sigINT).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7555	'normal ^C handling again.' printNewline
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7556	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7557	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7558
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7559	disableIOInterruptsOn:fd
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7560	"turn off IO interrupts for a filedescriptor"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7561
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7562	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7563	this error is triggered on non-integer argument
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7564	or if the OS does not support IO interrupts.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7565	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7566	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7567	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7568
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7569	disableSignal:signalNumber
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7570	"disable (Unix-) signal processing for signalNumber.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7571	Dont confuse Unix signals with smalltalk signals.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7572	WARNING: for some signals, it is no good idea to disable
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7573	them; for example, disabling the SIGINT signal turns off ^C
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7574	handling.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7575	Also, NOTICE that signal numbers are not portable between unix
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7576	systems - use OperatingSystem sigXXX to get the numeric value for
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7577	a signal.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7578	Use only for fully debugged stand alone applications."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7579
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7580	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7581
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7582	if (__isSmallInteger(signalNumber)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7583	int sigNo = __intVal(signalNumber);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7584
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7585	if (sigNo == 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7586	RETURN (self);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7587	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7588	#ifdef SIG_IGN
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7589	signal(sigNo, SIG_IGN);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7590	RETURN (self);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7591	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7592	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7593	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7594	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7595	this error is triggered on non-integer argument
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7596	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7597	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7598
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7599	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7600	'now, ^C is totally ignored ...' printNewline.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7601	OperatingSystem disableSignal:(OperatingSystem sigINT).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7602	1 to:1000000 do:[:i\| ].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7603	OperatingSystem enableSignal:(OperatingSystem sigINT).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7604	'^C handled again.' printNewline
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7605	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7606	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7607
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7608	disableTimer
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7609	"disable timer interrupts.
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	7610	WARNING:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7611	the system will not operate correctly with timer interrupts
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7612	disabled, because no scheduling or timeouts are possible."
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7613
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7614	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7615
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7616	extern void __win32ClearTimer();
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7617
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7618	__win32ClearTimer();
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7619	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7620	^ true
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7621	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7622
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7623	enableChildSignalInterrupts
16337 40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	7624	"childSignal interrupts are not supported in windows"
40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	7625
40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	7626	^ self
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7627	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7628
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7629	enableIOInterruptsOn:fd
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7630	"turn on IO interrupts for a filedescriptor"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7631
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7632	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7633	this error is triggered on non-integer argument
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7634	or if the system does not support SIGIO
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7635	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7636	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7637	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7638
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7639	enableSignal:signalNumber
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7640	"enable (Unix-)signal processing for signalNumber.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7641	Dont confuse Unix signals with smalltalk signals.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7642	The signal will be delivered to one of the standard handlers
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7643	(SIGINT, SIGQUIT, etc) or to a general handler, which
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7644	sends #signalInterrupt:.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7645
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7646	NOTICE that signal numbers are not portable between unix
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7647	systems - use OperatingSystem sigXXX to get the numeric value for
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7648	a signal."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7649
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7650	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7651
11669 db58374346b3 Define (and handle) the HUP and PWR signals Stefan Vogel <sv@exept.de> parents: 11623 diff changeset	7652	# define SIG_LIMIT 30
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7653
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7654	#if defined(SIGPOLL) && !defined(SIGIO)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7655	# define SIGIO SIGPOLL
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7656	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7657
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7658	#ifdef SIGCHLD
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7659	# define CHILD_SIGNAL SIGCHLD
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7660	#else
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7661	# ifdef SIGCLD
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7662	# define CHILD_SIGNAL SIGCLD
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7663	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7664	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7665
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7666	int sigNr;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7667
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7668	#if defined(SIGINT) \|\| defined(SIGQUIT)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7669	# ifndef __signalUserInterrupt
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7670	extern void __signalUserInterrupt(SIGHANDLER_ARG);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7671	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7672	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7673
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7674	#ifdef SIGFPE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7675	# ifndef __signalFpExceptionInterrupt
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7676	extern void __signalFpExceptionInterrupt(SIGHANDLER_ARG);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7677	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7678	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7679
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7680	#ifdef SIGIO
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7681	# ifndef __signalIoInterrupt
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7682	extern void __signalIoInterrupt(SIGHANDLER_ARG);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7683	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7684	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7685
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7686	#ifdef CHILD_SIGNAL
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7687	# ifndef __signalChildInterrupt
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7688	extern void __signalChildInterrupt(SIGHANDLER_ARG);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7689	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7690	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7691
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7692	#ifdef SIGPIPE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7693	# ifndef __signalPIPEInterrupt
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7694	extern void __signalPIPEInterrupt(SIGHANDLER_ARG);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7695	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7696	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7697
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7698	#ifdef SIGBUS
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7699	# ifndef __signalBUSInterrupt
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7700	extern void __signalBUSInterrupt(SIGHANDLER_ARG);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7701	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7702	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7703
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7704	#ifdef SIGSEGV
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7705	# ifndef __signalSEGVInterrupt
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7706	extern void __signalSEGVInterrupt(SIGHANDLER_ARG);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7707	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7708	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7709
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7710	#if defined(SIGILL) \|\| defined(SIGEMT)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7711	# ifndef __signalTrapInterrupt
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7712	extern void __signalTrapInterrupt(SIGHANDLER_ARG);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7713	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7714	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7715
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7716	#ifdef SIGALRM
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7717	# ifndef WIN32
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7718	# ifndef __signalTimerInterrupt
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7719	extern void __signalTimerInterrupt(SIGHANDLER_ARG);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7720	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7721	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7722	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7723
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7724	#ifndef __signalInterrupt
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7725	extern void __signalInterrupt(SIGHANDLER_ARG);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7726	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7727	void (*handler)(SIGHANDLER_ARG);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7728
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7729	if (__isSmallInteger(signalNumber)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7730	&& ((sigNr = __intVal(signalNumber)) >= 0)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7731	#ifdef SIG_LIMIT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7732	&& (sigNr <= SIG_LIMIT)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7733	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7734	) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7735	/*
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7736	* standard signals are forced into standard handlers
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7737	* - all others go into general signalInterrupt
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7738	*/
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7739	#if defined(SIGPOLL) && defined(SIGIO)
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7740	if (sigNr == SIGPOLL)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7741	sigNr = SIGIO;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7742	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7743	switch (sigNr) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7744	case 0:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7745	/* enabling a non-supported signal */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7746	RETURN (self);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7747
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7748	#ifdef SIGBREAK
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7749	case SIGBREAK:
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7750	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7751	#ifdef SIGINT
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7752	case SIGINT:
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7753	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7754	#ifdef SIGQUIT
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7755	case SIGQUIT:
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7756	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7757	#ifdef SIGNALDEBUGWIN32
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7758	console_printf("ConsoleSignal %d\n",sigNr);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7759	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7760	SetConsoleCtrlHandler((PHANDLER_ROUTINE)__signalUserInterruptWIN32,TRUE);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7761	RETURN (self);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7762	#ifdef SIGFPE
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7763	case SIGFPE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7764	handler = __signalFpExceptionInterrupt;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7765	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7766	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7767
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7768	#ifdef SIGPIPE
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7769	case SIGPIPE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7770	handler = __signalPIPEInterrupt;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7771	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7772	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7773	#ifdef SIGBUS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7774	case SIGBUS:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7775	handler = __signalBUSInterrupt;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7776	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7777	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7778	#ifdef SIGSEGV
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7779	case SIGSEGV:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7780	handler = __signalSEGVInterrupt;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7781	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7782	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7783	#ifdef SIGILL
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7784	case SIGILL:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7785	handler = __signalTrapInterrupt;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7786	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7787	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7788	#ifdef SIGEMT
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7789	case SIGEMT:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7790	handler = __signalTrapInterrupt;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7791	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7792	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7793	#ifdef SIGIO
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7794	case SIGIO:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7795	handler = __signalIoInterrupt;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7796	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7797	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7798
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7799	#ifdef CHILD_SIGNAL
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7800	case CHILD_SIGNAL:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7801	handler = __signalChildInterrupt;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7802	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7803	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7804
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7805	default:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7806	handler = __signalInterrupt;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7807	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7808	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7809
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7810	{
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7811	#ifdef HAS_SIGACTION
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7812	struct sigaction act;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7813
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7814	/*
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7815	* Do not add SA_RESTART here. A signal can cause a
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7816	* thread switch, another thread can do a garbage collect
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7817	* and restarted system calls may write into old
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7818	* (collected) addresses.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7819	*/
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7820
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7821	act.sa_flags = SA_SIGINFO; /* <- if you add more, remember dummys at the top */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7822	sigemptyset(&act.sa_mask);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7823	act.sa_handler = handler;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7824	sigaction(sigNr, &act, 0);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7825	#else
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7826	# ifdef HAS_SIGVEC
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7827	struct sigvec vec;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7828
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7829	vec.sv_flags = SV_INTERRUPT;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7830	sigemptyset(&vec.sv_mask);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7831	vec.sv_handler = handler;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7832	sigvec(sigNr, &vec, NULL);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7833	# else
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7834	# ifdef WIN32
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7835	# ifdef SIGNALDEBUGWIN32
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7836	console_printf("signal %d can't change handler\n",sigNr);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7837	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7838	# else
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7839	(void) signal(sigNr, handler);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7840	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7841	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7842	#endif
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7843	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7844
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7845	/*
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7846	* maybe, we should Return the old enable-status
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7847	* as boolean here ...
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7848	*/
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7849	RETURN (self);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7850	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7851	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7852
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7853	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7854	this error is triggered on non-integer argument, or
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7855	if the signal number is not in the valid range (1..NSIG)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7856	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7857	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7858	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7859
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7860	enableTimer:milliSeconds
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7861	"setup for a timerInterrupt, to be signalled after some (real) time."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7862
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7863	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7864	extern void __win32SetTimer();
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7865
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7866	if (__isSmallInteger(milliSeconds)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7867	__win32SetTimer( __intVal(milliSeconds) );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7868	RETURN (true);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7869	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7870	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7871	^ false
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7872	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7873
6535 f6b834cb8c62 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6378 diff changeset	7874	isFatalSignal:aNumber
f6b834cb8c62 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6378 diff changeset	7875	"return true if a signal with number aNumber is a fatal signal,
f6b834cb8c62 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6378 diff changeset	7876	i.e. some severe internal error occured"
f6b834cb8c62 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6378 diff changeset	7877
f6b834cb8c62 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6378 diff changeset	7878	^ (aNumber == self sigSEGV)
f6b834cb8c62 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6378 diff changeset	7879	or:[aNumber == self sigILL
f6b834cb8c62 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6378 diff changeset	7880	or:[aNumber == self sigBUS]]
f6b834cb8c62 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6378 diff changeset	7881	!
f6b834cb8c62 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6378 diff changeset	7882
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7883	killProcess:processHandleOrPid
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7884	"kill a process.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7885	The process terminates immediately and has no chance to perform any cleanup actions.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7886
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7887	WARNING: in order to avoid zombie processes (on unix),
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7888	you have to fetch the processes exitstatus with
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7889	OperatingSystem>>getStatusOfProcess:aProcessId."
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7890
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7891	self killProcess:processHandleOrPid exitCode:0.
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7892
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7893	"Modified (format): / 03-08-2018 / 09:42:03 / Stefan Vogel"
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7894	!
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7895
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7896	killProcess:processHandleOrPid exitCode:exitCode
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7897	"kill a process.
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7898	The process terminates immediately and has no chance to perform any cleanup actions."
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7899
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7900	%{
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7901	if (__isExternalAddressLike(processHandleOrPid) ) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7902	HANDLE hProcess = _HANDLEVal(processHandleOrPid);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7903
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7904	if (hProcess != 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7905	TerminateProcess( hProcess, __intVal(exitCode) );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7906	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7907	RETURN( self );
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7908	} else if( __isSmallInteger(processHandleOrPid) ) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7909	HANDLE hProcess = OpenProcess(PROCESS_TERMINATE, 0, __smallIntegerVal(processHandleOrPid));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7910
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7911	if( hProcess != 0 ) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7912	TerminateProcess( hProcess, __intVal(exitCode) );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7913	CloseHandle(hProcess);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7914	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7915	RETURN( self );
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7916	}
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7917	%}.
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7918	self primitiveFailed:#invalidParameter.
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7919
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7920	"Created: / 03-08-2018 / 09:38:02 / Stefan Vogel"
23639 3b68a1b098c5 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23638 diff changeset	7921	"Modified: / 22-01-2019 / 19:42:05 / Stefan Vogel"
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7922	!
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7923
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7924	killProcessGroup:processGroupHandleOrPid
19174 803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7925	"kill a process group.
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7926	The process(es) terminate immediately and has no chance to perform any cleanup actions.
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7927	Here we kill any offspring of the process identified by processGroupHandleOrPid.
19174 803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7928
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7929	WARNING: in order to avoid zombie processes (on unix),
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7930	you have to fetch the processes exitstatus with
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7931	OperatingSystem>>getStatusOfProcess:aProcessId."
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7932
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7933	\| pid processList groupsToTerminate anyMore \|
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7934
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7935	processGroupHandleOrPid isInteger ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7936	pid := processGroupHandleOrPid
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7937	] ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7938	pid := processGroupHandleOrPid pid.
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7939	].
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7940	groupsToTerminate := Set with:pid.
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7941	processList := self getAllProcesses asSet.
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7942
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7943	"/ Transcript show:'terminate group '; showCR:pid.
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7944	anyMore := true.
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7945	[anyMore] whileTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7946	anyMore := false.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7947	processList doWithExit:[:anOSProcess :exit \|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7948	\|pid\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7949
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7950	(groupsToTerminate includes:anOSProcess parentPid) ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7951	pid := anOSProcess pid.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7952	groupsToTerminate add:pid.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7953	"/ Transcript show:'terminate '; showCR:pid.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7954	self killProcess:pid.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7955	processList remove:anOSProcess.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7956	anyMore := true.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7957	"/ need to restart: we have removed an element inside the loop
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7958	exit value:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7959	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	7960	].
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7961	].
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7962
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	7963	"Modified: / 03-08-2018 / 09:58:21 / Stefan Vogel"
19174 803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7964	!
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7965
18414 7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7966	microsecondSleep:micros
18543 fef08f652ef8 * empty log message * Claus Gittinger <cg@exept.de> parents: 18414 diff changeset	7967	"cease ANY action for some time.
18414 7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7968	This suspends the whole smalltalk (unix/windows-) process for some time.
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7969	Not really useful since not even low-prio processes and interrupt
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7970	handling will run during the sleep.
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7971	Use either OperatingSystem>>millisecondDelay: (which makes all
18543 fef08f652ef8 * empty log message * Claus Gittinger <cg@exept.de> parents: 18414 diff changeset	7972	threads sleep, but handles interrupts) or use a Delay
18414 7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7973	(which makes only the calling thread sleep)."
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7974
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7975	\|uLow uHigh\|
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7976
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7977	uLow := micros // 1000000.
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7978	uHigh := micros \\ 1000000.
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7979	%{
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7980	struct timeval tv;
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7981	fd_set dummy;
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7982	int success;
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7983
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7984	SOCKET s = socket(PF_INET, SOCK_STREAM, IPPROTO_TCP);
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7985	FD_ZERO(&dummy);
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7986	FD_SET(s, &dummy);
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7987	tv.tv_sec = __intVal(uLow);
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7988	tv.tv_usec = __intVal(uHigh);
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7989	success = (0 == select(0, 0, 0, &dummy, &tv));
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7990	closesocket(s);
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7991	RETURN (success ? true : false);
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7992	%}
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7993
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7994	"
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7995	Timestamp now printCR.
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7996	OperatingSystem microsecondSleep:100.
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7997	Timestamp now printCR.
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7998	"
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7999
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	8000	"Created: / 28-05-2015 / 14:14:53 / gg"
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	8001	!
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	8002
25132 b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	8003	sendCtrlCToProcess:processHandleOrPid
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	8004	"it looks as if that does not work at the moment,
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	8005	unless the process has the same console as me.
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	8006	This is not the case with embedded terminals, so CTRL-C cannot be sent to it."
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	8007
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	8008	\|pid\|
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	8009
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	8010	pid := processHandleOrPid isInteger ifTrue:[processHandleOrPid] ifFalse:[processHandleOrPid pid].
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	8011	self primGenerateConsoleCtrlEvent:pid
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	8012	"/ self primGenerateConsoleCtrlEvent:17764
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	8013	!
b75ecaafefc4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25095 diff changeset	8014
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8015	sendSignal:signalNumber to:processId
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8016	"send a unix signal to some process (maybe myself).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8017	Returns false if any error occurred, true otherwise.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8018
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8019	Do not confuse UNIX signals with Smalltalk-Signals.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8020
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8021	WARNING: in order to avoid zombie processes (on unix),
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8022	you may have to fetch the processes exitstatus with
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8023	OperatingSystem>>getStatusOfProcess:aProcessId
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8024	if the signal terminates that process."
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8025
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8026	"/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8027	"/ either invalid argument (non-integers)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8028	"/ or not supported by OS
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8029	"/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8030	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8031	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8032
19174 803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	8033	sendSignal:signalNumber to:processId toGroup:toGroupBoolean toAll:toAllBoolean
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	8034	"send a unix signal to some process (maybe myself).
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	8035	Returns false if any error occurred, true otherwise.
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	8036
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	8037	Do not confuse UNIX signals with Smalltalk-Signals.
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	8038
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	8039	WARNING: in order to avoid zombie processes (on unix),
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8040	you may have to fetch the processes exitstatus with
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8041	OperatingSystem>>getStatusOfProcess:aProcessId
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8042	if the signal terminates that process."
19174 803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	8043
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	8044	"/
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	8045	"/ either invalid argument (non-integers)
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	8046	"/ or not supported by OS
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	8047	"/
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	8048	^ self primitiveFailed
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	8049	!
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	8050
23928 2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	8051	terminateAllChildProcessesOf:pid
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	8052	"terminate all of a processes child processes.
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	8053	This can be used to terminate processes started by a bridge,
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	8054	especially leftover chromedrivers started by selenium"
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	8055
25095 ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	8056	\|allProcesses toDo toTerminate someParentPid
23928 2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	8057	parentPerPid childrenPerPid alreadyIncluded\|
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	8058
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	8059	allProcesses := self getAllProcesses.
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	8060	parentPerPid := Dictionary new.
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	8061	childrenPerPid := Dictionary new.
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	8062	allProcesses do:[:each \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8063	\|eachPid eachParentPid\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8064
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8065	eachPid := each pid.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8066	eachParentPid := each parentPid.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8067	parentPerPid at:eachPid put:eachParentPid.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8068	(childrenPerPid at:eachParentPid ifAbsentPut:[Set new]) add:eachPid
23928 2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	8069	].
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	8070
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	8071	toTerminate := OrderedCollection new.
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	8072	alreadyIncluded := Set new.
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	8073
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	8074	"/ generate toTerminate as a children-first list
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	8075
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	8076	toDo := OrderedCollection with:pid.
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	8077	[toDo notEmpty] whileTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8078	someParentPid := toDo removeFirst.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8079	(childrenPerPid at:someParentPid ifAbsent:#()) do:[:eachChildPid \|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8080	(alreadyIncluded includes:eachChildPid) ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8081	toTerminate addFirst:eachChildPid.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8082	alreadyIncluded add:eachChildPid.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8083	]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8084	].
23928 2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	8085	].
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	8086
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	8087	toTerminate do:[:eachPid \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8088	self terminateProcess:eachPid
23928 2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	8089	].
24122 af75cab3dfb1 #BUGFIX by Maren matilk parents: 24109 diff changeset	8090
af75cab3dfb1 #BUGFIX by Maren matilk parents: 24109 diff changeset	8091	"Modified: / 14-05-2019 / 14:48:01 / Maren"
23928 2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	8092	!
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	8093
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	8094	terminateProcess:processHandleOrPid
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8095	"terminate a process.
19174 803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	8096
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	8097	ATTENTION WIN32:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8098	Under unix, we have terminateProcess, which does a soft
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8099	terminate (giving the process a chance to cleanup) and
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8100	killProcess, which does a hard terminate.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8101	Under WIN32, both (currently) use the TerminateProcess
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8102	function, which unconditionally causes a process to exit.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8103	I.e. under WIN32, the process has no chance to perform cleanup.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8104	Use it only in extreme circumstances. The state of
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8105	global data maintained by dynamic-link libraries (DLLs)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8106	may be compromised if TerminateProcess is used.
19174 803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	8107
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	8108	TODO: send a WM_QUIT instead, to allow for proper shutdown."
7065 f4c4e4b2ffa1 checkin from browser penk parents: 7062 diff changeset	8109
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	8110	self terminateProcess:processHandleOrPid exitCode:0
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	8111	!
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	8112
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	8113	terminateProcess:processHandleOrPid exitCode:exitCode
7065 f4c4e4b2ffa1 checkin from browser penk parents: 7062 diff changeset	8114	"terminate a process.
19174 803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	8115
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	8116	ATTENTION WIN32:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8117	Under unix, we have terminateProcess, which does a soft
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8118	terminate (giving the process a chance to cleanup) and
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8119	killProcess, which does a hard terminate.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8120	Under WIN32, both (currently) use the TerminateProcess
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8121	function, which unconditionally causes a process to exit.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8122	I.e. under WIN32, the process has no chance to perform cleanup.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8123	Use it only in extreme circumstances. The state of
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8124	global data maintained by dynamic-link libraries (DLLs)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8125	may be compromised if TerminateProcess is used.
19174 803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	8126
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	8127	TODO: send a WM_QUIT instead, to allow for proper shutdown."
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8128
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	8129	self killProcess:processHandleOrPid exitCode:exitCode
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	8130
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	8131	"Modified: / 28-12-1995 / 15:05:37 / stefan"
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	8132	"Modified: / 27-01-1998 / 20:05:47 / cg"
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	8133	"Modified: / 03-08-2018 / 09:40:01 / Stefan Vogel"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8134	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8135
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	8136	terminateProcessGroup:processGroupHandleOrPid
19174 803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	8137	"terminate a process group (that is all subprocesses of a process).
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	8138
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	8139	ATTENTION WIN32:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8140	Under unix, we have terminateProcess, which does a soft
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8141	terminate (giving the process a chance to cleanup) and
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8142	killProcess, which does a hard terminate.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8143	Under WIN32, both (currently) use the TerminateProcess
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8144	function, which unconditionally causes a process to exit.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8145	I.e. under WIN32, the process has no chance to perform cleanup.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8146	Use it only in extreme circumstances. The state of
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8147	global data maintained by dynamic-link libraries (DLLs)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8148	may be compromised if TerminateProcess is used.
19174 803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	8149	TODO: send a WM_QUIT instead, to allow for proper shutdown."
14832 b010cb2aa396 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14783 diff changeset	8150
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	8151	self killProcessGroup:processGroupHandleOrPid.
7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	8152
23928 2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	8153	self terminateAllChildProcessesOf:processGroupHandleOrPid
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	8154
23257 7aaf6920019d #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23150 diff changeset	8155	"Modified: / 03-08-2018 / 09:36:16 / Stefan Vogel"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8156	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8157
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8158	!Win32OperatingSystem class methodsFor:'ipc support'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8159
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8160	makePipe
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8161	"make a pipe, return array with two filedescriptors on success,
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8162	nil on failure.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8163	This is a lowLevel entry, not for public use.
12686 27afd11a1acd changed: Stefan Vogel <sv@exept.de> parents: 12654 diff changeset	8164	See NonPositionableExternalStream>>makePipe for a more user-friendly, public interface."
27afd11a1acd changed: Stefan Vogel <sv@exept.de> parents: 12654 diff changeset	8165
27afd11a1acd changed: Stefan Vogel <sv@exept.de> parents: 12654 diff changeset	8166	\|fd1 fd2 error\|
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	8167
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	8168	%{
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8169	HANDLE pipeRead = (HANDLE)0;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8170	HANDLE pipeWrite = (HANDLE)0;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8171
8667 c5b62518d233 changed security attributes - does not make a difference penk parents: 8659 diff changeset	8172	SECURITY_ATTRIBUTES sa;
c5b62518d233 changed security attributes - does not make a difference penk parents: 8659 diff changeset	8173
c5b62518d233 changed security attributes - does not make a difference penk parents: 8659 diff changeset	8174	ZeroMemory(&sa, sizeof(SECURITY_ATTRIBUTES));
c5b62518d233 changed security attributes - does not make a difference penk parents: 8659 diff changeset	8175	sa.nLength = sizeof(SECURITY_ATTRIBUTES);
c5b62518d233 changed security attributes - does not make a difference penk parents: 8659 diff changeset	8176	sa.lpSecurityDescriptor = NULL;
15543 196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	8177	// sa.bInheritHandle = TRUE;
196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	8178	sa.bInheritHandle = FALSE;
8667 c5b62518d233 changed security attributes - does not make a difference penk parents: 8659 diff changeset	8179
c5b62518d233 changed security attributes - does not make a difference penk parents: 8659 diff changeset	8180	if( ! CreatePipe( &pipeRead, &pipeWrite, &sa, 0 ) ) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8181	@global(LastErrorNumber) = error = __mkSmallInteger( __WIN32_ERR(GetLastError()) );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8182	goto out;
12686 27afd11a1acd changed: Stefan Vogel <sv@exept.de> parents: 12654 diff changeset	8183	}
27afd11a1acd changed: Stefan Vogel <sv@exept.de> parents: 12654 diff changeset	8184
27afd11a1acd changed: Stefan Vogel <sv@exept.de> parents: 12654 diff changeset	8185	#if 1
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8186	fd1 = __MKEXTERNALADDRESS(pipeRead);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8187	fd2 = __MKEXTERNALADDRESS(pipeWrite);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8188	#else
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8189	/*
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8190	* make fileDescriptors from handles
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8191	*/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8192	# ifdef PROCESSDEBUGWIN32
20896 c88fbd0cb367 * empty log message * Claus Gittinger <cg@exept.de> parents: 20677 diff changeset	8193	if (flag_PROCESSDEBUGWIN32) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8194	console_printf("piperead %x\n",pipeRead);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8195	console_printf("pipewrite %x\n",pipeWrite);
20896 c88fbd0cb367 * empty log message * Claus Gittinger <cg@exept.de> parents: 20677 diff changeset	8196	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8197	# endif
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	8198	fd1 = __mkSmallInteger(_open_osfhandle(pipeRead, O_BINARY));
3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	8199	fd2 = __mkSmallInteger(_open_osfhandle(pipeWrite, O_BINARY));
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8200	#endif
12686 27afd11a1acd changed: Stefan Vogel <sv@exept.de> parents: 12654 diff changeset	8201	out:;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8202	%}.
10627 bef737d1b8a7 care for -1 fd returned by CreatePipe Claus Gittinger <cg@exept.de> parents: 10622 diff changeset	8203	(fd1 notNil and:[fd2 notNil]) ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8204	(fd1 ~~ -1 and:[fd2 ~~ -1]) ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8205	^ Array with:fd1 with:fd2.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8206	].
12686 27afd11a1acd changed: Stefan Vogel <sv@exept.de> parents: 12654 diff changeset	8207	].
27afd11a1acd changed: Stefan Vogel <sv@exept.de> parents: 12654 diff changeset	8208
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8209	^ nil
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8210	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8211
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8212	!Win32OperatingSystem class methodsFor:'misc'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8213
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8214	closePid:pid
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8215	"free pid resource"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8216	%{
23638 37512eec04c2 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23636 diff changeset	8217	HANDLE __pid;
37512eec04c2 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23636 diff changeset	8218
37512eec04c2 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23636 diff changeset	8219	if (!__isExternalAddressLike(pid) \|\| (__pid = _HANDLEVal(pid)) == 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8220	RETURN(self);
23927 3f82716744b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 23848 diff changeset	8221	}
23638 37512eec04c2 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23636 diff changeset	8222
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8223	#ifdef PROCESSDEBUGWIN32
23638 37512eec04c2 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23636 diff changeset	8224	if (flag_PROCESSDEBUGWIN32) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8225	console_printf("Close ProcessHandle %x\n", __pid);
23638 37512eec04c2 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23636 diff changeset	8226	}
37512eec04c2 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23636 diff changeset	8227	#endif
37512eec04c2 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23636 diff changeset	8228	CloseHandle(__pid);
37512eec04c2 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23636 diff changeset	8229	_SETHANDLEVal(pid, 0);
37512eec04c2 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23636 diff changeset	8230	%}.
37512eec04c2 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23636 diff changeset	8231
37512eec04c2 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23636 diff changeset	8232	pid unregisterForFinalization.
37512eec04c2 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23636 diff changeset	8233
37512eec04c2 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23636 diff changeset	8234	"Created: / 28-01-1998 / 14:23:04 / md"
37512eec04c2 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23636 diff changeset	8235	"Modified: / 22-01-2019 / 19:30:27 / Stefan Vogel"
9264 2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	8236	!
2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	8237
10720 4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	8238	duplicateHandle:aHandle to:targetProcessHandle
14520 cc5f9141dded changed: #duplicateHandle:to: anwild parents: 14519 diff changeset	8239	\|hMe spaceForTargetHandle rslt addr\|
cc5f9141dded changed: #duplicateHandle:to: anwild parents: 14519 diff changeset	8240
cc5f9141dded changed: #duplicateHandle:to: anwild parents: 14519 diff changeset	8241	spaceForTargetHandle := ExternalLong unprotectedNew.
10720 4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	8242	hMe := self getCurrentProcess.
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	8243	rslt := self
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8244	primDuplicateHandle_hSourcProcessHandle:hMe
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8245	hSourceHandle:aHandle
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8246	hTargetProcesshandle:targetProcessHandle ? hMe
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8247	lpTargetHandle:spaceForTargetHandle
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8248	dwDesiredAccess:0
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8249	bInheritHandle:false
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8250	dwOptions:2 "DUPLICATE_SAME_ACCESS".
10720 4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	8251
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	8252	rslt ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8253	spaceForTargetHandle free.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8254	self primitiveFailed:self primGetLastError.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8255	^ nil
14520 cc5f9141dded changed: #duplicateHandle:to: anwild parents: 14519 diff changeset	8256	].
cc5f9141dded changed: #duplicateHandle:to: anwild parents: 14519 diff changeset	8257
cc5f9141dded changed: #duplicateHandle:to: anwild parents: 14519 diff changeset	8258	addr := spaceForTargetHandle value.
cc5f9141dded changed: #duplicateHandle:to: anwild parents: 14519 diff changeset	8259	spaceForTargetHandle free.
cc5f9141dded changed: #duplicateHandle:to: anwild parents: 14519 diff changeset	8260	^ ExternalAddress newAddress:addr.
10720 4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	8261
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	8262	"Created: / 18-09-2007 / 16:34:25 / cg"
14520 cc5f9141dded changed: #duplicateHandle:to: anwild parents: 14519 diff changeset	8263	"Modified: / 21-11-2012 / 12:14:06 / anwild"
10720 4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	8264	!
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	8265
24898 77318c4b1205 #FEATURE by Stefan Reise sr parents: 24771 diff changeset	8266	executePowershellCommands:someCommands
77318c4b1205 #FEATURE by Stefan Reise sr parents: 24771 diff changeset	8267	outputTo:output
77318c4b1205 #FEATURE by Stefan Reise sr parents: 24771 diff changeset	8268
77318c4b1205 #FEATURE by Stefan Reise sr parents: 24771 diff changeset	8269	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8270	\|output\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8271
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8272	output := '' writeStream.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8273
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8274	self
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8275	executePowershellCommands:(Array with:'dir')
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8276	outputTo:output.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8277
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8278	output contents inspect.
24898 77318c4b1205 #FEATURE by Stefan Reise sr parents: 24771 diff changeset	8279	"
77318c4b1205 #FEATURE by Stefan Reise sr parents: 24771 diff changeset	8280
77318c4b1205 #FEATURE by Stefan Reise sr parents: 24771 diff changeset	8281	\|input\|
77318c4b1205 #FEATURE by Stefan Reise sr parents: 24771 diff changeset	8282
77318c4b1205 #FEATURE by Stefan Reise sr parents: 24771 diff changeset	8283	input := '' writeStream.
77318c4b1205 #FEATURE by Stefan Reise sr parents: 24771 diff changeset	8284	input nextPutAll:'powershell -noprofile -noninteractive "'.
77318c4b1205 #FEATURE by Stefan Reise sr parents: 24771 diff changeset	8285
25095 ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	8286	someCommands do:[:eachCommand \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8287	input nextPutAll:((eachCommand subStrings:$") asStringWith:'\"').
24898 77318c4b1205 #FEATURE by Stefan Reise sr parents: 24771 diff changeset	8288	].
77318c4b1205 #FEATURE by Stefan Reise sr parents: 24771 diff changeset	8289
77318c4b1205 #FEATURE by Stefan Reise sr parents: 24771 diff changeset	8290	input nextPutAll:'"'.
77318c4b1205 #FEATURE by Stefan Reise sr parents: 24771 diff changeset	8291
77318c4b1205 #FEATURE by Stefan Reise sr parents: 24771 diff changeset	8292	OperatingSystem
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8293	executeCommand:input contents
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8294	outputTo:output.
24898 77318c4b1205 #FEATURE by Stefan Reise sr parents: 24771 diff changeset	8295
77318c4b1205 #FEATURE by Stefan Reise sr parents: 24771 diff changeset	8296	"Created: / 14-11-2019 / 13:31:43 / Stefan Reise"
77318c4b1205 #FEATURE by Stefan Reise sr parents: 24771 diff changeset	8297	!
77318c4b1205 #FEATURE by Stefan Reise sr parents: 24771 diff changeset	8298
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	8299	getAllProcesses
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	8300	"answer a sequence of OSProcess, all processes running in system"
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	8301
15546 d1d19176babd some stuff with inheriting handles Claus Gittinger <cg@exept.de> parents: 15544 diff changeset	8302	\|list st_perProc f\|
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	8303
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	8304	list := OrderedCollection new.
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	8305
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	8306	%{
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	8307	#ifdef TLHELP32_H_INCLUDE
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	8308
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	8309	HANDLE hProcessSnap;
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	8310	PROCESSENTRY32 pe32;
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	8311	hProcessSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	8312
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	8313	if( hProcessSnap != INVALID_HANDLE_VALUE ) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8314	pe32.dwSize = sizeof(PROCESSENTRY32);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8315	Process32First( hProcessSnap, & pe32 );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8316
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8317	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8318	st_perProc = __SSEND0(@global(Win32OperatingSystem::OSProcessDescriptor), @symbol(new), 0);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8319	f = __MKSTRING(pe32.szExeFile);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8320	__SSEND1(st_perProc, @symbol(commandLine:), 0, f );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8321	__SSEND1(st_perProc, @symbol(pid:), 0, __mkSmallInteger(pe32.th32ProcessID) );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8322	__SSEND1(st_perProc, @symbol(parentPid:), 0, __mkSmallInteger(pe32.th32ParentProcessID) );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8323
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8324	__SSEND1(list, @symbol(add:), 0, st_perProc );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8325	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8326	while(Process32Next(hProcessSnap,&pe32));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8327	CloseHandle( hProcessSnap );
13128 35def02e40f4 CloseHandle added in: getAllProcesses Michael Beyl <mb@exept.de> parents: 13114 diff changeset	8328	}
35def02e40f4 CloseHandle added in: getAllProcesses Michael Beyl <mb@exept.de> parents: 13114 diff changeset	8329
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	8330	#endif /* TLHELP32_H_INCLUDE */
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	8331
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	8332	%}.
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	8333	^ list
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	8334	!
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	8335
10720 4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	8336	getCurrentProcess
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	8337	<apicall: handle "GetCurrentProcess" ( ) module: "kernel32.dll" >
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	8338
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	8339	"
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	8340	self getCurrentProcess
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	8341	"
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	8342
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	8343	"Created: / 18-09-2007 / 16:32:22 / cg"
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	8344	!
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	8345
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	8346	getPrivateProfileString:appNameString key:keyNameString default:defaultString fileName:fileName
9475 c57956a348bf printing support fm parents: 9431 diff changeset	8347	^ self
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8348	getProfileString:appNameString key:keyNameString default:defaultString
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8349	fileName:fileName private:true
9475 c57956a348bf printing support fm parents: 9431 diff changeset	8350
c57956a348bf printing support fm parents: 9431 diff changeset	8351	"Modified: / 27-07-2006 / 11:57:03 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	8352	!
c57956a348bf printing support fm parents: 9431 diff changeset	8353
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	8354	getProfileString:appNameString key:keyNameString default:defaultString
9264 2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	8355	%{
2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	8356	char *__appNameString = NULL;
2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	8357	char *__keyNameString = NULL;
2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	8358	char *__defaultString = NULL;
2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	8359	char *__returnedString = NULL;
9475 c57956a348bf printing support fm parents: 9431 diff changeset	8360	char quickBuffer[1024];
c57956a348bf printing support fm parents: 9431 diff changeset	8361	char *usedBuffer = quickBuffer;
c57956a348bf printing support fm parents: 9431 diff changeset	8362	int bufferSize = sizeof(quickBuffer);
9264 2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	8363	int nChars;
9475 c57956a348bf printing support fm parents: 9431 diff changeset	8364	OBJ retVal;
9264 2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	8365
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	8366	if (__isStringLike(appNameString)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8367	__appNameString = __stringVal(appNameString);
9264 2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	8368	} else if (appNameString != nil)
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8369	goto primitiveFail;
9264 2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	8370
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	8371	if (__isStringLike(keyNameString)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8372	__keyNameString = __stringVal(keyNameString);
9264 2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	8373	} else if (keyNameString != nil)
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8374	goto primitiveFail;
9264 2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	8375
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	8376	if (__isStringLike(defaultString)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8377	__defaultString = __stringVal(defaultString);
9264 2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	8378	} else if (defaultString != nil)
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8379	goto primitiveFail;
9264 2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	8380
9475 c57956a348bf printing support fm parents: 9431 diff changeset	8381	do {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8382	nChars = GetProfileString(__appNameString, __keyNameString, __defaultString, usedBuffer, bufferSize);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8383	if (nChars >= 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8384	if (nChars != bufferSize-1) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8385	retVal = __MKSTRING_L(usedBuffer, nChars);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8386	if (usedBuffer != quickBuffer) free(usedBuffer);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8387	RETURN (retVal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8388	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8389
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8390	{
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8391	/* use a bigger buffer */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8392	char *newBuffer;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8393	int newBufferSize = bufferSize * 2;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8394
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8395	newBuffer = (char *)malloc( newBufferSize );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8396	if (usedBuffer != quickBuffer) free(usedBuffer);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8397	usedBuffer = newBuffer;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8398	bufferSize = newBufferSize;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8399	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8400	}
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	8401
9475 c57956a348bf printing support fm parents: 9431 diff changeset	8402	} while (nChars > 0);
c57956a348bf printing support fm parents: 9431 diff changeset	8403	RETURN (nil);
9264 2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	8404	primitiveFail: ;
2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	8405	%}.
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8406	^ self primitiveFailed
9475 c57956a348bf printing support fm parents: 9431 diff changeset	8407
c57956a348bf printing support fm parents: 9431 diff changeset	8408	"Created: / 27-07-2006 / 11:54:59 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	8409	!
c57956a348bf printing support fm parents: 9431 diff changeset	8410
c57956a348bf printing support fm parents: 9431 diff changeset	8411	getProfileString:appNameString key:keyNameString default:defaultString fileName:fileName private:private
c57956a348bf printing support fm parents: 9431 diff changeset	8412	%{
c57956a348bf printing support fm parents: 9431 diff changeset	8413	char *__appNameString = NULL;
c57956a348bf printing support fm parents: 9431 diff changeset	8414	char *__keyNameString = NULL;
c57956a348bf printing support fm parents: 9431 diff changeset	8415	char *__defaultString = NULL;
c57956a348bf printing support fm parents: 9431 diff changeset	8416	char *__returnedString = NULL;
c57956a348bf printing support fm parents: 9431 diff changeset	8417	char *__fileName = NULL;
c57956a348bf printing support fm parents: 9431 diff changeset	8418	char quickBuffer[1024];
c57956a348bf printing support fm parents: 9431 diff changeset	8419	char *usedBuffer = quickBuffer;
c57956a348bf printing support fm parents: 9431 diff changeset	8420	int bufferSize = sizeof(quickBuffer);
c57956a348bf printing support fm parents: 9431 diff changeset	8421	int nChars;
c57956a348bf printing support fm parents: 9431 diff changeset	8422	OBJ retVal;
c57956a348bf printing support fm parents: 9431 diff changeset	8423
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	8424	if (__isStringLike(appNameString)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8425	__appNameString = __stringVal(appNameString);
9475 c57956a348bf printing support fm parents: 9431 diff changeset	8426	} else if (appNameString != nil)
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8427	goto primitiveFail;
9475 c57956a348bf printing support fm parents: 9431 diff changeset	8428
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	8429	if (__isStringLike(keyNameString)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8430	__keyNameString = __stringVal(keyNameString);
9475 c57956a348bf printing support fm parents: 9431 diff changeset	8431	} else if (keyNameString != nil)
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8432	goto primitiveFail;
9475 c57956a348bf printing support fm parents: 9431 diff changeset	8433
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	8434	if (__isStringLike(defaultString)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8435	__defaultString = __stringVal(defaultString);
9475 c57956a348bf printing support fm parents: 9431 diff changeset	8436	} else if (defaultString != nil)
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8437	goto primitiveFail;
9475 c57956a348bf printing support fm parents: 9431 diff changeset	8438
c57956a348bf printing support fm parents: 9431 diff changeset	8439	if (private == true) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8440	if (! __isStringLike(fileName)) goto primitiveFail;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8441	__fileName = __stringVal(fileName);
9475 c57956a348bf printing support fm parents: 9431 diff changeset	8442	}
c57956a348bf printing support fm parents: 9431 diff changeset	8443
c57956a348bf printing support fm parents: 9431 diff changeset	8444	do {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8445	if (private == true) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8446	nChars = GetPrivateProfileString(__appNameString, __keyNameString, __defaultString, usedBuffer, bufferSize, __fileName);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8447	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8448	nChars = GetProfileString(__appNameString, __keyNameString, __defaultString, usedBuffer, bufferSize);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8449	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8450	if (nChars >= 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8451	if (nChars != bufferSize-1) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8452	retVal = __MKSTRING_L(usedBuffer, nChars);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8453	if (usedBuffer != quickBuffer) free(usedBuffer);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8454	RETURN (retVal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8455	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8456
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8457	{
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8458	/* use a bigger buffer */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8459	char *newBuffer;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8460	int newBufferSize = bufferSize * 2;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8461
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8462	newBuffer = (char *)malloc( newBufferSize );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8463	if (usedBuffer != quickBuffer) free(usedBuffer);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8464	usedBuffer = newBuffer;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8465	bufferSize = newBufferSize;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8466	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8467	}
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	8468
9475 c57956a348bf printing support fm parents: 9431 diff changeset	8469	} while (nChars > 0);
c57956a348bf printing support fm parents: 9431 diff changeset	8470	RETURN (nil);
c57956a348bf printing support fm parents: 9431 diff changeset	8471	primitiveFail: ;
c57956a348bf printing support fm parents: 9431 diff changeset	8472	%}.
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8473	^ self primitiveFailed
9475 c57956a348bf printing support fm parents: 9431 diff changeset	8474
c57956a348bf printing support fm parents: 9431 diff changeset	8475	"Created: / 27-07-2006 / 11:55:25 / fm"
10274 a90d2c9d04b0 writePrivateProfileString fm parents: 10180 diff changeset	8476	!
a90d2c9d04b0 writePrivateProfileString fm parents: 10180 diff changeset	8477
10615 349ffa5ea6d1 +hInstance Claus Gittinger <cg@exept.de> parents: 10596 diff changeset	8478	hInstance
349ffa5ea6d1 +hInstance Claus Gittinger <cg@exept.de> parents: 10596 diff changeset	8479	"very Win32 specific: get the HINSTANCE of the executable"
349ffa5ea6d1 +hInstance Claus Gittinger <cg@exept.de> parents: 10596 diff changeset	8480
349ffa5ea6d1 +hInstance Claus Gittinger <cg@exept.de> parents: 10596 diff changeset	8481	%{
349ffa5ea6d1 +hInstance Claus Gittinger <cg@exept.de> parents: 10596 diff changeset	8482	extern void *__getHInstance();
349ffa5ea6d1 +hInstance Claus Gittinger <cg@exept.de> parents: 10596 diff changeset	8483
349ffa5ea6d1 +hInstance Claus Gittinger <cg@exept.de> parents: 10596 diff changeset	8484	RETURN (__MKEXTERNALADDRESS(__getHInstance()));
20283 6054b4897eed * empty log message * Claus Gittinger <cg@exept.de> parents: 20282 diff changeset	8485	%}.
10615 349ffa5ea6d1 +hInstance Claus Gittinger <cg@exept.de> parents: 10596 diff changeset	8486
349ffa5ea6d1 +hInstance Claus Gittinger <cg@exept.de> parents: 10596 diff changeset	8487	"
349ffa5ea6d1 +hInstance Claus Gittinger <cg@exept.de> parents: 10596 diff changeset	8488	Win32OperatingSystem hInstance
349ffa5ea6d1 +hInstance Claus Gittinger <cg@exept.de> parents: 10596 diff changeset	8489	"
349ffa5ea6d1 +hInstance Claus Gittinger <cg@exept.de> parents: 10596 diff changeset	8490	!
349ffa5ea6d1 +hInstance Claus Gittinger <cg@exept.de> parents: 10596 diff changeset	8491
16279 1addd0eeec26 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15983 diff changeset	8492	isValidHandle:anExternalAddress
1addd0eeec26 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15983 diff changeset	8493	\|newHandle\|
1addd0eeec26 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15983 diff changeset	8494
1addd0eeec26 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15983 diff changeset	8495	newHandle := self duplicateHandle:anExternalAddress to:nil.
1addd0eeec26 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15983 diff changeset	8496	newHandle isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8497	^ false.
16279 1addd0eeec26 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15983 diff changeset	8498	].
1addd0eeec26 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15983 diff changeset	8499	"/ self closeHandle:newHandle.
1addd0eeec26 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15983 diff changeset	8500	^ true.
1addd0eeec26 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15983 diff changeset	8501	!
1addd0eeec26 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15983 diff changeset	8502
11767 057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8503	playSound:fileName
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8504	self playSound:fileName mode:1
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8505
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8506	"/#define SND_SYNC 0x0000 /* play synchronously (default) */
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8507	"/#define SND_ASYNC 0x0001 /* play asynchronously */
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8508	"/#define SND_NODEFAULT 0x0002 /* silence (!!default) if sound not found */
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8509	"/#define SND_LOOP 0x0008 /* loop the sound until next sndPlaySound */
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8510	"/#define SND_NOSTOP 0x0010 /* don't stop any currently playing sound */
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8511
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8512	"
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8513	self
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8514	playSound:'C:\Dokumente und Einstellungen\cg\work\exept\expecco\resources\sounds\start.wav'
11767 057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8515	"
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8516
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8517	"Created: / 06-11-2007 / 00:46:57 / cg"
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8518	!
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8519
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8520	playSound:fileName mode:modeInteger
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8521	<apicall: void "sndPlaySoundA" ( lpstr uint32) module: "winmm.dll" >
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8522	^ self primitiveFailed.
11767 057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8523
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8524	"/#define SND_SYNC 0x0000 /* play synchronously (default) */
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8525	"/#define SND_ASYNC 0x0001 /* play asynchronously */
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8526	"/#define SND_NODEFAULT 0x0002 /* silence (!!default) if sound not found */
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8527	"/#define SND_LOOP 0x0008 /* loop the sound until next sndPlaySound */
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8528	"/#define SND_NOSTOP 0x0010 /* don't stop any currently playing sound */
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8529
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8530	"
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8531	self
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8532	playSound:'C:\Dokumente und Einstellungen\cg\work\exept\expecco\resources\sounds\start.wav'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8533	mode:1
11767 057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8534	"
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8535
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8536	"Modified: / 06-11-2007 / 00:46:27 / cg"
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8537	!
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	8538
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8539	primCloseHandle: handle
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8540
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8541	<apicall: ulongReturn "CloseHandle" ( handle ) module: "kernel32.dll" >
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8542	!
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8543
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	8544	primDuplicateHandle_hSourcProcessHandle:hSourceProcess
10720 4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	8545	hSourceHandle:hSourceHandle
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	8546	hTargetProcesshandle:hTargetProcessHandle
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	8547	lpTargetHandle:lpTargetHandle
10720 4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	8548	dwDesiredAccess:desiredAccess
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	8549	bInheritHandle:bInheritHandle
10720 4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	8550	dwOptions:dwOptions
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	8551
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	8552	<apicall: bool "DuplicateHandle" ( handle, handle, handle, pointer, dword, bool, dword) module: "kernel32.dll" >
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8553	^ self primitiveFailed.
10720 4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	8554
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	8555	"Created: / 18-09-2007 / 16:31:23 / cg"
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	8556	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	8557
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8558	primGetLastError
20275 e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	8559	"get the last error code"
15339 c701f431b3f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 15338 diff changeset	8560	%{ /* NOCONTEXT */
20591 e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	8561	DWORD e = GetLastError();
15339 c701f431b3f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 15338 diff changeset	8562	RETURN(__MKUINT(e));
c701f431b3f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 15338 diff changeset	8563	%}.
c701f431b3f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 15338 diff changeset	8564
c701f431b3f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 15338 diff changeset	8565	"/ <apicall: dword "GetLastError" () module: "kernel32.dll" >
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8566
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8567	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8568	self primGetLastError
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8569	"
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8570	!
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8571
15338 419fe7273142 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15302 diff changeset	8572	primSetLastError: i
20275 e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	8573	"mostly used to clear the last error code"
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	8574
15339 c701f431b3f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 15338 diff changeset	8575	%{ /* NOCONTEXT */
15338 419fe7273142 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15302 diff changeset	8576	if (__isSmallInteger(i)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8577	SetLastError(__intVal(i));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8578	RETURN(self);
15338 419fe7273142 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15302 diff changeset	8579	}
419fe7273142 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15302 diff changeset	8580	%}.
419fe7273142 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15302 diff changeset	8581	"/ <apicall: void "SetLastError" (dword) module: "kernel32.dll" >
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8582	^ self primitiveFailed.
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8583
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8584	"
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8585	self primSetLastError: 0
11089 a6f47ff0561a mutex fix fm parents: 11088 diff changeset	8586	"
a6f47ff0561a mutex fix fm parents: 11088 diff changeset	8587	!
a6f47ff0561a mutex fix fm parents: 11088 diff changeset	8588
20275 e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	8589	primWritePrivateProfileString:appName keyName:keyName profileString:profString fileName:fnString
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	8590	%{ /* NOCONTEXT */
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	8591	if (__isString(appName)
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	8592	&& __isString(keyName)
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	8593	&& __isString(profString)
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	8594	&& __isString(fnString)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8595	BOOL ret;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8596
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8597	ret = WritePrivateProfileStringA(__stringVal(appName), __stringVal(keyName), __stringVal(profString), __stringVal(fnString));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8598	RETURN( ret == 0 ? false : true);
20275 e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	8599	}
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	8600	%}.
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	8601
20276 7a9a31afafe3 * empty log message * Claus Gittinger <cg@exept.de> parents: 20275 diff changeset	8602	"/ <apicall: bool "WritePrivateProfileStringA" ( lpstr lpstr lpstr lpstr ) module: "Kernel32.dll" >
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8603	^ self primitiveFailed
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	8604
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	8605	"Created: / 18-12-2006 / 13:01:41 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	8606	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	8607
24929 ebd235e61981 #FEATURE by Stefan Reise sr parents: 24898 diff changeset	8608	rejectHighDpiAwareModeFromEnviroment
25095 ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	8609	"if you set the high dpi aware mode via binary file properties or via registry (what
ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	8610	we do in expecco), which is the identical setting, because the toggle value in
24929 ebd235e61981 #FEATURE by Stefan Reise sr parents: 24898 diff changeset	8611	binary file properties will be stored in the same registry key:
ebd235e61981 #FEATURE by Stefan Reise sr parents: 24898 diff changeset	8612	HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers
ebd235e61981 #FEATURE by Stefan Reise sr parents: 24898 diff changeset	8613
25095 ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	8614	we get (in opposite to set the high dpi aware mode via manifest) the
24929 ebd235e61981 #FEATURE by Stefan Reise sr parents: 24898 diff changeset	8615	environment attribute:
ebd235e61981 #FEATURE by Stefan Reise sr parents: 24898 diff changeset	8616	__COMPAT_LAYER
ebd235e61981 #FEATURE by Stefan Reise sr parents: 24898 diff changeset	8617
ebd235e61981 #FEATURE by Stefan Reise sr parents: 24898 diff changeset	8618	which will be inherited by all sub processes,
ebd235e61981 #FEATURE by Stefan Reise sr parents: 24898 diff changeset	8619	but we dont wan't to set this setting for all subprocesses,
ebd235e61981 #FEATURE by Stefan Reise sr parents: 24898 diff changeset	8620	they should be able to decide its high dpi aware mode by themself
ebd235e61981 #FEATURE by Stefan Reise sr parents: 24898 diff changeset	8621
ebd235e61981 #FEATURE by Stefan Reise sr parents: 24898 diff changeset	8622	therefor we have to remove this environment attribute as early as possible"
ebd235e61981 #FEATURE by Stefan Reise sr parents: 24898 diff changeset	8623
25095 ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	8624	OperatingSystem
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8625	setEnvironment:'__COMPAT_LAYER'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8626	to:''
24929 ebd235e61981 #FEATURE by Stefan Reise sr parents: 24898 diff changeset	8627
ebd235e61981 #FEATURE by Stefan Reise sr parents: 24898 diff changeset	8628	"Created: / 19-11-2019 / 17:22:15 / Stefan Reise"
ebd235e61981 #FEATURE by Stefan Reise sr parents: 24898 diff changeset	8629	!
ebd235e61981 #FEATURE by Stefan Reise sr parents: 24898 diff changeset	8630
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8631	writePrivateProfileString:appName keyName:keyName profileString:profString fileName:aString
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8632
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8633	^self primWritePrivateProfileString:appName keyName:keyName profileString:profString fileName:aString
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	8634
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	8635	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	8636	\|profileStringToWrite recoveredProfileString\|
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	8637	profileStringToWrite := 'c:\vsw311'.
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8638	self writePrivateProfileString:'PAV-Editor' keyName:'ExportPath' profileString:profileStringToWrite fileName:'C:\vsw311\dapas.ini'.
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	8639	recoveredProfileString := self getProfileString:'PAV-Editor' key:'ExportPath' default:'@@@nil@@@' fileName:'C:\vsw311\dapas.ini' private:true.
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	8640	self assert: (profileStringToWrite = recoveredProfileString).
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	8641	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	8642
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	8643	"Modified: / 18-12-2006 / 13:20:20 / User"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8644	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8645
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8646	!Win32OperatingSystem class methodsFor:'mutex'!
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8647
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8648	createMutexNamed: name
11091 b64647b51eca mutex fix fm parents: 11090 diff changeset	8649	"Returns an array with the handle and the lastErrorCode"
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8650
11089 a6f47ff0561a mutex fix fm parents: 11088 diff changeset	8651	\|handle lastErrorCode\|
a6f47ff0561a mutex fix fm parents: 11088 diff changeset	8652
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8653	self primSetLastError:0.
11092 a05bd545f00d mutex fix fm parents: 11091 diff changeset	8654	self primGetLastError.
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8655	handle := self primCreateMutex:nil initialOwner:true name:name.
11089 a6f47ff0561a mutex fix fm parents: 11088 diff changeset	8656	lastErrorCode := self primGetLastError.
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8657	"/ lastErrorCode printCR.
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8658	"/ lastErrorCode == 5 "ERROR_ACCESS_DENIED" ifTrue:[Transcript showCR: 'Mutex not accesible (GetLastError = ERROR_ACCESS_DENIED)'.].
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8659	"/ lastErrorCode == 183 "ERROR_ALREADY_EXISTS" ifTrue:[Transcript showCR: 'Mutex already exists (GetLastError = ERROR_ALREADY_EXISTS)'.].
11342 3a99bfdee484 changed #createMutexNamed: fm parents: 11291 diff changeset	8660	^ Array with: handle with: lastErrorCode
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8661
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8662	"
20591 e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	8663	\|arr\|
e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	8664	arr := self createMutexNamed: '8906f5e0-54ed-11dd-9da4-001558137da0'.
e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	8665	self releaseMutex: arr first.
e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	8666
12986 bd31df28e32a changed: #createMutexNamed: Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	8667	self releaseMutexNamed: '8906f5e0-54ed-11dd-9da4-001558137da0'
bd31df28e32a changed: #createMutexNamed: Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	8668	"
bd31df28e32a changed: #createMutexNamed: Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	8669
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8670	"Modified: / 03-08-2010 / 16:57:36 / cg"
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8671	!
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8672
11086 4c10b9d1ce49 mutex fix fm parents: 11085 diff changeset	8673	existsMutexNamed: name
11091 b64647b51eca mutex fix fm parents: 11090 diff changeset	8674	\|handle lastErrorCode handleAndLastErrorCode\|
b64647b51eca mutex fix fm parents: 11090 diff changeset	8675
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8676	handleAndLastErrorCode := self createMutexNamed:name.
11091 b64647b51eca mutex fix fm parents: 11090 diff changeset	8677	handle := handleAndLastErrorCode first.
b64647b51eca mutex fix fm parents: 11090 diff changeset	8678	lastErrorCode := handleAndLastErrorCode second.
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8679	"/ self assert: lastErrorCode == 0.
11215 b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	8680	^ handle isNil
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8681	or:[lastErrorCode == 183 "ERROR_ALREADY_EXISTS"
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8682	or:[ lastErrorCode == 5 "ERROR_ACCESS_DENIED"]]
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8683
8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8684	"Modified: / 03-08-2010 / 16:59:41 / cg"
11086 4c10b9d1ce49 mutex fix fm parents: 11085 diff changeset	8685	!
4c10b9d1ce49 mutex fix fm parents: 11085 diff changeset	8686
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8687	openMutexNamed: name
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8688	"If the function succeeds, the return value is a handle to the mutex object.
8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8689	If the function fails, the return value is NULL. To get extended error information, call GetLastError.
8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8690	If a named mutex does not exist, the function fails and GetLastError returns ERROR_FILE_NOT_FOUND."
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8691
11088 31c6b3e16450 mutex fix3 fm parents: 11087 diff changeset	8692	\|handle \|
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8693
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8694	handle := self primOpenMutex:nil initialOwner:true name:name.
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8695	"/ lastErrorCode := self primGetLastError.
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8696	"/ lastErrorCode = 2 ifTrue:[Transcript showCR: 'Mutex does not exist (GetLastError = ERROR_FILE_NOT_FOUND)'.].
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8697	"/ lastErrorCode = 5 ifTrue:[Transcript showCR: 'Mutex not accessable (GetLastError = ERROR_ACCESS_DENIED)'.].
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8698	^ handle
11215 b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	8699
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8700	"
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8701	self openMutexNamed: '8906f5e0-54ed-11dd-9da4-001558137da0'
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8702	"
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8703
8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8704	"Modified: / 03-08-2010 / 16:59:37 / cg"
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8705	!
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8706
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8707	primCreateMutex:lpSecurityDescriptor initialOwner:bInitialOwner name:lpName
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8708	"If the function succeeds, the return value is a handle to the newly created mutex object.
20591 e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	8709	If the function fails, the return value is nil.
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8710	If the mutex is a named mutex and the object existed before this function call, the return value is a handle to the existing object."
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8711
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8712	\|handle\|
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8713
20591 e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	8714	handle := Win32MutexHandle new.
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8715	%{
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8716	if (__isString(lpName)
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8717	&& ((bInitialOwner == true) \|\| (bInitialOwner == false))) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8718	void *c_descr = NULL;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8719	char *c_name;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8720	HANDLE c_handle;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8721
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8722	c_name = __stringVal(lpName);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8723
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8724	if (lpSecurityDescriptor != nil) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8725	if (__isExternalAddressLike(lpSecurityDescriptor)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8726	\|\| __isExternalBytesLike(lpSecurityDescriptor) ) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8727	c_descr = __externalAddressVal(lpSecurityDescriptor);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8728	} else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8729	goto badArg;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8730	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8731	c_handle = CreateMutexA(c_descr, bInitialOwner == true, c_name);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8732	if (c_handle == NULL) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8733	RETURN(nil);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8734	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8735	__externalAddressVal(handle) = c_handle;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8736	RETURN(handle);
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8737	}
20280 6b5fa81e1c86 * empty log message * Claus Gittinger <cg@exept.de> parents: 20279 diff changeset	8738	badArg: ;
20283 6054b4897eed * empty log message * Claus Gittinger <cg@exept.de> parents: 20282 diff changeset	8739	%}.
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8740	"/ <apicall: handle "CreateMutexA" (lpstr bool lpstr) module: "kernel32.dll" >
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8741	^ self primitiveFailed
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8742
8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8743	"Modified: / 03-08-2010 / 16:59:26 / cg"
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8744	!
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8745
20284 d18a4fe6b86a #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20283 diff changeset	8746	primOpenMutex:dwDesiredAccess initialOwner:bInitialOwner name:lpName
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8747	"If the function succeeds, the return value is a handle to the mutex object.
20591 e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	8748	If the function fails, the return value is nil. To get extended error information, call GetLastError.
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8749	If a named mutex does not exist, the function fails and GetLastError returns ERROR_FILE_NOT_FOUND."
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8750
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8751	\|handle\|
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8752
20591 e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	8753	handle := Win32MutexHandle new.
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8754	%{
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8755	if (__isString(lpName)
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8756	&& ((bInitialOwner == true) \|\| (bInitialOwner == false))) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8757	DWORD c_dwDesiredAccess = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8758	char *c_name;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8759	BOOL c_initialOwner = (bInitialOwner == true);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8760	HANDLE c_handle;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8761
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8762	c_name = __stringVal(lpName);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8763
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8764	if (dwDesiredAccess != nil) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8765	if (! __isSmallInteger(dwDesiredAccess)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8766	goto badArg;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8767	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8768	c_dwDesiredAccess = __intVal(dwDesiredAccess);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8769	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8770	c_handle = OpenMutexA(c_dwDesiredAccess, c_initialOwner, c_name);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8771	if (c_handle == NULL) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8772	RETURN(nil);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8773	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8774	__externalAddressVal(handle) = c_handle;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8775	RETURN(handle);
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8776	}
20280 6b5fa81e1c86 * empty log message * Claus Gittinger <cg@exept.de> parents: 20279 diff changeset	8777	badArg: ;
20283 6054b4897eed * empty log message * Claus Gittinger <cg@exept.de> parents: 20282 diff changeset	8778	%}.
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8779	"/ <apicall: handle "OpenMutexA" (lpstr bool lpstr) module: "kernel32.dll" >
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8780	^ self primitiveFailed
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8781
8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8782	"Modified: / 03-08-2010 / 16:59:11 / cg"
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8783	!
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8784
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8785	primReleaseMutex:hMutex
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8786	"If the function succeeds, the return value is nonzero.
8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8787	If the function fails, the return value is zero."
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8788	%{
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8789	if (__isExternalAddressLike(hMutex)
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8790	\|\| __isExternalBytesLike(hMutex) ) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8791	HANDLE _handle = _HANDLEVal(hMutex);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8792	BOOL _ret;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8793
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8794	_ret = ReleaseMutex(_handle);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8795	RETURN(_ret == 0 ? false : true);
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8796	}
20283 6054b4897eed * empty log message * Claus Gittinger <cg@exept.de> parents: 20282 diff changeset	8797	%}.
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8798	"/ <apicall: bool "ReleaseMutex" (handle) module: "kernel32.dll" >
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8799	^ self primitiveFailed
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8800
8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8801	"Modified: / 03-08-2010 / 16:59:55 / cg"
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8802	!
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8803
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8804	primWaitForSingleObject:handle milliseconds:dwMilliseconds
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8805	"If the function succeeds, the return value indicates the event that caused the function to return.
8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8806	If the function fails, the return value is WAIT_FAILED ((DWORD)0xFFFFFFFF)."
11091 b64647b51eca mutex fix fm parents: 11090 diff changeset	8807
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8808	%{
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8809	if (__isExternalAddressLike(handle)
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8810	\|\| __isExternalBytesLike(handle) ) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8811	HANDLE _handle = _HANDLEVal(handle);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8812
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8813	if (__isSmallInteger(dwMilliseconds)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8814	DWORD _millis = __intVal(dwMilliseconds);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8815	DWORD _ret;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8816
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8817	_ret = ReleaseMutex(_handle);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8818	RETURN( __mkSmallInteger(_ret));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8819	}
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8820	}
20283 6054b4897eed * empty log message * Claus Gittinger <cg@exept.de> parents: 20282 diff changeset	8821	%}.
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8822	"/ <apicall: dword "WaitForSingleObject" (handle dword) module: "kernel32.dll" >
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8823	^ self primitiveFailed
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8824
8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8825	"Modified: / 03-08-2010 / 17:00:02 / cg"
11091 b64647b51eca mutex fix fm parents: 11090 diff changeset	8826	!
b64647b51eca mutex fix fm parents: 11090 diff changeset	8827
11215 b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	8828	releaseMutex: hMutex
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8829	"Returns true if the Mutex was released. Otherwise, returns false."
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8830
11085 ff0e28fd7027 changed #primReleaseMutex: fm parents: 11084 diff changeset	8831	\| released\|
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8832
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8833	hMutex isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8834	Transcript showCR: 'hMutex is nil - cannot release'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8835	^ false
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8836	].
11085 ff0e28fd7027 changed #primReleaseMutex: fm parents: 11084 diff changeset	8837	released := self primReleaseMutex: hMutex.
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8838	released ifFalse:[Transcript showCR: 'Release Mutex failed'.].
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8839	^ released
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8840
8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8841	"Modified: / 03-08-2010 / 17:00:05 / cg"
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8842	!
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8843
11215 b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	8844	releaseMutexNamed: name
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8845	"Returns true if the Mutex was released. Otherwise, returns false."
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8846
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8847	\| hMutex \|
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8848
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8849	hMutex := self openMutexNamed: name.
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8850	hMutex isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8851	Transcript showCR: 'Cannot release Mutex named: "', name printString,'"'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8852	^ false
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8853	].
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8854	^ self releaseMutex: hMutex.
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8855
8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8856	"Modified: / 03-08-2010 / 16:58:25 / cg"
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8857	!
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8858
11215 b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	8859	waitForSingleObject: handle
11091 b64647b51eca mutex fix fm parents: 11090 diff changeset	8860	\|result\|
b64647b51eca mutex fix fm parents: 11090 diff changeset	8861
11092 a05bd545f00d mutex fix fm parents: 11091 diff changeset	8862	result := self primWaitForSingleObject: handle milliseconds: 500.
11091 b64647b51eca mutex fix fm parents: 11090 diff changeset	8863	^ result
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8864
8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8865	"Modified: / 03-08-2010 / 17:00:10 / cg"
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8866	! !
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8867
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	8868	!Win32OperatingSystem class methodsFor:'network resources'!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	8869
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	8870	networkResourceAccessor
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	8871	"answer the Win32NetworkResourceHandle or nil if not supported"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	8872
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	8873	^ Win32NetworkResourceHandle
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	8874	! !
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	8875
19499 ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8876	!Win32OperatingSystem class methodsFor:'notifications'!
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8877
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8878	createChangeNotificationHandleFor:aDirectoryPathName flags:changeFlags
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8879	\|handle\|
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8880
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8881	handle := Win32ChangeNotificationHandle new.
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8882	%{
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8883	if (__isString(aDirectoryPathName)
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8884	&& __isSmallInteger(changeFlags)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8885	char *__dirName = __stringVal(aDirectoryPathName);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8886	INT __flags = __intVal(changeFlags);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8887	HANDLE __changeHandle;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8888
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8889	__changeHandle = FindFirstChangeNotification(__dirName, FALSE, __flags);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8890	if (__changeHandle == INVALID_HANDLE_VALUE) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8891	console_printf("failed to create handle\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8892	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8893	__externalAddressVal(handle) = __changeHandle;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8894	RETURN (handle);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8895	}
19499 ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8896	}
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8897	%}.
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8898	self primitiveFailed
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8899
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8900	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8901	\|h\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8902
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8903	[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8904	h := OperatingSystem createChangeNotificationHandleFor:'.'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8905	flags:(FILE_NOTIFY_CHANGE_FILE_NAME \|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8906	FILE_NOTIFY_CHANGE_DIR_NAME \|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8907	FILE_NOTIFY_CHANGE_ATTRIBUTES \|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8908	FILE_NOTIFY_CHANGE_SIZE \|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8909	FILE_NOTIFY_CHANGE_LAST_WRITE).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8910	Transcript showCR:'waiting...'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8911	OperatingSystem waitForSingleObject:h withTimeout:1000.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8912	Transcript showCR:'got a change...'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8913	h close.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8914	] fork.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8915	Delay waitForSeconds:0.25.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8916	Transcript showCR:'changing...'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8917	'./bla' asFilename contents:'hello'.
19499 ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8918
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8919	"
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8920	! !
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8921
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8922	!Win32OperatingSystem class methodsFor:'os queries'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8923
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8924	executableFileExtensions
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8925	"return a collection of extensions for executable program files.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8926	Only req'd for msdos like systems ..."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8927
20559 2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	8928	^ #('com' 'exe' 'bat' 'cmd')
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8929
13618 9af72c855037 Fixes for #canExecuteCommand: vrany parents: 13616 diff changeset	8930	"Created: / 02-05-1997 / 11:42:29 / cg"
9af72c855037 Fixes for #canExecuteCommand: vrany parents: 13616 diff changeset	8931	"Modified: / 23-08-2011 / 21:14:45 / jv"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8932	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8933
20245 0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	8934	expandEnvironmentStrings:aString
25074 1a9bfc0fc996 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 25071 diff changeset	8935	"expand the environmentStrings (e.g. %ProgramFiles%) in aString.
1a9bfc0fc996 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 25071 diff changeset	8936	Typical are:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8937	HOMEDRIVE, HOMEPATH, JAVA_HOME, ProgramFiles, ProgramFiles(x86), TMP and TEMP"
25184 5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	8938
5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	8939	\|count nullTerminatedUnicodeString resultString resultCount\|
5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	8940
5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	8941	nullTerminatedUnicodeString := aString asUnicode16StringZ.
20245 0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	8942	count := aString size + 128.
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	8943	[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8944	"always use #primExpandEnvironmentStringsW.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8945	We do not know in advance if the result will be unicode."
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8946	resultString := Unicode16String new:count.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8947	resultCount := self primExpandEnvironmentStringsW:nullTerminatedUnicodeString into:resultString size:count.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8948	resultCount <= count ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8949	true
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8950	] ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8951	"resultString was too small. resultCount is the required buffer size"
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8952	count := resultCount.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8953	false
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8954	].
20245 0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	8955	] whileFalse.
25184 5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	8956
5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	8957	resultCount == 0 ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8958	^ ''. "/ error
25184 5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	8959	].
5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	8960	aString isWideString ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	8961	resultString := resultString asSingleByteStringIfPossible.
25184 5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	8962	].
20245 0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	8963	^ resultString copyTo:resultCount-1.
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	8964
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	8965	"
25095 ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	8966	self expandEnvironmentStrings:'%ProgramFiles%\test\x'
25074 1a9bfc0fc996 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 25071 diff changeset	8967	self expandEnvironmentStrings:'%ProgramFiles%\test\x' asUnicode16String
25095 ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	8968	self expandEnvironmentStrings:'%ProgramFiles%\nodejs'
25074 1a9bfc0fc996 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 25071 diff changeset	8969	self expandEnvironmentStrings:'%HOMEDRIVE%%HOMEPATH%\test\x'
25184 5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	8970	self expandEnvironmentStrings:'%ProgramData%\test\xkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkEND'
5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	8971	self expandEnvironmentStrings:'%ProgramData%\test\xkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkEND' asUnicodeString
20245 0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	8972	"
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	8973	!
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	8974
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8975	getDomainName
12961 f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	8976	"return the DNS domain this host is in.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8977	Notice:
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	8978	not all systems support this; on some, 'unknown' is returned."
25276 0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	8979
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	8980	\|domainName\|
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8981
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8982	DomainName notNil ifTrue:[
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	8983	^ DomainName
25276 0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	8984	].
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	8985
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	8986	domainName := self primGetComputerName:2.
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	8987
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	8988	domainName isEmptyOrNil ifTrue:[
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	8989	domainName := self getEnvironment:'DOMAIN'.
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	8990	domainName isNil ifTrue:[
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	8991	domainName := self getEnvironment:'DOMAINNAME'.
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	8992	].
25276 0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	8993	].
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	8994
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	8995	domainName isEmptyOrNil ifTrue:[
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	8996	^ 'unknown'.
25276 0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	8997	].
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	8998	DomainName := domainName. "cache only, if it is fixed"
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	8999
12961 f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	9000	^ domainName
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9001
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9002	"
8659 d8f5821a6d6d * empty log message * penk parents: 8656 diff changeset	9003	DomainName := nil.
d8f5821a6d6d * empty log message * penk parents: 8656 diff changeset	9004	OperatingSystem getDomainName
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	9005	OperatingSystem getHostName
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9006	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9007
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	9008	"Modified: / 16-05-2019 / 18:11:23 / Stefan Vogel"
25276 0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	9009	"Modified: / 20-02-2020 / 21:40:23 / stefan"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9010	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9011
20966 283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9012	getEnvironment
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9013	"get all environment variables as a dictionary of key-value associations.
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9014	You will find a few strange name-keys starting wth a $=.
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9015	These are leftovers of cmd.com, which are used for keeping track of per-drive current dirs.
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9016	It was reported, that some batch/apps depend on them, so they should probably
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9017	be preserved when forking off new programs.
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9018	Read: 'What are these strange =C: environment variables?'
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9019	(https://blogs.msdn.microsoft.com/oldnewthing/20100506-00/?p=14133/) for more info."
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9020
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9021	\|strings assocString envDict\|
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9022
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9023	strings := OrderedCollection new:128.
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9024	%{
20966 283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9025	LPWSTR lpvEnv;
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9026
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9027	lpvEnv = GetEnvironmentStringsW();
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9028	if (lpvEnv != NULL) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9029	static struct inlineCache add = _ILC1;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9030	LPWSTR cp = lpvEnv;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9031
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9032	while (*cp) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9033	assocString = __MKU16STRING(cp);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9034	(*add.ilc_func)(strings, @symbol(add:), nil, &add, assocString);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9035	cp += wcslen(cp) + 1;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9036	}
20966 283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9037	}
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9038	%}.
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9039
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9040	envDict := Dictionary new.
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9041	strings do:[:each \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9042	\|idx key value\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9043
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9044	idx := each indexOf:$= startingAt:2.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9045	self assert:(idx ~~ 0).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9046	key := each copyTo:idx-1.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9047	value := each copyFrom:idx+1.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9048	envDict at:key put:value.
20966 283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9049	].
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9050	^ envDict
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9051
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9052	"
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9053	OperatingSystem getEnvironment
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9054	"
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9055
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9056	"Created: / 15-11-2016 / 16:10:12 / cg"
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9057	!
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9058
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9059	getEnvironment:aStringOrSymbol
22112 9e8e22f501f9 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22111 diff changeset	9060	"get an individual environment variable's value"
9e8e22f501f9 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22111 diff changeset	9061
9e8e22f501f9 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22111 diff changeset	9062	%{ /* NOCONTEXT */
22113 6f98aace1553 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 22112 diff changeset	9063	# define ENV_BUFSIZE 4096
19284 a8e9068d61bf * empty log message * Claus Gittinger <cg@exept.de> parents: 19282 diff changeset	9064	WCHAR _varName[ENV_BUFSIZE];
a8e9068d61bf * empty log message * Claus Gittinger <cg@exept.de> parents: 19282 diff changeset	9065	WCHAR buff[ENV_BUFSIZE];
22112 9e8e22f501f9 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22111 diff changeset	9066	int nNeeded, nNeeded2;
18962 29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	9067	OBJ ret = nil;
22112 9e8e22f501f9 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22111 diff changeset	9068	int i, len;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9069
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	9070	if (__isStringLike(aStringOrSymbol)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9071	len = __stringSize(aStringOrSymbol);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9072	if (len >= ENV_BUFSIZE)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9073	goto badArgument;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9074	for (i=0; i<len; i++) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9075	_varName[i] = __stringVal(aStringOrSymbol)[i];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9076	}
18962 29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	9077	} else if (__isUnicode16String(aStringOrSymbol)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9078	len = __unicode16StringSize(aStringOrSymbol);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9079	if (len >= ENV_BUFSIZE)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9080	goto badArgument;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9081	for (i=0; i<len; i++) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9082	_varName[i] = __unicode16StringVal(aStringOrSymbol)[i];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9083	}
19285 da9a76755850 * empty log message * Claus Gittinger <cg@exept.de> parents: 19284 diff changeset	9084	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9085	goto badArgument;
19285 da9a76755850 * empty log message * Claus Gittinger <cg@exept.de> parents: 19284 diff changeset	9086	}
22112 9e8e22f501f9 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22111 diff changeset	9087	_varName[len] = 0;
18962 29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	9088
19284 a8e9068d61bf * empty log message * Claus Gittinger <cg@exept.de> parents: 19282 diff changeset	9089	nNeeded = GetEnvironmentVariableW(_varName, buff, ENV_BUFSIZE);
22113 6f98aace1553 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 22112 diff changeset	9090	// console_printf("getenv() -> %d\n", nNeeded);
22111 66d61db0d982 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 22054 diff changeset	9091	if (nNeeded > ENV_BUFSIZE) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9092	WCHAR *buff2;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9093
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9094	buff2 = (WCHAR )malloc((nNeeded+1) sizeof(WCHAR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9095	nNeeded2 = GetEnvironmentVariableW(_varName, buff2, nNeeded);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9096	// console_printf("getenv again -> %d\n", nNeeded2);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9097	ret = __mkStringOrU16String_maxlen(buff2, nNeeded2);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9098	free(buff2);
18962 29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	9099	} else if (nNeeded > 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9100	ret = __mkStringOrU16String_maxlen(buff, nNeeded);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9101	// console_printf("getenv() -> %"_lx_"\n", (INT)ret);
18962 29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	9102	}
29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	9103	RETURN (ret);
29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	9104
29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	9105	badArgument:;
20283 6054b4897eed * empty log message * Claus Gittinger <cg@exept.de> parents: 20282 diff changeset	9106	%}.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9107	^ nil
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9108
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9109	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9110	OperatingSystem getEnvironment:'PATH'
22246 436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	9111	OperatingSystem getEnvironment:'V50'
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	9112	OperatingSystem getEnvironment:'V101'
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	9113	OperatingSystem getEnvironment:'V203'
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	9114	OperatingSystem getEnvironment:'V407'
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	9115	OperatingSystem getEnvironment:'V815'
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	9116	OperatingSystem getEnvironment:'V1631'
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	9117	OperatingSystem getEnvironment:'V3263'
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9118	"
10294 f9fd95f04653 * empty log message * Claus Gittinger <cg@exept.de> parents: 10287 diff changeset	9119
20966 283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	9120	"Modified: / 15-11-2016 / 16:10:27 / cg"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9121	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9122
8659 d8f5821a6d6d * empty log message * penk parents: 8656 diff changeset	9123	getHostName
12961 f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	9124	"return the hostname we are running on
25276 0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	9125	- if possible (usually not), the fully qualified host name."
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	9126
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	9127	^ self primGetComputerName:3
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9128
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9129	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9130	OperatingSystem getHostName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9131	"
25276 0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	9132
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	9133	"Modified: / 20-02-2020 / 21:34:21 / stefan"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9134	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9135
7775 7a245107a599 Get language from registry Stefan Vogel <sv@exept.de> parents: 7749 diff changeset	9136	getLanguage
10311 1cf7f6da9fad comment Claus Gittinger <cg@exept.de> parents: 10297 diff changeset	9137	"get the LANGUAGE setting (example: de_DE.iso8859-15@euro).
1cf7f6da9fad comment Claus Gittinger <cg@exept.de> parents: 10297 diff changeset	9138	An environment value has higher preceedence than the system language setting."
9177 e19dffa97449 getLanguage fix Claus Gittinger <cg@exept.de> parents: 9176 diff changeset	9139
e19dffa97449 getLanguage fix Claus Gittinger <cg@exept.de> parents: 9176 diff changeset	9140	\|lang\|
e19dffa97449 getLanguage fix Claus Gittinger <cg@exept.de> parents: 9176 diff changeset	9141
e19dffa97449 getLanguage fix Claus Gittinger <cg@exept.de> parents: 9176 diff changeset	9142	lang := self getEnvironment:'LANG'.
e19dffa97449 getLanguage fix Claus Gittinger <cg@exept.de> parents: 9176 diff changeset	9143	(lang isNil or:[lang = 'default']) ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9144	"/ ok, search the registry ...
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9145	"/ under XP, it is found there ...
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9146	lang := RegistryEntry
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9147	stringValueFor:'sLanguage'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9148	atKey:'HKEY_CURRENT_USER\Control Panel\International'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9149	lang notNil ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9150	lang := self mapLanguage:lang.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9151	].
7775 7a245107a599 Get language from registry Stefan Vogel <sv@exept.de> parents: 7749 diff changeset	9152	].
9177 e19dffa97449 getLanguage fix Claus Gittinger <cg@exept.de> parents: 9176 diff changeset	9153	^ lang
e19dffa97449 getLanguage fix Claus Gittinger <cg@exept.de> parents: 9176 diff changeset	9154
e19dffa97449 getLanguage fix Claus Gittinger <cg@exept.de> parents: 9176 diff changeset	9155	"
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	9156	OperatingSystem getLanguage
7775 7a245107a599 Get language from registry Stefan Vogel <sv@exept.de> parents: 7749 diff changeset	9157	"
7a245107a599 Get language from registry Stefan Vogel <sv@exept.de> parents: 7749 diff changeset	9158	"Modified: 26.4.1996 / 10:04:54 / stefan"
7a245107a599 Get language from registry Stefan Vogel <sv@exept.de> parents: 7749 diff changeset	9159	!
7a245107a599 Get language from registry Stefan Vogel <sv@exept.de> parents: 7749 diff changeset	9160
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9161	getLocaleInfo
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9162	"return a dictionary filled with values from the locale information;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9163	Not all fields may be present, depending on the OS's setup and capabilities.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9164	Possible fields are:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9165	decimalPoint <String>
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9166	thousandsSep <String>
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9167	internationalCurrencySymbol <String>
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9168	currencySymbol <String>
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9169	monetaryDecimalPoint <String>
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9170	monetaryThousandsSeparator <String>
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9171	positiveSign <String>
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9172	negativeSign <String>
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9173	internationalFractionalDigits <Integer>
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9174	fractionalDigits <Integer>
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9175	positiveSignPrecedesCurrencySymbol <Boolean>
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9176	negativeSignPrecedesCurrencySymbol <Boolean>
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9177	positiveSignSeparatedBySpaceFromCurrencySymbol <Boolean>
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9178	negativeSignSeparatedBySpaceFromCurrencySymbol <Boolean>
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9179	positiveSignPosition <Symbol>
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9180	one of: #parenthesesAround,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9181	#signPrecedes,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9182	#signSuceeds,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9183	#signPrecedesCurrencySymbol,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9184	#signSuceedsCurrencySymbol
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9185
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9186	negativeSignPosition <like above>
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9187
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9188	it is up to the application to deal with undefined values.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9189
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9190	Notice, that (for now), the system does not use this information;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9191	it should be used by applications as required.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9192	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9193
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9194	\|info val\|
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9195
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9196	LocaleInfo notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9197	"/ return the internal info; useful on systems which do not
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9198	"/ support this.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9199	^ LocaleInfo
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9200	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9201
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9202	info := IdentityDictionary new.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9203	%{
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9204	char decimalPoint; / something like "." (US) or "," (german) */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9205	char thousandsSep; / something like "," (US) or "." (german) */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9206	char intCurrencySymbol; / international currency symbol; something like "USD " "DM " */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9207	char currencySymbol; / local currency symbol; something like "USD " "DM " */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9208	char monDecimalPoint; / money: decimal point */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9209	char monThousandsSep; / money: thousands sep */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9210	char *positiveSign;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9211	char *negativeSign;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9212	int intFractDigits; /* money: international digits after decPoint */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9213	int fractDigits; /* money: local digits after decPoint */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9214	int csPosPrecedes; /* money: 1 if currency symbol precedes a positive value; 0 if it sceeds */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9215	int csNegPrecedes; /* money: 1 if currency symbol precedes a negative value; 0 if it sceeds */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9216	int csPosSepBySpace; /* money: 1 if currency symbol should be separated by a space from a positive value; 0 if no space */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9217	int csNegSepBySpace; /* money: 1 if currency symbol should be separated by a space from a negative value; 0 if no space */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9218	int csPosSignPosition; /* money: 0: ()'s around the value & currency symbol */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9219	int csNegSignPosition; /* 1: sign precedes the value & currency symbol */
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9220	/* 2: sign succeeds the value & currency symbol */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9221	/* 3: sign immediately precedes the currency symbol */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9222	/* 4: sign immediately suceeds the currency symbol */
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9223
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9224	#if defined(HAS_LOCALECONV)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9225	struct lconv *conf;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9226
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9227	conf = localeconv();
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9228	if (conf) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9229	decimalPoint = conf->decimal_point;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9230	thousandsSep = conf->thousands_sep;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9231	intCurrencySymbol = conf->int_curr_symbol;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9232	currencySymbol = conf->currency_symbol;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9233	monDecimalPoint = conf->mon_decimal_point;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9234	monThousandsSep = conf->mon_thousands_sep;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9235	positiveSign = conf->positive_sign;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9236	negativeSign = conf->negative_sign;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9237	intFractDigits = conf->int_frac_digits;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9238	fractDigits = conf->frac_digits;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9239	csPosPrecedes = conf->p_cs_precedes;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9240	csNegPrecedes = conf->n_cs_precedes;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9241	csPosSepBySpace = conf->p_sep_by_space;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9242	csNegSepBySpace = conf->n_sep_by_space;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9243	csPosSignPosition = conf->p_sign_posn;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9244	csNegSignPosition = conf->n_sign_posn;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9245	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9246	#else
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9247	decimalPoint = (char *)0;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9248	thousandsSep = (char *)0;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9249	intCurrencySymbol = (char *)0;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9250	currencySymbol = (char *)0;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9251	monDecimalPoint = (char *)0;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9252	monThousandsSep = (char *)0;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9253	positiveSign = (char *)0;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9254	negativeSign =(char *)0;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9255	intFractDigits = -1;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9256	fractDigits = -1;
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	9257	csPosPrecedes = -1;
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	9258	csNegPrecedes = -1;
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	9259	csPosSepBySpace = -1;
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	9260	csNegSepBySpace = -1;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9261	csPosSignPosition = -1;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9262	csNegSignPosition = -1;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9263	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9264	if (decimalPoint) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9265	val = __MKSTRING(decimalPoint);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9266	__AT_PUT_(info, @symbol(decimalPoint), val);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9267	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9268	if (thousandsSep) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9269	val = __MKSTRING(thousandsSep);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9270	__AT_PUT_(info, @symbol(thousandsSeparator), val);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9271	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9272	if (intCurrencySymbol) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9273	val = __MKSTRING(intCurrencySymbol);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9274	__AT_PUT_(info, @symbol(internationCurrencySymbol), val);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9275	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9276	if (currencySymbol) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9277	val = __MKSTRING(currencySymbol);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9278	__AT_PUT_(info, @symbol(currencySymbol), val);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9279	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9280	if (monDecimalPoint) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9281	val = __MKSTRING(monDecimalPoint);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9282	__AT_PUT_(info, @symbol(monetaryDecimalPoint), val);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9283	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9284	if (monThousandsSep) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9285	val = __MKSTRING(monThousandsSep);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9286	__AT_PUT_(info, @symbol(monetaryThousandsSeparator), val);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9287	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9288	if (positiveSign) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9289	val = __MKSTRING(positiveSign);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9290	__AT_PUT_(info, @symbol(positiveSign), val);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9291	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9292	if (negativeSign) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9293	val = __MKSTRING(negativeSign);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9294	__AT_PUT_(info, @symbol(negativeSign), val);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9295	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9296	if (intFractDigits >= 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9297	__AT_PUT_(info, @symbol(internationalFractionalDigits), __mkSmallInteger(intFractDigits));
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9298	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9299	if (fractDigits >= 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9300	__AT_PUT_(info, @symbol(fractionalDigits), __mkSmallInteger(fractDigits));
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9301	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9302	if (csPosPrecedes >= 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9303	if (csPosPrecedes == 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9304	val = false;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9305	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9306	val = true;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9307	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9308	__AT_PUT_(info, @symbol(positiveSignPrecedesCurrencySymbol), val );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9309	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9310	if (csNegPrecedes >= 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9311	if (csNegPrecedes == 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9312	val = false;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9313	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9314	val = true;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9315	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9316	__AT_PUT_(info, @symbol(negativeSignPrecedesCurrencySymbol), val );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9317	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9318	if (csPosSepBySpace >= 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9319	if (csPosSepBySpace == 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9320	val = false;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9321	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9322	val = true;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9323	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9324	__AT_PUT_(info, @symbol(positiveSignSeparatedBySpaceFromCurrencySymbol), val);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9325	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9326	if (csNegSepBySpace >= 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9327	if (csNegSepBySpace == 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9328	val = false;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9329	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9330	val = true;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9331	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9332	__AT_PUT_(info, @symbol(negativeSignSeparatedBySpaceFromCurrencySymbol), val);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9333	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9334	switch (csPosSignPosition) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9335	case 0:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9336	val = @symbol(parenthesesAround);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9337	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9338
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9339	case 1:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9340	val = @symbol(signPrecedes);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9341	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9342
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9343	case 2:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9344	val = @symbol(signSuceeds);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9345	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9346
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9347	case 3:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9348	val = @symbol(signPrecedesCurrencySymbol);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9349	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9350
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9351	case 4:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9352	val = @symbol(signSuceedsCurrencySymbol);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9353	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9354
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9355	default:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9356	val = nil;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9357	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9358	if (val != nil) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9359	__AT_PUT_(info, @symbol(positiveSignPosition), val);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9360	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9361
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9362	switch (csNegSignPosition) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9363	case 0:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9364	val = @symbol(parenthesesAround);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9365	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9366
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9367	case 1:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9368	val = @symbol(signPrecedes);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9369	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9370
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9371	case 2:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9372	val = @symbol(signSuceeds);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9373	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9374
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9375	case 3:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9376	val = @symbol(signPrecedesCurrencySymbol);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9377	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9378
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9379	case 4:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9380	val = @symbol(signSuceedsCurrencySymbol);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9381	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9382
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9383	default:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9384	val = nil;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9385	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9386	if (val != nil) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9387	__AT_PUT_(info, @symbol(negativeSignPosition), val);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9388	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9389	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9390	^ info
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9391
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9392	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9393	OperatingSystem getLocaleInfo
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9394	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9395
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9396	"Created: 23.12.1995 / 14:19:20 / cg"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9397	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9398
15506 f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9399	getNetworkAddresses
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9400	"return a dictionary filled with
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9401	key -> name of interface
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9402	value -> the network adsress (as SocketAddress)
15506 f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9403	for each interface
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9404	"
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9405
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9406	\|info nAdapters rawData entry
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9407	name description macAddress ipAddress ipAddressMask\|
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9408
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9409	rawData := Array new:100.
15506 f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9410	%{
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9411	/*
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9412	* temporary undef String to avoid a #define-conflict
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9413	* between ST/X's String and Windows String typedef
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9414	*/
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9415	# undef String
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9416	# undef Context
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9417
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9418	IP_ADAPTER_INFO AdapterInfo[99];
15506 f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9419	DWORD dwBufLen = sizeof(AdapterInfo);
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9420	DWORD dwStatus;
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9421
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9422	dwStatus = GetAdaptersInfo(
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9423	AdapterInfo, // [out] buffer to receive data
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9424	&dwBufLen); // [in] size of receive data buffer
15506 f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9425	if (dwStatus == ERROR_SUCCESS) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9426	PIP_ADAPTER_INFO pAdapterInfo = AdapterInfo;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9427	unsigned char *bP;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9428	int nA = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9429
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9430	bP = __byteArrayVal(rawData);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9431	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9432	name = __MKSTRING(pAdapterInfo->AdapterName);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9433	description = __MKSTRING(pAdapterInfo->Description);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9434	macAddress = __MKBYTEARRAY(pAdapterInfo->Address, 6);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9435	ipAddress = __MKSTRING(pAdapterInfo->IpAddressList.IpAddress.String);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9436	ipAddressMask = __MKSTRING(pAdapterInfo->IpAddressList.IpMask.String);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9437	entry = __ARRAY_NEW_INT(5);
15506 f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9438
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9439	/*
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9440	* back to ST/X's String definition
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9441	*/
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9442	# ifdef __DEF_String
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9443	# define String __DEF_String
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9444	# endif
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9445	# ifdef __DEF_String
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9446	# define Context __DEF_Context
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9447	# endif
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9448	__ArrayInstPtr(entry)->a_element[0] = name; __STORE(entry, name);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9449	__ArrayInstPtr(entry)->a_element[1] = description; __STORE(entry, description);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9450	__ArrayInstPtr(entry)->a_element[2] = macAddress; __STORE(entry, macAddress);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9451	__ArrayInstPtr(entry)->a_element[3] = ipAddress; __STORE(entry, ipAddress);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9452	__ArrayInstPtr(entry)->a_element[4] = ipAddressMask; __STORE(entry, ipAddressMask);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9453
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9454	__ArrayInstPtr(rawData)->a_element[nA] = entry; __STORE(rawData, entry);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9455	nA++;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9456	pAdapterInfo = pAdapterInfo->Next;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9457	} while(pAdapterInfo);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9458	nAdapters = __mkSmallInteger(nA);
15506 f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9459	}
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9460	%}.
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9461	"Keep the order as returned by the OS"
18674 242c1aae7702 bugfix - D134619 - Fix error when not network interface enabled Michael Beyl <mb@exept.de> parents: 18629 diff changeset	9462	info := OrderedDictionary new:nAdapters ? 0.
15506 f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9463	nAdapters notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9464	1 to:nAdapters do:[:i \|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9465	\|entry name description macAddr ipAddr\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9466
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9467	entry := rawData at:i.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9468	name := entry at:1.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9469	"/ description := entry at:2.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9470	ipAddr := entry at:4.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9471	ipAddr := IPSocketAddress addressString:ipAddr.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9472	"take the first name"
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9473	(ipAddr hostAddress contains:[:b\| b ~~ 0]) ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9474	info at:name ifAbsentPut:ipAddr.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9475	]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9476	].
15506 f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9477	].
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9478	^ info
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9479
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9480	"
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9481	OperatingSystem getNetworkAddresses
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9482	"
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9483	!
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	9484
7287 b10efc6c9407 Fix spelling (getNetworkMACAddresses) Stefan Vogel <sv@exept.de> parents: 7199 diff changeset	9485	getNetworkMACAddresses
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	9486	"return a dictionary filled with
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9487	key -> name of interface
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9488	value -> the MAC adress (as ByteArray)
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	9489	for each interface
6542 ecfe70e462fe * empty log message * Claus Gittinger <cg@exept.de> parents: 6535 diff changeset	9490	"
ecfe70e462fe * empty log message * Claus Gittinger <cg@exept.de> parents: 6535 diff changeset	9491
7840 a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	9492	\|info nAdapters rawData entry
a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	9493	name description macAddress ipAddress ipAddressMask\|
a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	9494
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9495	rawData := Array new:100.
6542 ecfe70e462fe * empty log message * Claus Gittinger <cg@exept.de> parents: 6535 diff changeset	9496	%{
8319 2d179dc8dc3f Fix #getNetworkMACAdress for XP/2k Claus Gittinger <cg@exept.de> parents: 8270 diff changeset	9497	/*
2d179dc8dc3f Fix #getNetworkMACAdress for XP/2k Claus Gittinger <cg@exept.de> parents: 8270 diff changeset	9498	* temporary undef String to avoid a #define-conflict
2d179dc8dc3f Fix #getNetworkMACAdress for XP/2k Claus Gittinger <cg@exept.de> parents: 8270 diff changeset	9499	* between ST/X's String and Windows String typedef
2d179dc8dc3f Fix #getNetworkMACAdress for XP/2k Claus Gittinger <cg@exept.de> parents: 8270 diff changeset	9500	*/
8650 bc8e2cdcb777 processGroup termiantion (leftover child processes) Claus Gittinger <cg@exept.de> parents: 8642 diff changeset	9501	# undef String
bc8e2cdcb777 processGroup termiantion (leftover child processes) Claus Gittinger <cg@exept.de> parents: 8642 diff changeset	9502	# undef Context
8319 2d179dc8dc3f Fix #getNetworkMACAdress for XP/2k Claus Gittinger <cg@exept.de> parents: 8270 diff changeset	9503
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9504	IP_ADAPTER_INFO AdapterInfo[99];
6542 ecfe70e462fe * empty log message * Claus Gittinger <cg@exept.de> parents: 6535 diff changeset	9505	DWORD dwBufLen = sizeof(AdapterInfo);
ecfe70e462fe * empty log message * Claus Gittinger <cg@exept.de> parents: 6535 diff changeset	9506	DWORD dwStatus;
15169 0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	9507
0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	9508	dwStatus = GetAdaptersInfo(
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9509	AdapterInfo, // [out] buffer to receive data
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9510	&dwBufLen); // [in] size of receive data buffer
15169 0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	9511	if (dwStatus == ERROR_SUCCESS) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9512	PIP_ADAPTER_INFO pAdapterInfo = AdapterInfo;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9513	unsigned char *bP;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9514	int nA = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9515
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9516	bP = __byteArrayVal(rawData);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9517	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9518	name = __MKSTRING(pAdapterInfo->AdapterName);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9519	description = __MKSTRING(pAdapterInfo->Description);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9520	macAddress = __MKBYTEARRAY(pAdapterInfo->Address, 6);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9521	ipAddress = __MKSTRING(pAdapterInfo->IpAddressList.IpAddress.String);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9522	ipAddressMask = __MKSTRING(pAdapterInfo->IpAddressList.IpMask.String);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9523	entry = __ARRAY_NEW_INT(5);
15252 621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	9524
7840 a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	9525	/*
a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	9526	* back to ST/X's String definition
a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	9527	*/
8650 bc8e2cdcb777 processGroup termiantion (leftover child processes) Claus Gittinger <cg@exept.de> parents: 8642 diff changeset	9528	# ifdef __DEF_String
bc8e2cdcb777 processGroup termiantion (leftover child processes) Claus Gittinger <cg@exept.de> parents: 8642 diff changeset	9529	# define String __DEF_String
bc8e2cdcb777 processGroup termiantion (leftover child processes) Claus Gittinger <cg@exept.de> parents: 8642 diff changeset	9530	# endif
bc8e2cdcb777 processGroup termiantion (leftover child processes) Claus Gittinger <cg@exept.de> parents: 8642 diff changeset	9531	# ifdef __DEF_String
bc8e2cdcb777 processGroup termiantion (leftover child processes) Claus Gittinger <cg@exept.de> parents: 8642 diff changeset	9532	# define Context __DEF_Context
bc8e2cdcb777 processGroup termiantion (leftover child processes) Claus Gittinger <cg@exept.de> parents: 8642 diff changeset	9533	# endif
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9534	__ArrayInstPtr(entry)->a_element[0] = name; __STORE(entry, name);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9535	__ArrayInstPtr(entry)->a_element[1] = description; __STORE(entry, description);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9536	__ArrayInstPtr(entry)->a_element[2] = macAddress; __STORE(entry, macAddress);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9537	__ArrayInstPtr(entry)->a_element[3] = ipAddress; __STORE(entry, ipAddress);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9538	__ArrayInstPtr(entry)->a_element[4] = ipAddressMask; __STORE(entry, ipAddressMask);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9539
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9540	__ArrayInstPtr(rawData)->a_element[nA] = entry; __STORE(rawData, entry);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9541	nA++;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9542	pAdapterInfo = pAdapterInfo->Next;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9543	} while(pAdapterInfo);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9544	nAdapters = __mkSmallInteger(nA);
15169 0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	9545	}
0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	9546	%}.
0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	9547	"Keep the order as reurned by the OS"
18674 242c1aae7702 bugfix - D134619 - Fix error when not network interface enabled Michael Beyl <mb@exept.de> parents: 18629 diff changeset	9548	info := OrderedDictionary new:nAdapters ? 0.
8642 dd598b080b6a * empty log message * Claus Gittinger <cg@exept.de> parents: 8640 diff changeset	9549	nAdapters notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9550	1 to:nAdapters do:[:i \|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9551	\|entry name description macAddr ipAddr\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9552
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9553	entry := rawData at:i.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9554	name := entry at:1.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9555	"/ description := entry at:2.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9556	macAddr := entry at:3.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9557	"/ ipAddr := entry at:4.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9558	info at:name put:macAddr.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9559	].
7840 a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	9560	].
a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	9561	^ info
a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	9562
a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	9563	"
a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	9564	OperatingSystem getNetworkMACAddresses
a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	9565	"
6542 ecfe70e462fe * empty log message * Claus Gittinger <cg@exept.de> parents: 6535 diff changeset	9566	!
ecfe70e462fe * empty log message * Claus Gittinger <cg@exept.de> parents: 6535 diff changeset	9567
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	9568	getNumberOfProcessors
12649 7d8aad540a9b changed comment: #getNumberOfProcessors Stefan Vogel <sv@exept.de> parents: 12638 diff changeset	9569	"answer the number of physical processors in the system"
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	9570
20283 6054b4897eed * empty log message * Claus Gittinger <cg@exept.de> parents: 20282 diff changeset	9571	%{
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9572	SYSTEM_INFO sInfo;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9573	GetSystemInfo(&sInfo);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9574
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9575	return __mkSmallInteger(sInfo.dwNumberOfProcessors);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9576	%}.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9577
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9578	"
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9579	self getNumberOfProcessors
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	9580	"
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	9581	!
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	9582
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9583	getProcessId
25304 f10507faa940 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 25276 diff changeset	9584	"return the (windows-)processId"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9585
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9586	%{ /* NOCONTEXT */
25362 f1606835f9fb #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 25341 diff changeset	9587	if (@global(MyPid) == nil) {
f1606835f9fb #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 25341 diff changeset	9588	int pid = GetCurrentProcessId() & 0x3FFFFFFF;
f1606835f9fb #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 25341 diff changeset	9589	@global(MyPid) = __mkSmallInteger(pid);
f1606835f9fb #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 25341 diff changeset	9590	}
f1606835f9fb #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 25341 diff changeset	9591	RETURN(@global(MyPid));
20283 6054b4897eed * empty log message * Claus Gittinger <cg@exept.de> parents: 20282 diff changeset	9592	%}.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9593	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9594	OperatingSystem getProcessId
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9595	"
25362 f1606835f9fb #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 25341 diff changeset	9596
f1606835f9fb #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 25341 diff changeset	9597	"Modified: / 16-04-2020 / 16:56:22 / stefan"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9598	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9599
23928 2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	9600	"
23927 3f82716744b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 23848 diff changeset	9601	OperatingSystem getProcessId
3f82716744b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 23848 diff changeset	9602	"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9603	getSystemID
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9604	"if supported by the OS, return the systemID;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9605	a unique per machine identification.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9606	WARNING:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9607	not all systems support this; on some, 'unknown' is returned."
20312 04fab301a9fd #BUGFIX by sr sr parents: 20310 diff changeset	9608
04fab301a9fd #BUGFIX by sr sr parents: 20310 diff changeset	9609	\|regKey systemId\|
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9610
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9611	%{ /* NO_CONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9612	#if defined(HAS_GETHOSTID)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9613	int runningId;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9614	OBJ arr;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9615
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9616	runningId = gethostid();
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9617	arr = __BYTEARRAY_UNINITIALIZED_NEW_INT(4);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9618	(int )(__ByteArrayInstPtr(arr)->ba_element) = runningId;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9619	RETURN (arr);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9620	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9621	#if defined(HAS_SYSINFO) && defined(SI_HW_SERIAL)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9622	{
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9623	char buffer[128];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9624
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9625	buffer[0] = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9626	if (sysinfo(SI_HW_SERIAL, buffer, sizeof(buffer))) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9627	buffer[127] = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9628	if (strlen(buffer) > 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9629	RETURN(__MKSTRING(buffer));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9630	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9631	}
20548 ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	9632	}
ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	9633	#endif
ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	9634	%}.
ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	9635
ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	9636	regKey := self registryEntry
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9637	key:'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion'.
20312 04fab301a9fd #BUGFIX by sr sr parents: 20310 diff changeset	9638
04fab301a9fd #BUGFIX by sr sr parents: 20310 diff changeset	9639	regKey notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9640	systemId := regKey valueNamed:'ProductId'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9641	systemId isNil ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9642	regKey close.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9643	regKey := self registryEntry
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9644	key:'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9645	flags:#KEY_WOW64_64KEY createIfAbsent:false.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9646	systemId := regKey valueNamed:'ProductId'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9647	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9648	regKey close.
20548 ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	9649	].
ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	9650
20312 04fab301a9fd #BUGFIX by sr sr parents: 20310 diff changeset	9651	^ systemId ? 'unknown'
04fab301a9fd #BUGFIX by sr sr parents: 20310 diff changeset	9652
04fab301a9fd #BUGFIX by sr sr parents: 20310 diff changeset	9653	"
20548 ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	9654	OperatingSystem getSystemID
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9655	"
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	9656
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	9657	"Modified: / 16-05-2019 / 18:15:00 / Stefan Vogel"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9658	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9659
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9660	getSystemInfo
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9661	"return info on the system weare running on.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9662	If the system supports the uname system call, that info is returned;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9663	otherwise, some simulated info is returned.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9664
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9665	WARNING:
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9666	Do not depend on the amount and contents of the returned information, some
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9667	systems may return more/less than others. Also, the contents depends on the
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9668	OS, for example, linux returns 'ix86', while WIN32 returns 'x86'.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9669
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9670	This method is mainly provided to augment error reports with some system
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	9671	information.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9672	(in case of system/version specific OS errors, conditional workarounds and patches
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9673	may be based upon this info).
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9674	Your application should NOT depend upon this in any way.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9675
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9676	The returned info may (or may not) contain:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9677	#system -> some operating system identification (irix, Linux, nt, win32s ...)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9678	#version -> OS version (some os version identification)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9679	#release -> OS release (3.5, 1.2.1 ...)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9680	#node -> some host identification (hostname)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9681	#domain -> domain name (hosts domain)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9682	#machine -> type of machine (i586, mips ...)
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9683
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9684	win32:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9685	#physicalRam -> total amount of physical memory
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9686	#freeRam -> amount of free memory
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9687	#swapSize -> size of swapSpace (page file)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9688	#freeSwap -> free bytes in swapSpace
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9689	#virtualRam -> total amount of virtual memory
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9690	#freeVirtual -> amount of free virtual memory
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9691	#memoryLoad -> percentage of memory usage (useless)
10746 6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	9692	"
6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	9693
6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	9694	\|sys node rel ver minorVer majorVer mach dom info arch
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9695	physicalRam freeRam swapSize freeSwap
25095 ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	9696	virtualRam freeVirtual memoryLoad numberOfCPUs pageSize\|
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9697
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9698	%{ /* STACK: 4096 */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9699
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9700	char vsnBuffer[32];
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9701	char *s;
6740 809af7f7f2b9 getSystemInfo: knows about XP Claus Gittinger <cg@exept.de> parents: 6726 diff changeset	9702	int winVer, verMinor, verMajor;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9703	DWORD vsn;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9704	SYSTEM_INFO sysInfo;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9705	MEMORYSTATUS memStatus;
8416 77f3289fc2c7 Use snprintf for security (paranoia) Stefan Vogel <sv@exept.de> parents: 8412 diff changeset	9706	int len;
23533 8a3603bb73d7 #FEATURE by cgexept.de Claus Gittinger <cg@exept.de> parents: 23532 diff changeset	9707
23531 61e7f4c89f00 * empty log message * Claus Gittinger <cg@exept.de> parents: 23530 diff changeset	9708	vsn = GetVersion();
6740 809af7f7f2b9 getSystemInfo: knows about XP Claus Gittinger <cg@exept.de> parents: 6726 diff changeset	9709	winVer = LOWORD(vsn);
809af7f7f2b9 getSystemInfo: knows about XP Claus Gittinger <cg@exept.de> parents: 6726 diff changeset	9710	verMinor = HIBYTE(winVer);
809af7f7f2b9 getSystemInfo: knows about XP Claus Gittinger <cg@exept.de> parents: 6726 diff changeset	9711	verMajor = LOBYTE(winVer);
10746 6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	9712	minorVer = __mkSmallInteger(verMinor);
6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	9713	majorVer = __mkSmallInteger(verMajor);
6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	9714
25095 ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	9715	s = __stx_OSVersion(&verMajor, &verMinor);
ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	9716	sys = __MKSYMBOL(s, (OBJ *)0);
ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	9717
8416 77f3289fc2c7 Use snprintf for security (paranoia) Stefan Vogel <sv@exept.de> parents: 8412 diff changeset	9718	len = snprintf(vsnBuffer, sizeof(vsnBuffer), "%d.%d", verMajor, verMinor);
77f3289fc2c7 Use snprintf for security (paranoia) Stefan Vogel <sv@exept.de> parents: 8412 diff changeset	9719	rel = __MKSTRING_L(vsnBuffer, len);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9720
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9721	GetSystemInfo(&sysInfo);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9722	memStatus.dwLength = sizeof(memStatus);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9723	GlobalMemoryStatus(&memStatus);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9724
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9725	memoryLoad = __MKUINT(memStatus.dwMemoryLoad);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9726	physicalRam = __MKUINT(memStatus.dwTotalPhys);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9727	freeRam = __MKUINT(memStatus.dwAvailPhys);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9728	swapSize = __MKUINT(memStatus.dwTotalPageFile);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9729	freeSwap = __MKUINT(memStatus.dwAvailPageFile);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9730	virtualRam = __MKUINT(memStatus.dwTotalVirtual);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9731	freeVirtual = __MKUINT(memStatus.dwAvailVirtual);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9732
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9733	#if defined(__BORLANDC__) && (__BORLANDC__ <= 1339)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9734	/* BorlandC3 ... */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9735	switch (sysInfo.u.s.wProcessorArchitecture)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9736	#else
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9737	/* MSC, BorlandC4 ... */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9738	switch (sysInfo.wProcessorArchitecture)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9739	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9740	{
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9741	#ifdef PROCESSOR_ARCHITECTURE_INTEL
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9742	case PROCESSOR_ARCHITECTURE_INTEL:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9743	arch = @symbol(intel);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9744	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9745	#endif
13534 a788fd375ed1 * empty log message * Claus Gittinger <cg@exept.de> parents: 13533 diff changeset	9746	#ifdef PROCESSOR_ARCHITECTURE_AMD64
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9747	case PROCESSOR_ARCHITECTURE_AMD64:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9748	arch = @symbol(x64);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9749	break;
13534 a788fd375ed1 * empty log message * Claus Gittinger <cg@exept.de> parents: 13533 diff changeset	9750	#endif
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9751	#ifdef PROCESSOR_ARCHITECTURE_MIPS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9752	case PROCESSOR_ARCHITECTURE_MIPS:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9753	arch = @symbol(mips);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9754	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9755	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9756	#ifdef PROCESSOR_ARCHITECTURE_ALPHA
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9757	case PROCESSOR_ARCHITECTURE_ALPHA:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9758	arch = @symbol(alpha);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9759	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9760	#endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9761	#ifdef PROCESSOR_ARCHITECTURE_ALPHA64
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9762	case PROCESSOR_ARCHITECTURE_ALPHA64:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9763	arch = @symbol(alpha64);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9764	break;
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9765	#endif
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9766	#ifdef PROCESSOR_ARCHITECTURE_PPC
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9767	case PROCESSOR_ARCHITECTURE_PPC:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9768	arch = @symbol(ppc);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9769	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9770	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9771	#ifdef PROCESSOR_ARCHITECTURE_ARM
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9772	case PROCESSOR_ARCHITECTURE_ARM:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9773	arch = @symbol(arm);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9774	break;
25095 ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	9775	#endif
ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	9776	#ifdef PROCESSOR_ARCHITECTURE_ARM64
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9777	case PROCESSOR_ARCHITECTURE_ARM64:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9778	arch = @symbol(arm64);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9779	break;
8642 dd598b080b6a * empty log message * Claus Gittinger <cg@exept.de> parents: 8640 diff changeset	9780	#endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9781	#ifdef PROCESSOR_ARCHITECTURE_SHX
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9782	case PROCESSOR_ARCHITECTURE_SHX:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9783	arch = @symbol(shx);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9784	break;
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9785	#endif
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9786	#ifdef PROCESSOR_ARCHITECTURE_IA64
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9787	case PROCESSOR_ARCHITECTURE_IA64:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9788	arch = @symbol(ia64);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9789	break;
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9790	#endif
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9791	#ifdef PROCESSOR_ARCHITECTURE_MSIL
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9792	case PROCESSOR_ARCHITECTURE_MSIL:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9793	arch = @symbol(msil);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9794	break;
14746 c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9795	#endif
c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9796	#ifdef PROCESSOR_ARCHITECTURE_IA32_ON_WIN64
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9797	case PROCESSOR_ARCHITECTURE_IA32_ON_WIN64:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9798	arch = @symbol(ia32_on_win64);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9799	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9800	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9801	default:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9802	arch = @symbol(unknown);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9803	break;
12961 f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	9804	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9805
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9806	switch (sysInfo.dwProcessorType) {
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9807	#ifdef PROCESSOR_INTEL_386
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9808	case PROCESSOR_INTEL_386:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9809	mach = @symbol(i386);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9810	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9811	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9812	#ifdef PROCESSOR_INTEL_486
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9813	case PROCESSOR_INTEL_486:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9814	mach = @symbol(i486);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9815	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9816	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9817	#ifdef PROCESSOR_INTEL_PENTIUM
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9818	case PROCESSOR_INTEL_PENTIUM:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9819	mach = @symbol(i586);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9820	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9821	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9822	#ifdef PROCESSOR_INTEL_860
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9823	case PROCESSOR_INTEL_860:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9824	mach = @symbol(i860);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9825	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9826	#endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9827	#ifdef PROCESSOR_INTEL_IA64
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9828	case PROCESSOR_INTEL_IA64:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9829	mach = @symbol(ia64);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9830	break;
14746 c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9831	#endif
c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9832	#ifdef PROCESSOR_AMD_X8664
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9833	case PROCESSOR_AMD_X8664:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9834	mach = @symbol(x86_64);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9835	break;
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9836	#endif
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9837	#ifdef PROCESSOR_MIPS_R2000
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9838	case PROCESSOR_MIPS_R2000:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9839	mach = @symbol(r2000);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9840	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9841	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9842	#ifdef PROCESSOR_MIPS_R3000
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9843	case PROCESSOR_MIPS_R3000:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9844	mach = @symbol(r3000);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9845	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9846	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9847	#ifdef PROCESSOR_MIPS_R4000
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9848	case PROCESSOR_MIPS_R4000:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9849	mach = @symbol(r4000);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9850	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9851	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9852	#ifdef PROCESSOR_ALPHA_21064
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9853	case PROCESSOR_ALPHA_21064:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9854	mach = @symbol(alpha21064);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9855	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9856	#endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9857	#ifdef PROCESSOR_ARM720
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9858	case PROCESSOR_ARM720:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9859	mach = @symbol(arm720);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9860	break;
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9861	#endif
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9862	#ifdef PROCESSOR_ARM820
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9863	case PROCESSOR_ARM820:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9864	mach = @symbol(arm820);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9865	break;
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9866	#endif
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9867	#ifdef PROCESSOR_ARM920
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9868	case PROCESSOR_ARM920:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9869	mach = @symbol(arm920);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9870	break;
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9871	#endif
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9872	#ifdef PROCESSOR_ARM_7TDMI
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9873	case PROCESSOR_ARM_7TDMI:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9874	mach = @symbol(arm70001);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9875	break;
14746 c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9876	#endif
c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9877	#ifdef PROCESSOR_STRONGARM
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9878	case PROCESSOR_STRONGARM:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9879	mach = @symbol(strongarm);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9880	break;
8642 dd598b080b6a * empty log message * Claus Gittinger <cg@exept.de> parents: 8640 diff changeset	9881	#endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9882	#ifdef PROCESSOR_PPC_601
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9883	case PROCESSOR_PPC_601:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9884	mach = @symbol(ppc601);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9885	break;
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9886	#endif
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9887	#ifdef PROCESSOR_PPC_603
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9888	case PROCESSOR_PPC_603:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9889	mach = @symbol(ppc603);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9890	break;
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9891	#endif
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9892	#ifdef PROCESSOR_PPC_604
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9893	case PROCESSOR_PPC_604:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9894	mach = @symbol(ppc604);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9895	break;
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9896	#endif
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9897	#ifdef PROCESSOR_PPC_620
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9898	case PROCESSOR_PPC_620:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9899	mach = @symbol(ppc620);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9900	break;
14746 c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9901	#endif
c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9902	#ifdef PROCESSOR_HITACHI_SH3
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9903	case PROCESSOR_HITACHI_SH3:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9904	mach = @symbol(sh3);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9905	break;
14746 c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9906	#endif
c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9907	#ifdef PROCESSOR_HITACHI_SH3E
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9908	case PROCESSOR_HITACHI_SH3E:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9909	mach = @symbol(sh3e);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9910	break;
14746 c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9911	#endif
c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9912	#ifdef PROCESSOR_HITACHI_SH4
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9913	case PROCESSOR_HITACHI_SH4:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9914	mach = @symbol(sh4);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9915	break;
14746 c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9916	#endif
c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9917	#ifdef PROCESSOR_MOTOROLA_821
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9918	case PROCESSOR_MOTOROLA_821:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9919	mach = @symbol(mc821);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9920	break;
14746 c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9921	#endif
c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9922	#ifdef PROCESSOR_SHx_SH3
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9923	case PROCESSOR_SHx_SH3:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9924	mach = @symbol(shx_sh3);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9925	break;
14746 c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9926	#endif
c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9927	#ifdef PROCESSOR_SHx_SH4
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9928	case PROCESSOR_SHx_SH4:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9929	mach = @symbol(shx_sh4);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9930	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9931	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9932
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9933	default:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9934	sprintf(vsnBuffer, "%d", sysInfo.dwProcessorType);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9935	mach = __MKSTRING(vsnBuffer);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9936	break;
25095 ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	9937	}
ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	9938
ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	9939	pageSize = __MKUINT(sysInfo.dwPageSize);
7860 d08a47772aa1 * empty log message * ca parents: 7852 diff changeset	9940	numberOfCPUs = __MKUINT(sysInfo.dwNumberOfProcessors);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9941	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9942	node isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9943	node := self getHostName.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9944	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9945	dom isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	9946	dom := self getDomainName.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9947	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9948
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9949	info := IdentityDictionary new.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9950	info at:#system put:sys.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9951	info at:#node put:node.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9952	rel notNil ifTrue:[info at:#release put:rel].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9953	ver notNil ifTrue:[info at:#version put:ver].
10746 6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	9954	majorVer notNil ifTrue:[info at:#majorVersion put:majorVer].
6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	9955	minorVer notNil ifTrue:[info at:#minorVersion put:minorVer].
7860 d08a47772aa1 * empty log message * ca parents: 7852 diff changeset	9956	mach notNil ifTrue:[info at:#machine put:mach. info at:#cpuType put:mach].
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9957	arch notNil ifTrue:[info at:#architecture put:arch].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9958	dom notNil ifTrue:[info at:#domain put:dom].
25095 ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	9959
ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	9960	info at:#numberOfCPUs put:numberOfCPUs.
ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	9961	info at:#pageSize put:pageSize.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9962
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9963	info at:#memoryLoad put:memoryLoad.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9964	info at:#physicalRam put:physicalRam.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9965	info at:#freeRam put:freeRam.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9966	info at:#swapSize put:swapSize.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9967	info at:#freeSwap put:freeSwap.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9968	info at:#virtualRam put:virtualRam.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9969	info at:#freeVirtual put:freeVirtual.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9970
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9971	info at:#osType put:(self getOSType).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9972	^ info
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9973
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9974	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9975	OperatingSystem getSystemInfo
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9976	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9977	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9978
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9979	getSystemType
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9980	"return a string giving the type of system we're running on.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9981	This is almost the same as getOSType, but the returned string
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9982	is slightly different for some systems (i.e. iris vs. irix).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9983	Dont depend on this - use getOSType. I dont really see a point
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	9984	here ...
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9985	(except for slight differences between next/mach and other machs)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9986
12961 f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	9987	^ #win32
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9988
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9989	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9990	OperatingSystem getSystemType
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9991	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9992	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9993
12837 6bc60c34c98d added: #getThreadId Claus Gittinger <cg@exept.de> parents: 12828 diff changeset	9994	getThreadId
6bc60c34c98d added: #getThreadId Claus Gittinger <cg@exept.de> parents: 12828 diff changeset	9995	"return the (windows-) threadId"
6bc60c34c98d added: #getThreadId Claus Gittinger <cg@exept.de> parents: 12828 diff changeset	9996
6bc60c34c98d added: #getThreadId Claus Gittinger <cg@exept.de> parents: 12828 diff changeset	9997	%{ /* NOCONTEXT */
6bc60c34c98d added: #getThreadId Claus Gittinger <cg@exept.de> parents: 12828 diff changeset	9998
6bc60c34c98d added: #getThreadId Claus Gittinger <cg@exept.de> parents: 12828 diff changeset	9999	int pid = 0;
6bc60c34c98d added: #getThreadId Claus Gittinger <cg@exept.de> parents: 12828 diff changeset	10000
6bc60c34c98d added: #getThreadId Claus Gittinger <cg@exept.de> parents: 12828 diff changeset	10001	pid = GetCurrentThreadId() & 0x3FFFFFFF;
6bc60c34c98d added: #getThreadId Claus Gittinger <cg@exept.de> parents: 12828 diff changeset	10002	RETURN ( __mkSmallInteger(pid) );
20283 6054b4897eed * empty log message * Claus Gittinger <cg@exept.de> parents: 20282 diff changeset	10003	%}.
12837 6bc60c34c98d added: #getThreadId Claus Gittinger <cg@exept.de> parents: 12828 diff changeset	10004	"
6bc60c34c98d added: #getThreadId Claus Gittinger <cg@exept.de> parents: 12828 diff changeset	10005	OperatingSystem getThreadId
6bc60c34c98d added: #getThreadId Claus Gittinger <cg@exept.de> parents: 12828 diff changeset	10006	"
6bc60c34c98d added: #getThreadId Claus Gittinger <cg@exept.de> parents: 12828 diff changeset	10007	!
6bc60c34c98d added: #getThreadId Claus Gittinger <cg@exept.de> parents: 12828 diff changeset	10008
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10009	getWindowsDirectory
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10010	"internal interface - only for Windows based systems.
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	10011	Return the windows directory
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10012	(which - depending on the system - may be \WINNT, \WINDOWS or whatever)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10013	On non-windows systems, nil is returned."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10014
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	10015	%{
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	10016	wchar_t buffer[MAXPATHLEN+1];
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	10017
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	10018	if (GetWindowsDirectoryW(buffer, MAXPATHLEN)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10019	RETURN (__mkStringOrU16String_maxlen(buffer, MAXPATHLEN));
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10020	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10021	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10022	^ nil
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10023
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10024	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10025	OperatingSystem getWindowsDirectory
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10026	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10027	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10028
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10029	getWindowsSystemDirectory
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10030	"internal interface - only for Windows based systems.
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	10031	Return the windows system directory
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	10032	(which - depending on the system - may be \WINNT\SYSTEM32,
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10033	\WINDOWS\SYSTEM or whatever)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10034	On non-windows systems, nil is returned."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10035
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	10036	%{
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	10037	wchar_t buffer[MAXPATHLEN+1];
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	10038
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	10039	if (GetSystemDirectoryW(buffer, MAXPATHLEN)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10040	RETURN (__mkStringOrU16String_maxlen(buffer, MAXPATHLEN));
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10041	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10042	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10043	^ nil
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10044
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10045	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10046	OperatingSystem getWindowsSystemDirectory
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10047	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10048	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10049
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10050	hasConsole
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10051	"return true, if there is some kind of console available
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10052	(i.e. for proper stdIn, stdOut and stdErr handling).
16285 d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	10053	This only returns false when running únder windows, and
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10054	the system is running as a pure windows application.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10055	If false, the miniDebugger is useless and not used."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10056
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10057	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10058	extern int __getNoConsoleFlag();
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10059
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10060	RETURN ( __getNoConsoleFlag() ? false : true);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10061	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10062	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10063
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10064	isMSDOSlike
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	10065	"return true, if the OS we're running on is msdos like
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10066	(in contrast to unix-like or vms-like).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10067	This returns true for any of msdos, win32s, win95,
14444 a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10068	winNT, winXP, Vista, Win7, win8 and os/2."
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10069
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10070	^ true
14444 a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10071
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10072	"Modified (comment): / 27-10-2012 / 14:00:52 / cg"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10073	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10074
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10075	isMSWINDOWSNTlike
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10076	"This returns true if running in a Windows-NT system."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10077
16367 e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	10078	^ true.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10079	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10080
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10081	isMSWINDOWSlike
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10082	"return true, if running on a MS-Windows like system.
14444 a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10083	This returns true for any of win32s, win95, winNT, XP, Vista, Win7, Win8 etc."
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10084
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10085	^ true
14444 a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10086
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10087	"Modified (comment): / 27-10-2012 / 14:01:30 / cg"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10088	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10089
13315 a3c7e11d325d comment/format in: Stefan Vogel <sv@exept.de> parents: 13284 diff changeset	10090	isProcessIdPresent:processHandleOrPid
a3c7e11d325d comment/format in: Stefan Vogel <sv@exept.de> parents: 13284 diff changeset	10091	"answer true, if a process with process id pid (or handle) is present, false if not.
12638 7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	10092	Raise an error, if an exception occures"
7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	10093
7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	10094	\|error\|
7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	10095
7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	10096	%{
17117 4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	10097	HANDLE processHandle, processHandleToClose = 0;
12638 7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	10098	int err;
17117 4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	10099	DWORD exitCode;
12638 7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	10100
13315 a3c7e11d325d comment/format in: Stefan Vogel <sv@exept.de> parents: 13284 diff changeset	10101	if (__isExternalAddressLike(processHandleOrPid) ) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10102	processHandle = _HANDLEVal(processHandleOrPid);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10103	if (processHandle == 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10104	RETURN(false);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10105	// error = @symbol(invalidParameter);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10106	// goto out;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10107	}
13315 a3c7e11d325d comment/format in: Stefan Vogel <sv@exept.de> parents: 13284 diff changeset	10108	} else if( __isSmallInteger(processHandleOrPid) ) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10109	// assume, that synchronize needs less privilege...
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10110	processHandle = processHandleToClose = OpenProcess(SYNCHRONIZE, FALSE, __smallIntegerVal(processHandleOrPid));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10111	if (!processHandle) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10112	goto checkError;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10113	}
17117 4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	10114	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10115	error = @symbol(invalidParameter);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10116	goto out;
17117 4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	10117	}
4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	10118
4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	10119	/* check if the handle still refers to a running process */
4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	10120	if (GetExitCodeProcess(processHandle, &exitCode) != 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10121	if (processHandleToClose != 0)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10122	CloseHandle(processHandleToClose);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10123	if (exitCode == STILL_ACTIVE) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10124	RETURN(true);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10125	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10126	RETURN(false);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10127	}
20968 d67d3d5eec60 #BUGFIX by Maren matilk parents: 20966 diff changeset	10128	} else if (processHandleToClose != 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10129	CloseHandle(processHandleToClose);
17117 4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	10130	}
13315 a3c7e11d325d comment/format in: Stefan Vogel <sv@exept.de> parents: 13284 diff changeset	10131
a3c7e11d325d comment/format in: Stefan Vogel <sv@exept.de> parents: 13284 diff changeset	10132	checkError:
17117 4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	10133	err = GetLastError();
4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	10134	// we do not have access to the process (so pid does exist ;-))
4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	10135	if (err == ERROR_ACCESS_DENIED) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10136	RETURN(true);
17117 4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	10137	}
4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	10138	// pid does not exist
4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	10139	if (err == ERROR_INVALID_PARAMETER) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10140	RETURN(false);
17117 4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	10141	}
4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	10142
4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	10143	// any other error - raise signal
4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	10144	__threadErrno = __WIN32_ERR(err);
4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	10145	error = __mkSmallInteger(__threadErrno);
4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	10146	out:;
12638 7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	10147	%}.
7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	10148
7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	10149	self primitiveFailed:error.
7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	10150
7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	10151	"
7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	10152	self isProcessIdPresent:(self getProcessId)
17117 4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	10153	self isProcessIdPresent:10196
12638 7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	10154	self isProcessIdPresent:512
7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	10155	self isProcessIdPresent:'abc'
7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	10156	"
7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	10157	!
7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	10158
10746 6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	10159	isVistaLike
14444 a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10160	"return true, if running on a Vista (or newer) like system.
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10161	(also true for server 2008)"
10746 6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	10162
6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	10163	^ (self getSystemInfo at:#majorVersion) >= 6
6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	10164
6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	10165	"
6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	10166	self isVistaLike
6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	10167	"
14444 a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10168
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10169	"Modified (comment): / 27-10-2012 / 13:59:53 / cg"
10746 6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	10170	!
6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	10171
19335 2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	10172	isWin10Like
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	10173	"return true, if running on a Windows10 (or newer) like system.
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	10174	(also true for server 2016)"
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	10175
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	10176	\|sysInfo major\|
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	10177
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	10178	sysInfo := self getSystemInfo.
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	10179	major := sysInfo at:#majorVersion.
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	10180
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	10181	^ (major >= 10)
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	10182
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	10183	"
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	10184	self isWin10Like
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	10185	"
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	10186	!
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	10187
12961 f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	10188	isWin7Like
14444 a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10189	"return true, if running on a Windows7 (or newer) like system."
12961 f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	10190
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	10191	\|sysInfo major\|
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	10192
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	10193	sysInfo := self getSystemInfo.
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	10194	major := sysInfo at:#majorVersion.
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	10195
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	10196	^ (major == 6 and:[(sysInfo at:#minorVersion) >= 1])
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	10197	or:[major > 6]
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	10198
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	10199	"
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	10200	self isWin7Like
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	10201	"
14444 a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10202
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10203	"Modified (comment): / 27-10-2012 / 13:59:14 / cg"
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10204	!
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10205
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10206	isWin8Like
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10207	"return true, if running on a Windows8 (or newer) like system.
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10208	(also true for server 2012)"
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10209
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10210	\|sysInfo major\|
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10211
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10212	sysInfo := self getSystemInfo.
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10213	major := sysInfo at:#majorVersion.
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10214
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10215	^ (major == 6 and:[(sysInfo at:#minorVersion) >= 2])
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10216	or:[major > 6]
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10217
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10218	"
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10219	self isWin8Like
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10220	"
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10221
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	10222	"Created: / 27-10-2012 / 13:59:03 / cg"
12961 f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	10223	!
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	10224
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10225	maxFileNameLength
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10226	"return the max number of characters in a filename.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10227	CAVEAT:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10228	Actually, the following is somewhat wrong - some systems
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10229	support different sizes, depending on the volume.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10230	We return a somewhat conservative number here.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10231	Another entry, to query for volume specific max
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10232	will be added in the future."
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10233
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10234	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10235
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10236	/*
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10237	* TODO: newer systems provide a query function for this ... use it
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10238	*/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10239	/*
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10240	* mhmh - depends on the filesystem type
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10241	*/
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	10242	RETURN ( __mkSmallInteger(MAXFILELEN) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10243	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10244	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	10245	OperatingSystem maxFileNameLength
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10246	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10247	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10248
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10249	maxPathLength
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10250	"return the max number of characters in a pathName."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10251
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10252	%{ /* NOCONTEXT */
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	10253	RETURN ( __mkSmallInteger(MAXPATHLEN) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10254	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10255	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	10256	OperatingSystem maxPathLength
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10257	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10258	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10259
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10260	osName
13533 82dc48a9a6ae changed: #osName Claus Gittinger <cg@exept.de> parents: 13341 diff changeset	10261	\|osVersion\|
82dc48a9a6ae changed: #osName Claus Gittinger <cg@exept.de> parents: 13341 diff changeset	10262
82dc48a9a6ae changed: #osName Claus Gittinger <cg@exept.de> parents: 13341 diff changeset	10263	osVersion := OperatingSystem osVersion.
13128 35def02e40f4 CloseHandle added in: getAllProcesses Michael Beyl <mb@exept.de> parents: 13114 diff changeset	10264	^ 'Windows ',
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10265	(#('2000' 'XP' 'Server2003' 'VISTA' '7' '8' '8.1' '10')
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10266	at: (#('5.0' '5.1' '5.2' '6.0' '6.1' '6.2' '6.3' '10.0') indexOf:osVersion)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10267	ifAbsent:osVersion).
13742 cfb6a76de348 version_CVS Claus Gittinger <cg@exept.de> parents: 13618 diff changeset	10268
cfb6a76de348 version_CVS Claus Gittinger <cg@exept.de> parents: 13618 diff changeset	10269	"
cfb6a76de348 version_CVS Claus Gittinger <cg@exept.de> parents: 13618 diff changeset	10270	self osName
13533 82dc48a9a6ae changed: #osName Claus Gittinger <cg@exept.de> parents: 13341 diff changeset	10271	"
82dc48a9a6ae changed: #osName Claus Gittinger <cg@exept.de> parents: 13341 diff changeset	10272
82dc48a9a6ae changed: #osName Claus Gittinger <cg@exept.de> parents: 13341 diff changeset	10273	"Modified (comment): / 30-07-2011 / 17:00:50 / cg"
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10274	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10275
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10276	osVersion
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10277
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10278	^OperatingSystem getSystemInfo at:#release
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10279
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10280	"Created: / 19-01-2007 / 13:15:47 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10281	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10282
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10283	pathSeparator
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10284	"return the character which separates items in the PATH variable"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10285
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10286	^ $;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10287
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10288	"Created: 2.5.1997 / 11:36:47 / cg"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10289	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10290
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10291	platformName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10292	"return a string describing the OS platform very we're running on.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10293	This returns #unix for all unix derivatives,
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10294	#os2, #win32, #vms or #mac for the others.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10295	I.e. it is much less specific than getOSType or getSystemType."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10296
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10297	^ #win32
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10298
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10299	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10300	OperatingSystem platformName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10301	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10302
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10303	"Modified: 20.6.1997 / 17:37:26 / cg"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10304	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10305
25276 0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	10306	primGetComputerName:whatEnum
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	10307	"return the domain or hostname we are running on:
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	10308	typedef enum _COMPUTER_NAME_FORMAT {
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	10309	ComputerNameNetBIOS, // 0
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	10310	ComputerNameDnsHostname, // 1
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	10311	ComputerNameDnsDomain, // 2
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	10312	ComputerNameDnsFullyQualified, // 3
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	10313	ComputerNamePhysicalNetBIOS,
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	10314	ComputerNamePhysicalDnsHostname,
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	10315	ComputerNamePhysicalDnsDomain,
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	10316	ComputerNamePhysicalDnsFullyQualified,
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	10317	ComputerNameMax // 7
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	10318	} COMPUTER_NAME_FORMAT; "
25276 0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	10319
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	10320	%{ /* STACK: 2048 */
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	10321	// Note: GetComputerNameExA can fail in certain locales!
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	10322	#if 0 && defined(__MINGW32__)
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	10323	char bufferA[512];
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	10324	DWORD buffSize = sizeof(bufferA);
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	10325
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	10326	if (GetComputerNameA(bufferA, &buffSize) == TRUE) {
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	10327	RETURN(__MKSTRING_L(bufferA, buffSize));
25276 0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	10328	}
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	10329	#else
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	10330	WCHAR buffer[512];
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	10331	DWORD buffSize = sizeof(buffer)/sizeof(buffer[0]);
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	10332
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	10333	if (GetComputerNameExW((COMPUTER_NAME_FORMAT)__intVal(whatEnum), buffer, &buffSize) == TRUE) {
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	10334	RETURN(__mkStringOrU16String_maxlen(buffer, buffSize));
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	10335	}
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	10336	#endif
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	10337	%}.
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	10338
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	10339	"
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	10340	0 to: 7 collect:[:i\|
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	10341	OperatingSystem primGetComputerName:i
25276 0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	10342	]
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	10343	"
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	10344
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	10345	"Modified: / 20-02-2020 / 21:50:38 / stefan"
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	10346	!
0dda36c20228 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25260 diff changeset	10347
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	10348	randomBytesInto:bufferOrInteger
12827 c50946e5abe3 comment/format in: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12825 diff changeset	10349	"If bufferOrInteger is a String or a ByteArray,
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10350	fill a given buffer with random bytes from the RtlGenRandom function
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10351	and answer the buffer.
12827 c50946e5abe3 comment/format in: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12825 diff changeset	10352
c50946e5abe3 comment/format in: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12825 diff changeset	10353	If bufferOrInteger is a SmallInteger,
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10354	return this many bytes (max 4 for 32-bit ST or 8 for 64-bit ST) as a SmallInteger.
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	10355
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	10356	Return nil on error (and raise PrimitiveFailure).
12827 c50946e5abe3 comment/format in: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12825 diff changeset	10357
c50946e5abe3 comment/format in: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12825 diff changeset	10358	NOTE: This is a private interface, please use RandomGenerator!!"
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	10359
12773 0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	10360	%{
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	10361	// BOOLEAN RtlGenRandom(
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	10362	// __out PVOID RandomBuffer,
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	10363	// __in ULONG RandomBufferLength
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	10364	// );
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	10365	static BOOL (__stdcall *P_RtlGenRandom)(PVOID , ULONG) = 0;
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	10366	unsigned char *__buffer;
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	10367	int __bufferSize;
12825 5e8dc3aef362 added: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12821 diff changeset	10368	int __useLocalBuffer = 0;
24771 c2ac84744237 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24543 diff changeset	10369	unsigned INT __localBuffer = 0;
12825 5e8dc3aef362 added: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12821 diff changeset	10370
5e8dc3aef362 added: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12821 diff changeset	10371	if (__isSmallInteger(bufferOrInteger)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10372	__useLocalBuffer = 1;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10373	__buffer = (unsigned char *)&__localBuffer;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10374	__bufferSize = __smallIntegerVal(bufferOrInteger);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10375	if (__bufferSize > sizeof(INT))
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10376	__bufferSize = sizeof(INT);
12825 5e8dc3aef362 added: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12821 diff changeset	10377	} else if (__isString(bufferOrInteger)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10378	__buffer = __stringVal(bufferOrInteger);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10379	__bufferSize = __stringSize(bufferOrInteger);
12825 5e8dc3aef362 added: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12821 diff changeset	10380	} else if (__isByteArray(bufferOrInteger)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10381	__buffer = __byteArrayVal(bufferOrInteger);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10382	__bufferSize = __byteArraySize(bufferOrInteger);
12773 0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	10383	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10384	goto error;
12773 0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	10385	}
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	10386
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	10387	if (P_RtlGenRandom == 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10388	HINSTANCE hAdvapi32 = LoadLibrary("advapi32.dll");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10389	// console_printf("hAdvapi32: %x\n", hAdvapi32);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10390	if (hAdvapi32) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10391	P_RtlGenRandom = (BOOL (__stdcall *)(PVOID , ULONG))
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10392	GetProcAddress(hAdvapi32,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10393	"SystemFunction036");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10394	// console_printf("P_RtlGenRandom: %x\n", P_RtlGenRandom);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10395	if (P_RtlGenRandom == 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10396	goto error;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10397	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10398	}
12773 0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	10399	}
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	10400	if ((*P_RtlGenRandom)(__buffer, __bufferSize)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10401	if (__useLocalBuffer) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10402	RETURN(__mkSmallInteger(__localBuffer & _MAX_INT));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10403	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10404	RETURN (bufferOrInteger);
12773 0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	10405	}
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	10406	error: ;
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	10407	%}.
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	10408	self primitiveFailed.
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	10409	^ nil
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	10410
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	10411	"
12825 5e8dc3aef362 added: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12821 diff changeset	10412	self randomBytesInto:(ByteArray new:4)
24771 c2ac84744237 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24543 diff changeset	10413	self randomBytesInto:(ByteArray new:8)
12825 5e8dc3aef362 added: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12821 diff changeset	10414	self randomBytesInto:4
24771 c2ac84744237 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24543 diff changeset	10415	self randomBytesInto:8
12825 5e8dc3aef362 added: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12821 diff changeset	10416	self randomBytesInto:1
12773 0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	10417	"
24771 c2ac84744237 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24543 diff changeset	10418
c2ac84744237 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24543 diff changeset	10419	"Modified (format): / 09-09-2019 / 14:42:11 / Stefan Vogel"
12773 0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	10420	!
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	10421
12603 70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	10422	setEnvironment:aStringOrSymbol to:newValueString
70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	10423	"set an environment variable"
70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	10424
70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	10425	%{ /* NOCONTEXT */
70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	10426	char *env;
70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	10427
70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	10428	if (__isStringLike(aStringOrSymbol)
70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	10429	&& __isStringLike(newValueString) ) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10430	if (SetEnvironmentVariable(__stringVal(aStringOrSymbol), __stringVal(newValueString)) != 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10431	RETURN(self);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10432	}
12603 70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	10433	}
70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	10434	%}.
70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	10435	self primitiveFailed
70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	10436
70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	10437	"
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	10438	OperatingSystem getEnvironment:'PATH'
12603 70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	10439	OperatingSystem setEnvironment:'PATH' to:('c:\cygwin\bin;' , (OperatingSystem getEnvironment:'PATH'))
70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	10440	"
70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	10441	!
70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	10442
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10443	setLocaleInfo:anInfoDictionary
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10444	"set the locale information; if set, this oerrides the OS's settings.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10445	(internal in ST/X only - the OS's settings remain unaffected)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10446	See description of fields in #getLocaleInfo.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10447
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10448	Notice, that (for now), the system does not use this information;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10449	it should be used by applications as required."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10450
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10451	LocaleInfo := anInfoDictionary
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10452
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10453	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10454	\|d\|
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10455
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10456	d := IdentityDictionary new.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10457	d at:#decimalPoint put:'.' .
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10458	d at:#thousandsSeparator put:',' .
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10459	d at:#currencySymbol put:'USD' .
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10460	d at:#monetaryDecimalPoint put:'.' .
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10461	d at:#monetaryThousandsSeparator put:'.' .
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10462	d at:#fractionalDigits put:2 .
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10463	d at:#positiveSign put:'+' .
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10464	d at:#negativeSign put:'-' .
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10465	d at:#positiveSignPrecedesCurrencySymbol put:true .
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10466	d at:#negativeSignPrecedesCurrencySymbol put:false .
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10467	OperatingSystem setLocaleInfo:d
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10468	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10469	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10470
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10471	supportsChildInterrupts
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10472	"return true, if the OS supports childProcess termination signalling
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10473	through interrupts (i.e. SIGCHILD)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10474
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10475	%{ /* NOCONTEXT */
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	10476	#if defined(SIGCHLD) \|\| defined(SIGCLD)
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10477	RETURN (true);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10478	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10479	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10480	^ false
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10481
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10482	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	10483	OperatingSystem supportsChildInterrupts
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10484	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10485	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10486
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10487	supportsFileOwnerGroups
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10488	"return true, if the OS's file system supports file
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10489	group ownership - all OS's except windows do"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10490
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10491	^ false
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10492
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10493	"Created: / 10.9.1998 / 17:57:03 / cg"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10494	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10495
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10496	supportsFileOwners
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10497	"return true, if the OS's file system supports file
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10498	ownership - all OS's except windows do"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10499
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10500	^ false
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10501
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10502	"Created: / 10.9.1998 / 17:55:16 / cg"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10503	"Modified: / 10.9.1998 / 17:57:11 / cg"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10504	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10505
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10506	supportsIOInterrupts
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	10507	"return true, if the OS supports IO availability interrupts
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10508	(i.e. SIGPOLL/SIGIO).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10509
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10510	Currently, this mechanism does not work on all
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10511	systems ...
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10512	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10513
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10514	^ false
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10515
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10516	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	10517	OperatingSystem supportsIOInterrupts
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10518	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10519	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10520
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10521	supportsNonBlockingIO
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10522	"return true, if the OS supports nonblocking IO."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10523
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10524	^ false
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10525
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10526	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	10527	OperatingSystem supportsNonBlockingIO
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10528	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10529	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10530
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10531	supportsVolumes
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10532	"return true, if the OS supports disk volumes.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10533	False is returned for UNIX, true for MSDOS and VMS"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10534
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10535	^ true
23928 2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	10536	!
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	10537
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	10538	xx_getAllProcessIds
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	10539	"not needed - use getAllProcesses.
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	10540	returns a collection of processID,
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	10541	of all processes in the system"
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	10542
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	10543	%{
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	10544	#if 0
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	10545	OBJ pidArray;
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	10546	DWORD *processes;
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	10547	DWORD cbNeeded, nProcesses;
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	10548	int i, moreNeeded = 1;
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	10549	// Get the list of process identifiers.
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	10550	int nProcSpace = 512;
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	10551
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	10552	while (moreNeeded) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10553	processes = (DWORD)malloc(nProcSpacesizeof(DWORD));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10554	if (! EnumProcesses( processes, (nProcSpace*sizeof(DWORD)), &cbNeeded ) ) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10555	goto failed;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10556	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10557	moreNeeded = (cbNeeded == (nProcSpace*sizeof(DWORD)));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10558	if (moreNeeded) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10559	// returned exactly the size I gave it; maybe there are more
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10560	nProcSpace *= 2;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10561	free (processes);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10562	}
23928 2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	10563	}
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	10564	// Calculate how many process identifiers were returned.
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	10565	nProcesses = cbNeeded / sizeof(DWORD);
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	10566	pidArray = __ARRAY_NEW_INT(nProcesses);
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	10567	if (pidArray != nil) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10568	for (i=0; i<nProcesses; i++) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10569	__ArrayInstPtr(pidArray)->a_element[i] = __mkSmallInteger(processes[i]);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10570	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10571	RETURN ( pidArray );
23928 2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	10572	}
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	10573	failed: ;
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	10574	#endif
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	10575	%}.
2c38127d6863 #BUGFIX by cgexept.de Claus Gittinger <cg@exept.de> parents: 23927 diff changeset	10576	self primitiveFailed.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10577	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10578
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10579	!Win32OperatingSystem class methodsFor:'path queries'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10580
5144 607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10581	defaultPackagePath
5147 305aa6d3926a checkin from browser Claus Gittinger <cg@exept.de> parents: 5144 diff changeset	10582	\|pPath pkgDirPath dirs p\|
5144 607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10583
607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10584	pPath := super defaultPackagePath.
607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10585	pkgDirPath := self stxPackageDirPath.
607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10586	pkgDirPath notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10587	"/ and also add the packageDirPath from the registry ...
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10588	dirs := pkgDirPath asCollectionOfSubstringsSeparatedBy:$;.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10589	dirs do:[:aDir \|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10590	(pPath includes:aDir) ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10591	pPath add:aDir.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10592	]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10593	]
5144 607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10594	] ifFalse:[
13341 69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10595	"/ #(
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10596	"/ '\smalltalk'
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10597	"/ '\programme\smalltalk'
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10598	"/ '\programme\eXept\smalltalk'
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10599	"/ '\programs\smalltalk'
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10600	"/ '\programs\eXept\smalltalk'
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10601	"/ ) do:[:d \| \|dd\|
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10602	"/ dd := d asFilename constructString:'packages'.
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10603	"/ (pPath includes:dd) ifFalse:[
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10604	"/ pPath add:dd.
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10605	"/ ].
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10606	"/ dd := (d asFilename construct:Smalltalk versionString) constructString:'packages'.
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10607	"/ (pPath includes:dd) ifFalse:[
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10608	"/ pPath add:dd.
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10609	"/ ].
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10610	"/ ].
5144 607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10611	].
607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10612
607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10613	"/ under windows, the commandName includes the path - good.
5922 c36b3ecb61f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 5918 diff changeset	10614	p := Smalltalk commandName.
c36b3ecb61f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 5918 diff changeset	10615	p notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10616	p := p asFilename directory constructString:'packages'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10617	(pPath includes:p) ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10618	pPath add:p.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10619	]
5147 305aa6d3926a checkin from browser Claus Gittinger <cg@exept.de> parents: 5144 diff changeset	10620	].
5144 607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10621	pPath := pPath select:[:p \| p asFilename exists].
607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10622	^ pPath
607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10623
607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10624	"
607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10625	self defaultPackagePath
607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10626	"
607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10627
607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10628	"Created: / 24.12.1999 / 00:10:41 / cg"
5147 305aa6d3926a checkin from browser Claus Gittinger <cg@exept.de> parents: 5144 diff changeset	10629	"Modified: / 24.12.1999 / 00:33:26 / cg"
5144 607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10630	!
607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10631
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10632	defaultSystemPath
9021 6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	10633	\|sysPath libDirPath\|
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10634
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10635	sysPath := super defaultSystemPath.
9014 f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 9013 diff changeset	10636
5136 faa3c9f42b8b checkin from browser Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	10637	libDirPath := self stxLibDirPath.
faa3c9f42b8b checkin from browser Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	10638	libDirPath notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10639	"/ and also add the libDirPath from the registry ...
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10640	(sysPath includes:libDirPath) ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10641	sysPath add:libDirPath
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10642	].
9021 6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	10643	].
13341 69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10644	"/ #(
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10645	"/ '\programs\eXept\smalltalk'
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10646	"/ '\programme\eXept\smalltalk'
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10647	"/ '\programs\smalltalk'
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10648	"/ '\programme\smalltalk'
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10649	"/ '\smalltalk'
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10650	"/ ) do:[:dir \|
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10651	"/ \|vsnDir\|
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10652	"/
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10653	"/ (dir asFilename isDirectory) ifTrue:[
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10654	"/ vsnDir := dir , '\' , Smalltalk versionString.
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10655	"/ (vsnDir asFilename isDirectory) ifTrue:[
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10656	"/ (sysPath includes:vsnDir) ifFalse:[
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10657	"/ sysPath add:vsnDir.
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10658	"/ ]
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10659	"/ ].
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10660	"/ (sysPath includes:dir) ifFalse:[
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10661	"/ sysPath add:dir.
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10662	"/ ].
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10663	"/ ]
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10664	"/ ].
9021 6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	10665
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10666	^ sysPath
5136 faa3c9f42b8b checkin from browser Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	10667
5147 305aa6d3926a checkin from browser Claus Gittinger <cg@exept.de> parents: 5144 diff changeset	10668	"Modified: / 24.12.1999 / 00:29:18 / cg"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10669	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10670
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10671	stxBinDirPath
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10672	"ask the registry for the binary directory"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10673
25095 ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	10674	^ RegistryEntry
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10675	key:'HKEY_LOCAL_MACHINE\SOFTWARE\eXept\Smalltalk/X\' , Smalltalk versionString
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10676	valueNamed:'BinDir'.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10677
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10678	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	10679	OperatingSystem stxBinDirPath
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10680	"
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	10681
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	10682	"Modified (format): / 16-05-2019 / 18:53:20 / Stefan Vogel"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10683	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10684
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10685	stxLibDirPath
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10686	"ask the registry for the lib directory"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10687
9025 e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	10688	(Array
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10689	with:('HKEY_LOCAL_MACHINE\SOFTWARE\eXept\Smalltalk/X\' , Smalltalk versionString)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10690	with:('HKEY_LOCAL_MACHINE\SOFTWARE\eXept\Smalltalk/X'))
9021 6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	10691	do:[:eachKeyToTry \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10692	\|k p\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10693
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10694	k := RegistryEntry key:eachKeyToTry.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10695	k notNil ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10696	p := k valueNamed:'LibDir'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10697	k close.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10698	^ p
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10699	].
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10700	].
9021 6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	10701	^ nil
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10702
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10703	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10704	OperatingSystem stxLibDirPath
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10705	"
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	10706
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	10707	"Modified: / 16-05-2019 / 18:53:57 / Stefan Vogel"
5144 607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10708	!
607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10709
607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10710	stxPackageDirPath
607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10711	"ask the registry for the package directory"
607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10712
25095 ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	10713	^ RegistryEntry
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10714	key:'HKEY_LOCAL_MACHINE\SOFTWARE\eXept\Smalltalk/X\' , Smalltalk versionString
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10715	valueNamed:'PackageDirPath'.
5144 607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10716
607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10717	"
607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10718	OperatingSystem stxPackageDirPath
607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10719	"
607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10720
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	10721	"Created: / 24-12-1999 / 00:11:12 / cg"
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	10722	"Modified: / 16-05-2019 / 18:54:43 / Stefan Vogel"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10723	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10724
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10725	!Win32OperatingSystem class methodsFor:'printing support'!
c57956a348bf printing support fm parents: 9431 diff changeset	10726
c57956a348bf printing support fm parents: 9431 diff changeset	10727	abortDoc: deviceContext
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10728	^ self primAbortDoc:deviceContext
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10729
c57956a348bf printing support fm parents: 9431 diff changeset	10730	"Created: / 02-08-2006 / 12:52:12 / fm"
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10731	"Modified: / 04-10-2006 / 11:34:37 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10732	!
c57956a348bf printing support fm parents: 9431 diff changeset	10733
c57956a348bf printing support fm parents: 9431 diff changeset	10734	closePrinter:handle
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10735	self primClosePrinter:handle
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10736
c57956a348bf printing support fm parents: 9431 diff changeset	10737	"Created: / 28-07-2006 / 17:55:59 / fm"
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10738	"Modified: / 04-10-2006 / 11:34:34 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10739	!
c57956a348bf printing support fm parents: 9431 diff changeset	10740
c57956a348bf printing support fm parents: 9431 diff changeset	10741	createPrinterDC:driverName device:deviceName output:outputMedium initData:driverData
c57956a348bf printing support fm parents: 9431 diff changeset	10742	\|h\|
c57956a348bf printing support fm parents: 9431 diff changeset	10743
c57956a348bf printing support fm parents: 9431 diff changeset	10744	h := self primCreatePrinterDC:driverName device:deviceName output:outputMedium initData:driverData.
10529 09bf29a7405a createPrinterDC with normal handle fm parents: 10511 diff changeset	10745	"/ h notNil ifTrue:[
09bf29a7405a createPrinterDC with normal handle fm parents: 10511 diff changeset	10746	"/ ^ (Win32Handle newAddress:h address) registerForFinalization
09bf29a7405a createPrinterDC with normal handle fm parents: 10511 diff changeset	10747	"/ ].
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10748	^ h
c57956a348bf printing support fm parents: 9431 diff changeset	10749
c57956a348bf printing support fm parents: 9431 diff changeset	10750	"
c57956a348bf printing support fm parents: 9431 diff changeset	10751	\|p hPrinter driverNm mediumNm deviceNm driverData hDC\|
c57956a348bf printing support fm parents: 9431 diff changeset	10752
c57956a348bf printing support fm parents: 9431 diff changeset	10753	p := self getPrinters first.
c57956a348bf printing support fm parents: 9431 diff changeset	10754	driverNm := p attributes at:#driverName.
c57956a348bf printing support fm parents: 9431 diff changeset	10755	mediumNm := p attributes at:#medium.
c57956a348bf printing support fm parents: 9431 diff changeset	10756	deviceNm := p printerName.
c57956a348bf printing support fm parents: 9431 diff changeset	10757
c57956a348bf printing support fm parents: 9431 diff changeset	10758	hPrinter := self openPrinter:deviceNm.
c57956a348bf printing support fm parents: 9431 diff changeset	10759	driverData := self getDocumentProperties:nil hPrinter:hPrinter pDeviceName:deviceNm.
c57956a348bf printing support fm parents: 9431 diff changeset	10760	self primClosePrinter:hPrinter.
c57956a348bf printing support fm parents: 9431 diff changeset	10761
c57956a348bf printing support fm parents: 9431 diff changeset	10762	hDC := self createPrinterDC:driverNm device:deviceNm output:mediumNm initData:driverData.
c57956a348bf printing support fm parents: 9431 diff changeset	10763	"
c57956a348bf printing support fm parents: 9431 diff changeset	10764
c57956a348bf printing support fm parents: 9431 diff changeset	10765	"Created: / 27-07-2006 / 16:22:34 / fm"
10511 7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	10766	"Modified: / 16-04-2007 / 13:09:16 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10767	!
c57956a348bf printing support fm parents: 9431 diff changeset	10768
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	10769	deletePrinterDC: hwndArg
10529 09bf29a7405a createPrinterDC with normal handle fm parents: 10511 diff changeset	10770	\|return\|
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	10771	return := self primDeletePrinterDC:hwndArg .
10529 09bf29a7405a createPrinterDC with normal handle fm parents: 10511 diff changeset	10772	^return
09bf29a7405a createPrinterDC with normal handle fm parents: 10511 diff changeset	10773
09bf29a7405a createPrinterDC with normal handle fm parents: 10511 diff changeset	10774	"Created: / 27-07-2006 / 16:22:34 / fm"
09bf29a7405a createPrinterDC with normal handle fm parents: 10511 diff changeset	10775	!
09bf29a7405a createPrinterDC with normal handle fm parents: 10511 diff changeset	10776
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10777	documentPropertiesDialogFor:hwndOrNil hPrinter:hPrinter pDeviceName:deviceName devModeInput:pDevModeInputOrNil
23848 b74dc3385473 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23847 diff changeset	10778	\|nBytesNeeded rslt devModeOutput\|
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10779
c57956a348bf printing support fm parents: 9431 diff changeset	10780	"
c57956a348bf printing support fm parents: 9431 diff changeset	10781	#define DM_UPDATE 1
c57956a348bf printing support fm parents: 9431 diff changeset	10782	#define DM_COPY 2
c57956a348bf printing support fm parents: 9431 diff changeset	10783	#define DM_PROMPT 4
c57956a348bf printing support fm parents: 9431 diff changeset	10784	#define DM_MODIFY 8
c57956a348bf printing support fm parents: 9431 diff changeset	10785
c57956a348bf printing support fm parents: 9431 diff changeset	10786	#define DM_IN_BUFFER DM_MODIFY
c57956a348bf printing support fm parents: 9431 diff changeset	10787	#define DM_IN_PROMPT DM_PROMPT
c57956a348bf printing support fm parents: 9431 diff changeset	10788	#define DM_OUT_BUFFER DM_COPY
c57956a348bf printing support fm parents: 9431 diff changeset	10789	#define DM_OUT_DEFAULT DM_UPDATE
c57956a348bf printing support fm parents: 9431 diff changeset	10790	"
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	10791	nBytesNeeded := self
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10792	primDocumentProperties:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10793	hPrinter:hPrinter
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10794	pDeviceName: deviceName
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10795	pDevModeOutput:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10796	pDevModeInput:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10797	fMode:0.
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	10798
51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	10799	devModeOutput := DevModeStructure new:(nBytesNeeded * 2 "never trust MS !!").
51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	10800
51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	10801	rslt := self
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10802	primDocumentProperties:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10803	hPrinter:hPrinter
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10804	pDeviceName: deviceName
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10805	pDevModeOutput:devModeOutput
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10806	pDevModeInput:pDevModeInputOrNil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10807	fMode:4+2.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10808
c57956a348bf printing support fm parents: 9431 diff changeset	10809	^ devModeOutput
c57956a348bf printing support fm parents: 9431 diff changeset	10810
c57956a348bf printing support fm parents: 9431 diff changeset	10811	"
c57956a348bf printing support fm parents: 9431 diff changeset	10812	\|h\|
c57956a348bf printing support fm parents: 9431 diff changeset	10813
c57956a348bf printing support fm parents: 9431 diff changeset	10814	h := self openPrinter:'\\http://exept.exept.de:631\lj4'.
c57956a348bf printing support fm parents: 9431 diff changeset	10815	self documentPropertiesDialogFor:nil hPrinter:h pDeviceName:'\\http://exept.exept.de:631\lj4' devModeInput:nil
c57956a348bf printing support fm parents: 9431 diff changeset	10816	"
c57956a348bf printing support fm parents: 9431 diff changeset	10817
c57956a348bf printing support fm parents: 9431 diff changeset	10818	"Created: / 27-07-2006 / 15:39:21 / fm"
23848 b74dc3385473 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23847 diff changeset	10819	"Modified: / 07-03-2019 / 15:52:16 / Stefan Vogel"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10820	!
c57956a348bf printing support fm parents: 9431 diff changeset	10821
c57956a348bf printing support fm parents: 9431 diff changeset	10822	endDoc: deviceContext
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10823	^ self primEndDoc:deviceContext
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10824
c57956a348bf printing support fm parents: 9431 diff changeset	10825	"Created: / 27-07-2006 / 19:46:19 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	10826	"Modified: / 28-07-2006 / 19:23:03 / fm"
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10827	"Modified: / 04-10-2006 / 11:35:01 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10828	!
c57956a348bf printing support fm parents: 9431 diff changeset	10829
c57956a348bf printing support fm parents: 9431 diff changeset	10830	endPage: deviceContext
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10831	^ self primEndPage:deviceContext
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10832
c57956a348bf printing support fm parents: 9431 diff changeset	10833	"Created: / 27-07-2006 / 19:45:28 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	10834	"Modified: / 28-07-2006 / 18:49:40 / fm"
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10835	"Modified: / 04-10-2006 / 11:35:06 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10836	!
c57956a348bf printing support fm parents: 9431 diff changeset	10837
c57956a348bf printing support fm parents: 9431 diff changeset	10838	getDefaultPrinterName
c57956a348bf printing support fm parents: 9431 diff changeset	10839	"returns the default printer name"
c57956a348bf printing support fm parents: 9431 diff changeset	10840
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10841	^ (self getProfileString:'windows' key:'device' default:'')
d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10842
d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10843	"
d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10844	OperatingSystem getDefaultPrinterName
d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10845	"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10846
c57956a348bf printing support fm parents: 9431 diff changeset	10847	"Created: / 02-08-2006 / 17:25:34 / fm"
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10848	"Modified: / 04-10-2006 / 11:35:18 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10849	!
c57956a348bf printing support fm parents: 9431 diff changeset	10850
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	10851	getDeviceCaps:hwndArg index: index
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	10852	^ self primGetDeviceCaps:hwndArg index: index
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10853
c57956a348bf printing support fm parents: 9431 diff changeset	10854	"Created: / 28-07-2006 / 17:45:27 / fm"
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10855	"Modified: / 04-10-2006 / 11:35:29 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10856	!
c57956a348bf printing support fm parents: 9431 diff changeset	10857
c57956a348bf printing support fm parents: 9431 diff changeset	10858	getDocumentProperties:hwndOrNil hPrinter:hPrinter pDeviceName:deviceName
c57956a348bf printing support fm parents: 9431 diff changeset	10859	\|nBytesNeeded rslt devModeOutput\|
c57956a348bf printing support fm parents: 9431 diff changeset	10860
c57956a348bf printing support fm parents: 9431 diff changeset	10861	"
c57956a348bf printing support fm parents: 9431 diff changeset	10862	#define DM_UPDATE 1
c57956a348bf printing support fm parents: 9431 diff changeset	10863	#define DM_COPY 2
c57956a348bf printing support fm parents: 9431 diff changeset	10864	#define DM_PROMPT 4
c57956a348bf printing support fm parents: 9431 diff changeset	10865	#define DM_MODIFY 8
c57956a348bf printing support fm parents: 9431 diff changeset	10866
c57956a348bf printing support fm parents: 9431 diff changeset	10867	#define DM_IN_BUFFER DM_MODIFY
c57956a348bf printing support fm parents: 9431 diff changeset	10868	#define DM_IN_PROMPT DM_PROMPT
c57956a348bf printing support fm parents: 9431 diff changeset	10869	#define DM_OUT_BUFFER DM_COPY
c57956a348bf printing support fm parents: 9431 diff changeset	10870	#define DM_OUT_DEFAULT DM_UPDATE
c57956a348bf printing support fm parents: 9431 diff changeset	10871	"
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	10872	nBytesNeeded := self
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10873	primDocumentProperties:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10874	hPrinter:hPrinter
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10875	pDeviceName: deviceName
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10876	pDevModeOutput:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10877	pDevModeInput:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10878	fMode:0.
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10879
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10880	nBytesNeeded < 0 ifTrue:[^nil].
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	10881	devModeOutput := DevModeStructure new:(nBytesNeeded * 2 "never trust MS !!").
51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	10882
51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	10883	rslt := self
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10884	primDocumentProperties:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10885	hPrinter:hPrinter
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10886	pDeviceName: deviceName
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10887	pDevModeOutput:devModeOutput
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10888	pDevModeInput:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10889	fMode:2.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10890
c57956a348bf printing support fm parents: 9431 diff changeset	10891	^ devModeOutput
c57956a348bf printing support fm parents: 9431 diff changeset	10892
c57956a348bf printing support fm parents: 9431 diff changeset	10893	"
c57956a348bf printing support fm parents: 9431 diff changeset	10894	\|h\|
c57956a348bf printing support fm parents: 9431 diff changeset	10895
c57956a348bf printing support fm parents: 9431 diff changeset	10896	h := self openPrinter:'\\http://exept.exept.de:631\lj4'.
c57956a348bf printing support fm parents: 9431 diff changeset	10897	self getDocumentProperties:nil hPrinter:h pDeviceName:'\\http://exept.exept.de:631\lj4'
c57956a348bf printing support fm parents: 9431 diff changeset	10898	"
c57956a348bf printing support fm parents: 9431 diff changeset	10899
c57956a348bf printing support fm parents: 9431 diff changeset	10900	"Created: / 27-07-2006 / 15:38:03 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	10901	"Modified: / 31-07-2006 / 13:02:02 / fm"
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10902	"Modified: / 04-10-2006 / 11:35:39 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10903	!
c57956a348bf printing support fm parents: 9431 diff changeset	10904
c57956a348bf printing support fm parents: 9431 diff changeset	10905	getPrinterInfo2: printerName
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10906	\|hPrinter rslt informationBuffer bytesNeeded sizeBytesArray\|
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10907
c57956a348bf printing support fm parents: 9431 diff changeset	10908	hPrinter := self openPrinter: printerName .
c57956a348bf printing support fm parents: 9431 diff changeset	10909	sizeBytesArray := ByteArray new:4.
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	10910
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	10911	bytesNeeded := self
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10912	primGetPrinter:hPrinter
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10913	level:2
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10914	informationBuffer: nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10915	bufferSize: 0
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10916	bufferNeededSize:sizeBytesArray.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10917	bytesNeeded := sizeBytesArray longAt:1.
c57956a348bf printing support fm parents: 9431 diff changeset	10918	informationBuffer := PrinterInfo2Structure new: bytesNeeded.
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	10919	rslt := self
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10920	primGetPrinter:hPrinter
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10921	level:2
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10922	informationBuffer:informationBuffer
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10923	bufferSize: bytesNeeded
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10924	bufferNeededSize:sizeBytesArray.
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	10925	self closePrinter: printerName.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10926	^informationBuffer
c57956a348bf printing support fm parents: 9431 diff changeset	10927
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10928	"
d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10929	OperatingSystem getPrinterInfo2:(OperatingSystem getDefaultPrinterName)
d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10930	"
d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10931
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10932	"Created: / 01-08-2006 / 13:47:19 / fm"
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10933	"Modified: / 04-10-2006 / 11:36:41 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10934	!
c57956a348bf printing support fm parents: 9431 diff changeset	10935
c57956a348bf printing support fm parents: 9431 diff changeset	10936	getPrinters
c57956a348bf printing support fm parents: 9431 diff changeset	10937	"return a collection of PrinterInfos"
c57956a348bf printing support fm parents: 9431 diff changeset	10938
c57956a348bf printing support fm parents: 9431 diff changeset	10939	\|printerNames collectedInfo\|
c57956a348bf printing support fm parents: 9431 diff changeset	10940
c57956a348bf printing support fm parents: 9431 diff changeset	10941	printerNames := self getPrintersNames.
c57956a348bf printing support fm parents: 9431 diff changeset	10942	collectedInfo := OrderedCollection new.
c57956a348bf printing support fm parents: 9431 diff changeset	10943	printerNames do:[:eachName \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10944	\|fn vol attributes nm deviceInfo infoFields driverName\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10945
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10946	attributes := Dictionary new.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10947
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10948	fn := eachName asFilename.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10949	vol := fn volume.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10950	vol notEmptyOrNil ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10951	(vol startsWith:'\\') ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10952	"/ a remote printer
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10953	attributes at:#isRemotePrinter put:true.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10954	attributes at:#remotePrinterName put:(fn baseName).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10955	attributes at:#remotePrinterHost put:(fn directoryName copyFrom:3).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10956	] ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10957	"/ some other printer
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10958	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10959	] ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10960	"/ some other printer
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10961	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10962
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10963	deviceInfo := self getProfileString:'PrinterPorts' key:eachName default:''.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10964	"gives us smething like 'winspool,Ne00:,15,45',
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10965	which is: driverName, deviceName, ? , ?"
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10966
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10967	infoFields := deviceInfo asCollectionOfSubstringsSeparatedBy:$,.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10968	driverName := infoFields at:1.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10969	2 to: infoFields size by:3 do:[:i \|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10970	\|medium longName\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10971
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10972	medium := infoFields at:i.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10973	longName := eachName ,',' , driverName , ',' , medium.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10974	attributes at:#driverName put:driverName.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10975	attributes at:#longName put:longName.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10976	attributes at:#medium put:medium.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10977
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10978	collectedInfo add:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10979	(AbstractOperatingSystem::PrinterInfo new
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10980	printerName:eachName
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10981	attributes:attributes;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10982	setDocumentProperties;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10983	yourself)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	10984	].
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10985	].
c57956a348bf printing support fm parents: 9431 diff changeset	10986	^ collectedInfo
c57956a348bf printing support fm parents: 9431 diff changeset	10987
c57956a348bf printing support fm parents: 9431 diff changeset	10988	"
c57956a348bf printing support fm parents: 9431 diff changeset	10989	OperatingSystem getPrinters
c57956a348bf printing support fm parents: 9431 diff changeset	10990	"
c57956a348bf printing support fm parents: 9431 diff changeset	10991
c57956a348bf printing support fm parents: 9431 diff changeset	10992	"Created: / 27-07-2006 / 12:18:11 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	10993	"Modified: / 31-07-2006 / 13:06:04 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	10994	!
c57956a348bf printing support fm parents: 9431 diff changeset	10995
c57956a348bf printing support fm parents: 9431 diff changeset	10996	getPrintersNames
c57956a348bf printing support fm parents: 9431 diff changeset	10997	"return a collection of Printer names"
c57956a348bf printing support fm parents: 9431 diff changeset	10998
c57956a348bf printing support fm parents: 9431 diff changeset	10999	\|printerNames\|
c57956a348bf printing support fm parents: 9431 diff changeset	11000
c57956a348bf printing support fm parents: 9431 diff changeset	11001	printerNames := (self getProfileString:'PrinterPorts' key:nil default:'')
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11002	asCollectionOfSubstringsSeparatedBy:(Character value:0).
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11003	printerNames := printerNames reject:[:nm \| nm isEmpty].
c57956a348bf printing support fm parents: 9431 diff changeset	11004	^printerNames
c57956a348bf printing support fm parents: 9431 diff changeset	11005
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	11006	"
d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	11007	OperatingSystem getPrintersNames
d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	11008	"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11009
c57956a348bf printing support fm parents: 9431 diff changeset	11010	"Created: / 27-07-2006 / 17:55:46 / fm"
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	11011	"Modified: / 04-10-2006 / 11:37:41 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11012	!
c57956a348bf printing support fm parents: 9431 diff changeset	11013
c57956a348bf printing support fm parents: 9431 diff changeset	11014	getTextExtentPoint: handle string: lpString size: pSize
11085 ff0e28fd7027 changed #primReleaseMutex: fm parents: 11084 diff changeset	11015
ff0e28fd7027 changed #primReleaseMutex: fm parents: 11084 diff changeset	11016	^self primGetTextExtentPoint: handle string: lpString count: lpString size size: pSize
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11017
c57956a348bf printing support fm parents: 9431 diff changeset	11018	"Created: / 03-08-2006 / 11:17:17 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	11019	!
c57956a348bf printing support fm parents: 9431 diff changeset	11020
c57956a348bf printing support fm parents: 9431 diff changeset	11021	getTextMetrics: deviceContext lpMetrics: textMetrics
c57956a348bf printing support fm parents: 9431 diff changeset	11022
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	11023	^self primGetTextMetrics: deviceContext lpMetrics: textMetrics
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11024
c57956a348bf printing support fm parents: 9431 diff changeset	11025	"Created: / 02-08-2006 / 16:07:07 / fm"
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	11026	"Modified: / 04-10-2006 / 11:37:49 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11027	!
c57956a348bf printing support fm parents: 9431 diff changeset	11028
c57956a348bf printing support fm parents: 9431 diff changeset	11029	openPrinter:name
c57956a348bf printing support fm parents: 9431 diff changeset	11030	\|h hh rslt\|
c57956a348bf printing support fm parents: 9431 diff changeset	11031
19346 8863a07310e9 #OTHER Claus Gittinger <cg@exept.de> parents: 19339 diff changeset	11032	hh := ByteArray new:(ExternalAddress pointerSize).
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11033	rslt := self primOpenPrinter:name handleHolder:hh ignored:nil.
c57956a348bf printing support fm parents: 9431 diff changeset	11034	rslt ifFalse:[^ nil].
c57956a348bf printing support fm parents: 9431 diff changeset	11035
c57956a348bf printing support fm parents: 9431 diff changeset	11036	h := Win32PrinterHandle new setAddressFromBytes:hh.
c57956a348bf printing support fm parents: 9431 diff changeset	11037	h registerForFinalization.
c57956a348bf printing support fm parents: 9431 diff changeset	11038	^ h
c57956a348bf printing support fm parents: 9431 diff changeset	11039
c57956a348bf printing support fm parents: 9431 diff changeset	11040	"
c57956a348bf printing support fm parents: 9431 diff changeset	11041	self openPrinter:'\\http://exept.exept.de:631\lj4'
c57956a348bf printing support fm parents: 9431 diff changeset	11042	"
c57956a348bf printing support fm parents: 9431 diff changeset	11043
c57956a348bf printing support fm parents: 9431 diff changeset	11044	"Created: / 27-07-2006 / 14:40:41 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	11045	!
c57956a348bf printing support fm parents: 9431 diff changeset	11046
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	11047	primAbortDoc:hwndArg
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11048	<apicall: int32 "AbortDoc" (handle) module: "gdi32.dll" >
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	11049	self primitiveFailed.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11050
c57956a348bf printing support fm parents: 9431 diff changeset	11051	"Created: / 02-08-2006 / 12:52:32 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	11052	!
c57956a348bf printing support fm parents: 9431 diff changeset	11053
c57956a348bf printing support fm parents: 9431 diff changeset	11054	primClosePrinter:handle
c57956a348bf printing support fm parents: 9431 diff changeset	11055	<apicall: bool "ClosePrinter" ( handle ) module: "winspool.drv" >
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	11056	self primitiveFailed.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11057
c57956a348bf printing support fm parents: 9431 diff changeset	11058	"
c57956a348bf printing support fm parents: 9431 diff changeset	11059	\|h hh rslt\|
c57956a348bf printing support fm parents: 9431 diff changeset	11060
c57956a348bf printing support fm parents: 9431 diff changeset	11061	hh := ByteArray new:4.
c57956a348bf printing support fm parents: 9431 diff changeset	11062	rslt := self primOpenPrinter:'\\http://exept.exept.de:631\lj4' handleHolder:hh ignored: nil.
c57956a348bf printing support fm parents: 9431 diff changeset	11063	h := Win32PrinterHandle new setAddressFromBytes:hh.
c57956a348bf printing support fm parents: 9431 diff changeset	11064	self primClosePrinter: h.
c57956a348bf printing support fm parents: 9431 diff changeset	11065	"
c57956a348bf printing support fm parents: 9431 diff changeset	11066
c57956a348bf printing support fm parents: 9431 diff changeset	11067	"Created: / 27-07-2006 / 14:47:12 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	11068	!
c57956a348bf printing support fm parents: 9431 diff changeset	11069
c57956a348bf printing support fm parents: 9431 diff changeset	11070	primCreatePrinterDC:driverName device:deviceName output:outputMedium initData:driverData
10529 09bf29a7405a createPrinterDC with normal handle fm parents: 10511 diff changeset	11071	<apicall: handle "CreateDCA" ( pointer pointer pointer pointer ) module: "gdi32.dll" >
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	11072	self primitiveFailed.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11073
c57956a348bf printing support fm parents: 9431 diff changeset	11074	"Modified: / 27-07-2006 / 16:26:25 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	11075	!
c57956a348bf printing support fm parents: 9431 diff changeset	11076
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	11077	primDeletePrinterDC: hwndArg
10529 09bf29a7405a createPrinterDC with normal handle fm parents: 10511 diff changeset	11078	<apicall: bool "DeleteDC" ( handle ) module: "gdi32.dll" >
09bf29a7405a createPrinterDC with normal handle fm parents: 10511 diff changeset	11079	self primitiveFailed.
09bf29a7405a createPrinterDC with normal handle fm parents: 10511 diff changeset	11080	!
09bf29a7405a createPrinterDC with normal handle fm parents: 10511 diff changeset	11081
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11082	primDocumentProperties:hwndOrNil hPrinter:hPrinter pDeviceName:deviceName pDevModeOutput:pDevModeOutput pDevModeInput:pDevModeInput fMode:fMode
c57956a348bf printing support fm parents: 9431 diff changeset	11083	<apicall: int32 "DocumentPropertiesA" ( handle handle lpstr pointer pointer uint32) module: "winspool.drv" >
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	11084	self primitiveFailed.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11085
c57956a348bf printing support fm parents: 9431 diff changeset	11086	"
c57956a348bf printing support fm parents: 9431 diff changeset	11087	\|hPrinter rslt\|
c57956a348bf printing support fm parents: 9431 diff changeset	11088
c57956a348bf printing support fm parents: 9431 diff changeset	11089	hPrinter := self openPrinter:'\\http://exept.exept.de:631\lj4' .
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	11090	rslt := self
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11091	primDocumentProperties:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11092	hPrinter:hPrinter
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11093	pDeviceName: '\\http://exept.exept.de:631\lj4'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11094	pDevModeOutput:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11095	pDevModeInput:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11096	fMode:0.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11097
c57956a348bf printing support fm parents: 9431 diff changeset	11098	self halt.
c57956a348bf printing support fm parents: 9431 diff changeset	11099	"
c57956a348bf printing support fm parents: 9431 diff changeset	11100
c57956a348bf printing support fm parents: 9431 diff changeset	11101	"Created: / 27-07-2006 / 15:02:14 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	11102	!
c57956a348bf printing support fm parents: 9431 diff changeset	11103
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	11104	primEndDoc:hwndArg
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11105	<apicall: int32 "EndDoc" (handle) module: "gdi32.dll" >
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	11106	self primitiveFailed.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11107
c57956a348bf printing support fm parents: 9431 diff changeset	11108	"
c57956a348bf printing support fm parents: 9431 diff changeset	11109	\|hPrinter rslt\|
c57956a348bf printing support fm parents: 9431 diff changeset	11110
c57956a348bf printing support fm parents: 9431 diff changeset	11111	hPrinter := self openPrinter:'\\http://exept.exept.de:631\lj4' .
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	11112	rslt := self
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11113	primDocumentProperties:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11114	hPrinter:hPrinter
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11115	pDeviceName: '\\http://exept.exept.de:631\lj4'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11116	pDevModeOutput:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11117	pDevModeInput:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11118	fMode:0.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11119
c57956a348bf printing support fm parents: 9431 diff changeset	11120	self halt.
c57956a348bf printing support fm parents: 9431 diff changeset	11121	"
c57956a348bf printing support fm parents: 9431 diff changeset	11122
c57956a348bf printing support fm parents: 9431 diff changeset	11123	"Created: / 27-07-2006 / 19:31:31 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	11124	!
c57956a348bf printing support fm parents: 9431 diff changeset	11125
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	11126	primEndPage:hwndArg
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11127	<apicall: int32 "EndPage" (handle) module: "gdi32.dll" >
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	11128	self primitiveFailed.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11129
c57956a348bf printing support fm parents: 9431 diff changeset	11130	"
c57956a348bf printing support fm parents: 9431 diff changeset	11131	\|hPrinter rslt\|
c57956a348bf printing support fm parents: 9431 diff changeset	11132
c57956a348bf printing support fm parents: 9431 diff changeset	11133	hPrinter := self openPrinter:'\\http://exept.exept.de:631\lj4' .
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	11134	rslt := self
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11135	primDocumentProperties:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11136	hPrinter:hPrinter
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11137	pDeviceName: '\\http://exept.exept.de:631\lj4'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11138	pDevModeOutput:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11139	pDevModeInput:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11140	fMode:0.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11141
c57956a348bf printing support fm parents: 9431 diff changeset	11142	self halt.
c57956a348bf printing support fm parents: 9431 diff changeset	11143	"
c57956a348bf printing support fm parents: 9431 diff changeset	11144
c57956a348bf printing support fm parents: 9431 diff changeset	11145	"Created: / 27-07-2006 / 19:30:50 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	11146	!
c57956a348bf printing support fm parents: 9431 diff changeset	11147
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	11148	primGetDeviceCaps:hwndArg index: index
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	11149	"Returns driver specific information about the device"
d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	11150
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11151	<apicall: int32 "GetDeviceCaps" (handle int32) module: "gdi32.dll" >
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	11152	self primitiveFailed.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11153
c57956a348bf printing support fm parents: 9431 diff changeset	11154	"Modified: / 01-08-2006 / 16:13:05 / fm"
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	11155	"Modified: / 04-10-2006 / 11:38:06 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11156	!
c57956a348bf printing support fm parents: 9431 diff changeset	11157
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	11158	primGetPrinter:hwndArg level:index informationBuffer:informationBuffer bufferSize:bufferSize bufferNeededSize:bufferNeededSize
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11159	<apicall: bool "GetPrinterA" (handle dword pointer dword pointer) module: "winspool.drv" >
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	11160	self primitiveFailed.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11161
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	11162	"
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	11163	\|hPrinter rslt printerName informationBuffer bytesNeeded sizeBytesArray ok\|
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11164	printerName := '\\http://exept.exept.de:631\lj4'.
c57956a348bf printing support fm parents: 9431 diff changeset	11165	hPrinter := self openPrinter: printerName .
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	11166
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11167	sizeBytesArray := ByteArray new:4.
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	11168	ok := self
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11169	primGetPrinter:hPrinter
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11170	level:2
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11171	informationBuffer: nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11172	bufferSize: 0
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11173	bufferNeededSize:sizeBytesArray.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11174	bytesNeeded := sizeBytesArray longAt:1.
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	11175
b9c80492105b * empty log message * fm parents: 9475 diff changeset	11176	informationBuffer := PrinterInfo2Structure new: bytesNeeded.
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	11177	rslt := self
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11178	primGetPrinter:hPrinter
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11179	level:2
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11180	informationBuffer:informationBuffer
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11181	bufferSize: bytesNeeded
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11182	bufferNeededSize:sizeBytesArray.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11183	self assert: rslt.
c57956a348bf printing support fm parents: 9431 diff changeset	11184	informationBuffer inspect.
c57956a348bf printing support fm parents: 9431 diff changeset	11185	self closePrinter: printerName.
c57956a348bf printing support fm parents: 9431 diff changeset	11186	"
c57956a348bf printing support fm parents: 9431 diff changeset	11187
c57956a348bf printing support fm parents: 9431 diff changeset	11188	"Modified: / 01-08-2006 / 12:39:26 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	11189	!
c57956a348bf printing support fm parents: 9431 diff changeset	11190
11085 ff0e28fd7027 changed #primReleaseMutex: fm parents: 11084 diff changeset	11191	primGetTextExtentPoint: handle string: lpString count: nCount size: pSize
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	11192	<apicall: bool "GetTextExtentPointA" (handle pointer int32 pointer) module: "gdi32.dll" >
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	11193	self primitiveFailed.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11194
c57956a348bf printing support fm parents: 9431 diff changeset	11195	"Created: / 03-08-2006 / 11:06:23 / fm"
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	11196	"Modified: / 04-10-2006 / 11:38:21 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11197	!
c57956a348bf printing support fm parents: 9431 diff changeset	11198
c57956a348bf printing support fm parents: 9431 diff changeset	11199	primGetTextMetrics: deviceContext lpMetrics: textMetrics
c57956a348bf printing support fm parents: 9431 diff changeset	11200	<apicall: bool "GetTextMetricsA" (handle pointer) module: "gdi32.dll" >
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	11201	self primitiveFailed.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11202
c57956a348bf printing support fm parents: 9431 diff changeset	11203	"Modified: / 02-08-2006 / 16:17:51 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	11204	!
c57956a348bf printing support fm parents: 9431 diff changeset	11205
c57956a348bf printing support fm parents: 9431 diff changeset	11206	primOpenPrinter:name handleHolder:handleHolder ignored: ignored
c57956a348bf printing support fm parents: 9431 diff changeset	11207	<apicall: bool "OpenPrinterA" ( lpstr lpstr lpstr ) module: "winspool.drv" >
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	11208	self primitiveFailed.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11209
c57956a348bf printing support fm parents: 9431 diff changeset	11210	"
c57956a348bf printing support fm parents: 9431 diff changeset	11211	\|h hh rslt\|
c57956a348bf printing support fm parents: 9431 diff changeset	11212
c57956a348bf printing support fm parents: 9431 diff changeset	11213	hh := ByteArray new:4.
c57956a348bf printing support fm parents: 9431 diff changeset	11214	rslt := self primOpenPrinter:'\\http://exept.exept.de:631\lj4' handleHolder:hh ignored: nil.
c57956a348bf printing support fm parents: 9431 diff changeset	11215	h := Win32Handle new setAddressFromBytes:hh.
c57956a348bf printing support fm parents: 9431 diff changeset	11216	self halt.
c57956a348bf printing support fm parents: 9431 diff changeset	11217	"
c57956a348bf printing support fm parents: 9431 diff changeset	11218
c57956a348bf printing support fm parents: 9431 diff changeset	11219	"Created: / 27-07-2006 / 14:39:35 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	11220	!
c57956a348bf printing support fm parents: 9431 diff changeset	11221
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	11222	primSetTextAlign:handle with:fMode
10180 41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	11223	<apicall: bool "SetTextAlign" (handle int16) module: "gdi32.dll" >
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	11224	"SetTextAlign"
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	11225	"gdi32.dll"
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	11226
10180 41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	11227	self primitiveFailed.
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	11228	!
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	11229
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	11230	primSetViewportOrgEx: h x: x y: y oldOrigin: oldOrigin
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	11231
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	11232	<apicall: bool "SetViewportOrgEx" (handle int16 int16 pointer) module: "gdi32.dll" >
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	11233	self primitiveFailed.
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	11234	!
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	11235
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	11236	primStartDoc:hwndArg docInfo: aDocInfo
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11237	"Returns a jobId"
c57956a348bf printing support fm parents: 9431 diff changeset	11238	<apicall: int32 "StartDocA" (handle pointer) module: "gdi32.dll" >
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	11239	self primitiveFailed.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11240
c57956a348bf printing support fm parents: 9431 diff changeset	11241	"Modified: / 31-07-2006 / 11:47:10 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	11242	!
c57956a348bf printing support fm parents: 9431 diff changeset	11243
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	11244	primStartPage:hwndArg
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11245	<apicall: int32 "StartPage" (handle) module: "gdi32.dll" >
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	11246	self primitiveFailed.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11247
c57956a348bf printing support fm parents: 9431 diff changeset	11248	"Created: / 27-07-2006 / 19:02:12 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	11249	"Modified: / 31-07-2006 / 11:47:06 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	11250	!
c57956a348bf printing support fm parents: 9431 diff changeset	11251
10180 41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	11252	setTextAlign: fMode to: handle
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	11253
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	11254	self primSetTextAlign: handle with: fMode
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	11255	!
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	11256
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	11257	setViewportOrg: h x: x y: y oldOrigin: oldOrigin
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	11258
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	11259	self primSetViewportOrgEx: h x: x y: y oldOrigin: oldOrigin
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	11260	!
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	11261
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11262	startDoc: deviceContext docInfo: docInfoStruct
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	11263	^self primStartDoc:deviceContext docInfo: docInfoStruct
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11264
c57956a348bf printing support fm parents: 9431 diff changeset	11265	"Created: / 27-07-2006 / 19:42:39 / fm"
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	11266	"Modified: / 04-10-2006 / 11:38:30 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11267	!
c57956a348bf printing support fm parents: 9431 diff changeset	11268
c57956a348bf printing support fm parents: 9431 diff changeset	11269	startPage: deviceContext
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	11270	^self primStartPage:deviceContext
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11271
c57956a348bf printing support fm parents: 9431 diff changeset	11272	"Created: / 27-07-2006 / 19:43:56 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	11273	"Modified: / 28-07-2006 / 18:48:58 / fm"
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	11274	"Modified: / 04-10-2006 / 11:38:34 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	11275	! !
c57956a348bf printing support fm parents: 9431 diff changeset	11276
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11277	!Win32OperatingSystem class methodsFor:'private'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11278
7777 d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11279	mapLanguage:aWindowsLanguageString
9013 7e4f88f6c1a5 comments Claus Gittinger <cg@exept.de> parents: 8934 diff changeset	11280	"map a windows language string to ISO languageCode_languageTerritory format"
7777 d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11281
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11282	\|windowsLanguageString\|
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11283
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11284	windowsLanguageString := aWindowsLanguageString asUppercase.
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11285
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11286	#('DEU' 'de_DE'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11287	'DES' 'de_CH'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11288	'DEA' 'de_AT'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11289	'DAN' 'da_DA'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11290	'ENA' 'en_AU'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11291	'ENC' 'en_CA'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11292	'ENG' 'en_GB'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11293	'ENI' 'en_IR'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11294	'ENU' 'en_US'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11295	'ENZ' 'en_NZ'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11296	'FRA' 'fr_FR'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11297	'FRB' 'fr_BE'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11298	'FRC' 'fr_CA'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11299	'FRS' 'fr_CH'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11300	'ITA' 'it_IT'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11301	'ITS' 'it_CH'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11302	'ESM' 'es_MX'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11303	'ESN' 'es_ES'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11304	'ESP' 'es' "Castillian"
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11305	'NLB' 'nl_BE'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11306	'NLD' 'nl_NL'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11307	'CSY' 'cs_CS'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11308	'ELL' 'el_EL'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11309	'NON' 'no_NO'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11310	'NOR' 'no_NO'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11311	) pairWiseDo:[:key :mappedValue\|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11312	key = windowsLanguageString ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11313	^ mappedValue
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11314	]
7777 d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11315	].
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11316
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11317	"no mapping"
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11318	^ windowsLanguageString.
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11319
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11320	"
9025 e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	11321	self mapLanguage:'DEU'
7777 d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11322	"
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11323	!
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	11324
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11325	osProcessStatusClass
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11326	^ OSProcessStatus
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11327
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11328	"Created: / 12.6.1998 / 16:30:43 / cg"
20245 0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	11329	!
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	11330
20286 3ce013a218c7 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20285 diff changeset	11331	primExpandEnvironmentStringsA:inString into:outString size:outBufferSize
25184 5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	11332	"do not use - we do not know in advance whether the expansion will
5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	11333	result in a UnicodeString!!"
5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	11334
5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	11335	<resource: #obsolete>
20286 3ce013a218c7 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20285 diff changeset	11336	%{
3ce013a218c7 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20285 diff changeset	11337	if (__isString(inString)
3ce013a218c7 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20285 diff changeset	11338	&& __isString(outString)
3ce013a218c7 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20285 diff changeset	11339	&& __isSmallInteger(outBufferSize)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11340	unsigned long c_outBufferSize = __intVal(outBufferSize);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11341
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11342	if (__stringSize(outString) <= c_outBufferSize) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11343	unsigned long c_ret;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11344
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11345	c_ret = ExpandEnvironmentStringsA(__stringVal(inString), __stringVal(outString), c_outBufferSize);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11346	RETURN( __mkSmallInteger(c_ret) );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11347	}
20286 3ce013a218c7 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20285 diff changeset	11348	}
3ce013a218c7 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20285 diff changeset	11349	%}.
3ce013a218c7 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20285 diff changeset	11350	"/ <apicall: ulongReturn "ExpandEnvironmentStringsA" (pointer pointer ulong) module: "kernel32.dll" >
20245 0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	11351	^self primitiveFailed
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	11352
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	11353	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11354	self primExpandEnvironmentStringsA:'%ProgramFiles%\test\x' into:(String new:256) inspect size:256
25184 5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	11355	"
5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	11356	!
5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	11357
5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	11358	primExpandEnvironmentStringsW:inString into:outString size:outBufferSize
5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	11359	"IMPORTANT: the inString must be 0-terminated!!
5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	11360	Be default ST-Unicode strings are not 0-terminated."
5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	11361	%{
5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	11362	if (__isUnicode16String(inString)
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11363	&& __isUnicode16String(outString)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11364	&& __isSmallInteger(outBufferSize)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11365	unsigned long c_outBufferSize = __intVal(outBufferSize);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11366
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11367	if (__unicode16StringSize(outString) <= c_outBufferSize) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11368	unsigned long c_ret;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11369
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11370	c_ret = ExpandEnvironmentStringsW(__unicode16StringVal(inString), __unicode16StringVal(outString), c_outBufferSize);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11371	RETURN( __mkSmallInteger(c_ret) );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11372	}
25184 5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	11373	}
5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	11374	%}.
5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	11375	^ self primitiveFailed
5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	11376
5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	11377	"/ <apicall: ulongReturn "ExpandEnvironmentStringsW" (pointer pointer ulong) module: "kernel32.dll" >
5b1c5f143284 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 25139 diff changeset	11378	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11379	self primExpandEnvironmentStringsW:'%ProgramFiles%\test\x' asUnicodeString into:(Unicode16String new:256) inspect size:256
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11380	self primExpandEnvironmentStringsW:'%ProgramData%\test\xkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk' asUnicodeString into:(Unicode16String new:256) inspect size:256
20245 0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	11381	"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11382	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11383
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11384	!Win32OperatingSystem class methodsFor:'regional settings'!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11385
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11386	country
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11387	"Answer the current system value for country."
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11388
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11389	^ self queryNationalProfileString: 'iCountry' default: 0
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11390
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11391	"
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11392	self country
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11393	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11394
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11395	"Modified: / 22-12-2006 / 16:45:32 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11396	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11397
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11398	countryName
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11399	"Answer the current system value for country name."
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11400
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11401	^ self queryNationalProfileString: 'sCountry' default: 'Deutschland'
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11402
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11403	"
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11404	self countryName
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11405	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11406
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11407	"Modified: / 22-12-2006 / 16:45:32 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11408	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11409
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11410	dateFormat
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11411	"Answer the date format string to be used dep. on the OS system value for date format.
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11412	One of DfMDY = Month-Day-Year
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11413	DfDMY = Day-Month-Year
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11414	DfYMD = Year-Month-Day
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11415	is mapped to the ST/X dateFormatString %(mon)-%(day)-%(year)"
13324 ca08328dd255 changed: #dateFormat Claus Gittinger <cg@exept.de> parents: 13315 diff changeset	11416
ca08328dd255 changed: #dateFormat Claus Gittinger <cg@exept.de> parents: 13315 diff changeset	11417	\|separatorString code\|
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11418
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11419	separatorString := self dateSeparator.
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11420
13324 ca08328dd255 changed: #dateFormat Claus Gittinger <cg@exept.de> parents: 13315 diff changeset	11421	code := self dateFormatCode.
ca08328dd255 changed: #dateFormat Claus Gittinger <cg@exept.de> parents: 13315 diff changeset	11422	code = 0 ifTrue:[ ^ '%(mon)', separatorString, '%(day)', separatorString, '%(year)' ].
ca08328dd255 changed: #dateFormat Claus Gittinger <cg@exept.de> parents: 13315 diff changeset	11423	code = 1 ifTrue:[ ^ '%(day)', separatorString, '%(mon)', separatorString, '%(year)' ].
ca08328dd255 changed: #dateFormat Claus Gittinger <cg@exept.de> parents: 13315 diff changeset	11424	code = 2 ifTrue:[ ^ '%(year)', separatorString, '%(mon)', separatorString, '%(day)' ].
ca08328dd255 changed: #dateFormat Claus Gittinger <cg@exept.de> parents: 13315 diff changeset	11425
ca08328dd255 changed: #dateFormat Claus Gittinger <cg@exept.de> parents: 13315 diff changeset	11426	^ '%(day)', separatorString, '%(mon)', separatorString, '%(year)'
ca08328dd255 changed: #dateFormat Claus Gittinger <cg@exept.de> parents: 13315 diff changeset	11427
ca08328dd255 changed: #dateFormat Claus Gittinger <cg@exept.de> parents: 13315 diff changeset	11428	"
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11429	self dateFormat
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11430	Date today printStringFormat:(self dateFormat)
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11431	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11432
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11433	"Modified: / 22-12-2006 / 16:43:30 / User"
13324 ca08328dd255 changed: #dateFormat Claus Gittinger <cg@exept.de> parents: 13315 diff changeset	11434	"Modified: / 28-03-2011 / 17:10:01 / cg"
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11435	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11436
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11437	dateFormatCode
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11438	"Answer the current system value for date format.
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11439	Answer DfMDY = Month-Day-Year = 0
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11440	DfDMY = Day-Month-Year = 1
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11441	DfYMD = Year-Month-Day = 2
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11442	"
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11443
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11444	"/ this is somewhat outdated, but windows maps the initProfile query to
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11445	"/ a registry fetch (i.e. in HKEY_CURRENT_USER\Control Panel\International).
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11446	"/ Code should probably be changed to ask there...
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11447
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11448	^ self queryNationalProfileInt: 'iDate' default: 0
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11449
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11450	"
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11451	self dateFormatCode
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11452	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11453
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11454	"Modified: / 22-12-2006 / 16:45:53 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11455	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11456
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11457	dateSeparator
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11458	"Answer the current system value for date separator."
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11459
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11460	^ self queryNationalProfileString:'sDate' default:'/'
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11461
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11462	"
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11463	self dateSeparator
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11464	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11465
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11466	"Modified: / 22-12-2006 / 16:45:32 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11467	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11468
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11469	decimalSeparator
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11470	"Answer the current system value for decimal separator."
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11471
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11472	^ self queryNationalProfileString:'sDecimal' default:'.'
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11473
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11474	"
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11475	self decimalSeparator
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11476	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11477
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11478	"Created: / 22-12-2006 / 16:45:11 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11479	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11480
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11481	isDateFormatDMY
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11482	"Answer true if the current system date format is DfDMY = Day-Month-Year"
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11483
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11484	^ self dateFormatCode == 1
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11485
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11486	"Created: / 18-01-2007 / 14:56:23 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11487	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11488
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11489	isDateFormatMDY
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11490	"Answer true if the current system date format is DfMDY = Month-Day-Year"
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11491
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11492	^ self dateFormatCode == 0
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11493
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11494	"Created: / 18-01-2007 / 14:56:07 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11495	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11496
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11497	isDateFormatYMD
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11498	"Answer true if the current system date format is DfYMD = Year-Month-Day"
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11499
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11500	^ self dateFormatCode == 2
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11501
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11502	"Created: / 18-01-2007 / 14:56:30 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11503	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11504
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11505	isTimeFormat12Hour
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11506	"Answer whether the current system time format is 12-hour."
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11507
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11508	^ self timeFormat = 0
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11509
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11510	"Created: / 22-12-2006 / 16:48:17 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11511	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11512
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11513	language
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11514	"Answer the current system value for country name.
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11515	Notice that windows uses a different format (iso 639-2/b ???),
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11516	where the first two chars correspond to the standard iso language,
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11517	and the 3 third char represents the territory (somehow).
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11518	US-english which is 'en-us', is in windows ENU,
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11519	GB-english which is 'en-gb', is in windows ENG,
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11520	German de-de, de-au, de-ch are DEU, DEA, DES respectively.
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11521	See ISO-3166 Country Codes / ISO-639 Language Codes"
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11522
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11523	^ self queryNationalProfileString: 'sLanguage' default: 'ENG'
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11524
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11525	"
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11526	self language
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11527	"
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11528	!
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11529
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11530	primGetProfileInt:appName keyName:keyName default:anInt
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11531	<apicall: uint32 "GetProfileIntA" ( lpstr lpstr uint32) module: "kernel32.dll" >
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11532
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11533	^self primitiveFailed
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11534
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11535	"Created: / 22-12-2006 / 16:17:18 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11536	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11537
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11538	primGetProfileString: appName keyName: keyName default: defaultStr returnedString: retStr size: anInt
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11539	<apicall: uint32 "GetProfileStringA" ( lpstr lpstr lpstr lpstr uint32) module: "kernel32.dll" >
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11540
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11541	^self primitiveFailed
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11542
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11543	"Created: / 22-12-2006 / 16:20:23 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11544	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11545
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11546	queryNationalProfileInt: aKeyName default: defaultValue
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11547	\| answer \|
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11548
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11549	answer := self primGetProfileInt: 'Intl' keyName: aKeyName default:(-1 asUnsigned32).
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11550	^ answer = -1 asUnsigned32
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11551	ifTrue: [ defaultValue ]
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11552	ifFalse: [ answer ]
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11553
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11554	"
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11555	self queryNationalProfileInt: 'iDate' default: 0
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11556	"
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11557
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11558	"Modified: / 22-12-2006 / 16:23:05 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11559	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11560
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11561	queryNationalProfileString: aKeyName default: defaultValue
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11562	"Answer the string value of key aKeyName in
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11563	the [Intl] application section of the WIN.INI profile file.
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11564	Answer defaultValue if aKeyName cannot be found."
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11565
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11566	\| extString result \|
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11567
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11568	extString := String new: 80.
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11569	result := self
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11570	primGetProfileString:'Intl' keyName:aKeyName default:''
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11571	returnedString:extString
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11572	size:(extString size).
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11573	result > 0 ifTrue: [
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11574	^ extString copyFrom: 1 to: result
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11575	].
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11576	^ defaultValue
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11577
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11578	"Created: / 22-12-2006 / 16:13:01 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11579	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11580
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11581	thousandsSeparator
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11582	"Answer the current system value
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11583	for the thousands separator."
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11584
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11585	^ self queryNationalProfileString: 'sThousand' default: ','
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11586
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11587	"
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11588	self thousandsSeparator
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11589	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11590
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11591	"Created: / 22-12-2006 / 16:46:50 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11592	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11593
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11594	timeFormat
25235 5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11595	"Answer the current system value for time format."
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11596
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11597	^ self queryNationalProfileInt:'iTime' default: 0
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11598
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11599	"
5b21dbe1656b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25225 diff changeset	11600	self timeFormat
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11601	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11602
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11603	"Created: / 22-12-2006 / 16:48:27 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	11604	! !
10913 b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	11605
9093 cba833917516 * empty log message * Claus Gittinger <cg@exept.de> parents: 9092 diff changeset	11606	!Win32OperatingSystem class methodsFor:'registry support'!
9013 7e4f88f6c1a5 comments Claus Gittinger <cg@exept.de> parents: 8934 diff changeset	11607
7e4f88f6c1a5 comments Claus Gittinger <cg@exept.de> parents: 8934 diff changeset	11608	registryEntry
7e4f88f6c1a5 comments Claus Gittinger <cg@exept.de> parents: 8934 diff changeset	11609	"provide access to the registryEntry class"
7e4f88f6c1a5 comments Claus Gittinger <cg@exept.de> parents: 8934 diff changeset	11610
7e4f88f6c1a5 comments Claus Gittinger <cg@exept.de> parents: 8934 diff changeset	11611	^ RegistryEntry
7e4f88f6c1a5 comments Claus Gittinger <cg@exept.de> parents: 8934 diff changeset	11612	! !
7e4f88f6c1a5 comments Claus Gittinger <cg@exept.de> parents: 8934 diff changeset	11613
9088 6ae1b16f69a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 9083 diff changeset	11614	!Win32OperatingSystem class methodsFor:'serial port support'!
6ae1b16f69a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 9083 diff changeset	11615
6ae1b16f69a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 9083 diff changeset	11616	serialPortAccessor
9093 cba833917516 * empty log message * Claus Gittinger <cg@exept.de> parents: 9092 diff changeset	11617	"provide access to the serial port class"
cba833917516 * empty log message * Claus Gittinger <cg@exept.de> parents: 9092 diff changeset	11618
9088 6ae1b16f69a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 9083 diff changeset	11619	^ Win32SerialPortHandle
6ae1b16f69a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 9083 diff changeset	11620	! !
6ae1b16f69a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 9083 diff changeset	11621
9115 65f7004dae93 WIn32Shell and IUnknown stuff Claus Gittinger <cg@exept.de> parents: 9113 diff changeset	11622	!Win32OperatingSystem class methodsFor:'shell operations'!
65f7004dae93 WIn32Shell and IUnknown stuff Claus Gittinger <cg@exept.de> parents: 9113 diff changeset	11623
20364 190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	11624	openApplicationForDocument:fileOrUrl operation:operationSymbol mimeType:mimeType inDirectory:directoryStringOrFilenameOrNil
13108 1bfda4fe09e0 category of: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 12987 diff changeset	11625	"open a windows-shell application to present the document contained in aFilenameOrString.
1bfda4fe09e0 category of: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 12987 diff changeset	11626	This looks for the files extension, and is typically used to present help-files,
1bfda4fe09e0 category of: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 12987 diff changeset	11627	html documents, pdf documents etc.
1bfda4fe09e0 category of: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 12987 diff changeset	11628	operationSymbol is one of:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11629	open
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11630	edit
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11631	explore
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11632	print
20364 190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	11633	"
190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	11634
190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	11635	\|handle directoryName\|
190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	11636
190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	11637	"nil directory is the current directory"
190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	11638	directoryStringOrFilenameOrNil notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11639	directoryName := directoryStringOrFilenameOrNil asFilename pathName.
20364 190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	11640	].
190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	11641
190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	11642	handle := self
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11643	shellExecute:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11644	lpOperation:operationSymbol
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11645	lpFile:fileOrUrl asString
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11646	lpParameters:nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11647	lpDirectory:directoryName
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11648	nShowCmd:#SW_SHOWNORMAL.
20364 190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	11649
190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	11650	handle notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11651	handle close.
20364 190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	11652	].
15472 2eb14b1eaf06 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15464 diff changeset	11653
13108 1bfda4fe09e0 category of: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 12987 diff changeset	11654
1bfda4fe09e0 category of: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 12987 diff changeset	11655	"
1bfda4fe09e0 category of: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 12987 diff changeset	11656	self openApplicationForDocument: Filename currentDirectory operation:#open
15472 2eb14b1eaf06 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15464 diff changeset	11657	self openApplicationForDocument: 'C:\' operation:#open
13108 1bfda4fe09e0 category of: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 12987 diff changeset	11658	self openApplicationForDocument: '..\..\doc\books\ArtOfSmalltalk\artMissing186187Fix1.pdf' asFilename operation:#open
15472 2eb14b1eaf06 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15464 diff changeset	11659	self openApplicationForDocument: 'http://www.exept.de' asFilename operation:#open
13108 1bfda4fe09e0 category of: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 12987 diff changeset	11660
1bfda4fe09e0 category of: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 12987 diff changeset	11661	self openApplicationForDocument: 'C:\WINDOWS\Help\clipbrd.chm' asFilename operation:#open
1bfda4fe09e0 category of: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 12987 diff changeset	11662	"
1bfda4fe09e0 category of: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 12987 diff changeset	11663
1bfda4fe09e0 category of: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 12987 diff changeset	11664	"Created: / 04-08-2006 / 18:04:52 / fm"
13284 d3828897bd5b comment/format in: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 13224 diff changeset	11665	"Modified: / 05-02-2011 / 16:25:31 / cg"
13223 6255f420ba70 x Claus Gittinger <cg@exept.de> parents: 13197 diff changeset	11666	! !
6255f420ba70 x Claus Gittinger <cg@exept.de> parents: 13197 diff changeset	11667
9093 cba833917516 * empty log message * Claus Gittinger <cg@exept.de> parents: 9092 diff changeset	11668	!Win32OperatingSystem class methodsFor:'socket support'!
8270 df0083a70225 temporary kludge for SOcketAccessor/SocketHandle ca parents: 8265 diff changeset	11669
df0083a70225 temporary kludge for SOcketAccessor/SocketHandle ca parents: 8265 diff changeset	11670	socketAccessor
9093 cba833917516 * empty log message * Claus Gittinger <cg@exept.de> parents: 9092 diff changeset	11671	"provide access to the socket handle class"
cba833917516 * empty log message * Claus Gittinger <cg@exept.de> parents: 9092 diff changeset	11672
8740 bb4a76c88cca temporary kludge: added dummy SocketHandle for Unix compat. Claus Gittinger <cg@exept.de> parents: 8667 diff changeset	11673	^ Win32SocketHandle
8270 df0083a70225 temporary kludge for SOcketAccessor/SocketHandle ca parents: 8265 diff changeset	11674	! !
df0083a70225 temporary kludge for SOcketAccessor/SocketHandle ca parents: 8265 diff changeset	11675
23267 aac6515beadf #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 23264 diff changeset	11676	!Win32OperatingSystem class methodsFor:'sound and voice'!
aac6515beadf #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 23264 diff changeset	11677
25260 cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11678	bestVoiceForLanguage:lang
cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11679	"OS specific - to be redefined for linux, windows and OSX"
cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11680
25328 455bbc11e42c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25325 diff changeset	11681	"/ todo: scan voiceInfo
455bbc11e42c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25325 diff changeset	11682	(lang startsWith:'de' caseSensitive:false) ifTrue:[ ^ 'Microsoft Hedda Desktop' ].
25330 bf8d3eba937e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25328 diff changeset	11683	(lang sameAs:'en-gb' caseSensitive:false) ifTrue:[ ^ 'Microsoft Hazel Desktop' ].
bf8d3eba937e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25328 diff changeset	11684	(lang sameAs:'en-us' caseSensitive:false) ifTrue:[ ^ 'Microsoft Zira Desktop' ].
25328 455bbc11e42c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25325 diff changeset	11685	(lang startsWith:'en' caseSensitive:false) ifTrue:[ ^ 'Microsoft Zira Desktop' ].
455bbc11e42c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25325 diff changeset	11686	(lang startsWith:'fr' caseSensitive:false) ifTrue:[ ^ 'Microsoft Hortense Desktop' ].
455bbc11e42c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25325 diff changeset	11687	(lang startsWith:'it' caseSensitive:false) ifTrue:[ ^ 'Microsoft Elsa Desktop' ].
455bbc11e42c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25325 diff changeset	11688	(lang startsWith:'es' caseSensitive:false) ifTrue:[ ^ 'Microsoft Helena Desktop' ].
455bbc11e42c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25325 diff changeset	11689	(lang startsWith:'pt' caseSensitive:false) ifTrue:[ ^ 'Microsoft Helia Desktop' ].
455bbc11e42c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25325 diff changeset	11690	(lang startsWith:'zh' caseSensitive:false) ifTrue:[ ^ 'Microsoft Huihui Desktop' ].
455bbc11e42c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25325 diff changeset	11691	(lang startsWith:'ja' caseSensitive:false) ifTrue:[ ^ 'Microsoft Haruka Desktop' ].
455bbc11e42c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25325 diff changeset	11692	(lang startsWith:'ru' caseSensitive:false) ifTrue:[ ^ 'Microsoft Irina Desktop' ].
25260 cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11693	^ nil
cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11694
cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11695	"Created: / 23-07-2019 / 10:21:08 / Claus Gittinger"
cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11696	!
cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11697
23267 aac6515beadf #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 23264 diff changeset	11698	canSpeak
aac6515beadf #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 23264 diff changeset	11699	"a hack: using a powershell callout"
aac6515beadf #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 23264 diff changeset	11700
aac6515beadf #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 23264 diff changeset	11701	^ true
aac6515beadf #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 23264 diff changeset	11702
aac6515beadf #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 23264 diff changeset	11703	"
25330 bf8d3eba937e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25328 diff changeset	11704	self speak:'hallo'
23267 aac6515beadf #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 23264 diff changeset	11705	self speak:'hello'
aac6515beadf #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 23264 diff changeset	11706	"
aac6515beadf #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 23264 diff changeset	11707	!
aac6515beadf #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 23264 diff changeset	11708
aac6515beadf #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 23264 diff changeset	11709	voiceCommandSpec
aac6515beadf #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 23264 diff changeset	11710	"commands to try for speech output"
aac6515beadf #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 23264 diff changeset	11711
aac6515beadf #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 23264 diff changeset	11712	^ #(
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11713	"/ triples are:
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11714	"/ -command
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11715	"/ -commandline for default voice
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11716	"/ -commandline for specific voice
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11717	"/ -commandline for Speech Synthesis Markup Language (SSML) voice
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11718	('powershell'
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11719	'powershell -Command "Add-Type -AssemblyName System.Speech; (New-Object System.Speech.Synthesis.SpeechSynthesizer).Speak(''%2'');"'
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11720	'powershell -Command "Add-Type -AssemblyName System.Speech; $S=(New-Object System.Speech.Synthesis.SpeechSynthesizer);$S.SelectVoice(''%1'');$S.Speak(''%2'');"'
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11721	'powershell -Command "Add-Type -AssemblyName System.Speech; (New-Object System.Speech.Synthesis.SpeechSynthesizer).SpeakSsml(''%2'');"'
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11722	)
23272 943caf3090c8 shellExecute 16bit support Claus Gittinger <cg@exept.de> parents: 23267 diff changeset	11723	)
23267 aac6515beadf #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 23264 diff changeset	11724
aac6515beadf #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 23264 diff changeset	11725	"
aac6515beadf #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 23264 diff changeset	11726	self speak:'hello'
25093 84880a517d07 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25076 diff changeset	11727	self speak:'hallo'
84880a517d07 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25076 diff changeset	11728	"
84880a517d07 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25076 diff changeset	11729	"<<END
84880a517d07 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25076 diff changeset	11730	self speak:'<speak version=\"1.0\" xmlns=\"http://www.w3.org/2001/10/synthesis\" xml:lang=\"en-US\"> <say-as type=\"date:mdy\"> 1/29/2009 </say-as> </speak>'
84880a517d07 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25076 diff changeset	11731	END"
84880a517d07 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25076 diff changeset	11732
84880a517d07 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25076 diff changeset	11733
84880a517d07 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25076 diff changeset	11734	"<<END
84880a517d07 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25076 diff changeset	11735	OperatingSystem executeCommand:
84880a517d07 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25076 diff changeset	11736	'powershell -Command "Add-Type -AssemblyName System.Speech; (New-Object System.Speech.Synthesis.SpeechSynthesizer).Speak(''hello'');"'
84880a517d07 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25076 diff changeset	11737
25095 ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	11738	OperatingSystem
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11739	executeCommand:
25093 84880a517d07 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25076 diff changeset	11740	'powershell -Command "Add-Type -AssemblyName System.Speech;$S = New-Object -TypeName System.Speech.Synthesis.SpeechSynthesizer;$S.voice;"'
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11741	outputTo:Transcript
25260 cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11742
cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11743	OperatingSystem
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11744	executeCommand:
25260 cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11745	'powershell -Command "Add-Type -AssemblyName System.Speech;$S = New-Object -TypeName System.Speech.Synthesis.SpeechSynthesizer;$S.GetInstalledVoices();"'
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11746	outputTo:Transcript
25095 ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	11747
ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	11748	OperatingSystem
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11749	executeCommand:
25260 cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11750	'powershell -Command "Add-Type -AssemblyName System.Speech; foreach ($v in (New-Object System.Speech.Synthesis.SpeechSynthesizer).GetInstalledVoices() ){ Write-Host $v.VoiceInfo.Name }"'
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11751	outputTo:Transcript
25260 cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11752	END"
cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11753	!
cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11754
cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11755	voiceInfo
cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11756	"return a list of available (OS-specific) voice names plus info.
cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11757	For each available voice, a triple is returned, containing:
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11758	voiceName language_territory comment/description
25260 cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11759
cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11760	the language_territory (of the form en_EN / en_US etc.) gives a hint,
cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11761	for which language the voice is best used.
cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11762
cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11763	For now, this is experimental and will be enhanced to ask the OS..."
cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11764
cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11765	^ #(
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11766	('default' 'en_US' 'the default system voice')
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11767
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11768	#('Microsoft Zira Desktop' 'en_US' 'Isn''t it nice to have a computer that will talk to you?')
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11769	#('Microsoft Hazel Desktop' 'en_GB' 'Isn''t it nice to have a computer that will talk to you?')
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11770	#('Microsoft Hedda Desktop' 'de_DE' 'Danke, daß Sie mir zuhören')
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11771	#('Microsoft Helena Desktop' 'es_ES' 'holla mondo')
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11772	#('Microsoft Irina Desktop' 'ru_RU' 'привет мир')
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11773	#('Microsoft Elsa Desktop' 'it_IT' 'ciao mondo')
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11774	#('Microsoft Hortense Desktop' 'fr_FR' 'bonjour monde')
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11775	#('Microsoft Helia Desktop' 'pt_PT' 'olá mundo')
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11776	#('Microsoft Hanhan Desktop' 'zh_TW' '你好世界')
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11777	#('Microsoft Tracy Desktop' 'zh_HK' '你好世界')
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11778	#('Microsoft Huihui Desktop' 'zh_CN' '你好世界')
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11779	#('Microsoft Haruka Desktop' 'ja_JP' 'こんにちは世界')
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11780	)
25260 cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11781
cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11782	"<<END
cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11783	OperatingSystem voiceInfo
cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11784
25325 3da46679f0bc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25304 diff changeset	11785	OperatingSystem speak:'hallo welt' voiceName:'Microsoft Hedda Desktop'
3da46679f0bc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25304 diff changeset	11786	OperatingSystem speak:'hallo welt' voiceName:'Microsoft Katja Desktop'
3da46679f0bc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25304 diff changeset	11787	OperatingSystem speak:'hello world' voiceName:'Microsoft Zira Desktop'
3da46679f0bc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25304 diff changeset	11788	OperatingSystem speak:'hello world' voiceName:'Microsoft Hazel Desktop'
3da46679f0bc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25304 diff changeset	11789	OperatingSystem speak:'hello world' voiceName:'Microsoft Tracy Desktop'
3da46679f0bc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25304 diff changeset	11790	OperatingSystem speak:'holla mondo' voiceName:'Microsoft Helena Desktop'
3da46679f0bc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25304 diff changeset	11791	OperatingSystem speak:'bonjour monde' voiceName:'Microsoft Hortense Desktop'
3da46679f0bc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25304 diff changeset	11792	OperatingSystem speak:'bonjour monde' voiceName:'Microsoft Caroline Desktop'
3da46679f0bc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25304 diff changeset	11793	OperatingSystem speak:'bonjour monde' voiceName:'Microsoft Julie Desktop'
3da46679f0bc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25304 diff changeset	11794	OperatingSystem speak:'ciao mondo' voiceName:'Microsoft Elsa Desktop'
3da46679f0bc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25304 diff changeset	11795	OperatingSystem speak:'olá mundo' voiceName:'Microsoft Helia Desktop'
3da46679f0bc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25304 diff changeset	11796	OperatingSystem speak:'привет мир' voiceName:'Microsoft Irina Desktop'
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11797	OperatingSystem speak:'こんにちは世界' voiceName:'Microsoft Haruka Desktop' "Kon'nichiwa sekai"
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11798	OperatingSystem speak:'你好世界' voiceName:'Microsoft Hanhan Desktop' "Nǐ hǎo shìjiè"
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11799	OperatingSystem speak:'你好世界' voiceName:'Microsoft Huihui Desktop' "Nǐ hǎo shìjiè"
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11800	OperatingSystem speak:'hello' voiceName:'Microsoft Huihui Desktop' "Nǐ hǎo shìjiè"
25325 3da46679f0bc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25304 diff changeset	11801
25260 cad9ab22bee7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25249 diff changeset	11802	Do do:
25095 ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	11803
ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	11804	OperatingSystem
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11805	executeCommand:
25325 3da46679f0bc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25304 diff changeset	11806	'powershell -Command "Add-Type -AssemblyName System.Speech; foreach ($v in (New-Object System.Speech.Synthesis.SpeechSynthesizer).GetInstalledVoices() ){ Write-Host $v.VoiceInfo.Name; Write-Host $v.VoiceInfo.Culture }"'
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11807	outputTo:Transcript
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	11808	END
23267 aac6515beadf #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 23264 diff changeset	11809	! !
aac6515beadf #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 23264 diff changeset	11810
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11811	!Win32OperatingSystem class methodsFor:'system management'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11812
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11813	exitWindows
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11814	"do not use - may be removed without notice"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11815
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11816	self exitWindows:#shutdown confirm:'Do you really want to shutdown the system'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11817	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11818
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11819	exitWindows:how confirm:confirmationMessageOrNil
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11820	"this method is temporary -
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11821	since my windows system menu crashes so often
7850 087b4ca01736 comment & unneeded method removed ca parents: 7841 diff changeset	11822	(even CTRL-ALT-DEL does no longer function, but ST/X is still alive),
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11823	I added this in order to be able to shutdown w95 cleanly"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11824
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11825	confirmationMessageOrNil notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11826	(Dialog confirm:confirmationMessageOrNil) ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11827	^ false
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11828	].
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11829	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11830	%{
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11831	int flag;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11832
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11833	if (how == @symbol(shutdown)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11834	flag = EWX_SHUTDOWN;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11835	} else if (how == @symbol(reboot)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11836	flag = EWX_REBOOT;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11837	} else if (how == @symbol(logoff)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11838	flag = EWX_LOGOFF;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11839	} else if (how == @symbol(forceShutdown)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11840	flag = EWX_SHUTDOWN \| EWX_FORCE;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11841	} else if (how == @symbol(forceReboot)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11842	flag = EWX_REBOOT \| EWX_FORCE;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11843	} else if (how == @symbol(forceLogoff)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11844	flag = EWX_LOGOFF \| EWX_FORCE;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11845	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11846	RETURN (false);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11847	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11848	RETURN ((ExitWindowsEx(flag, 0) == TRUE) ? true : false);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11849	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11850	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11851
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11852	!Win32OperatingSystem class methodsFor:'time and date'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11853
17006 d6ec5e448ac5 timestamp changes Claus Gittinger <cg@exept.de> parents: 17004 diff changeset	11854	computeOSTimeFromYear:y month:m day:d hour:h minute:min second:s millisecond:millis utc:utcBoolean
8640 dc4023c8650c * empty log message * Claus Gittinger <cg@exept.de> parents: 8476 diff changeset	11855	"return the OS-dependent time for the given time and day.
17006 d6ec5e448ac5 timestamp changes Claus Gittinger <cg@exept.de> parents: 17004 diff changeset	11856	The arguments are assumed to be in localtime including
d6ec5e448ac5 timestamp changes Claus Gittinger <cg@exept.de> parents: 17004 diff changeset	11857	any daylight saving adjustings."
8640 dc4023c8650c * empty log message * Claus Gittinger <cg@exept.de> parents: 8476 diff changeset	11858
17009 fe717d5312a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 17007 diff changeset	11859	\|osTime\|
fe717d5312a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 17007 diff changeset	11860
8640 dc4023c8650c * empty log message * Claus Gittinger <cg@exept.de> parents: 8476 diff changeset	11861	%{
dc4023c8650c * empty log message * Claus Gittinger <cg@exept.de> parents: 8476 diff changeset	11862	if (__bothSmallInteger(y, m)
dc4023c8650c * empty log message * Claus Gittinger <cg@exept.de> parents: 8476 diff changeset	11863	&& __bothSmallInteger(d, h)
12934 bc516945ce4d changed: Claus Gittinger <cg@exept.de> parents: 12908 diff changeset	11864	&& __bothSmallInteger(min, s)
bc516945ce4d changed: Claus Gittinger <cg@exept.de> parents: 12908 diff changeset	11865	&& __isSmallInteger(millis)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11866	SYSTEMTIME sysTime;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11867	FILETIME fileTime;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11868
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11869	sysTime.wHour = __intVal(h);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11870	sysTime.wMinute = __intVal(min);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11871	sysTime.wSecond = __intVal(s);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11872	sysTime.wMilliseconds = __intVal(millis);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11873
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11874	sysTime.wYear = __intVal(y);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11875	sysTime.wMonth = __intVal(m);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11876	sysTime.wDay = __intVal(d);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11877
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11878	if (sysTime.wYear < 1602) goto outOfRange; // not 1601 - so we don't have to care for timezone
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11879	if (sysTime.wYear > 9999) goto outOfRange;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11880
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11881	if (utcBoolean != true) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11882	// adjust for local time
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11883
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11884	// TzSpecificLocalTimeToSystemTime() is not supported in Win2000
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11885	// - but we do not support Win2k any longer as of 2014
17006 d6ec5e448ac5 timestamp changes Claus Gittinger <cg@exept.de> parents: 17004 diff changeset	11886	#ifdef __BORLANDC__
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11887	{
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11888	typedef BOOL (WINAPI *P_TzSpecificLocalTimeToSystemTime)(LPTIME_ZONE_INFORMATION, LPSYSTEMTIME, LPSYSTEMTIME);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11889	static P_TzSpecificLocalTimeToSystemTime pTzSpecificLocalTimeToSystemTime;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11890
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11891	if (pTzSpecificLocalTimeToSystemTime == NULL) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11892	pTzSpecificLocalTimeToSystemTime =
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11893	(P_TzSpecificLocalTimeToSystemTime)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11894	GetProcAddress ( GetModuleHandle ("kernel32.dll"),
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11895	"TzSpecificLocalTimeToSystemTime");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11896	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11897	if (!pTzSpecificLocalTimeToSystemTime(0, &sysTime, &sysTime))
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11898	goto error;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11899	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11900	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11901	if (!TzSpecificLocalTimeToSystemTime(0, &sysTime, &sysTime))
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11902	goto error;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11903	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11904	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11905
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11906	if (! SystemTimeToFileTime(&sysTime, &fileTime))
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11907	goto error;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11908
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11909	osTime = FileTimeToOsTime1970(&fileTime);
9384 5c5dd48a9fdd Fix localTime / utcTime conversion Stefan Vogel <sv@exept.de> parents: 9381 diff changeset	11910	}
17006 d6ec5e448ac5 timestamp changes Claus Gittinger <cg@exept.de> parents: 17004 diff changeset	11911	outOfRange: ;
d6ec5e448ac5 timestamp changes Claus Gittinger <cg@exept.de> parents: 17004 diff changeset	11912	error: ;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11913	%}.
17009 fe717d5312a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 17007 diff changeset	11914	osTime notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11915	"/ rebias to 1970 by subtracting the number of millis from 1.1.1601 to 1.1.1970
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11916	"/ ^ osTime - self osTimeOf19700101. -- already done
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11917	^ osTime
17009 fe717d5312a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 17007 diff changeset	11918	].
fe717d5312a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 17007 diff changeset	11919
12821 56c56e8bee2a Raise TimeConversionError if appropriate. Stefan Vogel <sv@exept.de> parents: 12820 diff changeset	11920	"Error, some invalid date ot time"
56c56e8bee2a Raise TimeConversionError if appropriate. Stefan Vogel <sv@exept.de> parents: 12820 diff changeset	11921	^ TimeConversionError raiseRequest
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11922
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11923	"
12820 bb674e2ebc2a changed: Stefan Vogel <sv@exept.de> parents: 12818 diff changeset	11924	OperatingSystem computeOSTimeFromUTCYear:1970 month:1 day:1 hour:0 minute:0 second:0 millisecond:0
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11925	OperatingSystem computeOSTimeFromYear:1970 month:1 day:1 hour:0 minute:0 second:0 millisecond:0
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11926	OperatingSystem computeOSTimeFromYear:2014 month:7 day:1 hour:0 minute:0 second:0 millisecond:0
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11927	"
12934 bc516945ce4d changed: Claus Gittinger <cg@exept.de> parents: 12908 diff changeset	11928
bc516945ce4d changed: Claus Gittinger <cg@exept.de> parents: 12908 diff changeset	11929	"Modified: / 07-07-2010 / 16:56:56 / cg"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11930	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11931
17007 48b4d45626c9 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 17006 diff changeset	11932	epochEndOSTime
48b4d45626c9 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 17006 diff changeset	11933	"private interface for timestamp to ask the OS what the maximum time
19666 755edabcbe67 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19653 diff changeset	11934	(in milliseconds since the Unix epoch, 1.1.1970) is."
755edabcbe67 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19653 diff changeset	11935
755edabcbe67 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19653 diff changeset	11936	"Windows has a 64 Unix 100ns osTime internally, which goes from 0 (1601)
17009 fe717d5312a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 17007 diff changeset	11937	to 16r7FFFFFFFFFFFFFFF."
19666 755edabcbe67 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19653 diff changeset	11938	"/ ^ (16r7FFFFFFFFFFFFFFF // 10000) - self osTimeOf19700101
755edabcbe67 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19653 diff changeset	11939
755edabcbe67 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19653 diff changeset	11940	"/ but I changed the interface to use unix-biased times as well
755edabcbe67 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19653 diff changeset	11941	^ (SmallInteger maxVal * 2 + 1) * 1000
17007 48b4d45626c9 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 17006 diff changeset	11942	!
48b4d45626c9 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 17006 diff changeset	11943
48b4d45626c9 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 17006 diff changeset	11944	epochStartOSTime
48b4d45626c9 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 17006 diff changeset	11945	"private interface for timestamp to ask the OS what the minimum time
19666 755edabcbe67 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19653 diff changeset	11946	(in milliseconds since the Unix epoch, 1.1.1970) is."
755edabcbe67 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19653 diff changeset	11947
755edabcbe67 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19653 diff changeset	11948	"Windows epoch starts at 1.1.1601."
755edabcbe67 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19653 diff changeset	11949	"/ ^ self osTimeOf19700101 negated
755edabcbe67 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19653 diff changeset	11950
755edabcbe67 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19653 diff changeset	11951	"/ but I changed the interface to use unix-biased times as well
755edabcbe67 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19653 diff changeset	11952	^ 0
17007 48b4d45626c9 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 17006 diff changeset	11953	!
48b4d45626c9 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 17006 diff changeset	11954
11746 da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11955	getMicrosecondTime
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11956	"This returns a microsecond timer value.
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11957	The returned value is a 64bit value
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11958	(which is the number of microseconds since the system's boot time -
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11959	but you should not depend on that because it is system specific.
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11960	Only use for relative delta-times."
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11961
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11962	%{ /* NOCONTEXT */
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11963	static int frequencyKnown = 0;
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11964	static LONGLONG ticksPerSecond;
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11965	static LONGLONG divisor;
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11966	LONGLONG tick; // A point in time
11920 4d2ef58645de compilable with VC9.0 Claus Gittinger <cg@exept.de> parents: 11842 diff changeset	11967	LONGLONG micros;
11746 da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11968
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11969	if (! frequencyKnown) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11970	// get the high resolution counter's accuracy
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11971	QueryPerformanceFrequency(&ticksPerSecond);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11972	frequencyKnown = 1;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	11973	divisor = ticksPerSecond / (LONGLONG)1000000;
11746 da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11974	}
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11975
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11976	// what time is it?
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11977	QueryPerformanceCounter(&tick);
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11978
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11979	micros = tick / divisor;
22956 55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	11980	RETURN ( __MKLARGEINT64(1, (unsigned INT)(micros & 0xFFFFFFFF), (unsigned INT)(micros >> 32)) );
11746 da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11981	%}
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11982	"
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11983	\|t1 t2 dT\|
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11984
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11985	t1 := self getMicrosecondTime.
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11986	Delay waitForSeconds:1.
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11987	t2 := self getMicrosecondTime.
11920 4d2ef58645de compilable with VC9.0 Claus Gittinger <cg@exept.de> parents: 11842 diff changeset	11988	dT := t2 - t1
11746 da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11989	"
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11990	"
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11991	\|t1 t2 dT\|
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11992
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11993	t1 := self getMillisecondTime.
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11994	Delay waitForSeconds:1.
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11995	t2 := self getMillisecondTime.
11920 4d2ef58645de compilable with VC9.0 Claus Gittinger <cg@exept.de> parents: 11842 diff changeset	11996	dT := t2 - t1
11746 da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11997	"
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11998	!
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11999
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12000	getMillisecondTime
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	12001	"This returns the millisecond timers value.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12002	The range is limited to 0..1fffffff (i.e. the SmallInteger range) to avoid
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12003	LargeInteger arithmetic when doing timeouts and delays.
11920 4d2ef58645de compilable with VC9.0 Claus Gittinger <cg@exept.de> parents: 11842 diff changeset	12004	Since this value is wrapping around in regular intervals (approx. every 6.21 days),
11800 bfd3073ef9d2 #getMillisecondTime - comment Stefan Vogel <sv@exept.de> parents: 11779 diff changeset	12005	this can only be used for short relative time deltas.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12006	Use the millisecondTimeXXX:-methods to compare and add time deltas - these know about the wrap.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12007
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12008	BAD DESIGN:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12009	This should be changed to return some instance of RelativeTime,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12010	and these computations moved there.
11800 bfd3073ef9d2 #getMillisecondTime - comment Stefan Vogel <sv@exept.de> parents: 11779 diff changeset	12011
bfd3073ef9d2 #getMillisecondTime - comment Stefan Vogel <sv@exept.de> parents: 11779 diff changeset	12012	Don't use this method in application code since it is an internal (private)
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12013	interface. For compatibility with ST-80, use Time millisecondClockValue.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12014	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12015
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12016	%{ /* NOCONTEXT */
21104 b7b94965c192 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21103 diff changeset	12017	#if POINTERSIZE == 8
b7b94965c192 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21103 diff changeset	12018	RETURN ( __mkSmallInteger(GetTickCount64() & (_MAX_INT >> 1)) );
b7b94965c192 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21103 diff changeset	12019	#else
21103 22b82f63fead #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21098 diff changeset	12020	RETURN ( __mkSmallInteger(GetTickCount() & (_MAX_INT >> 1)) );
21104 b7b94965c192 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21103 diff changeset	12021	#endif
b7b94965c192 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21103 diff changeset	12022	%}
b7b94965c192 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21103 diff changeset	12023
b7b94965c192 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21103 diff changeset	12024	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12025	self getMillisecondTime
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12026
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12027	\|t1 t2\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12028	t1 := self getMillisecondTime.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12029	Delay waitForSeconds:1.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12030	t2 := self getMillisecondTime.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12031	t2 - t1.
21104 b7b94965c192 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21103 diff changeset	12032	"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12033	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12034
22246 436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12035	getMonotonicNanosecondTime
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12036	"This returns a microsecond timer value.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12037	The returned value is a 64bit value
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12038	(which is the number of microseconds since the system's boot time -
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12039	but you should not depend on that because it is system specific.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12040	Only use for relative delta-times."
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12041
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12042	%{ /* NOCONTEXT */
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12043	static int frequencyKnown = 0;
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12044	static LONGLONG ticksPerSecond;
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12045	static LONGLONG divisor;
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12046	LONGLONG tick; // A point in time
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12047	LONGLONG nanos;
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12048
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12049	if (! frequencyKnown) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12050	// get the high resolution counter's accuracy
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12051	QueryPerformanceFrequency(&ticksPerSecond);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12052	frequencyKnown = 1;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12053	divisor = ticksPerSecond / (LONGLONG)1000000000;
22246 436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12054	}
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12055
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12056	// what time is it?
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12057	QueryPerformanceCounter(&tick);
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12058
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12059	nanos = tick / divisor;
22956 55e812386c9c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22942 diff changeset	12060	RETURN ( __MKLARGEINT64(1, (unsigned INT)(nanos & 0xFFFFFFFF), (unsigned INT)(nanos >> 32)) );
22246 436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12061	%}
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12062	"
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12063	\|t1 t2 dT\|
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12064
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12065	t1 := self getMonotonicNanosecondTime.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12066	Delay waitForSeconds:1.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12067	t2 := self getMonotonicNanosecondTime.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12068	dT := t2 - t1
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12069	"
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12070	"
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12071	\|t1 t2 dT\|
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12072
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12073	t1 := self getMillisecondTime.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12074	Delay waitForSeconds:1.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12075	t2 := self getMillisecondTime.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12076	dT := t2 - t1
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12077	"
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12078	!
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12079
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12080	getOSTime
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12081	"This returns the OS time.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12082	The base of the returned value is not consistent across
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12083	different OS's - some return the number of millis since jan, 1st 1970;
16947 9a1173183b4c * empty log message * Claus Gittinger <cg@exept.de> parents: 16474 diff changeset	12084	others since 1600. Here, the original value of the OS is rebiased to 1.1.1970,
9a1173183b4c * empty log message * Claus Gittinger <cg@exept.de> parents: 16474 diff changeset	12085	meaning that the returned value has the number of seconds since 1970 subtracted,
9a1173183b4c * empty log message * Claus Gittinger <cg@exept.de> parents: 16474 diff changeset	12086	so the returned value is consistent across ST/X's running on different systems.
9a1173183b4c * empty log message * Claus Gittinger <cg@exept.de> parents: 16474 diff changeset	12087
9a1173183b4c * empty log message * Claus Gittinger <cg@exept.de> parents: 16474 diff changeset	12088	Don't use this method in application code since it is an internal (private)
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12089	interface. For compatibility with ST-80, use Time>>millisecondClockValue.
12817 33771eb7d88b Fix daylight saving time computations by converting from broken libc Stefan Vogel <sv@exept.de> parents: 12815 diff changeset	12090	or use instances of Time, Date or Timestamp to work with."
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12091
17009 fe717d5312a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 17007 diff changeset	12092	\|osTime\|
fe717d5312a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 17007 diff changeset	12093
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12094	%{
12817 33771eb7d88b Fix daylight saving time computations by converting from broken libc Stefan Vogel <sv@exept.de> parents: 12815 diff changeset	12095	FILETIME fileTime;
33771eb7d88b Fix daylight saving time computations by converting from broken libc Stefan Vogel <sv@exept.de> parents: 12815 diff changeset	12096
33771eb7d88b Fix daylight saving time computations by converting from broken libc Stefan Vogel <sv@exept.de> parents: 12815 diff changeset	12097	GetSystemTimeAsFileTime(&fileTime);
19651 59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	12098	osTime = FileTimeToOsTime1970(&fileTime);
17009 fe717d5312a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 17007 diff changeset	12099	%}.
fe717d5312a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 17007 diff changeset	12100	"/ rebias to 1970 by subtracting the number of millis from 1.1.1601 to 1.1.1970
19651 59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	12101	"/ ^ osTime - self osTimeOf19700101 -- already done.
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	12102	^ osTime
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12103
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12104	"
12817 33771eb7d88b Fix daylight saving time computations by converting from broken libc Stefan Vogel <sv@exept.de> parents: 12815 diff changeset	12105	OperatingSystem getOSTime.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12106	Delay waitForSeconds:0.2.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12107	OperatingSystem getOSTime printCR.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12108	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12109	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12110
22246 436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12111	getRealNanosecondTime
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12112	"This returns the OS time.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12113	The base of the returned value is not consistent across
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12114	different OS's - some return the number of millis since jan, 1st 1970;
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12115	others since 1600. Here, the original value of the OS is rebiased to 1.1.1970,
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12116	meaning that the returned value has the number of seconds since 1970 subtracted,
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12117	so the returned value is consistent across ST/X's running on different systems.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12118
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12119	Don't use this method in application code since it is an internal (private)
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12120	interface. For compatibility with ST-80, use Time>>millisecondClockValue.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12121	or use instances of Time, Date or Timestamp to work with."
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12122
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12123	\|nanosecondTime\|
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12124
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12125	%{
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12126	FILETIME fileTime;
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12127
23131 5782474bd56b high resolution timestamps, if possible (windows 8 and later) Claus Gittinger <cg@exept.de> parents: 23130 diff changeset	12128	#ifdef OLD
22246 436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12129	GetSystemTimeAsFileTime(&fileTime);
23131 5782474bd56b high resolution timestamps, if possible (windows 8 and later) Claus Gittinger <cg@exept.de> parents: 23130 diff changeset	12130	#else
5782474bd56b high resolution timestamps, if possible (windows 8 and later) Claus Gittinger <cg@exept.de> parents: 23130 diff changeset	12131	// starting with Windows 8, this:
5782474bd56b high resolution timestamps, if possible (windows 8 and later) Claus Gittinger <cg@exept.de> parents: 23130 diff changeset	12132	// GetSystemTimePreciseAsFileTime(&fileTime);
5782474bd56b high resolution timestamps, if possible (windows 8 and later) Claus Gittinger <cg@exept.de> parents: 23130 diff changeset	12133	// is better.
5782474bd56b high resolution timestamps, if possible (windows 8 and later) Claus Gittinger <cg@exept.de> parents: 23130 diff changeset	12134	{
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12135	typedef VOID (WINAPI *P_GetSystemTimePreciseAsFileTime)(LPFILETIME);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12136	static P_GetSystemTimePreciseAsFileTime pGetSystemTimePreciseAsFileTime = NULL;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12137
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12138	if (pGetSystemTimePreciseAsFileTime == NULL) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12139	pGetSystemTimePreciseAsFileTime =
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12140	(P_GetSystemTimePreciseAsFileTime)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12141	GetProcAddress ( GetModuleHandle ("kernel32.dll"),
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12142	"GetSystemTimePreciseAsFileTime");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12143
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12144	if (pGetSystemTimePreciseAsFileTime == NULL) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12145	// use low resolution fallback
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12146	pGetSystemTimePreciseAsFileTime = GetSystemTimeAsFileTime;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12147	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12148	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12149
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12150	(*pGetSystemTimePreciseAsFileTime)(&fileTime);
23131 5782474bd56b high resolution timestamps, if possible (windows 8 and later) Claus Gittinger <cg@exept.de> parents: 23130 diff changeset	12151	}
5782474bd56b high resolution timestamps, if possible (windows 8 and later) Claus Gittinger <cg@exept.de> parents: 23130 diff changeset	12152	#endif
22246 436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12153	nanosecondTime = FileTimeToNanosecondTime1970(&fileTime);
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12154	%}.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12155	"/ rebias to 1970 by subtracting the number of millis from 1.1.1601 to 1.1.1970
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12156	"/ ^ osTime - self osTimeOf19700101 -- already done.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12157	^ nanosecondTime
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12158
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12159	"
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12160	Transcript showCR:OperatingSystem getRealNanosecondTime.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12161	Delay waitForSeconds:0.2.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12162	Transcript showCR:OperatingSystem getRealNanosecondTime.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12163	"
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12164	!
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	12165
11842 43bb5d8495e0 timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11833 diff changeset	12166	getTimezoneInformation
43bb5d8495e0 timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11833 diff changeset	12167	"get information about the OS's timezone setting. See documentation in
43bb5d8495e0 timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11833 diff changeset	12168	AbstractOperatingSystem::TimeZoneInformation for details"
43bb5d8495e0 timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11833 diff changeset	12169
17169 fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	12170	^ self getTimezoneInformationForYear:nil.
17286 a7170033e17f directory access ca parents: 17169 diff changeset	12171
11842 43bb5d8495e0 timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11833 diff changeset	12172	"
43bb5d8495e0 timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11833 diff changeset	12173	self getTimezoneInformation
43bb5d8495e0 timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11833 diff changeset	12174	"
43bb5d8495e0 timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11833 diff changeset	12175	!
43bb5d8495e0 timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11833 diff changeset	12176
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12177	getTimezoneInformationForYear:anIntegerOrNil
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12178	"get information about the OS's timezone setting. See documentation in
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12179	AbstractOperatingSystem::TimeZoneInformation for details"
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12180
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12181	\|error bias standardName
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12182	standardDate_y standardDate_m standardDate_d standardDate_wd
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12183	standardDate_h standardDate_min standardDate_s
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12184	standardBias
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12185	daylightName
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12186	daylightDate_y daylightDate_m daylightDate_d daylightDate_wd
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12187	daylightDate_h daylightDate_min daylightDate_s
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12188	daylightBias info\|
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12189
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12190	%{
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12191	TIME_ZONE_INFORMATION tzInfo;
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12192	DWORD retVal;
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12193	WCHAR nm[33];
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12194
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12195	if (anIntegerOrNil == nil) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12196	retVal = GetTimeZoneInformation(&tzInfo);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12197	switch (retVal) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12198	case TIME_ZONE_ID_STANDARD:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12199	case TIME_ZONE_ID_DAYLIGHT:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12200	case TIME_ZONE_ID_UNKNOWN:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12201	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12202
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12203	default:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12204	case TIME_ZONE_ID_INVALID:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12205	error = __mkSmallInteger(__WIN32_ERR(GetLastError()));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12206	goto out;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12207	}
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12208	} else if (__isSmallInteger(anIntegerOrNil)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12209	int year = __intVal(anIntegerOrNil);
18628 6d7c70420471 * empty log message * Claus Gittinger <cg@exept.de> parents: 18548 diff changeset	12210	#if defined(__BORLANDC__) \|\| defined(__MINGW32__)
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12211	{
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12212	typedef BOOL (WINAPI *P_GetTimeZoneInformationForYear)(
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12213	USHORT,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12214	LPTIME_ZONE_INFORMATION, // - should be, but is not defined: PDYNAMIC_TIME_ZONE_INFORMATION,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12215	LPTIME_ZONE_INFORMATION);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12216	static P_GetTimeZoneInformationForYear pGetTimeZoneInformationForYear;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12217	static int haveTriedToGet_P_GetTimeZoneInformationForYear = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12218
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12219	if (! haveTriedToGet_P_GetTimeZoneInformationForYear) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12220	pGetTimeZoneInformationForYear =
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12221	(P_GetTimeZoneInformationForYear)GetProcAddress(
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12222	GetModuleHandle("kernel32.dll"),
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12223	"GetTimeZoneInformationForYear");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12224	haveTriedToGet_P_GetTimeZoneInformationForYear = 1;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12225	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12226	if (pGetTimeZoneInformationForYear == NULL) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12227	error = __mkSmallInteger(@symbol(primitiveFailed));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12228	goto out;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12229	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12230	if (!pGetTimeZoneInformationForYear(year, NULL, &tzInfo)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12231	error = __mkSmallInteger(__WIN32_ERR(GetLastError()));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12232	goto out;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12233	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12234	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12235	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12236	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12237	if (!GetTimeZoneInformationForYear(year, NULL, &tzInfo)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12238	error = __mkSmallInteger(__WIN32_ERR(GetLastError()));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12239	goto out;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12240	}
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12241	#endif
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12242	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12243	error = @symbol(badArgument);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12244	goto out;
17006 d6ec5e448ac5 timestamp changes Claus Gittinger <cg@exept.de> parents: 17004 diff changeset	12245	}
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12246
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12247	bias = __mkSmallInteger(tzInfo.Bias);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12248	memmove(nm, tzInfo.StandardName, 32*sizeof(WCHAR));
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12249	nm[32] = 0;
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	12250	standardName = __mkStringOrU16String_maxlen(nm, sizeof(nm));
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12251	standardDate_y = __mkSmallInteger(tzInfo.StandardDate.wYear);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12252	standardDate_m = __mkSmallInteger(tzInfo.StandardDate.wMonth);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12253	standardDate_d = __mkSmallInteger(tzInfo.StandardDate.wDay);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12254	standardDate_wd = __mkSmallInteger(tzInfo.StandardDate.wDayOfWeek);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12255	standardDate_h = __mkSmallInteger(tzInfo.StandardDate.wHour);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12256	standardDate_min = __mkSmallInteger(tzInfo.StandardDate.wMinute);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12257	standardDate_s = __mkSmallInteger(tzInfo.StandardDate.wSecond);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12258	standardBias = __mkSmallInteger(tzInfo.StandardBias);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12259	memmove(nm, tzInfo.DaylightName, 32*sizeof(WCHAR));
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12260	nm[32] = 0;
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	12261	daylightName = __mkStringOrU16String_maxlen(nm, sizeof(nm));
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12262	daylightDate_y = __mkSmallInteger(tzInfo.DaylightDate.wYear);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12263	daylightDate_m = __mkSmallInteger(tzInfo.DaylightDate.wMonth);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12264	daylightDate_d = __mkSmallInteger(tzInfo.DaylightDate.wDay);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12265	daylightDate_wd = __mkSmallInteger(tzInfo.DaylightDate.wDayOfWeek);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12266	daylightDate_h = __mkSmallInteger(tzInfo.DaylightDate.wHour);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12267	daylightDate_min = __mkSmallInteger(tzInfo.DaylightDate.wMinute);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12268	daylightDate_s = __mkSmallInteger(tzInfo.DaylightDate.wSecond);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12269	daylightBias = __mkSmallInteger(tzInfo.DaylightBias);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12270
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12271	out:;
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12272	%}.
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12273	error notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12274	self primitiveFailed:error.
17169 fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	12275	].
fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	12276
fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	12277	info := self timeZoneInfoClass new.
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12278	info
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12279	bias:bias
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12280	name:standardName standardBias:standardBias
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12281	daylightName:daylightName daylightBias:daylightBias.
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12282
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12283	standardDate_m ~~ 0 ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12284	info standardYear:standardDate_y standardMonth:standardDate_m standardDay:standardDate_d
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12285	standardWeekDay:standardDate_wd standardHour:standardDate_h standardMinute:standardDate_min.
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12286	].
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12287	daylightDate_m ~~ 0 ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12288	info daylightYear:daylightDate_y daylightMonth:daylightDate_m daylightDay:daylightDate_d
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12289	daylightWeekDay:daylightDate_wd daylightHour:daylightDate_h daylightMinute:daylightDate_min.
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12290	].
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12291
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12292	^ info
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12293
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12294	"
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12295	self getTimezoneInformationForYear:2014
17169 fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	12296	self getTimezoneInformationForYear:2015
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12297	self getTimezoneInformationForYear:1977
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12298	self getTimezoneInformationForYear:nil
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12299	"
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12300	!
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12301
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12302	osTimeOf19700101
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12303	"the number of millis from 1.1.1601 to 1.1.1970"
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12304
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12305	^ 11644473600000
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12306
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12307	"
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12308	self computeOSTimeFromUTCYear:1970 month:1 day:1 hour:0 minute:0 second:0 millisecond:0
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12309	"
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12310	!
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12311
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12312	sleep:numberOfSeconds
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12313	"{ Pragma: +optSpace }"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12314
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12315	"cease ANY action for some time. This suspends the whole smalltalk
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12316	(unix-) process for some time.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12317	Not really useful since not even low-prio processes and interrupt
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12318	handling will run during the sleep.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12319	Use either OperatingSystem>>millisecondDelay: (which makes all
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12320	threads sleep, but handles interrupts) or use a Delay (which makes
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12321	only the calling thread sleep)."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12322
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12323	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12324
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12325	if (__isSmallInteger(numberOfSeconds)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12326	sleep(__intVal(numberOfSeconds));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12327	RETURN ( self );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12328	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12329	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12330	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12331	argument not integer
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12332	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12333	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12334
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12335	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12336	OperatingSystem sleep:2
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12337	"
7638 a211d1f10797 * empty log message * Michael Beyl <mb@exept.de> parents: 7535 diff changeset	12338	!
a211d1f10797 * empty log message * Michael Beyl <mb@exept.de> parents: 7535 diff changeset	12339
17042 f381b63198e1 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 17023 diff changeset	12340	timeInfoFromSeconds:osSeconds milliseconds:osMilliSeconds localTime:isLocalTime
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12341	"return a timeInfo structure containing values for the given OS-millisecond value.
7638 a211d1f10797 * empty log message * Michael Beyl <mb@exept.de> parents: 7535 diff changeset	12342	An internal helper"
a211d1f10797 * empty log message * Michael Beyl <mb@exept.de> parents: 7535 diff changeset	12343
17169 fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	12344	\|year month day hour minute second millis utcOffset isDst
fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	12345	dst yDay weekDay info reason tLow tHigh t error \|
17009 fe717d5312a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 17007 diff changeset	12346
19653 ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	12347	t := (osSeconds * 1000) + osMilliSeconds "+ self osTimeOf19700101 -- done in C".
17009 fe717d5312a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 17007 diff changeset	12348	tLow := (t bitAnd:16rFFFFFFFF).
fe717d5312a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 17007 diff changeset	12349	tHigh := t bitShift:-32.
12817 33771eb7d88b Fix daylight saving time computations by converting from broken libc Stefan Vogel <sv@exept.de> parents: 12815 diff changeset	12350
33771eb7d88b Fix daylight saving time computations by converting from broken libc Stefan Vogel <sv@exept.de> parents: 12815 diff changeset	12351	%{
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12352	FILETIME fileTime;
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12353	SYSTEMTIME sysTime, *sysTimePtr;
17169 fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	12354	INT _utcOffset, _stdUtcOffset;
7638 a211d1f10797 * empty log message * Michael Beyl <mb@exept.de> parents: 7535 diff changeset	12355
8889 934feccecfb3 timezone stuff fixed Claus Gittinger <cg@exept.de> parents: 8881 diff changeset	12356	/* try cache */
934feccecfb3 timezone stuff fixed Claus Gittinger <cg@exept.de> parents: 8881 diff changeset	12357	{
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12358	OBJ lastOsTimeLow, lastOsTimeHi, lastTimeInfo;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12359
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12360	lastOsTimeLow = @global(LastOsTimeLow);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12361	lastOsTimeHi = @global(LastOsTimeHi);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12362	if (__isInteger(lastOsTimeLow)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12363	&& (__unsignedLongIntVal(lastOsTimeLow) == __unsignedLongIntVal(tLow))
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12364	&& lastOsTimeHi
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12365	&& (__unsignedLongIntVal(lastOsTimeHi) == __unsignedLongIntVal(tHigh))
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12366	&& (@global(LastTimeInfoIsLocal) == isLocalTime)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12367	) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12368	lastTimeInfo = @global(LastTimeInfo);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12369	if (lastTimeInfo != nil) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12370	RETURN (lastTimeInfo);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12371	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12372	}
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12373	}
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12374
19653 ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	12375	if (!OsTime1970ToFileTime(tLow, tHigh, &fileTime))
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12376	goto out;
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12377	if (!FileTimeToSystemTime(&fileTime, &sysTime))
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12378	goto out;
16948 45832ec999e2 method name cleanup Claus Gittinger <cg@exept.de> parents: 16947 diff changeset	12379
17169 fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	12380	if (isLocalTime == false) { // easy: UTC time
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12381	sysTimePtr = &sysTime;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12382	utcOffset = __mkSmallInteger(0);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12383	isDst = false;
17169 fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	12384	} else { // local time: have to convert and find out about DST
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12385	TIME_ZONE_INFORMATION tzInfo;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12386	LONGLONG longTime;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12387	SYSTEMTIME localSysTime;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12388	FILETIME localFileTime;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12389
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12390	sysTimePtr = &localSysTime;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12391
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12392	if (!SystemTimeToTzSpecificLocalTime(NULL, &sysTime, &localSysTime))
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12393	goto out;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12394	if (!SystemTimeToFileTime(&localSysTime, &localFileTime))
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12395	goto out;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12396
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12397	// all the rest is computing the UTC offset and whether DST applies
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12398	longTime = ((LONGLONG)fileTime.dwHighDateTime << 32) + fileTime.dwLowDateTime;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12399	longTime -= ((LONGLONG)localFileTime.dwHighDateTime << 32) + localFileTime.dwLowDateTime;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12400
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12401	// utcOffset is the difference from UTC to local time including possible DST
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12402	_utcOffset = longTime / 10000000;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12403	utcOffset = __mkSmallInteger(_utcOffset);
17169 fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	12404
18629 b38434722f21 * empty log message * Claus Gittinger <cg@exept.de> parents: 18628 diff changeset	12405	# if defined(__BORLANDC__) \|\| defined(__MINGW32__)
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12406	{
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12407	typedef BOOL (WINAPI *P_GetTimeZoneInformationForYear)(
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12408	USHORT,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12409	LPTIME_ZONE_INFORMATION, // - should be, but is not defined: PDYNAMIC_TIME_ZONE_INFORMATION,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12410	LPTIME_ZONE_INFORMATION);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12411	static P_GetTimeZoneInformationForYear pGetTimeZoneInformationForYear;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12412	static int haveTriedToGet_P_GetTimeZoneInformationForYear = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12413
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12414	if (! haveTriedToGet_P_GetTimeZoneInformationForYear) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12415	pGetTimeZoneInformationForYear =
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12416	(P_GetTimeZoneInformationForYear)GetProcAddress(
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12417	GetModuleHandle("kernel32.dll"),
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12418	"GetTimeZoneInformationForYear");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12419	haveTriedToGet_P_GetTimeZoneInformationForYear = 1;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12420	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12421	if (pGetTimeZoneInformationForYear == NULL) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12422	// ignore this error and fall back to GetTimeZoneInformation()
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12423	reason = @symbol(NoGetTimeZoneInformationForYear);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12424	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12425	if (pGetTimeZoneInformationForYear(localSysTime.wYear, NULL, &tzInfo)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12426	_stdUtcOffset = (tzInfo.Bias + tzInfo.StandardBias) * 60;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12427	isDst = (_stdUtcOffset != _utcOffset) ? true : false;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12428	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12429	// ignore this error and fall back to GetTimeZoneInformation()
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12430	reason = @symbol(GetTimeZoneInformationForYearFailed);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12431	error = __mkSmallInteger(__WIN32_ERR(GetLastError()));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12432	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12433	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12434	}
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12435	# else
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12436	if (GetTimeZoneInformationForYear(localSysTime.wYear, NULL, &tzInfo)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12437	_stdUtcOffset = (tzInfo.Bias + tzInfo.StandardBias) * 60;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12438	isDst = (_stdUtcOffset != _utcOffset) ? true : false;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12439	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12440	// ignore this error and fall back to GetTimeZoneInformation()
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12441	reason = @symbol(GetTimeZoneInformationForYearFailed);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12442	error = __mkSmallInteger(__WIN32_ERR(GetLastError()));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12443	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12444	# endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12445	// this code is a fallback for WIN XP
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12446	if (isDst == nil) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12447	DWORD retVal = GetTimeZoneInformation(&tzInfo);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12448	switch (retVal) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12449	case TIME_ZONE_ID_STANDARD:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12450	case TIME_ZONE_ID_DAYLIGHT:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12451	case TIME_ZONE_ID_UNKNOWN:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12452	// nonDstOffset is the difference from UTC to local time without DST
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12453	_stdUtcOffset = (tzInfo.Bias + tzInfo.StandardBias) * 60;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12454	isDst = (_stdUtcOffset != _utcOffset) ? true : false;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12455	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12456
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12457	// these are errors, which may occur, if the
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12458	// Windows OS has not been setupm correctly.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12459	// We ignore these errors here, but we don't know if DST applies.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12460	// Assume that there is no DST.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12461	default:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12462	case TIME_ZONE_ID_INVALID:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12463	isDst = false;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12464	reason = @symbol(TIME_ZONE_ID_INVALID);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12465	error = __mkSmallInteger(__WIN32_ERR(GetLastError()));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12466	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12467	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12468	} // End WINXP backward compatibility
17169 fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	12469	}
fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	12470
fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	12471	hour = __mkSmallInteger(sysTimePtr->wHour);
fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	12472	minute = __mkSmallInteger(sysTimePtr->wMinute);
fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	12473	second = __mkSmallInteger(sysTimePtr->wSecond);
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12474
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12475	year = __mkSmallInteger(sysTimePtr->wYear);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12476	month = __mkSmallInteger(sysTimePtr->wMonth);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12477	day = __mkSmallInteger(sysTimePtr->wDay);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12478
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12479	millis = __mkSmallInteger(sysTimePtr->wMilliseconds);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12480
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12481	weekDay = __mkSmallInteger(sysTimePtr->wDayOfWeek == 0 ? 7 : sysTimePtr->wDayOfWeek);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12482	out:;
7638 a211d1f10797 * empty log message * Michael Beyl <mb@exept.de> parents: 7535 diff changeset	12483	%}.
17169 fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	12484	"/ '--> REASON: ' errorPrint. reason errorPrintCR. '--> ERROR: ' errorPrint. error errorPrintCR.
fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	12485
12817 33771eb7d88b Fix daylight saving time computations by converting from broken libc Stefan Vogel <sv@exept.de> parents: 12815 diff changeset	12486	year isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12487	TimeConversionError raiseErrorString:' - out of range'.
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	12488	].
51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	12489
7638 a211d1f10797 * empty log message * Michael Beyl <mb@exept.de> parents: 7535 diff changeset	12490	info := self timeInfoClass new.
a211d1f10797 * empty log message * Michael Beyl <mb@exept.de> parents: 7535 diff changeset	12491	info
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12492	year:year
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12493	month:month
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12494	day:day
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12495	hours:hour
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12496	minutes:minute
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12497	seconds:second
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12498	milliseconds:millis
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12499	utcOffset:utcOffset
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12500	dst:isDst
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12501	dayInYear:yDay
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12502	dayInWeek:weekDay.
9025 e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	12503
e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	12504	LastTimeInfo := info.
16948 45832ec999e2 method name cleanup Claus Gittinger <cg@exept.de> parents: 16947 diff changeset	12505	LastOsTimeLow := tLow.
45832ec999e2 method name cleanup Claus Gittinger <cg@exept.de> parents: 16947 diff changeset	12506	LastOsTimeHi := tHigh.
9025 e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	12507	LastTimeInfoIsLocal := isLocalTime.
8889 934feccecfb3 timezone stuff fixed Claus Gittinger <cg@exept.de> parents: 8881 diff changeset	12508
7638 a211d1f10797 * empty log message * Michael Beyl <mb@exept.de> parents: 7535 diff changeset	12509	^ info
a211d1f10797 * empty log message * Michael Beyl <mb@exept.de> parents: 7535 diff changeset	12510
a211d1f10797 * empty log message * Michael Beyl <mb@exept.de> parents: 7535 diff changeset	12511	"
17169 fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	12512	self assert:(Timestamp year:1994 month:2 day:1 hour:12 minute:0 second:0) timeInfo dst not
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12513
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12514	DST in MEZ in 1994:
17169 fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	12515	self assert:(Timestamp year:1994 month:7 day:1 hour:12 minute:0 second:0) timeInfo dst
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12516
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	12517	no DST in MEZ in 1970:
17169 fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	12518	self assert:(Timestamp year:1977 month:7 day:1 hour:12 minute:0 second:0) timeInfo dst not
7638 a211d1f10797 * empty log message * Michael Beyl <mb@exept.de> parents: 7535 diff changeset	12519	"
9431 cae760dd7d80 oops: localtime and gmtime could return a NULL-ptr. Claus Gittinger <cg@exept.de> parents: 9424 diff changeset	12520
cae760dd7d80 oops: localtime and gmtime could return a NULL-ptr. Claus Gittinger <cg@exept.de> parents: 9424 diff changeset	12521	"Modified: / 06-07-2006 / 18:18:56 / cg"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12522	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12523
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12524	!Win32OperatingSystem class methodsFor:'users & groups'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12525
12970 89cd540547d1 get appData directory sr parents: 12969 diff changeset	12526	getApplicationDataDirectoryFor:appName
89cd540547d1 get appData directory sr parents: 12969 diff changeset	12527	"return the directory, where user-and-application-specific private files are to be
89cd540547d1 get appData directory sr parents: 12969 diff changeset	12528	located (ini-files, preferences etc.).
89cd540547d1 get appData directory sr parents: 12969 diff changeset	12529	Under windows, something like 'C:\Users\Administrator\AppData\Roaming\<appName>'
89cd540547d1 get appData directory sr parents: 12969 diff changeset	12530	is returned, here, the fallback ~/.<appName> is returned.
89cd540547d1 get appData directory sr parents: 12969 diff changeset	12531	Notice that only the name is returned; the directory is not guaranteed to exist."
89cd540547d1 get appData directory sr parents: 12969 diff changeset	12532
89cd540547d1 get appData directory sr parents: 12969 diff changeset	12533	"{ Pragma: +optSpace }"
89cd540547d1 get appData directory sr parents: 12969 diff changeset	12534
89cd540547d1 get appData directory sr parents: 12969 diff changeset	12535	\|appDataDirFromEnv appDataDirFromRegistry\|
89cd540547d1 get appData directory sr parents: 12969 diff changeset	12536
89cd540547d1 get appData directory sr parents: 12969 diff changeset	12537	appDataDirFromEnv := self getEnvironment:'APPDATA'.
89cd540547d1 get appData directory sr parents: 12969 diff changeset	12538	appDataDirFromEnv notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12539	^ appDataDirFromEnv , '\' , appName
13128 35def02e40f4 CloseHandle added in: getAllProcesses Michael Beyl <mb@exept.de> parents: 13114 diff changeset	12540	].
35def02e40f4 CloseHandle added in: getAllProcesses Michael Beyl <mb@exept.de> parents: 13114 diff changeset	12541	appDataDirFromRegistry :=
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12542	self registryEntry key:'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12543	valueNamed:'AppData'.
12970 89cd540547d1 get appData directory sr parents: 12969 diff changeset	12544	appDataDirFromRegistry notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12545	^ appDataDirFromRegistry , '\' , appName
12970 89cd540547d1 get appData directory sr parents: 12969 diff changeset	12546	].
89cd540547d1 get appData directory sr parents: 12969 diff changeset	12547	^ super getApplicationDataDirectoryFor:appName
89cd540547d1 get appData directory sr parents: 12969 diff changeset	12548
89cd540547d1 get appData directory sr parents: 12969 diff changeset	12549	"
13128 35def02e40f4 CloseHandle added in: getAllProcesses Michael Beyl <mb@exept.de> parents: 13114 diff changeset	12550	OperatingSystem getApplicationDataDirectoryFor:'expecco'
12970 89cd540547d1 get appData directory sr parents: 12969 diff changeset	12551	"
89cd540547d1 get appData directory sr parents: 12969 diff changeset	12552
89cd540547d1 get appData directory sr parents: 12969 diff changeset	12553	"Created: / 29-07-2010 / 12:13:12 / sr"
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	12554	"Modified (format): / 16-05-2019 / 19:04:32 / Stefan Vogel"
12970 89cd540547d1 get appData directory sr parents: 12969 diff changeset	12555	!
89cd540547d1 get appData directory sr parents: 12969 diff changeset	12556
10541 70872ea8cdb9 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10529 diff changeset	12557	getDesktopDirectory
11761 94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12558	"return the name of the users desktop directory (i.e. yours)."
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12559
10541 70872ea8cdb9 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10529 diff changeset	12560	"{ Pragma: +optSpace }"
70872ea8cdb9 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10529 diff changeset	12561
10543 442329e05841 * empty log message * Claus Gittinger <cg@exept.de> parents: 10542 diff changeset	12562	\|dir path\|
10541 70872ea8cdb9 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10529 diff changeset	12563
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	12564	path := self registryEntry
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12565	key:'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12566	valueNamed:'Desktop'.
11920 4d2ef58645de compilable with VC9.0 Claus Gittinger <cg@exept.de> parents: 11842 diff changeset	12567
4d2ef58645de compilable with VC9.0 Claus Gittinger <cg@exept.de> parents: 11842 diff changeset	12568	path isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12569	"Fallback"
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12570	dir := self getHomeDirectory.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12571	dir isNil ifTrue:[ ^ nil ].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12572
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12573	path := dir , '\Desktop'.
11761 94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12574	].
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12575
10627 bef737d1b8a7 care for -1 fd returned by CreatePipe Claus Gittinger <cg@exept.de> parents: 10622 diff changeset	12576	(self isValidPath:path) ifFalse:[ ^ nil ].
10541 70872ea8cdb9 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10529 diff changeset	12577	^ path
70872ea8cdb9 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10529 diff changeset	12578
70872ea8cdb9 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10529 diff changeset	12579	"
70872ea8cdb9 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10529 diff changeset	12580	OperatingSystem getDesktopDirectory
70872ea8cdb9 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10529 diff changeset	12581	"
70872ea8cdb9 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10529 diff changeset	12582
70872ea8cdb9 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10529 diff changeset	12583	"Created: / 16-05-2007 / 13:23:43 / cg"
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	12584	"Modified: / 16-05-2019 / 18:06:33 / Stefan Vogel"
10541 70872ea8cdb9 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10529 diff changeset	12585	!
70872ea8cdb9 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10529 diff changeset	12586
11761 94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12587	getDocumentsDirectory
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12588	"return the name of the users 'Documents' directory."
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12589
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12590	"{ Pragma: +optSpace }"
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12591
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12592	\|dir\|
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12593
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	12594	dir := self registryEntry
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12595	key:'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12596	valueNamed:'Personal'.
11761 94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12597
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12598	dir isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12599	dir := self getHomeDirectory.
11761 94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12600	].
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12601
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12602	^ dir.
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12603
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12604	"
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12605	OperatingSystem getDocumentsDirectory
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12606	"
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	12607
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	12608	"Modified: / 16-05-2019 / 18:08:30 / Stefan Vogel"
11761 94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12609	!
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12610
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12611	getEffectiveGroupID
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12612	"{ Pragma: +optSpace }"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12613
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12614	"return the current users (thats you) effective numeric group id.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12615	This is only different from getGroupID, if you have ST/X running
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12616	as a setuid program (of which you should think about twice)."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12617
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12618	^ self getGroupID
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12619
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12620	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12621	OperatingSystem getEffectiveGroupID
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12622	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12623	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12624
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12625	getEffectiveUserID
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12626	"{ Pragma: +optSpace }"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12627
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12628	"return the current users (thats you) effective numeric user id.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12629	This is only different from getUserID, if you have ST/X running
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12630	as a setuid program (of which you should think about twice)."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12631
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12632	^ self getUserID
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12633
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12634	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12635	OperatingSystem getEffectiveUserID
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12636	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12637	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12638
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12639	getFullUserNameFromID:userID
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12640	"{ Pragma: +optSpace }"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12641
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12642	"return a string with the users full name - if available.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12643	If not, return the login name as a fallBack."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12644
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12645	\|info gecos\|
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12646
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12647	info := self userInfoOf:userID.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12648	(info notNil
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12649	and:[info includesKey:#gecos]) ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12650	gecos := info at:#gecos.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12651	(gecos includes:$,) ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12652	^ gecos copyTo:(gecos indexOf:$,) - 1
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12653	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12654	^ gecos
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12655	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12656	^ self getUserNameFromID:userID
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12657
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12658	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	12659	OperatingSystem getFullUserNameFromID:0
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	12660	OperatingSystem getFullUserNameFromID:(OperatingSystem getUserID)
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	12661
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	12662	OperatingSystem getUserNameFromID:(OperatingSystem getUserID)
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12663	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12664
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12665	"Modified: 15.7.1996 / 12:44:21 / cg"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12666	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12667
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12668	getGroupID
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12669	"{ Pragma: +optSpace }"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12670
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12671	"return the current users (thats you) numeric group id"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12672
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12673	^ 1 "just a dummy for systems which do not have groupIDs"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12674
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12675	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12676	OperatingSystem getGroupID
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12677	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12678	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12679
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12680	getGroupNameFromID:aNumber
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12681	"{ Pragma: +optSpace }"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12682
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12683	"return the group-name-string for a given numeric group-id"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12684
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12685	^ '???' "just a dummy for systems which do not have groupIDs"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12686
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12687	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12688	OperatingSystem getGroupNameFromID:0
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12689	OperatingSystem getGroupNameFromID:10
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12690	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12691	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12692
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12693	getHomeDirectory
11761 94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12694	"return the name of the users home directory (i.e. yours)."
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12695
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12696	"{ Pragma: +optSpace }"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12697
11761 94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12698	\|dir\|
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12699
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12700	dir := self getEnvironment:'USERPROFILE'.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12701	dir isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12702	dir := '.'.
11761 94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12703	].
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	12704	^ dir.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12705
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12706	"
8642 dd598b080b6a * empty log message * Claus Gittinger <cg@exept.de> parents: 8640 diff changeset	12707	OperatingSystem getHomeDirectory
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12708	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12709
5264 9a90c499e329 return the currentDir as default fallBack for the getHomeDir query. Claus Gittinger <cg@exept.de> parents: 5147 diff changeset	12710	"Modified: / 16.2.2000 / 09:17:55 / cg"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12711	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12712
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12713	getLoginName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12714	"{ Pragma: +optSpace }"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12715
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12716	"return a string with the users login name (thats yours)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12717
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12718	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12719	static char cachedName[64];
23848 b74dc3385473 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23847 diff changeset	12720	static int firstCall = 1;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12721	#ifndef __BORLANDC__
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12722	extern char *getenv();
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12723	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12724	char name = (char )0;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12725
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12726	if (firstCall) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12727	DWORD nameSize = sizeof(cachedName);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12728
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12729	if (GetUserName(cachedName, &nameSize) == TRUE) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12730	name = cachedName;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12731	firstCall = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12732	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12733	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12734	name = cachedName;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12735	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12736
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12737	/*
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12738	* try a few common environment variables ...
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12739	*/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12740	if (! name \|\| (name[0] == 0) ) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12741	name = getenv("LOGIN");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12742	if (! name \|\| (name[0] == 0) ) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12743	name = getenv("LOGNAME");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12744	if (! name \|\| (name[0] == 0) ) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12745	name = getenv("USER");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12746	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12747	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12748	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12749	/*
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12750	* nope - I really font know who you are.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12751	*/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12752	if (! name \|\| (name[0] == 0) ) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12753	name = "you";
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12754	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12755
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12756	RETURN ( __MKSTRING(name) );
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12757	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12758	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12759	OperatingSystem getLoginName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12760	"
23848 b74dc3385473 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23847 diff changeset	12761
b74dc3385473 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23847 diff changeset	12762	"Modified: / 07-03-2019 / 16:00:27 / Stefan Vogel"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12763	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12764
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12765	getUserID
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12766	"{ Pragma: +optSpace }"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12767
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12768	"return the current users (thats you) numeric user id"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12769
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12770	^ 1 "just a dummy for systems which do not have userIDs"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12771
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12772	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12773	OperatingSystem getUserID
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12774	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12775	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12776
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12777	getUserNameFromID:aNumber
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12778	"{ Pragma: +optSpace }"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12779
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12780	"return the user-name-string for a given numeric user-id.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12781	This is the login name, not the fullName."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12782
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12783	aNumber == self getUserID ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12784	^ self getLoginName
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12785	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12786
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12787	^ '? (' , aNumber printString , ')'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12788
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12789	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12790	OperatingSystem getUserNameFromID:0
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12791	OperatingSystem getUserNameFromID:100
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	12792	OperatingSystem getUserNameFromID:9991
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12793	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12794	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12795
15874 9441ca0da881 renamed isRunningWithElevatedAdminRights to isRunningWithElevatedRootOrAdminRights Claus Gittinger <cg@exept.de> parents: 15873 diff changeset	12796	isRunningWithElevatedRootOrAdminRights
15873 6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	12797	"return true, if a NORMAL user is running with elevated admin rights."
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	12798
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	12799	%{
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	12800
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	12801	HANDLE h_Process;
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	12802	HANDLE h_Token;
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	12803	TOKEN_ELEVATION t_TokenElevation;
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	12804	TOKEN_ELEVATION_TYPE e_ElevationType;
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	12805	DWORD dw_TokenLength;
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	12806
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	12807	h_Process = GetCurrentProcess();
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	12808	if (OpenProcessToken(h_Process,TOKEN_READ,&h_Token) == FALSE) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12809	console_printf("Error: Couldn't open the process token\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12810	goto getOutOfHere;
15873 6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	12811	}
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	12812	if (GetTokenInformation(h_Token,TokenElevation,&t_TokenElevation,sizeof(t_TokenElevation),&dw_TokenLength) == FALSE) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12813	console_printf("Error: Couldn't retrieve the elevation right of the current process token\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12814	CloseHandle(h_Token);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12815	goto getOutOfHere;
15873 6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	12816	}
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	12817	if (t_TokenElevation.TokenIsElevated != 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12818	if (GetTokenInformation(h_Token,TokenElevationType,&e_ElevationType,sizeof(e_ElevationType),&dw_TokenLength) == FALSE) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12819	console_printf("Error: Couldn't retrieve the elevation token class\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12820	CloseHandle(h_Token);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12821	goto getOutOfHere;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12822	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12823	if (e_ElevationType == TokenElevationTypeFull \|\| e_ElevationType == TokenElevationTypeDefault) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12824	CloseHandle(h_Token);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12825	RETURN(true);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12826	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12827	CloseHandle(h_Token);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12828	RETURN(false);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12829	}
15873 6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	12830	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12831	CloseHandle(h_Token);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12832	RETURN(false);
15873 6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	12833	}
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	12834	getOutOfHere: ;
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	12835	%}.
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	12836	"/ self primitiveFailed.
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	12837	^ false
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	12838
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	12839	"Modified: / 17-12-2013 / 17:12:23 / cg"
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	12840	!
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	12841
15833 8131c0b10c98 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15816 diff changeset	12842	isRunningWithRootOrAdminRights
8131c0b10c98 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15816 diff changeset	12843	"read some registry entry which only Admin can read;
8131c0b10c98 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15816 diff changeset	12844	if we can, we are; otherwise, we are not."
8131c0b10c98 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15816 diff changeset	12845
15834 9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	12846	%{
9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	12847	SID_IDENTIFIER_AUTHORITY NtAuthority = SECURITY_NT_AUTHORITY;
9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	12848	PSID AdministratorsGroup;
9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	12849	BOOL IsInAdminGroup = FALSE;
9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	12850
9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	12851	// Initialize SID.
9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	12852	if( !AllocateAndInitializeSid( &NtAuthority,
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12853	2,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12854	SECURITY_BUILTIN_DOMAIN_RID,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12855	DOMAIN_ALIAS_RID_ADMINS,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12856	0, 0, 0, 0, 0, 0,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12857	&AdministratorsGroup))
15834 9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	12858	{
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12859	// Initializing SID Failed.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12860	RETURN( false );
15834 9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	12861	}
9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	12862	// Check whether the token is present in admin group.
9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	12863	if( !CheckTokenMembership( NULL,
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12864	AdministratorsGroup,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12865	&IsInAdminGroup ))
15834 9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	12866	{
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12867	// Error occurred.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12868	IsInAdminGroup = FALSE;
15834 9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	12869	}
9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	12870	// Free SID and return.
9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	12871	FreeSid(AdministratorsGroup);
9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	12872	RETURN( IsInAdminGroup ? true : false);
9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	12873	%}.
9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	12874	"/ seems not to work...
9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	12875
15870 dc9e47f7ec47 added isRunningWithElevatedAdminRights Claus Gittinger <cg@exept.de> parents: 15835 diff changeset	12876	"/ "/ RegOpenKey(HKEY_USERS, "S-1-5-19", &key)
15835 266f6ab9cdb2 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15834 diff changeset	12877	"/ (RegistryEntry key:'HKEY_USERS') notNil ifTrue:[
266f6ab9cdb2 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15834 diff changeset	12878	"/ (RegistryEntry key:'HKEY_USERS/S-1-5-19') notNil ifTrue:[
266f6ab9cdb2 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15834 diff changeset	12879	"/ ^ true
266f6ab9cdb2 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15834 diff changeset	12880	"/ ]
266f6ab9cdb2 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15834 diff changeset	12881	"/ ].
15833 8131c0b10c98 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15816 diff changeset	12882	^ false.
8131c0b10c98 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15816 diff changeset	12883
8131c0b10c98 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15816 diff changeset	12884	"
15870 dc9e47f7ec47 added isRunningWithElevatedAdminRights Claus Gittinger <cg@exept.de> parents: 15835 diff changeset	12885	OperatingSystem isRunningWithRootOrAdminRights
15833 8131c0b10c98 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15816 diff changeset	12886	"
8131c0b10c98 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15816 diff changeset	12887
8131c0b10c98 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15816 diff changeset	12888	"Created: / 28-11-2013 / 14:00:02 / cg"
8131c0b10c98 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15816 diff changeset	12889	!
8131c0b10c98 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15816 diff changeset	12890
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12891	userInfoOf:aNameOrID
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12892	"{ Pragma: +optSpace }"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12893
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12894	"return a dictionary filled with userinfo. The argument can be either
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12895	a string with the users name or its numeric id.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12896	Notice, that DOS systems only provide a very limited set of information.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12897	Portable applications may want to check the systemType and NOT depend
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12898	on all keys to be present in the returned dictionary."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12899
20246 dacb56e06db1 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20245 diff changeset	12900	\|info userName loginName "uid gid"\|
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12901
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12902	info := IdentityDictionary new.
20246 dacb56e06db1 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20245 diff changeset	12903	loginName := self getLoginName.
dacb56e06db1 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20245 diff changeset	12904	(aNameOrID == self getUserID or:[aNameOrID = loginName]) ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12905	userName := loginName.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12906	info at:#dir put:self getHomeDirectory.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12907	] ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12908	userName := 'unknown'.
20246 dacb56e06db1 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20245 diff changeset	12909	].
dacb56e06db1 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20245 diff changeset	12910	info at:#name put:userName.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12911	"/ uid notNil ifTrue:[info at:#uid put:uid].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12912	"/ gid notNil ifTrue:[info at:#gid put:gid].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12913	^ info
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12914
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12915	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12916	OperatingSystem userInfoOf:'root'
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	12917	OperatingSystem userInfoOf:1
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	12918	OperatingSystem userInfoOf:'fooBar'
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12919	OperatingSystem userInfoOf:(OperatingSystem getUserID)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12920	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12921	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12922
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12923	!Win32OperatingSystem class methodsFor:'waiting for events'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12924
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12925	blockingChildProcessWait
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12926	"return true, if childProcessWait: blocks, if no children are ready.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12927	On those systems, we must be somewhat careful when looking out for
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12928	a subprocesses status (to avoid blocking)."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12929
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12930	^ false
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12931	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12932
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12933	childProcessWait:blocking pid:pidToWait
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12934	"{ Pragma: +optSpace }"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12935
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12936	"get status changes from child processes.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12937	Return an OSProcessStatus or nil, if no process has terminated.
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	12938	If blocking is true, we wait until a process changed state,
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12939	otherwise we return immediately.
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	12940	Note that win32 needs to know the HANDLE of the process on which
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12941	it waits. In case of an error, THIS ALWAYS WAITS and then times out."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12942
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12943	\|pid status code core\|
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12944	%{
16337 40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	12945	//#define PROCESSDEBUG_CHILDPROCESSWAIT
16331 e0db6eac2c1e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16321 diff changeset	12946
15543 196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	12947	int endStatus;
16331 e0db6eac2c1e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16321 diff changeset	12948	DWORD exitCode;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12949
7662 32a1185158f3 process handles Claus Gittinger <cg@exept.de> parents: 7645 diff changeset	12950	if (__isExternalAddressLike(pidToWait) ) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12951	HANDLE __pidToWait = _HANDLEVal(pidToWait);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12952
8650 bc8e2cdcb777 processGroup termiantion (leftover child processes) Claus Gittinger <cg@exept.de> parents: 8642 diff changeset	12953	#ifdef PROCESSDEBUG_CHILDPROCESSWAIT
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12954	console_printf("childProcessWait %x b %d\n",__pidToWait,blocking==true);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12955	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12956
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12957	if (blocking == true) {
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12958	#ifdef DO_WRAP_CALLS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12959	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12960	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12961	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12962	endStatus = STX_API_CALL2( "WaitForSingleObject", WaitForSingleObject, __pidToWait, INFINITE);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12963	} while ((endStatus < 0) && (__threadErrno == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12964	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12965	endStatus = WaitForSingleObject(__pidToWait, INFINITE);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12966	if (endStatus < 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12967	__threadErrno = __WIN32_ERR(GetLastError());
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12968	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12969	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12970	if (endStatus == WAIT_TIMEOUT) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12971	if (blocking==true)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12972	status = @symbol(timeout);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12973	else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12974	status = @symbol(continue);
8650 bc8e2cdcb777 processGroup termiantion (leftover child processes) Claus Gittinger <cg@exept.de> parents: 8642 diff changeset	12975	#ifdef PROCESSDEBUG_CHILDPROCESSWAIT
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12976	console_printf("ret nil\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12977	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12978	RETURN(nil);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12979	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12980	} else if (endStatus == WAIT_OBJECT_0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12981
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12982	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12983	}
16331 e0db6eac2c1e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16321 diff changeset	12984
12625 6b04dbbeb379 changed: #childProcessWait:pid: Claus Gittinger <cg@exept.de> parents: 12616 diff changeset	12985	#ifdef PROCESSDEBUG_CHILDPROCESSWAIT
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12986	console_printf("GetExitCodeProcess\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12987	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12988
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12989	if (GetExitCodeProcess(__pidToWait, &exitCode)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12990	if (exitCode == STILL_ACTIVE) {
8650 bc8e2cdcb777 processGroup termiantion (leftover child processes) Claus Gittinger <cg@exept.de> parents: 8642 diff changeset	12991	#ifdef PROCESSDEBUG_CHILDPROCESSWAIT
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12992	console_printf("exitCode: STILL_ACTIVE\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12993	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12994	RETURN(nil);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12995	}
8650 bc8e2cdcb777 processGroup termiantion (leftover child processes) Claus Gittinger <cg@exept.de> parents: 8642 diff changeset	12996	#ifdef PROCESSDEBUG_CHILDPROCESSWAIT
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12997	console_printf("exitCode %d\n", exitCode);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12998	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	12999	status = @symbol(exit);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13000	code = __mkSmallInteger(exitCode);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13001	core = false;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13002	pid = pidToWait;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13003	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13004	code = __mkSmallInteger(GetLastError());
16331 e0db6eac2c1e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16321 diff changeset	13005	#ifdef PROCESSDEBUG_CHILDPROCESSWAIT
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13006	console_printf("GetExitCodeProcess failed: error=%d\n", GetLastError());
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13007	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13008	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13009	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13010	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13011
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13012	(status isNil or:[pid isNil]) ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13013	^ self primitiveFailed:code
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13014	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13015
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13016	"/ Transcript show:'pid: '; show:pid; show:' status: '; show:status;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13017	"/ show:' code: '; show:code; show:' core:'; showCR:core.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13018
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13019	^ OSProcessStatus pid:pid status:status code:code core:core
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13020	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13021
21241 71f5ce80b2ce #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21204 diff changeset	13022	isBlockingOn:fd
71f5ce80b2ce #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21204 diff changeset	13023	^ true
71f5ce80b2ce #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21204 diff changeset	13024	!
71f5ce80b2ce #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21204 diff changeset	13025
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13026	numAvailableForReadOn:fd
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13027	"return the number of bytes available for reading, without blocking."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13028
20174 d3f07efc7045 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20063 diff changeset	13029	%{
d3f07efc7045 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20063 diff changeset	13030	unsigned long bytes_available;
d3f07efc7045 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20063 diff changeset	13031
d3f07efc7045 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20063 diff changeset	13032	if (__Class(fd) == @global(Win32SocketHandle)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13033	if (ioctlsocket((SOCKET)_HANDLEVal(fd), FIONREAD, &bytes_available) == 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13034	if (bytes_available > _MAX_INT) bytes_available = _MAX_INT;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13035	RETURN(__mkSmallInteger(bytes_available));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13036	}
20174 d3f07efc7045 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20063 diff changeset	13037	} else if (__isSmallInteger(fd)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13038	if (PeekNamedPipe(_get_osfhandle(__intVal(fd)), NULL, 0, NULL, &bytes_available, NULL) != 0){
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13039	if (bytes_available > _MAX_INT) bytes_available = _MAX_INT;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13040	RETURN(__mkSmallInteger(bytes_available));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13041	}
20174 d3f07efc7045 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20063 diff changeset	13042	}
d3f07efc7045 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20063 diff changeset	13043	%}.
d3f07efc7045 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20063 diff changeset	13044
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13045	^ (self readCheck:fd) ifTrue:[1] ifFalse:[0]
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13046	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13047
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13048	selectOnAnyReadable:readFdArray writable:writeFdArray exception:exceptFdArray
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13049	readableInto:readableResultFdArray writableInto:writableResultFdArray exceptionInto:exceptionResultFdArray
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13050	withTimeOut:millis
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13051	"wait for any fd in readFdArray (an Array of integers) to become ready for reading,
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13052	writeFdArray to become ready for writing,
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13053	or exceptFdArray to arrive exceptional data (i.e. out-of-band data).
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13054	Timeout after t milliseconds or - if the timeout time is 0 - immediately..
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13055	Empty fd-sets will always wait. Zero time can be used to poll file-
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13056	descriptors (i.e. to check if I/O possible without blocking).
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13057	The corresponding filedescriptors which are ready are returned in readableResultFdArray,
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13058	writableResultFdArray and exceptionResultFdArray respectively.
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13059
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13060	Return the (overall) number of selected filedescriptors.
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13061	readableResultFdArray, writableResultFdArray and exceptionResultFdArray will
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13062	get a nil-value stored into the slot after the last valid fileDescriptor;
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13063	Thus, the caller can simply scan these arrays upTo the end or a nil value."
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13064
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13065	%{
16315 b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	13066	//#define SELECTDEBUGWIN32
b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	13067	//#define SELECT3DEBUGWIN32
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13068	#define MAXHANDLE 128
21098 7b8226c89764 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 21073 diff changeset	13069	int i;
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13070	HANDLE hArray[MAXHANDLE+1];
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13071	int retArray[MAXHANDLE];
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13072	int readCount, writeCount, exceptCount;
16315 b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	13073	int resultSizeReadable = 0, resultSizeWritable = 0, resultSizeException = 0;
b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	13074	int cntR = 0, cntW = 0, cntE = 0, cntAll = 0;
b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	13075	int pcntR = &cntR, pcntW = &cntW, *pcntE = &cntE;
16367 e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	13076	fd_set readFds;
e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	13077	fd_set writeFds;
18954 813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	13078	fd_set exceptFds;
21098 7b8226c89764 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 21073 diff changeset	13079	int numHandles, numSockets, numPipes;
16367 e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	13080	int pass = 1; // perform up to 2 passes
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13081
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13082	if (readableResultFdArray != nil) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13083	if (! __isArrayLike(readableResultFdArray)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13084	goto fail;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13085	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13086	resultSizeReadable = __arraySize(readableResultFdArray);
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13087	}
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13088	if (writableResultFdArray != nil) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13089	if (! __isArrayLike(writableResultFdArray)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13090	goto fail;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13091	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13092	resultSizeWritable = __arraySize(writableResultFdArray);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13093	if (readableResultFdArray == writableResultFdArray) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13094	// allow common result set for read/write/except
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13095	pcntW = &cntR;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13096	}
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13097	}
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13098	if (exceptionResultFdArray != nil) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13099	if (! __isArrayLike(exceptionResultFdArray)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13100	goto fail;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13101	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13102	resultSizeException = __arraySize(exceptionResultFdArray);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13103	if (exceptionResultFdArray == readableResultFdArray) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13104	// allow common result set for read/write/except
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13105	pcntE = &cntR;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13106	} else if (exceptionResultFdArray == writableResultFdArray) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13107	pcntE = &cntW;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13108	}
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13109	}
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13110
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13111	if (__isNonNilObject(readFdArray)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13112	if (! __isArrayLike(readFdArray)) goto fail;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13113	readCount = __arraySize(readFdArray);
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13114	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13115	readCount = 0;
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13116	}
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13117
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13118	if (__isNonNilObject(writeFdArray)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13119	if (! __isArrayLike(writeFdArray)) goto fail;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13120	writeCount = __arraySize(writeFdArray);
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13121	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13122	writeCount = 0;
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13123	}
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13124
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13125	if (__isNonNilObject(exceptFdArray)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13126	if (! __isArrayLike(exceptFdArray)) goto fail;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13127	exceptCount = __arraySize(exceptFdArray);
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13128	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13129	exceptCount = 0;
16367 e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	13130	}
e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	13131
e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	13132	pollAgain:
e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	13133	FD_ZERO(&readFds);
e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	13134	FD_ZERO(&writeFds);
18954 813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	13135	FD_ZERO(&exceptFds);
21098 7b8226c89764 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 21073 diff changeset	13136	numHandles = numSockets = numPipes = 0;
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13137
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13138	for (i = 0; (i < readCount) && (numHandles < MAXHANDLE); i++) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13139	OBJ fd = __arrayVal(readFdArray)[i];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13140
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13141	if (fd != nil) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13142	if (__Class(fd) == @global(Win32SocketHandle)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13143	FD_SET (_HANDLEVal(fd), &readFds);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13144	numSockets++;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13145	} else if (__isSmallInteger(fd)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13146	DWORD canRead = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13147	int res = PeekNamedPipe(_get_osfhandle(__intVal(fd)), 0, 0, 0, &canRead, 0);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13148	// read would return immediately both on error or when there is data in the pipe
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13149	if (res == 0 \|\| canRead > 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13150	if (*pcntR < resultSizeReadable) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13151	__arrayVal(readableResultFdArray)[*pcntR] = fd;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13152	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13153	(*pcntR)++; cntAll++;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13154	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13155	numPipes++;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13156	numPipes++;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13157	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13158	hArray [numHandles] = _HANDLEVal(fd);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13159	retArray[numHandles] = i;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13160	++numHandles;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13161	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13162	}
16367 e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	13163	}
e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	13164
e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	13165	for (i = 0; (i < writeCount) && (numHandles < MAXHANDLE); i++) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13166	OBJ fd = __arrayVal(writeFdArray)[i];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13167
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13168	if (fd != nil) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13169	if (__Class(fd) == @global(Win32SocketHandle)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13170	FD_SET (_HANDLEVal(fd), &writeFds);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13171	numSockets++;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13172	} else if (__isSmallInteger(fd)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13173	// kludge: assume that pipes can alway be written
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13174	if (*pcntW < resultSizeWritable) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13175	__arrayVal(writableResultFdArray)[*pcntW] = fd;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13176	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13177	(*pcntW)++; cntAll++;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13178	// there is no pipe to check
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13179	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13180	hArray [numHandles] = _HANDLEVal(fd);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13181	retArray[numHandles] = i + 10000;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13182	++numHandles;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13183	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13184	}
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13185	}
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13186
16315 b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	13187	for (i = 0; (i < exceptCount) && (numHandles < MAXHANDLE); i++) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13188	OBJ fdOrPid = __arrayVal(exceptFdArray)[i];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13189
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13190	if (fdOrPid != nil) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13191	if (__Class(fdOrPid) == @global(Win32SocketHandle)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13192	FD_SET (_HANDLEVal(fdOrPid), &exceptFds);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13193	numSockets++;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13194	} else if (__isExternalAddressLike(fdOrPid)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13195	// a PID
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13196	hArray [numHandles] = _HANDLEVal(fdOrPid);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13197	retArray[numHandles] = i + 20000;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13198	++numHandles;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13199	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13200	}
21098 7b8226c89764 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 21073 diff changeset	13201	}
7b8226c89764 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 21073 diff changeset	13202
7b8226c89764 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 21073 diff changeset	13203	// +++++ checking for Windows Handles +++++++++++++++++++++++++++++++++++++++++
7b8226c89764 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 21073 diff changeset	13204	if (numHandles != 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13205	DWORD res;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13206	int idx;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13207	INT t;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13208
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13209	if (numSockets \|\| pass > 1) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13210	// do not wait - wait when checking for sockets
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13211	t = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13212	} else if (__isSmallInteger(millis)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13213	t = __intVal(millis);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13214	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13215	t = INFINITE;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13216	}
16315 b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	13217
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13218	#ifdef SELECT3DEBUGWIN32
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13219	console_printf("wait numhandles = %d timeout = %d\n", numHandles, t);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13220	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13221
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13222	res = __vmWait(numHandles, hArray, MAXHANDLE, (int)t);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13223
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13224	if (res == WAIT_TIMEOUT) {
16315 b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	13225	#ifdef SELECT3DEBUGWIN32
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13226	console_printf("- timeOut" );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13227	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13228	goto checkSockets;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13229	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13230	if (res == __WAIT_INTERRUPTED) {
21098 7b8226c89764 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 21073 diff changeset	13231	#ifdef SELECT3DEBUGWIN32
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13232	console_printf("- interrupted\n" );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13233	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13234	goto done;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13235	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13236
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13237	if (res == WAIT_FAILED) {
16315 b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	13238	#ifdef SELECT2DEBUGWIN32
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13239	console_printf("- error %d (last %d); ret -1\n", __threadErrno, GetLastError());
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13240	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13241	if (__threadErrno == EINTR) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13242	@global(LastErrorNumber) = nil;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13243	RETURN (__mkSmallInteger(0));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13244	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13245	if (@global(InfoPrinting) == true) {
21098 7b8226c89764 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 21073 diff changeset	13246	// console_fprintf(stderr, "Win32OS [info]: select errno = %d (last %d)\n", __threadErrno, GetLastError());
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13247	console_printf("Win32OS [info]: select errno = %d (last %d)\n", __threadErrno, GetLastError());
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13248	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13249	@global(LastErrorNumber) = __mkSmallInteger(EBADF);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13250	RETURN (__mkSmallInteger(-1));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13251	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13252	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13253
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13254	if ((res < 0) \|\| (res >= numHandles)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13255	if (res == numHandles) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13256	// vmwait() added an IRQ event to the handles, and this one has been triggered
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13257	if (1 /* @global(InfoPrinting) == true */) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13258	console_fprintf(stderr, "Win32OS [info]: plugIn event has been handled\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13259	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13260	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13261	console_printf("- res=%d error1 %d\n", res, GetLastError());
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13262	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13263	goto done;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13264	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13265
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13266	idx = retArray[res];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13267	cntAll++;
16337 40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	13268
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13269	#ifdef SELECTDEBUGWIN32
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13270	console_printf("wait Handles res %d idx %d numHandles %d --- ", res, idx, numHandles);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13271	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13272	if (idx < 10000) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13273	if (*pcntR < resultSizeReadable) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13274	OBJ temp = __arrayVal(readFdArray)[idx];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13275	__arrayVal(readableResultFdArray)[*pcntR] = temp;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13276	__STORE(readableResultFdArray, temp);
16315 b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	13277	#ifdef SELECTDEBUGWIN32
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13278	console_printf("read ready: %x\n", __externalAddressVal(temp));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13279	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13280	(*pcntR)++;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13281	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13282	} else if (idx < 20000) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13283	if (*pcntW < resultSizeWritable) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13284	OBJ temp = __arrayVal(writeFdArray)[idx-10000];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13285	__arrayVal(writableResultFdArray)[*pcntW] = temp;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13286	__STORE(writableResultFdArray, temp);
21098 7b8226c89764 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 21073 diff changeset	13287	#ifdef SELECTDEBUGWIN32
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13288	console_printf("write ready: %x\n", temp);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13289	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13290	(*pcntW)++;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13291	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13292	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13293	if (*pcntE < resultSizeException) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13294	OBJ temp = __arrayVal(exceptFdArray)[idx-20000];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13295	__arrayVal(exceptionResultFdArray)[*pcntE] = temp;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13296	__STORE(exceptionResultFdArray, temp);
21098 7b8226c89764 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 21073 diff changeset	13297	#ifdef SELECTDEBUGWIN32
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13298	console_printf("except ready: %x\n", temp);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13299	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13300	(*pcntE)++;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13301	}
16337 40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	13302	#ifdef SELECTDEBUGWIN32
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13303	else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13304	console_printf("cntE: %d, resultSizeException: %d\n", *pcntE, resultSizeException);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13305	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13306	}
21098 7b8226c89764 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 21073 diff changeset	13307	}
7b8226c89764 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 21073 diff changeset	13308
7b8226c89764 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 21073 diff changeset	13309
7b8226c89764 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 21073 diff changeset	13310	// ++++++++++ Check Sockets +++++++++++++++++++++++++++++++++++
7b8226c89764 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 21073 diff changeset	13311	checkSockets:
7b8226c89764 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 21073 diff changeset	13312	if (pass > 1) // perform maximum 2 passes
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13313	goto done;
21098 7b8226c89764 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 21073 diff changeset	13314
7b8226c89764 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 21073 diff changeset	13315	if (numSockets) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13316	struct timeval tv = {0, 0};
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13317	struct timeval *tvp = &tv;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13318	int nReady;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13319
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13320	// do not wait, if there are threads that can be resumed
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13321	if (!__vmTestIfAnyThreadMustBeResumed() && cntAll == 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13322	// no ready handles found yet - do wait
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13323	if (__isSmallInteger(millis)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13324	tv.tv_usec = __intVal(millis) * 1000;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13325	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13326	// no timeout
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13327	tvp = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13328	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13329	}
21098 7b8226c89764 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 21073 diff changeset	13330
7b8226c89764 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 21073 diff changeset	13331	#ifdef SELECT3DEBUGWIN32
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13332	console_printf("select numSockets = %d\n", numSockets);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13333	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13334	nReady = select(1 , &readFds, &writeFds, &exceptFds, tvp); // first parameter to select is ignored in windows
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13335	if (nReady < 0) {
16367 e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	13336	#ifdef SELECTDEBUGWIN32
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13337	console_printf("error in select %d %d\n", nReady, GetLastError());
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13338	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13339	@global(LastErrorNumber) = __mkSmallInteger(EBADF);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13340	RETURN (__mkSmallInteger(-1));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13341	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13342	if (nReady > 0) {
21098 7b8226c89764 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 21073 diff changeset	13343	#ifdef SELECT3DEBUGWIN32
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13344	console_printf("select nReady %d of %d\n", nReady, numSockets);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13345	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13346	for (i = 0; i < readCount; i++) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13347	OBJ fd = __arrayVal(readFdArray)[i];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13348	if ((__Class(fd) == @global(Win32SocketHandle)) && FD_ISSET(_HANDLEVal(fd), &readFds)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13349	if (*pcntR < resultSizeReadable) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13350	__arrayVal(readableResultFdArray)[*pcntR] = fd;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13351	__STORE(readableResultFdArray, fd);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13352	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13353	(*pcntR)++; cntAll++;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13354	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13355	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13356	for (i = 0; i < writeCount; i++) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13357	OBJ fd = __arrayVal(writeFdArray)[i];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13358	if ((__Class(fd) == @global(Win32SocketHandle)) && FD_ISSET(_HANDLEVal(fd), &writeFds)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13359	if (*pcntW < resultSizeWritable) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13360	__arrayVal(writableResultFdArray)[*pcntW] = fd;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13361	__STORE(writableResultFdArray, fd);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13362	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13363	(*pcntW)++; cntAll++;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13364	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13365	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13366	for (i = 0; i < exceptCount; i++) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13367	OBJ fd = __arrayVal(exceptFdArray)[i];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13368	if ((__Class(fd) == @global(Win32SocketHandle)) && FD_ISSET(_HANDLEVal(fd), &exceptFds)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13369	if (*pcntE < resultSizeException) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13370	__arrayVal(exceptionResultFdArray)[*pcntE] = fd;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13371	__STORE(exceptionResultFdArray, fd);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13372	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13373	(*pcntE)++; cntAll++;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13374	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13375	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13376	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13377	if (tvp && tv.tv_usec != 0 && (numHandles != 0 \|\| numPipes != 0)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13378	// back after timeout, maybe some handles or pipes did wake up
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13379	// in the meantime?
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13380	pass = 2;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13381	goto pollAgain;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13382	}
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13383	}
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13384
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13385	done:
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13386	/* add a delimiter */
16315 b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	13387	if (*pcntR < resultSizeReadable) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13388	__arrayVal(readableResultFdArray)[*pcntR] = nil;
16315 b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	13389	}
b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	13390	if (*pcntW < resultSizeWritable) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13391	__arrayVal(writableResultFdArray)[*pcntW] = nil;
16315 b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	13392	}
b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	13393	if (*pcntE < resultSizeException) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13394	__arrayVal(exceptionResultFdArray)[*pcntE] = nil;
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13395	}
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13396
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	13397	@global(LastErrorNumber) = nil;
16315 b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	13398	RETURN (__mkSmallInteger(cntAll));
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13399
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13400	fail: ;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13401	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13402	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13403	timeout argument not integer,
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13404	or any fd-array nonNil and not an array
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13405	or not supported by OS
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13406	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13407	^ self primitiveFailed
21256 49d5f9d3c9a4 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21241 diff changeset	13408
49d5f9d3c9a4 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21241 diff changeset	13409	"Modified: / 15-01-2017 / 03:04:41 / stefan"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13410	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13411
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13412	setBlocking:aBoolean on:fd
25249 04ef5dbb45a2 #REFACTORING by Stefan Reise sr parents: 25248 diff changeset	13413	"set/clear the blocking attribute - if set (which is the default)
04ef5dbb45a2 #REFACTORING by Stefan Reise sr parents: 25248 diff changeset	13414	a read on the fileDescriptor will block until data is available.
04ef5dbb45a2 #REFACTORING by Stefan Reise sr parents: 25248 diff changeset	13415	If cleared, a read operation will immediately return with a value of
04ef5dbb45a2 #REFACTORING by Stefan Reise sr parents: 25248 diff changeset	13416	nil.
04ef5dbb45a2 #REFACTORING by Stefan Reise sr parents: 25248 diff changeset	13417
04ef5dbb45a2 #REFACTORING by Stefan Reise sr parents: 25248 diff changeset	13418	Ignored in windows. Windows calls operate in their own thread,
04ef5dbb45a2 #REFACTORING by Stefan Reise sr parents: 25248 diff changeset	13419	so non-blocking mode doesn't make sense."
04ef5dbb45a2 #REFACTORING by Stefan Reise sr parents: 25248 diff changeset	13420
16337 40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	13421	^ true
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13422	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13423
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13424	waitForMultipleObjects:fdOrHandleArray withTimeout:millis
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13425	"wait for an fd to become ready.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13426	Timeout after t milliseconds or, if the timeout time is 0, immediately..
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13427	Zero time can be used to poll a file-
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13428	descriptors (i.e. to check if I/O possible without blocking).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13429	Return the fd if I/O ok, nil if timed-out or interrupted."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13430
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13431	%{
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13432	#ifndef MAXHANDLE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13433	# define MAXHANDLE 128
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13434	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13435	INT t;
15543 196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	13436	int res;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13437	HANDLE hArray[MAXHANDLE];
16337 40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	13438	int idxArray[MAXHANDLE];
40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	13439	INT i, count, hIdx;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13440
8934 32a063645991 * empty log message * Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	13441	if (! __isArrayLike(fdOrHandleArray)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13442	goto fail;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13443	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13444	count = __arraySize(fdOrHandleArray);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13445
16337 40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	13446	for (hIdx=0, i=0; i<count; i++) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13447	OBJ fdOrHandle = __ArrayInstPtr(fdOrHandleArray)->a_element[i];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13448	HANDLE h;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13449
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13450	if (fdOrHandle != nil) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13451	if (__isExternalAddressLike(fdOrHandle)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13452	h = _HANDLEVal(fdOrHandle);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13453	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13454	if (__isSmallInteger(fdOrHandle)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13455	h = (HANDLE) _get_osfhandle (__intVal(fdOrHandle));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13456	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13457	goto fail;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13458	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13459	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13460	hArray[hIdx] = h;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13461	idxArray[hIdx++] = i;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13462	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13463	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13464
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13465	if (__isSmallInteger(millis)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13466	t = __intVal(millis);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13467	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13468	t = INFINITE;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13469	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13470
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13471	#ifdef DO_WRAP_CALLS
16337 40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	13472	if (t != 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13473	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13474	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13475	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13476	res = STX_API_CALL4( "WaitForMultipleObjects", WaitForMultipleObjects, hIdx, hArray, FALSE, t);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13477	} while ((res < 0) && (__threadErrno == EINTR));
16337 40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	13478	} else
40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	13479	#endif
40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	13480	{
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13481	res = WaitForMultipleObjects(hIdx, hArray, FALSE, t);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13482	if (res < 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13483	__threadErrno = __WIN32_ERR(GetLastError());
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13484	}
16337 40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	13485	}
40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	13486
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13487	if (res == WAIT_FAILED) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13488	RETURN (nil);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13489	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13490	if (res == WAIT_TIMEOUT) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13491	RETURN (nil);
16337 40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	13492	}
40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	13493	if ((res >= WAIT_OBJECT_0) && (res < (WAIT_OBJECT_0+hIdx))) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13494	RETURN (__arrayVal(fdOrHandleArray)[idxArray[res-WAIT_OBJECT_0]]);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13495	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13496
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13497	RETURN (nil);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13498	fail: ;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13499	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13500	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13501	invalid arg,
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13502	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13503	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13504	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13505
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13506	waitForSingleObject:fdOrHandle withTimeout:millis
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13507	"wait for an fd to become ready.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13508	Timeout after t milliseconds or, if the timeout time is 0, immediately..
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13509	Zero time can be used to poll a file-
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13510	descriptors (i.e. to check if I/O possible without blocking).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13511	Return the fd if I/O ok, nil if timed-out or interrupted."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13512
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13513	%{
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13514	INT t;
15543 196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	13515	int res;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13516	HANDLE h = NULL;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13517
7662 32a1185158f3 process handles Claus Gittinger <cg@exept.de> parents: 7645 diff changeset	13518	if (__isExternalAddressLike(fdOrHandle)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13519	h = _HANDLEVal(fdOrHandle);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13520	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13521	if (__isSmallInteger(fdOrHandle)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13522	h = (HANDLE) _get_osfhandle (__intVal(fdOrHandle));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13523	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13524	goto fail;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13525	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13526	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13527
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13528	if (__isSmallInteger(millis)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13529	t = __intVal(millis);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13530	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13531	t = INFINITE;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13532	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13533
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13534	#ifdef DO_WRAP_CALLS
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	13535	do {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13536	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13537	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13538	res = STX_API_CALL2( "WaitForSingleObject", WaitForSingleObject, h, t);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13539	} while ((res < 0) && (__threadErrno == EINTR));
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13540	#else
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13541	res = WaitForSingleObject(h, t);
6259 164d7efc1eb2 api call stuff (more calls wrapped; care for EINTR) Claus Gittinger <cg@exept.de> parents: 6095 diff changeset	13542	if (res < 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13543	__threadErrno = __WIN32_ERR(GetLastError());
6259 164d7efc1eb2 api call stuff (more calls wrapped; care for EINTR) Claus Gittinger <cg@exept.de> parents: 6095 diff changeset	13544	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13545	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13546	if (res == WAIT_FAILED) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13547	RETURN (nil);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13548	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13549	if (res == WAIT_TIMEOUT) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13550	RETURN (nil);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13551	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13552
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13553	RETURN (fdOrHandle);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13554	fail: ;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13555	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13556	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13557	invalid arg,
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13558	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13559	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13560	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13561
9475 c57956a348bf printing support fm parents: 9431 diff changeset	13562	!Win32OperatingSystem::DevModeStructure methodsFor:'accessing'!
c57956a348bf printing support fm parents: 9431 diff changeset	13563
c57956a348bf printing support fm parents: 9431 diff changeset	13564	bitsPerPel
c57956a348bf printing support fm parents: 9431 diff changeset	13565	^ self unsignedLongAt: 1+104
c57956a348bf printing support fm parents: 9431 diff changeset	13566
c57956a348bf printing support fm parents: 9431 diff changeset	13567	"Created: / 27-07-2006 / 15:14:17 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	13568	!
c57956a348bf printing support fm parents: 9431 diff changeset	13569
c57956a348bf printing support fm parents: 9431 diff changeset	13570	collate
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	13571	^ self signedInt16At: 1+68 MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	13572
c57956a348bf printing support fm parents: 9431 diff changeset	13573	"Created: / 01-08-2006 / 09:56:38 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	13574	!
c57956a348bf printing support fm parents: 9431 diff changeset	13575
c57956a348bf printing support fm parents: 9431 diff changeset	13576	collate: n
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	13577	^ self signedInt16At: 1+68 put: n MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	13578
c57956a348bf printing support fm parents: 9431 diff changeset	13579	"Created: / 01-08-2006 / 09:58:07 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	13580	!
c57956a348bf printing support fm parents: 9431 diff changeset	13581
c57956a348bf printing support fm parents: 9431 diff changeset	13582	color
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	13583	^ self signedInt16At: 1+60 MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	13584
c57956a348bf printing support fm parents: 9431 diff changeset	13585	"Created: / 27-07-2006 / 15:31:25 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	13586	!
c57956a348bf printing support fm parents: 9431 diff changeset	13587
c57956a348bf printing support fm parents: 9431 diff changeset	13588	copies
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	13589	^ self signedInt16At: 1+54 MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	13590
c57956a348bf printing support fm parents: 9431 diff changeset	13591	"Created: / 27-07-2006 / 15:30:52 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	13592	!
c57956a348bf printing support fm parents: 9431 diff changeset	13593
c57956a348bf printing support fm parents: 9431 diff changeset	13594	copies: n
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	13595	^ self signedInt16At: 1+54 put: n MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	13596
c57956a348bf printing support fm parents: 9431 diff changeset	13597	"Created: / 27-07-2006 / 15:36:39 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	13598	!
c57956a348bf printing support fm parents: 9431 diff changeset	13599
c57956a348bf printing support fm parents: 9431 diff changeset	13600	deviceName
c57956a348bf printing support fm parents: 9431 diff changeset	13601	^ self stringAt: 1+0 size: 32
c57956a348bf printing support fm parents: 9431 diff changeset	13602
c57956a348bf printing support fm parents: 9431 diff changeset	13603	"Created: / 27-07-2006 / 15:15:52 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	13604	!
c57956a348bf printing support fm parents: 9431 diff changeset	13605
c57956a348bf printing support fm parents: 9431 diff changeset	13606	orientation
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	13607	^ self signedInt16At: 1+44 MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	13608
c57956a348bf printing support fm parents: 9431 diff changeset	13609	"Created: / 27-07-2006 / 15:34:57 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	13610	!
c57956a348bf printing support fm parents: 9431 diff changeset	13611
c57956a348bf printing support fm parents: 9431 diff changeset	13612	orientation: orientationInt
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	13613	^ self signedInt16At: 1+44 put: orientationInt MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	13614
c57956a348bf printing support fm parents: 9431 diff changeset	13615	"Created: / 27-07-2006 / 15:36:31 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	13616	!
c57956a348bf printing support fm parents: 9431 diff changeset	13617
c57956a348bf printing support fm parents: 9431 diff changeset	13618	paperLength
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	13619	^ self signedInt16At: 1+48 MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	13620
c57956a348bf printing support fm parents: 9431 diff changeset	13621	"Created: / 27-07-2006 / 15:32:59 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	13622	!
c57956a348bf printing support fm parents: 9431 diff changeset	13623
c57956a348bf printing support fm parents: 9431 diff changeset	13624	paperSize
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	13625	^ self signedInt16At: 1+46 MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	13626
c57956a348bf printing support fm parents: 9431 diff changeset	13627	"Created: / 27-07-2006 / 15:32:12 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	13628	!
c57956a348bf printing support fm parents: 9431 diff changeset	13629
c57956a348bf printing support fm parents: 9431 diff changeset	13630	paperSize:funnyMSPaperSizeCode
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	13631	^ self signedInt16At: 1+46 put: funnyMSPaperSizeCode MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	13632
c57956a348bf printing support fm parents: 9431 diff changeset	13633	"Created: / 27-07-2006 / 15:35:53 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	13634	!
c57956a348bf printing support fm parents: 9431 diff changeset	13635
c57956a348bf printing support fm parents: 9431 diff changeset	13636	paperWidth
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	13637	^ self signedInt16At: 1+50 MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	13638
c57956a348bf printing support fm parents: 9431 diff changeset	13639	"Created: / 27-07-2006 / 15:32:25 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	13640	!
c57956a348bf printing support fm parents: 9431 diff changeset	13641
c57956a348bf printing support fm parents: 9431 diff changeset	13642	printQuality
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	13643	^ self signedInt16At: 1+58 MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	13644
c57956a348bf printing support fm parents: 9431 diff changeset	13645	"Created: / 27-07-2006 / 15:33:58 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	13646	!
c57956a348bf printing support fm parents: 9431 diff changeset	13647
c57956a348bf printing support fm parents: 9431 diff changeset	13648	printQuality: qualityInteger
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	13649	^ self signedInt16At: 1+58 put: qualityInteger MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	13650
c57956a348bf printing support fm parents: 9431 diff changeset	13651	"Created: / 27-07-2006 / 15:36:20 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	13652	!
c57956a348bf printing support fm parents: 9431 diff changeset	13653
c57956a348bf printing support fm parents: 9431 diff changeset	13654	scale
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	13655	^ self signedInt16At: 1+52 MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	13656
c57956a348bf printing support fm parents: 9431 diff changeset	13657	"Created: / 27-07-2006 / 15:33:31 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	13658	!
c57956a348bf printing support fm parents: 9431 diff changeset	13659
c57956a348bf printing support fm parents: 9431 diff changeset	13660	scale: percent
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	13661	^ self signedInt16At: 1+52 put: percent MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	13662
c57956a348bf printing support fm parents: 9431 diff changeset	13663	"Created: / 27-07-2006 / 15:36:05 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	13664	! !
c57956a348bf printing support fm parents: 9431 diff changeset	13665
c57956a348bf printing support fm parents: 9431 diff changeset	13666	!Win32OperatingSystem::DocInfoStructure class methodsFor:'instance creation'!
c57956a348bf printing support fm parents: 9431 diff changeset	13667
c57956a348bf printing support fm parents: 9431 diff changeset	13668	new
c57956a348bf printing support fm parents: 9431 diff changeset	13669
c57956a348bf printing support fm parents: 9431 diff changeset	13670	^super new: self sizeInBytes
c57956a348bf printing support fm parents: 9431 diff changeset	13671
c57956a348bf printing support fm parents: 9431 diff changeset	13672	"Created: / 02-08-2006 / 16:21:01 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	13673	!
c57956a348bf printing support fm parents: 9431 diff changeset	13674
c57956a348bf printing support fm parents: 9431 diff changeset	13675	sizeInBytes
c57956a348bf printing support fm parents: 9431 diff changeset	13676
c57956a348bf printing support fm parents: 9431 diff changeset	13677	^20
c57956a348bf printing support fm parents: 9431 diff changeset	13678
c57956a348bf printing support fm parents: 9431 diff changeset	13679	"Created: / 02-08-2006 / 16:21:10 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	13680	! !
c57956a348bf printing support fm parents: 9431 diff changeset	13681
c57956a348bf printing support fm parents: 9431 diff changeset	13682	!Win32OperatingSystem::DocInfoStructure methodsFor:'accessing'!
c57956a348bf printing support fm parents: 9431 diff changeset	13683
c57956a348bf printing support fm parents: 9431 diff changeset	13684	cbSize
c57956a348bf printing support fm parents: 9431 diff changeset	13685
c57956a348bf printing support fm parents: 9431 diff changeset	13686	^self longAt: 0+1
c57956a348bf printing support fm parents: 9431 diff changeset	13687
c57956a348bf printing support fm parents: 9431 diff changeset	13688	"Created: / 28-07-2006 / 18:36:02 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	13689	!
c57956a348bf printing support fm parents: 9431 diff changeset	13690
c57956a348bf printing support fm parents: 9431 diff changeset	13691	cbSize: aValue
c57956a348bf printing support fm parents: 9431 diff changeset	13692
c57956a348bf printing support fm parents: 9431 diff changeset	13693	self longAt: 0+1 put: aValue
c57956a348bf printing support fm parents: 9431 diff changeset	13694
c57956a348bf printing support fm parents: 9431 diff changeset	13695	"Created: / 28-07-2006 / 18:37:25 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	13696	!
c57956a348bf printing support fm parents: 9431 diff changeset	13697
c57956a348bf printing support fm parents: 9431 diff changeset	13698	fwType
c57956a348bf printing support fm parents: 9431 diff changeset	13699
c57956a348bf printing support fm parents: 9431 diff changeset	13700	^self longAt: 16+1
c57956a348bf printing support fm parents: 9431 diff changeset	13701
c57956a348bf printing support fm parents: 9431 diff changeset	13702	"Created: / 28-07-2006 / 18:37:44 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	13703	!
c57956a348bf printing support fm parents: 9431 diff changeset	13704
c57956a348bf printing support fm parents: 9431 diff changeset	13705	fwType: aValue
c57956a348bf printing support fm parents: 9431 diff changeset	13706	"Set a DWORD fwType"
c57956a348bf printing support fm parents: 9431 diff changeset	13707
c57956a348bf printing support fm parents: 9431 diff changeset	13708	self longAt: 16+1 put:aValue
c57956a348bf printing support fm parents: 9431 diff changeset	13709
c57956a348bf printing support fm parents: 9431 diff changeset	13710	"Created: / 28-07-2006 / 18:38:17 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	13711	!
c57956a348bf printing support fm parents: 9431 diff changeset	13712
c57956a348bf printing support fm parents: 9431 diff changeset	13713	lpszDocName
c57956a348bf printing support fm parents: 9431 diff changeset	13714
c57956a348bf printing support fm parents: 9431 diff changeset	13715	^(ExternalBytes address:(self unsignedLongAt: 4+1)) stringAt:1
c57956a348bf printing support fm parents: 9431 diff changeset	13716
c57956a348bf printing support fm parents: 9431 diff changeset	13717	"Created: / 03-08-2006 / 15:06:56 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	13718	!
c57956a348bf printing support fm parents: 9431 diff changeset	13719
c57956a348bf printing support fm parents: 9431 diff changeset	13720	lpszDocName: aValue
c57956a348bf printing support fm parents: 9431 diff changeset	13721
c57956a348bf printing support fm parents: 9431 diff changeset	13722	^self unsignedLongAt: 4+1 put: aValue
c57956a348bf printing support fm parents: 9431 diff changeset	13723
c57956a348bf printing support fm parents: 9431 diff changeset	13724	"Created: / 03-08-2006 / 15:08:32 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	13725	!
c57956a348bf printing support fm parents: 9431 diff changeset	13726
c57956a348bf printing support fm parents: 9431 diff changeset	13727	lpszOutput
c57956a348bf printing support fm parents: 9431 diff changeset	13728
c57956a348bf printing support fm parents: 9431 diff changeset	13729	^(ExternalBytes address:(self unsignedLongAt: 8+1)) stringAt:1
c57956a348bf printing support fm parents: 9431 diff changeset	13730
c57956a348bf printing support fm parents: 9431 diff changeset	13731	"Created: / 03-08-2006 / 15:07:52 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	13732	!
c57956a348bf printing support fm parents: 9431 diff changeset	13733
c57956a348bf printing support fm parents: 9431 diff changeset	13734	lpszOutput: aValue
c57956a348bf printing support fm parents: 9431 diff changeset	13735
c57956a348bf printing support fm parents: 9431 diff changeset	13736	^self unsignedLongAt: 8+1 put: aValue
c57956a348bf printing support fm parents: 9431 diff changeset	13737
c57956a348bf printing support fm parents: 9431 diff changeset	13738	"Created: / 03-08-2006 / 15:08:49 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	13739	! !
c57956a348bf printing support fm parents: 9431 diff changeset	13740
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13741	!Win32OperatingSystem::FileStatusInfo class methodsFor:'instance creation'!
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13742
11258 5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	13743	type:t mode:m uid:u gid:g size:s id:i accessed:aT modified:mT created:cT sourcePath:lP fullName:fullName alternativeName:name2
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13744	^ self basicNew
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13745	type:t mode:m uid:u gid:g size:s
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13746	id:i accessed:aT modified:mT created:cT
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13747	sourcePath:lP
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13748	fullName:fullName
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13749	alternativeName:name2
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13750	! !
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13751
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13752	!Win32OperatingSystem::FileStatusInfo methodsFor:'accessing'!
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13753
6372 9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13754	accessTime
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13755	"return accessed"
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13756
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13757	^ accessed
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13758
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13759	"Created: / 1.2.2002 / 11:05:49 / cg"
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13760	!
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13761
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13762	alternativeName
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13763	"return the files other name (DOS name on windows).
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13764	Nil if there is no other name"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13765
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13766	\|path idx\|
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13767
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13768	path := self alternativePathName.
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13769	path notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13770	idx := path lastIndexOf:$\ startingAt:path size-1.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13771	idx ~~ 0 ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13772	path := path copyFrom:(idx+1).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13773	].
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13774	].
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13775
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13776	^ path
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13777
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13778	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13779	'C:\' asFilename info alternativeName
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13780	'C:\Dokumente und Einstellungen\' asFilename info alternativeName
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13781	'C:\Dokumente und Einstellungen' asFilename info alternativeName
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13782	"
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13783	!
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13784
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13785	alternativePathName
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13786	"return the files real name (non-DOS name on windows).
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13787	Nil if there is no other name"
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13788
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13789	"/ access lazily...
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13790	alternativePathName isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13791	alternativePathName := (OperatingSystem getShortPathName:sourcePath) asSingleByteString.
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13792	].
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13793
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13794	^ alternativePathName
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13795
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13796	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13797	'C:\' asFilename info alternativePathName
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13798	'C:\Dokumente und Einstellungen' asFilename info alternativePathName
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13799	"
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13800	!
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13801
6791 ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13802	creationTime
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13803	^ created
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13804	!
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13805
6372 9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13806	fileSize
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13807	"return size"
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13808
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13809	^ size
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13810
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13811	"Created: / 1.2.2002 / 11:06:15 / cg"
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13812	!
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13813
7062 44e3fe28aea0 * empty log message * penk parents: 6799 diff changeset	13814	fullName
44e3fe28aea0 * empty log message * penk parents: 6799 diff changeset	13815	"return the files real name (non-DOS name on windows).
44e3fe28aea0 * empty log message * penk parents: 6799 diff changeset	13816	Nil if there is no other name"
44e3fe28aea0 * empty log message * penk parents: 6799 diff changeset	13817
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13818	\|path idx\|
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13819
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13820	path := self fullPathName.
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13821	path notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13822	idx := path lastIndexOf:$\ startingAt:path size-1.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13823	idx ~~ 0 ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13824	path := path copyFrom:(idx+1).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13825	].
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13826	].
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13827
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13828	^ path
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13829
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13830	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13831	'\' asFilename info fullName
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13832	'C:\' asFilename info fullName
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13833	'C:\Dokumente und Einstellungen' asFilename info fullName
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13834	"
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13835	!
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13836
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13837	fullPathName
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13838	"return the files real name (non-DOS name on windows).
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13839	Nil if there is no other name"
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13840
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13841	"/ access lazily...
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13842	fullPathName isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13843	fullPathName := OperatingSystem getLongPathName:sourcePath.
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13844	].
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13845
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13846	^ fullPathName
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13847
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13848	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13849	'C:\' asFilename info fullPathName
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13850	'C:\Dokumente und Einstellungen' asFilename info fullPathName
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13851	"
7062 44e3fe28aea0 * empty log message * penk parents: 6799 diff changeset	13852	!
44e3fe28aea0 * empty log message * penk parents: 6799 diff changeset	13853
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13854	gid
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13855	"return gid"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13856
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13857	^ gid
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13858	!
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13859
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13860	id
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13861	"return id"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13862
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13863	^ id
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13864	!
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13865
11258 5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	13866	linkTargetPath
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	13867	"for symbolic links only: return the path where the symbolic link points to"
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	13868
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	13869	"/ access lazily...
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	13870	linkTargetPath isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13871	type == #symbolicLink ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13872	linkTargetPath := OperatingSystem getLinkTarget:sourcePath.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	13873	]
11258 5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	13874	].
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	13875
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	13876	^ linkTargetPath
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	13877
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	13878	"Modified: / 07-02-2007 / 10:31:56 / cg"
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	13879	!
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	13880
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13881	mode
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13882	"return mode"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13883
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13884	^ mode
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13885	!
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13886
6372 9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13887	modificationTime
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13888	"return modified"
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13889
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13890	^ modified
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13891
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13892	"Created: / 1.2.2002 / 11:06:33 / cg"
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13893	!
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13894
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13895	numLinks
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13896	"DOS has no hardLinks - return 1"
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13897
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13898	^ 1
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13899
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13900	"Created: / 1.2.2002 / 11:07:04 / cg"
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13901	!
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13902
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13903	path
11258 5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	13904	"for symbolic links only: return the path where the symbolic link points to.
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	13905	bad named method - left here for backward compatibility"
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	13906
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	13907	^ self linkTargetPath.
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13908	!
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13909
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13910	size
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13911	"return size"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13912
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13913	^ size
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13914	!
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13915
17286 a7170033e17f directory access ca parents: 17169 diff changeset	13916	sourcePath
a7170033e17f directory access ca parents: 17169 diff changeset	13917	^ sourcePath
a7170033e17f directory access ca parents: 17169 diff changeset	13918	!
a7170033e17f directory access ca parents: 17169 diff changeset	13919
6372 9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13920	statusChangeTime
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13921	"return statusChanged"
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13922
6791 ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13923	^ statusChanged ? modified
6372 9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13924
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13925	"Created: / 1.2.2002 / 11:07:27 / cg"
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13926	!
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13927
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13928	type
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13929	"return type"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13930
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13931	^ type
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13932	!
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13933
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13934	uid
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13935	"return uid"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13936
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13937	^ uid
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13938	! !
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13939
10585 ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13940	!Win32OperatingSystem::FileStatusInfo methodsFor:'accessing-vms'!
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13941
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13942	fixedHeaderSize
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13943	"return the fixedHeaderSize (VMS only; nil everywhere else)"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13944
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13945	^ nil
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13946	!
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13947
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13948	recordAttributes
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13949	"return the recordAttributes (VMS only; nil everywhere else)"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13950
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13951	^ nil
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13952	!
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13953
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13954	recordFormat
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13955	"return the recordFormat (VMS only; nil everywhere else)"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13956
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13957	^ nil
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13958	!
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13959
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13960	recordFormatNumeric
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13961	"return the recordFormat as numeric (VMS only; nil everywhere else)"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13962
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13963	^ nil
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13964	!
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13965
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13966	recordSize
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13967	"return the recordSize (VMS only; nil everywhere else)"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13968
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13969	^ nil
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13970	! !
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13971
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13972	!Win32OperatingSystem::FileStatusInfo methodsFor:'backward compatibility'!
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13973
6791 ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13974	accessed
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13975	"return accessed"
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13976
8476 4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13977	<resource: #obsolete>
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13978
6791 ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13979	self obsoleteMethodWarning:'use #accessTime'.
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13980	^ accessed
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13981	!
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13982
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13983	at:key
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13984	"backward compatibility access: in previous releases, IdentityDictionaries
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13985	were used to hold my information. Allow access via key messages.
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13986	This method will vanish - use the proper access protocol."
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13987
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13988	^ self perform:key
6791 ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13989	!
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13990
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13991	modified
8476 4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13992	<resource: #obsolete>
9061 20af48b9b295 * empty log message * Claus Gittinger <cg@exept.de> parents: 9026 diff changeset	13993
6791 ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13994	self obsoleteMethodWarning:'use #modificationTime'.
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13995	^ modified
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13996	!
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13997
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13998	statusChanged
8476 4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13999	<resource: #obsolete>
9061 20af48b9b295 * empty log message * Claus Gittinger <cg@exept.de> parents: 9026 diff changeset	14000
6791 ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	14001	self obsoleteMethodWarning:'use #statusChangeTime'.
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	14002	^ statusChanged
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14003	! !
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14004
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14005	!Win32OperatingSystem::FileStatusInfo methodsFor:'private accessing'!
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14006
11258 5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	14007	type:t mode:m uid:u gid:g size:s id:i accessed:aT modified:mT created:cT sourcePath:lP fullName:name1 alternativeName:name2
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14008	type := t.
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14009	mode := m.
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14010	uid := u.
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14011	gid := g.
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14012	size := s.
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14013	id := i.
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14014	accessed := aT.
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14015	modified := mT.
6791 ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	14016	created := cT.
11258 5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	14017	sourcePath := lP.
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	14018	fullPathName := name1.
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	14019	alternativePathName := name2.
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14020	! !
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14021
10585 ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14022	!Win32OperatingSystem::FileStatusInfo methodsFor:'queries-access'!
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14023
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14024	isGroupExecutable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14025	^ mode bitTest:8r10
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14026
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14027	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14028	'smalltalk.rc' asFilename info isGroupExecutable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14029	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14030	!
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14031
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14032	isGroupReadable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14033	^ mode bitTest:8r40
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14034
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14035	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14036	'smalltalk.rc' asFilename info isGroupReadable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14037	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14038	!
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14039
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14040	isGroupWritable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14041	^ mode bitTest:8r20
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14042
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14043	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14044	'smalltalk.rc' asFilename info isGroupWritable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14045	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14046	!
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14047
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14048	isOwnerExecutable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14049	^ mode bitTest:8r100
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14050
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14051	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14052	'smalltalk.rc' asFilename info isOwnerExecutable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14053	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14054	!
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14055
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14056	isOwnerReadable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14057	^ mode bitTest:8r400
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14058
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14059	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14060	'smalltalk.rc' asFilename info isOwnerReadable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14061	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14062	!
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14063
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14064	isOwnerWritable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14065	^ mode bitTest:8r200
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14066
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14067	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14068	'smalltalk.rc' asFilename info isOwnerWritable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14069	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14070	!
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14071
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14072	isWorldExecutable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14073	^ mode bitTest:8r1
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14074
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14075	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14076	'smalltalk.rc' asFilename info isWorldExecutable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14077	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14078	!
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14079
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14080	isWorldReadable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14081	^ mode bitTest:8r4
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14082
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14083	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14084	'smalltalk.rc' asFilename info isWorldReadable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14085	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14086	!
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14087
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14088	isWorldWritable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14089	^ mode bitTest:8r2
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14090
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14091	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14092	'smalltalk.rc' asFilename info isWorldWritable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14093	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14094	! !
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14095
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	14096	!Win32OperatingSystem::FileStatusInfo methodsFor:'queries-type'!
6799 568d31641c88 * empty log message * Claus Gittinger <cg@exept.de> parents: 6791 diff changeset	14097
8476 4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	14098	isBlockSpecial
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	14099	^ type == #characterSpecial
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	14100	!
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	14101
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	14102	isCharacterSpecial
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	14103	^ type == #characterSpecial
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	14104	!
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	14105
6799 568d31641c88 * empty log message * Claus Gittinger <cg@exept.de> parents: 6791 diff changeset	14106	isDirectory
568d31641c88 * empty log message * Claus Gittinger <cg@exept.de> parents: 6791 diff changeset	14107	^ type == #directory
568d31641c88 * empty log message * Claus Gittinger <cg@exept.de> parents: 6791 diff changeset	14108	!
568d31641c88 * empty log message * Claus Gittinger <cg@exept.de> parents: 6791 diff changeset	14109
8476 4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	14110	isFifo
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	14111	^ type == #fifo
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	14112	!
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	14113
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	14114	isRegular
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	14115	^ type == #regular
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	14116	!
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	14117
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	14118	isSocket
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	14119	^ type == #socket
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	14120	!
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	14121
15252 621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	14122	isSpecialFile
621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	14123	^ (type ~~ #directory
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14124	and:[type ~~ #remoteDirectory
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14125	and:[type ~~ #regular
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14126	and:[type ~~ #symbolicLink
15252 621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	14127	]]])
621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	14128	!
621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	14129
6799 568d31641c88 * empty log message * Claus Gittinger <cg@exept.de> parents: 6791 diff changeset	14130	isSymbolicLink
568d31641c88 * empty log message * Claus Gittinger <cg@exept.de> parents: 6791 diff changeset	14131	^ type == #symbolicLink
8476 4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	14132	!
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	14133
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	14134	isUnknown
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	14135	^ type == #unknown
17286 a7170033e17f directory access ca parents: 17169 diff changeset	14136	!
a7170033e17f directory access ca parents: 17169 diff changeset	14137
a7170033e17f directory access ca parents: 17169 diff changeset	14138	isValid
a7170033e17f directory access ca parents: 17169 diff changeset	14139	"answer true if the fileInfo is valid"
a7170033e17f directory access ca parents: 17169 diff changeset	14140	^ type notNil
6799 568d31641c88 * empty log message * Claus Gittinger <cg@exept.de> parents: 6791 diff changeset	14141	! !
568d31641c88 * empty log message * Claus Gittinger <cg@exept.de> parents: 6791 diff changeset	14142
21180 88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	14143	!Win32OperatingSystem::OSProcessDescriptor methodsFor:'accessing'!
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	14144
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	14145	commandLine
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	14146	^ commandLine
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	14147	!
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	14148
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	14149	commandLine:something
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	14150	commandLine := something.
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	14151	!
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	14152
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	14153	parentPid
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	14154	^ parentPid
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	14155	!
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	14156
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	14157	parentPid:something
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	14158	parentPid := something.
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	14159	!
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	14160
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	14161	pid
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	14162	^ pid
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	14163	!
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	14164
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	14165	pid:something
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	14166	pid := something.
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	14167	! !
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	14168
9155 8b2ca287c1bb * empty log message * Claus Gittinger <cg@exept.de> parents: 9154 diff changeset	14169	!Win32OperatingSystem::OSProcessStatus class methodsFor:'documentation'!
8b2ca287c1bb * empty log message * Claus Gittinger <cg@exept.de> parents: 9154 diff changeset	14170
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14171	documentation
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14172	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14173	This is an auxillary class, that holds information about status changes of
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14174	operating system processes (these are no smalltalk processes!!).
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14175
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14176	[Instance variables:]
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14177
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14178	pid <Integer> OS-Process identifier
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14179
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14180	status <Symbol> either #exit #signal #stop #continue
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14181
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14182	code <Integer> either exitcode or signalnumber
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14183
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14184	core <Boolean> true if core has been dumped
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14185
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14186
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14187	[author:]
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14188	Stefan Vogel
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14189
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14190	[see also:]
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14191	OperatingSystem
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14192	"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14193	! !
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14194
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14195	!Win32OperatingSystem::OSProcessStatus class methodsFor:'instance creation'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14196
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14197	pid:pid status:status code:code core:core
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14198	"private interface for Win32OperatingSystem"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14199
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14200	^ self new pid:pid status:status code:code core:core
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14201
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14202	"Created: 28.12.1995 / 14:16:14 / stefan"
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14203	"Modified: 30.4.1996 / 18:25:00 / cg"
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14204	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14205
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14206	processCreationFailure
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14207	"private interface for Win32OperatingSystem"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14208
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14209	^ self new pid:-1 status:#failure code:-1 core:false
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14210
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14211	"Created: 28.12.1995 / 14:35:29 / stefan"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14212	"Modified: 30.4.1996 / 18:25:05 / cg"
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14213	! !
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14214
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14215	!Win32OperatingSystem::OSProcessStatus methodsFor:'accessing'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14216
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14217	code
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14218	"return the exitcode / signalNumber"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14219
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14220	^ code
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14221
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14222	"Created: 28.12.1995 / 14:05:07 / stefan"
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14223	"Modified: 30.4.1996 / 18:26:23 / cg"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14224	!
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14225
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14226	core
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14227	"return true if core has been dumped, false otherwise"
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14228
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14229	^ core == true
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14230
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14231	"Modified: 28.12.1995 / 14:14:38 / stefan"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14232	!
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14233
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14234	pid
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14235	"return the pid"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14236
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14237	^ pid
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14238
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14239	"Created: 28.12.1995 / 14:05:07 / stefan"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14240	"Modified: 30.4.1996 / 18:26:30 / cg"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14241	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14242
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14243	status
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14244	"return status as a Symbol;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14245	one of #exit #signal #stop #continue"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14246
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14247	^ status
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14248
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14249	"Created: 28.12.1995 / 14:05:07 / stefan"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14250	"Modified: 30.4.1996 / 18:26:54 / cg"
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14251	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14252
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14253	!Win32OperatingSystem::OSProcessStatus methodsFor:'initialization'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14254
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14255	pid:newPid status:newStatus code:newCode core:newCore
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14256	pid := newPid.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14257	status := newStatus.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14258	code := newCode.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14259	core := newCore.
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14260
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14261	"Created: 28.12.1995 / 14:18:22 / stefan"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14262	! !
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	14263
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14264	!Win32OperatingSystem::OSProcessStatus methodsFor:'private-OS interface'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14265
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14266	code:something
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14267	"set the exitCode"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14268
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14269	code := something.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14270
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14271	"Created: 28.12.1995 / 14:05:07 / stefan"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14272	"Modified: 30.4.1996 / 18:25:18 / cg"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14273	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14274
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14275	core:something
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14276	"set core"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14277
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14278	core := something.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14279
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14280	"Created: 28.12.1995 / 14:05:07 / stefan"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14281	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14282
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14283	pid:something
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14284	"set pid"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14285
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14286	pid := something.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14287
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14288	"Created: 28.12.1995 / 14:05:07 / stefan"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14289	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14290
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14291	status:something
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14292	"set status"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14293
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14294	status := something.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14295
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14296	"Created: 28.12.1995 / 14:05:07 / stefan"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14297	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14298
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14299	!Win32OperatingSystem::OSProcessStatus methodsFor:'queries'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14300
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14301	couldNotExecute
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14302	"return true when a command could not be executed"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14303
21186 14212d18f352 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21180 diff changeset	14304	^ status == #failure or:[status == #exit and:[code = 127]].
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14305
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14306	"Created: 28.12.1995 / 15:43:17 / stefan"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14307	"Modified: 30.4.1996 / 18:27:03 / cg"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14308	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14309
16411 d2d30742b686 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16374 diff changeset	14310	isError
d2d30742b686 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16374 diff changeset	14311	"true if process terminated with error"
d2d30742b686 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16374 diff changeset	14312
d2d30742b686 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16374 diff changeset	14313	^ status == #exit and:[code ~= 0]
d2d30742b686 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16374 diff changeset	14314	!
d2d30742b686 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16374 diff changeset	14315
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14316	stillAlive
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14317	"true if process is still alive"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14318
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14319	^ status == #stop or:[status == #continue]
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14320
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14321	"Created: 28.12.1995 / 14:27:26 / stefan"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14322	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14323
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14324	success
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14325	"true if process terminated successfully"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14326
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14327	^ status == #exit and:[code = 0]
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14328
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14329	"Created: 28.12.1995 / 14:13:05 / stefan"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14330	"Modified: 28.12.1995 / 14:13:41 / stefan"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14331	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	14332
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14333	!Win32OperatingSystem::PECOFFConstants class methodsFor:'documentation'!
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14334
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14335	documentation
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14336	"
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14337	COFF machine type IDs.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14338
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14339	[author:]
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14340	Jan Vrany
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14341
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14342	[instance variables:]
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14343
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14344	[class variables:]
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14345
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14346	[see also:]
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14347	Microsoft Portable Executable and Common Object File Format Specification,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14348	section 6. Machine Types
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14349
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14350	"
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14351	! !
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14352
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14353	!Win32OperatingSystem::PECOFFConstants class methodsFor:'initialization'!
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14354
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14355	initialize
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14356	"Invoked at system start or when the class is dynamically loaded."
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14357
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14358	"/ See Microsoft Portable Executable and Common Object File Format Specification,
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14359	"/ section 4
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14360
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14361	PE_Signature_OFFSET_OFFSET := 16r3C.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14362	PE_Signature := #[80 69 0 0].
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14363
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14364	"/ See Microsoft Portable Executable and Common Object File Format Specification,
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14365	"/ section 5
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14366
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14367	COFF_HEADER_SIZE := 20.
18543 fef08f652ef8 * empty log message * Claus Gittinger <cg@exept.de> parents: 18414 diff changeset	14368	COFF_HEADER_Machine_OFFSET := 0.
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14369
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14370	"/ See Microsoft Portable Executable and Common Object File Format Specification,
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14371	"/ section 6
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14372
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14373	IMAGE_FILE_MACHINE_UNKNOWN := 16r0.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14374	IMAGE_FILE_MACHINE_AM33 := 16r1D3.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14375	IMAGE_FILE_MACHINE_AMD64 := 16r8664.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14376	IMAGE_FILE_MACHINE_ARM := 16r1C0.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14377	IMAGE_FILE_MACHINE_ARMNT := 16r1C4.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14378	IMAGE_FILE_MACHINE_ARM64 := 16rAA64.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14379	IMAGE_FILE_MACHINE_EBC := 16rEBC.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14380	IMAGE_FILE_MACHINE_I386 := 16r14C.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14381	IMAGE_FILE_MACHINE_IA64 := 16r200.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14382	IMAGE_FILE_MACHINE_M32R := 16r9041.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14383	IMAGE_FILE_MACHINE_MIPS16 := 16r266.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14384	IMAGE_FILE_MACHINE_MIPSFPU := 16r366.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14385	IMAGE_FILE_MACHINE_MIPSFPU16 := 16r466.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14386	IMAGE_FILE_MACHINE_POWERPC := 16r1F0.
18543 fef08f652ef8 * empty log message * Claus Gittinger <cg@exept.de> parents: 18414 diff changeset	14387	IMAGE_FILE_MACHINE_POWEPCFP := 16r1F1.
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14388	IMAGE_FILE_MACHINE_R4000 := 16r166.
18543 fef08f652ef8 * empty log message * Claus Gittinger <cg@exept.de> parents: 18414 diff changeset	14389	IMAGE_FILE_MACHINE_SH3 := 16r1A2.
fef08f652ef8 * empty log message * Claus Gittinger <cg@exept.de> parents: 18414 diff changeset	14390	IMAGE_FILE_MACHINE_SH3DSP := 16r1A3.
fef08f652ef8 * empty log message * Claus Gittinger <cg@exept.de> parents: 18414 diff changeset	14391	IMAGE_FILE_MACHINE_SH4 := 16r1A6.
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14392	IMAGE_FILE_MACHINE_SH5 := 16r1A8.
18543 fef08f652ef8 * empty log message * Claus Gittinger <cg@exept.de> parents: 18414 diff changeset	14393	IMAGE_FILE_MACHINE_THUMB := 16r1C2.
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14394	IMAGE_FILE_MACHINE_WCEMIPSV2 := 16r169.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14395
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14396	"Modified: / 16-03-2015 / 13:34:57 / jv"
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14397	"Modified: / 16-03-2015 / 18:14:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14398	! !
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14399
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14400	!Win32OperatingSystem::PECOFFFileHeader class methodsFor:'documentation'!
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14401
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14402	documentation
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14403	"
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14404	Inteances of COFFFileHeader provides an access to various
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14405	information about executables / .dlls on Windows
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14406
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14407	[author:]
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14408	Jan Vrany <jan.vrany@fit.cvut.cz>
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14409
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14410	[instance variables:]
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14411
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14412	[class variables:]
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14413
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14414	[see also:]
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14415	Microsoft Portable Executable and Common Object File Format Specification
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14416
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14417	"
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14418	! !
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14419
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14420	!Win32OperatingSystem::PECOFFFileHeader class methodsFor:'instance creation'!
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14421
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14422	fromFile: aStringOrFilename
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14423	"Returns a COFFFileHeader of given file.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14424	If the given file is not a regular file or
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14425	of it's not an PE file them an error is thrown."
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14426
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14427	^ self new initializeOnFile: aStringOrFilename
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14428
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14429	"Created: / 16-03-2015 / 14:33:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14430	! !
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14431
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14432	!Win32OperatingSystem::PECOFFFileHeader methodsFor:'accessing'!
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14433
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14434	machine
19367 b7eef79ceeb8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19346 diff changeset	14435	^ data unsignedInt16At: COFF_HEADER_Machine_OFFSET + 1 MSB: false
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14436
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14437	"Created: / 16-03-2015 / 14:29:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14438	! !
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14439
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14440	!Win32OperatingSystem::PECOFFFileHeader methodsFor:'initialization'!
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14441
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14442	initializeOnFile: aStringOrFilename
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14443	file := aStringOrFilename asFilename.
18543 fef08f652ef8 * empty log message * Claus Gittinger <cg@exept.de> parents: 18414 diff changeset	14444	file exists ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14445	self error:'Given file does not exist'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14446	^ nil
18543 fef08f652ef8 * empty log message * Claus Gittinger <cg@exept.de> parents: 18414 diff changeset	14447	].
fef08f652ef8 * empty log message * Claus Gittinger <cg@exept.de> parents: 18414 diff changeset	14448	file isRegularFile ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14449	self error:'Given file is not a regular file'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14450	^ nil
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14451	].
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14452	file readingFileDo:[ :s \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14453	\| sig \|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14454	s binary.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14455	s position: PE_Signature_OFFSET_OFFSET.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14456	s position: (s nextUnsignedLongMSB: false).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14457	sig := s next: PE_Signature size.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14458	sig = PE_Signature ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14459	self error: 'Given file is not a valid PE file (no valid PE signature found)'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14460	^ nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14461	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14462	data := s next: COFF_HEADER_SIZE
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14463	].
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14464
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14465	"Created: / 16-03-2015 / 14:34:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14466	! !
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14467
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14468	!Win32OperatingSystem::PECOFFFileHeader methodsFor:'queries'!
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14469
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14470	isFor32BitArchitecture
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14471	^ { IMAGE_FILE_MACHINE_I386 . IMAGE_FILE_MACHINE_ARM . IMAGE_FILE_MACHINE_ARMNT } includes: self machine
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14472
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14473	"Created: / 18-03-2015 / 09:54:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14474	!
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14475
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14476	isFor64BitArchitecture
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14477	^ { IMAGE_FILE_MACHINE_AMD64 . IMAGE_FILE_MACHINE_IA64 . IMAGE_FILE_MACHINE_ARM64 } includes: self machine
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14478
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14479	"Created: / 18-03-2015 / 09:57:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14480	! !
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	14481
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14482	!Win32OperatingSystem::PerformanceData class methodsFor:'accessing'!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14483
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14484	counterIndexTextDictionary
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14485
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14486	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14487	self counterIndexTextDictionary
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14488	"
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14489
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14490	CounterIndexTextDictionary isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14491	self synchronized:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14492	CounterIndexTextDictionary isNil ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14493	\|performanceText counterIndexTextDictionary\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14494
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14495	performanceText := self getPerformanceText valueNamed:'Counter'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14496	counterIndexTextDictionary := IdentityDictionary new.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14497
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14498	1 to:performanceText size by:2 do:[:index\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14499	counterIndexTextDictionary at:(performanceText at:index) asInteger put:(performanceText at:index + 1).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14500	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14501
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14502	CounterIndexTextDictionary := counterIndexTextDictionary.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14503	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14504	].
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14505	].
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14506
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14507	^ CounterIndexTextDictionary
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14508	!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14509
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14510	helpIndexTextDictionary
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14511
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14512	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14513	self helpIndexTextDictionary
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14514	"
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14515
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14516	HelpIndexTextDictionary isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14517	self synchronized:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14518	HelpIndexTextDictionary isNil ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14519	\|performanceText helpIndexTextDictionary\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14520
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14521	performanceText := self getPerformanceText valueNamed:'Help'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14522	helpIndexTextDictionary := IdentityDictionary new.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14523
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14524	1 to:performanceText size by:2 do:[:index\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14525	helpIndexTextDictionary at:(performanceText at:index) asInteger put:(performanceText at:index + 1).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14526	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14527
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14528	HelpIndexTextDictionary := helpIndexTextDictionary.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14529	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14530	].
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14531	].
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14532
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14533	^ HelpIndexTextDictionary
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14534	! !
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14535
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14536	!Win32OperatingSystem::PerformanceData class methodsFor:'accessing subclasses'!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14537
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14538	diskIO
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14539	^ DiskIO current
10688 1e8dc6018c76 * empty log message * sr parents: 10687 diff changeset	14540	!
1e8dc6018c76 * empty log message * sr parents: 10687 diff changeset	14541
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14542	global
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14543	^ Global current
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14544	!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14545
10707 3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14546	memory
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14547	^ Memory current
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14548	!
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14549
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14550	network
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14551	^ Network current
10710 1055a716e253 * empty log message * sr parents: 10709 diff changeset	14552	!
1055a716e253 * empty log message * sr parents: 10709 diff changeset	14553
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	14554	process
9110d864362d * empty log message * sr parents: 10704 diff changeset	14555	^ Process current
9110d864362d * empty log message * sr parents: 10704 diff changeset	14556	!
9110d864362d * empty log message * sr parents: 10704 diff changeset	14557
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14558	processor
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14559	^ Processor current
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14560	! !
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14561
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14562	!Win32OperatingSystem::PerformanceData class methodsFor:'documentation'!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14563
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14564	documentation
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14565
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14566	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14567	VISTA:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14568
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14569	Wer versucht unter Vista die Registy HKEY_PERFORMANCE_DATA abzufragen wird zunächst enttäuscht.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14570	Die UAC UserAccessControl verhindern dies nämlich (selbs für den admin).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14571
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14572	Um dies zu umgehen:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14573
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14574	To turn off UAC
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14575
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14576	1. Click Start, and then click Control Panel.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14577	2. In Control Panel, click User Accounts.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14578	3. In the User Accounts window, click User Accounts.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14579	4. In the User Accounts tasks window, click Turn User Account Control on or off.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14580	5. If UAC is currently configured in Admin Approval Mode, the User Account Control message appears. Click Continue.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14581	6. Clear the Use User Account Control (UAC) to help protect your computer check box, and then click OK.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14582	7. Click Restart Now to apply the change right away, or click Restart Later and close the User Accounts tasks window.
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14583	"
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14584	!
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14585
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14586	examples
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14587
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14588	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14589	######################################### PRIMITIVE
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14590	self getUsedMemoryInPercentage.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14591
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14592	self getPhysicalMemoryInKB.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14593	self getPhysicalMemoryInMB.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14594
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14595	self getFreePhysicalMemoryInKB.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14596	self getFreePhysicalMemoryInMB.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14597
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14598	self getPageFileSizeInKB.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14599	self getPageFileSizeInMB.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14600
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14601	self getFreePageFileSizeInKB.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14602	self getFreePageFileSizeInMB.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14603
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14604	self getVirtualMemoryInKB.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14605	self getVirtualMemoryInMB.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14606
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14607	######################################### REGISTRY
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14608	self helpIndexTextDictionary
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14609	self counterIndexTextDictionary
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14610
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14611	self global getCounterNameIndexArray.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14612	self global getObjectNameIndexArray.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14613
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14614	self processor getCounterNameIndexArray.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14615	self processor processorUsage.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14616	self processor processorUsageFromLast.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14617	self processor interruptsPerSecond.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14618	self processor interruptsPerSecondFromLast.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14619
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14620	self process getCounterNameIndexArray.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14621	self process processUsage.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14622	self process processUsageFromLast.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14623	self process runningProcesses.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14624	self process runningProcessNameList.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14625
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14626	self network getCounterNameIndexArray.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14627	self network kBytesReceivedPerSecond.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14628	self network kBytesReceivedPerSecondFromLast.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14629	self network kBytesSentPerSecond.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14630	self network kBytesSentPerSecondFromLast.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14631
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14632	self memory getCounterNameIndexArray.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14633	self memory availableMBytes.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14634	self memory availableKBytes.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14635
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14636	self diskIO getCounterNameIndexArray.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14637	self diskIO diskSpaceFreeInMegaByte.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14638	self diskIO diskQueueLength.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14639	self diskIO diskTransfersPerSecond.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14640	self diskIO diskTransfersPerSecondFromlast.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14641	self diskIO diskReadsPerSecond.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14642	self diskIO diskReadsPerSecondFromLast.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14643	self diskIO diskWritesPerSecond.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14644	self diskIO diskWritesPerSecondFromLast.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14645	self diskIO diskBytesPerSecond.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14646	self diskIO diskBytesPerSecondFromLast.
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14647	"
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14648	! !
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14649
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14650	!Win32OperatingSystem::PerformanceData class methodsFor:'initialization'!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14651
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14652	initialize
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14653
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14654	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14655	self initialize
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14656	"
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14657
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14658	PerformanceText := CounterIndexTextDictionary := HelpIndexTextDictionary := nil.
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14659	! !
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14660
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14661	!Win32OperatingSystem::PerformanceData class methodsFor:'private'!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14662
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14663	getPerformanceText
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14664
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14665	PerformanceText isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14666	PerformanceText := Win32OperatingSystem registryEntry key:'HKEY_PERFORMANCE_TEXT'.
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14667	].
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14668
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14669	^ PerformanceText
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14670	! !
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14671
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14672	!Win32OperatingSystem::PerformanceData class methodsFor:'queries - memory'!
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14673
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14674	getFreePageFileSizeInKB
10771 f336281a488e * empty log message * sr parents: 10758 diff changeset	14675	\|ret\|
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14676
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14677	%{
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14678	MEMORYSTATUS mState;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14679	GlobalMemoryStatus (&mState);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14680
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14681	ret = __mkSmallInteger(mState.dwAvailPageFile / 1024);
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14682	%}.
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14683
10771 f336281a488e * empty log message * sr parents: 10758 diff changeset	14684	^ ret
f336281a488e * empty log message * sr parents: 10758 diff changeset	14685
f336281a488e * empty log message * sr parents: 10758 diff changeset	14686	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14687	self getFreePageFileSizeInKB
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14688	"
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14689	!
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14690
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14691	getFreePageFileSizeInMB
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14692	^ (self getFreePageFileSizeInKB / 1024) asInteger
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14693
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14694	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14695	self getFreePageFileSizeInMB
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14696	"
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14697	!
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14698
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14699	getFreePhysicalMemoryInKB
10771 f336281a488e * empty log message * sr parents: 10758 diff changeset	14700	\|ret\|
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14701
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14702	%{
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14703	MEMORYSTATUS mState;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14704	GlobalMemoryStatus (&mState);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14705
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14706	ret = __mkSmallInteger(mState.dwAvailPhys / 1024);
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14707	%}.
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14708
10771 f336281a488e * empty log message * sr parents: 10758 diff changeset	14709	^ ret
11215 b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	14710
b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	14711	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14712	self getFreePhysicalMemoryInKB
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14713	"
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14714	!
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14715
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14716	getFreePhysicalMemoryInMB
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14717	^ (self getFreePhysicalMemoryInKB / 1024) asInteger
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14718
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14719	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14720	self getFreePhysicalMemoryInMB
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14721	"
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14722	!
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14723
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14724	getPageFileSizeInKB
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14725	^ self getPageFileSizeInMB * 1024
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14726
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14727	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14728	self getPageFileSizeInKB
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14729	"
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14730	!
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14731
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14732	getPageFileSizeInMB
10771 f336281a488e * empty log message * sr parents: 10758 diff changeset	14733	\|ret\|
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14734
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14735	%{
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14736	SYSTEM_INFO sInfo;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14737	GetSystemInfo(&sInfo);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14738
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14739	ret = __mkSmallInteger(sInfo.dwPageSize);
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14740	%}.
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14741
10771 f336281a488e * empty log message * sr parents: 10758 diff changeset	14742	^ ret
f336281a488e * empty log message * sr parents: 10758 diff changeset	14743
f336281a488e * empty log message * sr parents: 10758 diff changeset	14744	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14745	self getPageFileSizeInMB
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14746	"
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14747	!
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14748
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14749	getPhysicalMemoryInKB
10771 f336281a488e * empty log message * sr parents: 10758 diff changeset	14750	\|ret\|
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14751
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14752	%{
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14753	MEMORYSTATUS mState;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14754	GlobalMemoryStatus (&mState);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14755
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14756	ret = __mkSmallInteger(mState.dwTotalPhys / 1024);
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14757	%}.
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14758
10771 f336281a488e * empty log message * sr parents: 10758 diff changeset	14759	^ ret
f336281a488e * empty log message * sr parents: 10758 diff changeset	14760
f336281a488e * empty log message * sr parents: 10758 diff changeset	14761	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14762	self getPhysicalMemoryInKB
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14763	"
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14764	!
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14765
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14766	getPhysicalMemoryInMB
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14767	^ (self getPhysicalMemoryInKB / 1024) asInteger
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14768
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14769	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14770	self getPhysicalMemoryInMB
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14771	"
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14772	!
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14773
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14774	getUsedMemoryInPercentage
10771 f336281a488e * empty log message * sr parents: 10758 diff changeset	14775	\|ret\|
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14776
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14777	%{
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14778	MEMORYSTATUS mState;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14779	GlobalMemoryStatus (&mState);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14780
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14781	ret = __mkSmallInteger(mState.dwMemoryLoad);
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14782	%}.
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14783
10771 f336281a488e * empty log message * sr parents: 10758 diff changeset	14784	^ ret
f336281a488e * empty log message * sr parents: 10758 diff changeset	14785
f336281a488e * empty log message * sr parents: 10758 diff changeset	14786	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14787	self getUsedMemoryInPercentage
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14788	"
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14789	!
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14790
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14791	getVirtualMemoryInKB
10771 f336281a488e * empty log message * sr parents: 10758 diff changeset	14792	\|ret\|
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14793
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14794	%{
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14795	MEMORYSTATUS mState;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14796	GlobalMemoryStatus (&mState);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14797
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14798	ret = __mkSmallInteger(mState.dwTotalVirtual / 1024);
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14799	%}.
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14800
10771 f336281a488e * empty log message * sr parents: 10758 diff changeset	14801	^ ret
f336281a488e * empty log message * sr parents: 10758 diff changeset	14802
f336281a488e * empty log message * sr parents: 10758 diff changeset	14803	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14804	self getVirtualMemoryInKB
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14805	"
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14806	!
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14807
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14808	getVirtualMemoryInMB
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14809	^ (self getVirtualMemoryInKB / 1024) asInteger
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14810
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14811	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14812	self getVirtualMemoryInMB
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14813	"
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14814	! !
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	14815
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	14816	!Win32OperatingSystem::PerformanceData methodsFor:'accessing'!
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	14817
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14818	objectArray
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14819	^ objectArray
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	14820	!
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	14821
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	14822	perfFreq
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	14823	^ perfFreq
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	14824	!
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	14825
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	14826	perfTime
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	14827	^ perfTime
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	14828	!
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	14829
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	14830	perfTime100nSec
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	14831	^ perfTime100nSec
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	14832	! !
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	14833
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	14834	!Win32OperatingSystem::PerformanceData methodsFor:'setup'!
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	14835
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14836	fromRawBytes:st_data
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14837	\|
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14838	getNameBlock getCounterValueBlock
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14839	st_perfTime st_perfFreq st_perfTime100nSec
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14840	st_objectArray st_counterArray st_instanceArray
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14841	st_perObject st_perCounter st_perInstance
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14842	\|
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14843
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14844	%{
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14845	//declarate counters
10741 68517f1a68a7 * empty log message * sr parents: 10735 diff changeset	14846	int objectIterator, counterIterator, instanceIterator, numObjectTypes;
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14847
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14848	//declarate pointers
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	14849	PERF_DATA_BLOCK *perfData;
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	14850	PERF_OBJECT_TYPE *perfObjectPtr;
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	14851	PERF_COUNTER_DEFINITION *perfCounterPtr;
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	14852	PERF_INSTANCE_DEFINITION *perfInstancePtr;
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	14853	PERF_COUNTER_BLOCK *perfCounterBlockPtr;
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	14854
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14855	#define PERF_SIZE_MASK (PERF_SIZE_DWORD\|PERF_SIZE_LARGE\|PERF_SIZE_ZERO\|PERF_SIZE_VARIABLE_LEN)
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14856	#define PERF_TYPE_MASK (PERF_TYPE_NUMBER\|PERF_TYPE_COUNTER\|PERF_TYPE_TEXT\|PERF_TYPE_ZERO)
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14857	#define PERF_NUMBERTYPE_MASK (PERF_NUMBER_HEX\|PERF_NUMBER_DECIMAL\|PERF_NUMBER_DEC_1000)
14756 d81b09ba6b83 compilability Claus Gittinger <cg@exept.de> parents: 14746 diff changeset	14858	#ifdef PERF_COUNTER_PRECISION
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14859	#define PERF_COUNTERTYPE_MASK (PERF_COUNTER_VALUE\|PERF_COUNTER_RATE\|PERF_COUNTER_FRACTION\|PERF_COUNTER_BASE\|PERF_COUNTER_ELAPSED\|PERF_COUNTER_QUEUELEN\|PERF_COUNTER_HISTOGRAM\|PERF_COUNTER_PRECISION)
14756 d81b09ba6b83 compilability Claus Gittinger <cg@exept.de> parents: 14746 diff changeset	14860	#else
d81b09ba6b83 compilability Claus Gittinger <cg@exept.de> parents: 14746 diff changeset	14861	#define PERF_COUNTERTYPE_MASK (PERF_COUNTER_VALUE\|PERF_COUNTER_RATE\|PERF_COUNTER_FRACTION\|PERF_COUNTER_BASE\|PERF_COUNTER_ELAPSED\|PERF_COUNTER_QUEUELEN\|PERF_COUNTER_HISTOGRAM)
d81b09ba6b83 compilability Claus Gittinger <cg@exept.de> parents: 14746 diff changeset	14862	#endif
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14863	#define PERF_TEXTTYPE_MASK (PERF_TEXT_UNICODE\|PERF_TEXT_ASCII)
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14864
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14865	if (!__isByteArray(st_data)) RETURN (nil);
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14866
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14867	//setup start pointer
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14868	perfData = (PERF_DATA_BLOCK *)(__ByteArrayInstPtr(st_data)->ba_element);
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14869
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14870	//get header data
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14871	st_perfTime = __MKINT64(&(perfData->PerfTime));
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14872	st_perfFreq = __MKINT64(&(perfData->PerfFreq));
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14873	st_perfTime100nSec = __MKINT64(&(perfData->PerfTime100nSec));
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14874
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14875	//setup object array and initialize its pointer
10741 68517f1a68a7 * empty log message * sr parents: 10735 diff changeset	14876	numObjectTypes = perfData->NumObjectTypes;
68517f1a68a7 * empty log message * sr parents: 10735 diff changeset	14877	st_objectArray = __ARRAY_NEW_INT(numObjectTypes);
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	14878	perfObjectPtr = (PERF_OBJECT_TYPE )((char )perfData + perfData->HeaderLength);
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14879
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14880	//iterate all following objetcs
10741 68517f1a68a7 * empty log message * sr parents: 10735 diff changeset	14881	for (objectIterator=0; objectIterator<numObjectTypes; objectIterator++) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14882	//add the st_perObject dictionary to st_objectArray
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14883	st_perObject = __SSEND0(@global(Dictionary), @symbol(new), 0);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14884	__AT_PUT_(st_objectArray, __mkSmallInteger(objectIterator+1), st_perObject);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14885
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14886	//get the object data
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14887	__AT_PUT_(st_perObject, @symbol(ObjectNameTitleIndex), __mkSmallInteger(perfObjectPtr->ObjectNameTitleIndex));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14888	__AT_PUT_(st_perObject, @symbol(DetailLevel), __mkSmallInteger(perfObjectPtr->DetailLevel));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14889	__AT_PUT_(st_perObject, @symbol(NumCounters), __mkSmallInteger(perfObjectPtr->NumCounters));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14890	__AT_PUT_(st_perObject, @symbol(NumInstances), __mkSmallInteger(perfObjectPtr->NumInstances));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14891
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14892	//setup counter array and initialize its pointer
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14893	st_counterArray = __ARRAY_NEW_INT(perfObjectPtr->NumCounters);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14894	perfCounterPtr = (PERF_COUNTER_DEFINITION )((char )perfObjectPtr + perfObjectPtr->HeaderLength);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14895
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14896	//add the st_counterArray to st_perObject dictionary
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14897	__AT_PUT_(st_perObject, @symbol(Counters), st_counterArray);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14898
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14899	//iterate all following counter definition
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14900	for (counterIterator=0; counterIterator<perfObjectPtr->NumCounters; counterIterator++) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14901	//add the st_perCounter dictionary to st_counterArray
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14902	st_perCounter = __SSEND0(@global(Dictionary), @symbol(new), 0);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14903	__AT_PUT_(st_counterArray, __mkSmallInteger(counterIterator+1), st_perCounter);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14904
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14905	//get the counter data
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14906	__AT_PUT_(st_perCounter, @symbol(CounterNameTitleIndex), __mkSmallInteger(perfCounterPtr->CounterNameTitleIndex));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14907	__AT_PUT_(st_perCounter, @symbol(CounterTypeBits), __mkSmallInteger(perfCounterPtr->CounterType));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14908	__AT_PUT_(st_perCounter, @symbol(CounterSize), __mkSmallInteger(perfCounterPtr->CounterSize));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14909	__AT_PUT_(st_perCounter, @symbol(CounterOffset), __mkSmallInteger(perfCounterPtr->CounterOffset));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14910
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14911	//put the counter type size
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14912	switch (perfCounterPtr->CounterType & PERF_SIZE_MASK) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14913	case PERF_SIZE_DWORD:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14914	__AT_PUT_(st_perCounter, @symbol(SIZE),@symbol(DWORD));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14915	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14916	case PERF_SIZE_LARGE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14917	__AT_PUT_(st_perCounter, @symbol(SIZE),@symbol(LARGE));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14918	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14919	case PERF_SIZE_ZERO:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14920	__AT_PUT_(st_perCounter, @symbol(SIZE),@symbol(ZERO));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14921	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14922	case PERF_SIZE_VARIABLE_LEN:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14923	__AT_PUT_(st_perCounter, @symbol(SIZE),@symbol(VARIABLE_LEN));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14924	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14925	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14926	switch (perfCounterPtr->CounterType & PERF_TYPE_MASK) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14927	case PERF_TYPE_NUMBER:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14928	__AT_PUT_(st_perCounter, @symbol(TYPE),@symbol(NUMBER));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14929	switch (perfCounterPtr->CounterType & PERF_NUMBERTYPE_MASK) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14930	case PERF_NUMBER_HEX:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14931	__AT_PUT_(st_perCounter, @symbol(NUMBER),@symbol(HEX));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14932	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14933	case PERF_NUMBER_DECIMAL:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14934	__AT_PUT_(st_perCounter, @symbol(NUMBER),@symbol(DECIMAL));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14935	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14936	case PERF_NUMBER_DEC_1000:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14937	__AT_PUT_(st_perCounter, @symbol(NUMBER),@symbol(DEC_1000));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14938	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14939	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14940	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14941	case PERF_TYPE_COUNTER:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14942	__AT_PUT_(st_perCounter, @symbol(TYPE),@symbol(COUNTER));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14943	switch (perfCounterPtr->CounterType & PERF_COUNTERTYPE_MASK) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14944	case PERF_COUNTER_VALUE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14945	__AT_PUT_(st_perCounter, @symbol(COUNTER),@symbol(VALUE));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14946	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14947	case PERF_COUNTER_RATE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14948	__AT_PUT_(st_perCounter, @symbol(COUNTER),@symbol(RATE));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14949	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14950	case PERF_COUNTER_FRACTION:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14951	__AT_PUT_(st_perCounter, @symbol(COUNTER),@symbol(FRACTION));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14952	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14953	case PERF_COUNTER_BASE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14954	__AT_PUT_(st_perCounter, @symbol(COUNTER),@symbol(BASE));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14955	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14956	case PERF_COUNTER_ELAPSED:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14957	__AT_PUT_(st_perCounter, @symbol(COUNTER),@symbol(ELAPSED));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14958	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14959	case PERF_COUNTER_QUEUELEN:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14960	__AT_PUT_(st_perCounter, @symbol(COUNTER),@symbol(QUEUELEN));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14961	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14962	case PERF_COUNTER_HISTOGRAM:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14963	__AT_PUT_(st_perCounter, @symbol(COUNTER),@symbol(HISTOGRAM));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14964	break;
14756 d81b09ba6b83 compilability Claus Gittinger <cg@exept.de> parents: 14746 diff changeset	14965	#ifdef PERF_COUNTER_PRECISION
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14966	case PERF_COUNTER_PRECISION:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14967	__AT_PUT_(st_perCounter, @symbol(COUNTER),@symbol(PRECISION));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14968	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14969	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14970	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14971	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14972	case PERF_TYPE_TEXT:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14973	__AT_PUT_(st_perCounter, @symbol(TYPE),@symbol(TEXT));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14974	switch (perfCounterPtr->CounterType & PERF_TEXTTYPE_MASK) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14975	case PERF_TEXT_UNICODE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14976	__AT_PUT_(st_perCounter, @symbol(TEXT),@symbol(UNICODE));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14977	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14978	case PERF_TEXT_ASCII:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14979	__AT_PUT_(st_perCounter, @symbol(TEXT),@symbol(ASCII));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14980	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14981	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14982	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14983	case PERF_TYPE_ZERO:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14984	__AT_PUT_(st_perCounter, @symbol(TYPE),@symbol(ZERO));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14985	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14986	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14987
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14988	//setup the counter pointer to the next counter definition
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14989	perfCounterPtr = (PERF_COUNTER_DEFINITION )((char )perfCounterPtr + perfCounterPtr->ByteLength);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14990	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14991
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14992	//goon dependent on the count of instances
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14993	if (perfObjectPtr->NumInstances < 1) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14994	perfCounterBlockPtr = (PERF_COUNTER_BLOCK *)(perfCounterPtr);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14995	__AT_PUT_(st_perObject, @symbol(RawData), __MKBYTEARRAY(perfCounterBlockPtr, perfCounterBlockPtr->ByteLength));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14996	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14997	//setup the instance pointer to the end of all counters
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14998	perfInstancePtr = (PERF_INSTANCE_DEFINITION *)(perfCounterPtr);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	14999
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15000	//setup st_instanceArray and add it to st_perObject
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15001	st_instanceArray = __ARRAY_NEW_INT(perfObjectPtr->NumInstances);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15002	__AT_PUT_(st_perObject, @symbol(Instances), st_instanceArray);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15003
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15004	//iterate the instances
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15005	for (instanceIterator=0; instanceIterator<perfObjectPtr->NumInstances; instanceIterator++) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15006	//setup st_perInstance and add it to st_instanceArray
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15007	st_perInstance = __SSEND0(@global(Dictionary), @symbol(new), 0);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15008	__AT_PUT_(st_instanceArray, __mkSmallInteger(instanceIterator+1), st_perInstance);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15009
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15010	//get the instance data
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15011	__AT_PUT_(st_perInstance, @symbol(Name), __MKBYTEARRAY((wchar_t )((BYTE )perfInstancePtr + perfInstancePtr->NameOffset),perfInstancePtr->NameLength));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15012	__AT_PUT_(st_perInstance, @symbol(ParentObjectTitleIndex), __mkSmallInteger(perfInstancePtr->ParentObjectTitleIndex));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15013	__AT_PUT_(st_perInstance, @symbol(ParentObjectInstance), __mkSmallInteger(perfInstancePtr->ParentObjectInstance));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15014	__AT_PUT_(st_perInstance, @symbol(NameOffset), __mkSmallInteger(perfInstancePtr->NameOffset));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15015	__AT_PUT_(st_perInstance, @symbol(NameLength), __mkSmallInteger(perfInstancePtr->NameLength));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15016
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15017	//setup the instance pointer to the its end
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15018	perfInstancePtr = (PERF_INSTANCE_DEFINITION )((char )perfInstancePtr + perfInstancePtr->ByteLength);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15019
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15020	//setup the counter block pointer
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15021	perfCounterBlockPtr = (PERF_COUNTER_BLOCK *)(perfInstancePtr);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15022
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15023	//get the instance raw data
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15024	__AT_PUT_(st_perInstance, @symbol(RawData), __MKBYTEARRAY(perfCounterBlockPtr, perfCounterBlockPtr->ByteLength));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15025
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15026	//setup the instance pointer to the next instance
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15027	perfInstancePtr = (PERF_INSTANCE_DEFINITION )((char )perfCounterBlockPtr + perfCounterBlockPtr->ByteLength);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15028	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15029	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15030
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15031	//setup the object pointer to the next object
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15032	perfObjectPtr = (PERF_OBJECT_TYPE )((char )perfObjectPtr + perfObjectPtr->TotalByteLength);
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	15033	}
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	15034	%}.
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	15035	objectArray := st_objectArray.
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	15036	perfTime := st_perfTime.
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	15037	perfFreq := st_perfFreq.
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	15038	perfTime100nSec := st_perfTime100nSec.
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	15039
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	15040	getNameBlock := [:i\|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15041	self class counterIndexTextDictionary at:i ifAbsent:['<<no name>>'].
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	15042	].
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	15043
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	15044	getCounterValueBlock := [:counter :rawData\|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15045	\|offset counterValue\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15046
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15047	offset := counter at:#CounterOffset.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15048	offset >= rawData size ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15049	counterValue := nil.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15050	] ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15051	(counter at:#SIZE) == #LARGE ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15052	counterValue := rawData unsignedLongLongAt:offset + 1 bigEndian:false.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15053	] ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15054	(counter at:#SIZE) == #DWORD ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15055	counterValue := rawData unsignedLongAt:offset + 1 bigEndian:false.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15056	] ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15057	self halt:'unhandled counter-size; please check'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15058	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15059	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15060	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15061
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15062	counterValue
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	15063	].
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	15064
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	15065	objectArray do:[:anObject\|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15066	"setup the object name"
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15067	anObject at:#ObjectNameTitle put:(getNameBlock value:(anObject at:#ObjectNameTitleIndex)).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15068
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15069	"setup the name and a counter value array to each counter"
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15070	(anObject at:#Counters) do:[:aCounter\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15071	aCounter at:#CounterNameTitle put:(getNameBlock value:(aCounter at:#CounterNameTitleIndex)).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15072	aCounter at:#CounterValueArray put:OrderedCollection new.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15073	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15074
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15075	(anObject at:#NumInstances) < 1 ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15076	\|rawData\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15077
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15078	rawData := anObject at:#RawData.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15079
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15080	(anObject at:#Counters) do:[:aCounter\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15081	(aCounter at:#CounterValueArray) add:(getCounterValueBlock value:aCounter value:rawData).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15082	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15083	] ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15084	(anObject at:#Instances) do:[:anInstance\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15085	\|rawData\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15086
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15087	rawData := anInstance at:#RawData.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15088
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15089	anInstance at:#Name put:((Unicode16String fromBytes:(anInstance at:#Name) copy swapBytes) copyButLast:1).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15090
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15091	(anObject at:#Counters) do:[:aCounter\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15092	(aCounter at:#CounterValueArray) add:(getCounterValueBlock value:aCounter value:rawData).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15093	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15094	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15095	].
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	15096	].
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	15097
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	15098	^ self
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15099	! !
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15100
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15101	!Win32OperatingSystem::PerformanceData::Abstract methodsFor:'accessing'!
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15102
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15103	cachedResults
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15104
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15105	cachedResults isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15106	cachedResults := IdentityDictionary new.
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15107	].
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15108
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15109	^ cachedResults
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15110	!
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15111
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15112	lastData
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15113	^ lastData
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15114	!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15115
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15116	lastData:something
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15117	lastData := something.
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15118	!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15119
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15120	lastTimestamp
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15121	^ lastTimestamp
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15122	!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15123
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15124	lastTimestamp:something
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15125	lastTimestamp := something.
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15126	! !
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15127
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15128	!Win32OperatingSystem::PerformanceData::Abstract methodsFor:'definitions'!
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15129
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15130	aliveTime
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15131
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15132	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15133	returns the time a data stays alive, in milliseconds
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15134	before we push a new call and overwrite the data
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15135	"
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15136
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15137	^ self subclassResponsibility
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15138	!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15139
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15140	indexedName
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15141	^ self subclassResponsibility
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15142	!
9110d864362d * empty log message * sr parents: 10704 diff changeset	15143
9110d864362d * empty log message * sr parents: 10704 diff changeset	15144	indexedNameNumbered
9110d864362d * empty log message * sr parents: 10704 diff changeset	15145	^ self indexedName asInteger
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15146	!
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15147
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15148	timedQueryMilliseconds
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15149	^ 100
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15150	! !
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15151
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15152	!Win32OperatingSystem::PerformanceData::Abstract methodsFor:'private'!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15153
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15154	data
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15155
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15156	self synchronized:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15157	\|lastTS\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15158
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15159	lastTS := self lastTimestamp.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15160	lastTS isNil ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15161	^ self dataBasic
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15162	] ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15163	Timestamp now asMilliseconds - lastTS >= self aliveTime ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15164	^ self dataBasic
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15165	] ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15166	^ self lastData
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15167	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15168	].
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15169	].
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15170	!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15171
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15172	dataBasic
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15173	\|regEntry\|
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15174
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	15175	regEntry := Win32OperatingSystem registryEntry key:'HKEY_PERFORMANCE_DATA' valueNamed:self indexedName asString.
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	15176	self assert:(regEntry notNil).
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15177
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15178	self lastTimestamp:Timestamp now asMilliseconds.
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15179	self lastData:(Win32OperatingSystem::PerformanceData new fromRawBytes:regEntry).
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15180
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15181	^ self lastData
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	15182
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	15183	"Modified: / 16-05-2019 / 18:09:32 / Stefan Vogel"
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15184	! !
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15185
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15186	!Win32OperatingSystem::PerformanceData::Abstract methodsFor:'queries'!
9110d864362d * empty log message * sr parents: 10704 diff changeset	15187
9110d864362d * empty log message * sr parents: 10704 diff changeset	15188	getCounterNameIndexArray
23848 b74dc3385473 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23847 diff changeset	15189	\|index objectArray object debugBlock\|
b74dc3385473 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23847 diff changeset	15190
b74dc3385473 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23847 diff changeset	15191	debugBlock := [:obj\|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15192	^ 'obj:', obj , ' this:', self printString , ' idx:', self indexedName
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15193	].
23848 b74dc3385473 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23847 diff changeset	15194
b74dc3385473 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23847 diff changeset	15195	objectArray := self data objectArray.
b74dc3385473 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23847 diff changeset	15196	index := self indexedNameNumbered.
b74dc3385473 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23847 diff changeset	15197
b74dc3385473 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23847 diff changeset	15198	index == 0 ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15199	object := objectArray at:1 ifAbsent:[debugBlock value:(object at:#ObjectNameTitle)].
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15200	] ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15201	object := objectArray detect:[:el\| (el at:#ObjectNameTitleIndex) == index]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15202	ifNone:[self error:'counter not found'].
23927 3f82716744b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 23848 diff changeset	15203	].
3f82716744b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 23848 diff changeset	15204
3f82716744b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 23848 diff changeset	15205	^ (object at:#Counters)
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15206	collect:[:el\| {el at:#CounterNameTitle. el at:#CounterNameTitleIndex}].
23848 b74dc3385473 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23847 diff changeset	15207
b74dc3385473 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23847 diff changeset	15208	"Modified: / 07-03-2019 / 16:29:51 / Stefan Vogel"
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15209	! !
9110d864362d * empty log message * sr parents: 10704 diff changeset	15210
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15211	!Win32OperatingSystem::PerformanceData::Abstract methodsFor:'queries - timed'!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15212
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15213	getPerSecondFromLast:aSelector
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15214	\|cachedResult return\|
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15215
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15216	cachedResult := self cachedResults at:aSelector ifAbsent:nil.
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15217	cachedResult notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15218	\|currentResult\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15219
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15220	currentResult := self perform:aSelector.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15221	return := self getPerSecondViaResult1:cachedResult result2:currentResult.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15222
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15223	self cachedResults at:aSelector put:currentResult.
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15224	] ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15225	self cachedResults at:aSelector put:(self perform:aSelector).
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15226	].
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15227
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15228	^ return
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15229	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15230
10701 b8c876510d1d * empty log message * sr parents: 10699 diff changeset	15231	getPerSecondViaPerformBlock:performBlock
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15232	\|result1 result2 runTimeInNS runTimeInS values1 values2 globalResult\|
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15233
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15234	self assert:(self aliveTime < self timedQueryMilliseconds).
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15235
10701 b8c876510d1d * empty log message * sr parents: 10699 diff changeset	15236	result1 := performBlock value.
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15237	Delay waitForMilliseconds:self timedQueryMilliseconds.
10701 b8c876510d1d * empty log message * sr parents: 10699 diff changeset	15238	result2 := performBlock value.
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15239
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15240	runTimeInNS := ((result2 at:#time100nSec) - (result1 at:#time100nSec)) * 100.
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15241	runTimeInS := runTimeInNS / 1000 / 1000 / 1000.
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15242
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15243	values1 := result1 at:#values.
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15244	values2 := result2 at:#values.
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15245
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15246	globalResult := Dictionary new.
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15247
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15248	values2 keysDo:[:key\|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15249	\|difference\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15250
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15251	difference := (values2 at:key) - (values1 at:key).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15252
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15253	runTimeInS = 0 ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15254	globalResult at:key put:0.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15255	] ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15256	globalResult at:key put:(difference / runTimeInS) asFloat.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15257	].
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15258	].
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15259
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15260	^ globalResult
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15261	!
9110d864362d * empty log message * sr parents: 10704 diff changeset	15262
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15263	getPerSecondViaResult1:result1 result2:result2
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15264	\|runTimeInNS runTimeInS values1 values2 globalResult\|
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15265
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15266	runTimeInNS := ((result2 at:#time100nSec) - (result1 at:#time100nSec)) * 100.
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15267	runTimeInS := runTimeInNS / 1000 / 1000 / 1000.
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15268
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15269	values1 := result1 at:#values.
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15270	values2 := result2 at:#values.
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15271
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15272	globalResult := Dictionary new.
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15273
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15274	values2 keysDo:[:key\|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15275	\|difference\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15276
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15277	difference := (values2 at:key) - (values1 at:key).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15278
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15279	runTimeInS = 0 ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15280	globalResult at:key put:0.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15281	] ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15282	globalResult at:key put:(difference / runTimeInS) asFloat.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15283	].
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15284	].
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15285
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15286	^ globalResult
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15287	!
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15288
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15289	getUsageFromLast:aSelector
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15290	\|cachedResult return\|
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15291
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15292	cachedResult := self cachedResults at:aSelector ifAbsent:nil.
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15293	cachedResult notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15294	\|currentResult\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15295
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15296	currentResult := self perform:aSelector.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15297	return := self getUsageViaResult1:cachedResult result2:currentResult.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15298
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15299	self cachedResults at:aSelector put:currentResult.
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15300	] ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15301	self cachedResults at:aSelector put:(self perform:aSelector).
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15302	].
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15303
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15304	^ return
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15305	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15306
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15307	getUsageViaPerformBlock:performBlock
9110d864362d * empty log message * sr parents: 10704 diff changeset	15308	\|result1 result2 deltaTIn100Ns value1 value2 globalResult\|
9110d864362d * empty log message * sr parents: 10704 diff changeset	15309
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15310	self assert:(self aliveTime < self timedQueryMilliseconds).
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15311
9110d864362d * empty log message * sr parents: 10704 diff changeset	15312	result1 := performBlock value.
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15313	Delay waitForMilliseconds:self timedQueryMilliseconds.
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15314	result2 := performBlock value.
9110d864362d * empty log message * sr parents: 10704 diff changeset	15315
9110d864362d * empty log message * sr parents: 10704 diff changeset	15316	globalResult := Dictionary new.
9110d864362d * empty log message * sr parents: 10704 diff changeset	15317
9110d864362d * empty log message * sr parents: 10704 diff changeset	15318	deltaTIn100Ns := (result2 at:#time100nSec) - (result1 at:#time100nSec).
9110d864362d * empty log message * sr parents: 10704 diff changeset	15319
9110d864362d * empty log message * sr parents: 10704 diff changeset	15320	value1 := result1 at:#values.
9110d864362d * empty log message * sr parents: 10704 diff changeset	15321	value2 := result2 at:#values.
9110d864362d * empty log message * sr parents: 10704 diff changeset	15322
9110d864362d * empty log message * sr parents: 10704 diff changeset	15323	value1 keysDo:[:key\|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15324	\|diff dPerSecond load1024 res\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15325
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15326	diff := (value2 at:key) - (value1 at:key).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15327	diff := diff bitShift:10.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15328
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15329	deltaTIn100Ns = 0 ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15330	dPerSecond := 0.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15331	] ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15332	dPerSecond := (diff / deltaTIn100Ns) asFloat.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15333	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15334	load1024 := 1024 - dPerSecond.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15335
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15336	res := (load1024 / 1024 * 100) asFloat.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15337	res < 0 ifTrue:[res := 0].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15338
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15339	globalResult at:key put:res.
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15340	].
9110d864362d * empty log message * sr parents: 10704 diff changeset	15341
9110d864362d * empty log message * sr parents: 10704 diff changeset	15342	^ globalResult
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15343	!
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15344
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15345	getUsageViaResult1:result1 result2:result2
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15346	\|deltaTIn100Ns value1 value2 globalResult\|
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15347
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15348	globalResult := Dictionary new.
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15349	deltaTIn100Ns := (result2 at:#time100nSec) - (result1 at:#time100nSec).
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15350
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15351	value1 := result1 at:#values.
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15352	value2 := result2 at:#values.
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15353
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15354	value1 keysDo:[:key\|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15355	\|diff dPerSecond load1024 res\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15356
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15357	diff := (value2 at:key) - (value1 at:key).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15358	diff := diff bitShift:10.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15359
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15360	deltaTIn100Ns = 0 ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15361	dPerSecond := 0.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15362	] ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15363	dPerSecond := (diff / deltaTIn100Ns) asFloat.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15364	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15365	load1024 := 1024 - dPerSecond.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15366
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15367	res := (load1024 / 1024 * 100) asFloat.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15368	res < 0 ifTrue:[res := 0].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15369
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15370	globalResult at:key put:res.
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15371	].
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15372
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15373	^ globalResult
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15374	! !
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15375
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15376	!Win32OperatingSystem::PerformanceData::Abstract methodsFor:'queries - values'!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15377
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15378	getBasicValuesByCounter:counterIndex
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15379	^ self getBasicValuesByObject:0 counter:counterIndex timed:false
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15380	!
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15381
14756 d81b09ba6b83 compilability Claus Gittinger <cg@exept.de> parents: 14746 diff changeset	15382	getBasicValuesByCounter:counterIndex timed:aBoolean
d81b09ba6b83 compilability Claus Gittinger <cg@exept.de> parents: 14746 diff changeset	15383	^ self getBasicValuesByObject:0 counter:counterIndex timed:aBoolean
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15384	!
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15385
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15386	getBasicValuesByObject:objectIndex counter:counterIndex
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15387	^ self getBasicValuesByObject:0 counter:counterIndex timed:false
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15388	!
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15389
14756 d81b09ba6b83 compilability Claus Gittinger <cg@exept.de> parents: 14746 diff changeset	15390	getBasicValuesByObject:objectIndex counter:counterIndex timed:aBoolean
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15391	\|data object counter values debugBlock numInstances\|
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15392
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15393	debugBlock := [:obj\|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15394	^ 'obj:', obj , ' this:', self printString , ' idx:', self indexedName
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15395	].
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15396
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15397	data := self dataBasic.
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15398
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15399	objectIndex == 0 ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15400	object := data objectArray at:1 ifAbsent:[debugBlock value:(object at:#ObjectNameTitle)].
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15401	] ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15402	object := data objectArray detect:[:el\|(el at:#ObjectNameTitleIndex) == objectIndex] ifNone:[debugBlock value:(object at:#ObjectNameTitle)].
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15403	].
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15404
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15405	counter := (object at:#Counters) detect:[:aCounter\|(aCounter at:#CounterNameTitleIndex) == counterIndex] ifNone:[debugBlock value:(object at:#ObjectNameTitle)].
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15406
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15407	values := Dictionary new.
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15408	numInstances := object at:#NumInstances.
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15409
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15410	numInstances > 0 ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15411	1 to:numInstances do:[:idx\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15412	\|value instanceName\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15413
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15414	value := (counter at:#CounterValueArray) at:idx.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15415	instanceName := ((object at:#Instances) at:idx) at:#Name.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15416
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15417	values at:instanceName put:value.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15418	].
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15419	] ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15420	values at:'<<singleton>>' put:(counter at:#CounterValueArray) first.
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15421	].
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15422
14756 d81b09ba6b83 compilability Claus Gittinger <cg@exept.de> parents: 14746 diff changeset	15423	aBoolean ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15424	\|return\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15425
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15426	return := IdentityDictionary new.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15427	return at:#time put:data perfTime.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15428	return at:#frequence put:data perfFreq.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15429	return at:#time100nSec put:data perfTime100nSec.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15430	return at:#values put:values.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15431
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15432	^ return
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15433	].
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15434
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15435	^ values
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15436	!
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15437
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15438	getValuesByCounter:counterIndex
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15439	^ self getValuesByObject:0 counter:counterIndex timed:false
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15440	!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15441
14756 d81b09ba6b83 compilability Claus Gittinger <cg@exept.de> parents: 14746 diff changeset	15442	getValuesByCounter:counterIndex timed:aBoolean
d81b09ba6b83 compilability Claus Gittinger <cg@exept.de> parents: 14746 diff changeset	15443	^ self getValuesByObject:0 counter:counterIndex timed:aBoolean
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15444	!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15445
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15446	getValuesByObject:objectIndex counter:counterIndex
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15447	^ self getValuesByObject:0 counter:counterIndex timed:false
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15448	!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15449
14756 d81b09ba6b83 compilability Claus Gittinger <cg@exept.de> parents: 14746 diff changeset	15450	getValuesByObject:objectIndex counter:counterIndex timed:aBoolean
10707 3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15451	\|data object counter values debugBlock numInstances\|
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15452
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15453	debugBlock := [:obj\|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15454	^ 'obj:', obj , ' this:', self printString , ' idx:', self indexedName
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15455	].
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15456
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15457	data := self data.
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15458
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15459	objectIndex == 0 ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15460	object := data objectArray at:1 ifAbsent:[debugBlock value:(object at:#ObjectNameTitle)].
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15461	] ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15462	object := data objectArray detect:[:el\|(el at:#ObjectNameTitleIndex) == objectIndex] ifNone:[debugBlock value:(object at:#ObjectNameTitle)].
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15463	].
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15464
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15465	counter := (object at:#Counters) detect:[:aCounter\|(aCounter at:#CounterNameTitleIndex) == counterIndex] ifNone:[debugBlock value:(object at:#ObjectNameTitle)].
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15466
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15467	values := Dictionary new.
10707 3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15468	numInstances := object at:#NumInstances.
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15469
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15470	numInstances > 0 ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15471	1 to:numInstances do:[:idx\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15472	\|value instanceName\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15473
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15474	value := (counter at:#CounterValueArray) at:idx.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15475	instanceName := ((object at:#Instances) at:idx) at:#Name.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15476
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15477	values at:instanceName put:value.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15478	].
10707 3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15479	] ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15480	values at:'<<singleton>>' put:(counter at:#CounterValueArray) first.
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15481	].
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15482
14756 d81b09ba6b83 compilability Claus Gittinger <cg@exept.de> parents: 14746 diff changeset	15483	aBoolean ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15484	\|return\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15485
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15486	return := IdentityDictionary new.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15487	return at:#time put:data perfTime.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15488	return at:#frequence put:data perfFreq.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15489	return at:#time100nSec put:data perfTime100nSec.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15490	return at:#values put:values.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15491
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15492	^ return
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15493	].
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15494
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15495	^ values
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15496	! !
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15497
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15498	!Win32OperatingSystem::PerformanceData::DiskIO class methodsFor:'accessing'!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15499
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15500	current
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15501
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15502	TheOneAndOnlyInstance isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15503	TheOneAndOnlyInstance := self new.
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15504	].
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15505
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15506	^ TheOneAndOnlyInstance
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15507	! !
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15508
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15509	!Win32OperatingSystem::PerformanceData::DiskIO methodsFor:'definition'!
10688 1e8dc6018c76 * empty log message * sr parents: 10687 diff changeset	15510
1e8dc6018c76 * empty log message * sr parents: 10687 diff changeset	15511	aliveTime
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15512	^ 80
10688 1e8dc6018c76 * empty log message * sr parents: 10687 diff changeset	15513	!
1e8dc6018c76 * empty log message * sr parents: 10687 diff changeset	15514
1e8dc6018c76 * empty log message * sr parents: 10687 diff changeset	15515	indexedName
10704 5063fe06352c * empty log message * sr parents: 10702 diff changeset	15516	^ '236'
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15517	! !
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15518
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15519	!Win32OperatingSystem::PerformanceData::DiskIO methodsFor:'queries'!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15520
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15521	diskBytes
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15522	^ self getValuesByCounter:218 timed:true
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15523
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15524	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15525	self current diskBytes
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15526	"
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15527	!
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15528
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15529	diskBytesBasic
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15530	^ self getBasicValuesByCounter:218 timed:true
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15531
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15532	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15533	self current diskBytesBasic
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15534	"
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15535	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15536
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15537	diskBytesPerSecond
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15538	^ self getPerSecondViaPerformBlock:[self diskBytes]
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15539
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15540	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15541	self current diskBytesPerSecond
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15542	"
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15543	!
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15544
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15545	diskBytesPerSecondFromLast
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15546	^ self getPerSecondFromLast:#diskBytesBasic
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15547
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15548	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15549	self current diskBytesPerSecondFromLast
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15550	"
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15551	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15552
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15553	diskQueueLength
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15554	^ self getValuesByCounter:198
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15555
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15556	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15557	self current diskQueueLength
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15558	"
9110d864362d * empty log message * sr parents: 10704 diff changeset	15559	!
9110d864362d * empty log message * sr parents: 10704 diff changeset	15560
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15561	diskRead
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15562	^ self getValuesByCounter:214 timed:true
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15563
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15564	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15565	self current diskRead
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15566	"
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15567	!
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15568
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15569	diskReadBasic
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15570	^ self getBasicValuesByCounter:214 timed:true
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15571
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15572	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15573	self current diskReadBasic
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15574	"
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15575	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15576
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15577	diskReadsPerSecond
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15578	^ self getPerSecondViaPerformBlock:[self diskRead]
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15579
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15580	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15581	self current diskReadsPerSecond
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15582	"
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15583	!
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15584
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15585	diskReadsPerSecondFromLast
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15586	^ self getPerSecondFromLast:#diskReadBasic
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15587
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15588	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15589	self current diskReadsPerSecondFromLast
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15590	"
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15591	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15592
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15593	diskSpaceFreeInMegaByte
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15594	^ self getValuesByCounter:408
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15595
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15596	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15597	self current diskSpaceFreeInMegaByte
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15598	"
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15599	!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15600
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15601	diskTransfers
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15602	^ self getValuesByCounter:212 timed:true
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15603
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15604	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15605	self current diskTransfers
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15606	"
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15607	!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15608
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15609	diskTransfersBasic
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15610	^ self getBasicValuesByCounter:212 timed:true
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15611
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15612	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15613	self current diskTransfersBasic
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15614	"
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15615	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15616
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15617	diskTransfersPerSecond
10701 b8c876510d1d * empty log message * sr parents: 10699 diff changeset	15618	^ self getPerSecondViaPerformBlock:[self diskTransfers]
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15619
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15620	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15621	self current diskTransfersPerSecond
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15622	"
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15623	!
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15624
10757 a5e2e0f500df * empty log message * sr parents: 10756 diff changeset	15625	diskTransfersPerSecondFromLast
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15626	^ self getPerSecondFromLast:#diskTransfersBasic
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15627
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15628	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15629	self current diskTransfersPerSecondFromlast
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15630	"
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15631	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15632
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15633	diskWrite
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15634	^ self getValuesByCounter:216 timed:true
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15635
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15636	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15637	self current diskWrite
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15638	"
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15639	!
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15640
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15641	diskWriteBasic
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15642	^ self getBasicValuesByCounter:216 timed:true
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15643
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15644	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15645	self current diskWriteBasic
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15646	"
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15647	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15648
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15649	diskWritesPerSecond
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15650	^ self getPerSecondViaPerformBlock:[self diskWrite]
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15651
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15652	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15653	self current diskWritesPerSecond
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15654	"
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15655	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15656
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15657	diskWritesPerSecondFromLast
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15658	^ self getPerSecondFromLast:#diskWriteBasic
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15659
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15660	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15661	self current diskWritesPerSecondFromLast
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15662	"
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15663	! !
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15664
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15665	!Win32OperatingSystem::PerformanceData::Global class methodsFor:'accessing'!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15666
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15667	current
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15668
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15669	TheOneAndOnlyInstance isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15670	TheOneAndOnlyInstance := self new.
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15671	].
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15672
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15673	^ TheOneAndOnlyInstance
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15674	! !
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15675
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15676	!Win32OperatingSystem::PerformanceData::Global methodsFor:'definitions'!
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15677
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15678	aliveTime
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15679	^ 200
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15680	!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15681
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15682	indexedName
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15683	^ 'Global'
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15684	! !
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15685
10706 8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	15686	!Win32OperatingSystem::PerformanceData::Global methodsFor:'queries'!
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	15687
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	15688	getCounterNameIndexArray
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	15689	self error:'Global implements objects only'.
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	15690	!
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	15691
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	15692	getObjectNameIndexArray
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	15693	\|data indexNameArray\|
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	15694
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	15695	data := self data.
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	15696	indexNameArray := OrderedCollection new.
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	15697
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	15698	data objectArray do:[:anObject\|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15699	\|index name\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15700
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15701	index := anObject at:#ObjectNameTitleIndex.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15702	name := Win32OperatingSystem::PerformanceData counterIndexTextDictionary at:index.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15703
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15704	indexNameArray add:(Array with:name with:index).
10706 8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	15705	].
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	15706
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	15707	^ indexNameArray
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	15708	! !
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	15709
10707 3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15710	!Win32OperatingSystem::PerformanceData::Memory class methodsFor:'accessing'!
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15711
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15712	current
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15713
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15714	TheOneAndOnlyInstance isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15715	TheOneAndOnlyInstance := self new.
10707 3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15716	].
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15717
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15718	^ TheOneAndOnlyInstance
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15719	! !
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15720
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15721	!Win32OperatingSystem::PerformanceData::Memory methodsFor:'definitions'!
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15722
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15723	aliveTime
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15724	^ 80
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15725	!
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15726
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15727	indexedName
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15728	^ '4'
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15729	! !
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15730
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15731	!Win32OperatingSystem::PerformanceData::Memory methodsFor:'queries'!
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15732
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15733	availableKBytes
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15734	^ self getValuesByCounter:1380
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15735
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15736	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15737	self current availableKBytes
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15738	"
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15739	!
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	15740
10707 3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15741	availableMBytes
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15742	^ self getValuesByCounter:1382
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15743
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15744	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15745	self current availableMBytes
10707 3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15746	"
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15747	! !
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	15748
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15749	!Win32OperatingSystem::PerformanceData::Network class methodsFor:'accessing'!
10710 1055a716e253 * empty log message * sr parents: 10709 diff changeset	15750
1055a716e253 * empty log message * sr parents: 10709 diff changeset	15751	current
1055a716e253 * empty log message * sr parents: 10709 diff changeset	15752
1055a716e253 * empty log message * sr parents: 10709 diff changeset	15753	TheOneAndOnlyInstance isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15754	TheOneAndOnlyInstance := self new.
10710 1055a716e253 * empty log message * sr parents: 10709 diff changeset	15755	].
1055a716e253 * empty log message * sr parents: 10709 diff changeset	15756
1055a716e253 * empty log message * sr parents: 10709 diff changeset	15757	^ TheOneAndOnlyInstance
1055a716e253 * empty log message * sr parents: 10709 diff changeset	15758	! !
1055a716e253 * empty log message * sr parents: 10709 diff changeset	15759
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15760	!Win32OperatingSystem::PerformanceData::Network methodsFor:'definition'!
10710 1055a716e253 * empty log message * sr parents: 10709 diff changeset	15761
1055a716e253 * empty log message * sr parents: 10709 diff changeset	15762	aliveTime
1055a716e253 * empty log message * sr parents: 10709 diff changeset	15763	^ 80
1055a716e253 * empty log message * sr parents: 10709 diff changeset	15764	!
1055a716e253 * empty log message * sr parents: 10709 diff changeset	15765
1055a716e253 * empty log message * sr parents: 10709 diff changeset	15766	indexedName
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15767	^ '510'
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15768	!
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15769
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15770	timedQueryMilliseconds
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15771	^ 200
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15772	! !
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15773
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15774	!Win32OperatingSystem::PerformanceData::Network methodsFor:'queries'!
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15775
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15776	bytesReceived
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15777	^ self getValuesByCounter:264 timed:true
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15778
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15779	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15780	self current bytesReceived
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15781	"
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15782	!
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15783
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15784	bytesReceivedBasic
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15785	^ self getBasicValuesByCounter:264 timed:true
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15786
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15787	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15788	self current bytesReceivedBasic
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15789	"
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15790	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15791
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15792	bytesReceivedPerSecond
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15793	^ self getPerSecondViaPerformBlock:[self bytesReceived]
10710 1055a716e253 * empty log message * sr parents: 10709 diff changeset	15794
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15795	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15796	self current bytesReceivedPerSecond
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15797	"
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15798	!
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15799
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15800	bytesReceivedPerSecondFromlast
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15801	^ self getPerSecondFromLast:#bytesReceivedBasic
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15802
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15803	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15804	self current bytesReceivedPerSecondFromlast
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15805	"
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15806	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15807
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15808	bytesSent
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15809	^ self getValuesByCounter:506 timed:true
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15810
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15811	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15812	self current bytesSent
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15813	"
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15814	!
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15815
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15816	bytesSentBasic
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15817	^ self getBasicValuesByCounter:506 timed:true
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15818
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15819	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15820	self current bytesSentBasic
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15821	"
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15822	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15823
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15824	bytesSentPerSecond
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15825	^ self getPerSecondViaPerformBlock:[self bytesSent]
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15826
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15827	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15828	self current bytesSentPerSecond
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15829	"
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15830	!
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15831
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15832	bytesSentPerSecondFromlast
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15833	^ self getPerSecondFromLast:#bytesSentBasic
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15834
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15835	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15836	self current bytesSentPerSecondFromlast
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15837	"
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15838	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15839
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15840	kBytesReceivedPerSecond
10710 1055a716e253 * empty log message * sr parents: 10709 diff changeset	15841	\|modifiedDictionary\|
1055a716e253 * empty log message * sr parents: 10709 diff changeset	15842
1055a716e253 * empty log message * sr parents: 10709 diff changeset	15843	modifiedDictionary := Dictionary new.
1055a716e253 * empty log message * sr parents: 10709 diff changeset	15844
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15845	(self getPerSecondViaPerformBlock:[self bytesReceived]) keysAndValuesDo:[:key :value\|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15846	modifiedDictionary at:key put:(value / 1024).
10710 1055a716e253 * empty log message * sr parents: 10709 diff changeset	15847	].
1055a716e253 * empty log message * sr parents: 10709 diff changeset	15848
1055a716e253 * empty log message * sr parents: 10709 diff changeset	15849	^ modifiedDictionary
1055a716e253 * empty log message * sr parents: 10709 diff changeset	15850
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15851	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15852	self current kBytesReceivedPerSecond
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15853	"
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15854	!
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15855
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15856	kBytesReceivedPerSecondFromLast
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15857	\|return modifiedDictionary\|
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15858
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15859	return := self bytesReceivedPerSecondFromlast.
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15860	return isNil ifTrue:[^ nil].
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15861
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15862	modifiedDictionary := Dictionary new.
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15863
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15864	return keysAndValuesDo:[:key :value\|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15865	modifiedDictionary at:key put:(value / 1024).
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15866	].
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15867
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15868	^ modifiedDictionary
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15869
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15870	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15871	self current kBytesReceivedPerSecondFromLast
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15872	"
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15873	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15874
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15875	kBytesSentPerSecond
10710 1055a716e253 * empty log message * sr parents: 10709 diff changeset	15876	\|modifiedDictionary\|
1055a716e253 * empty log message * sr parents: 10709 diff changeset	15877
1055a716e253 * empty log message * sr parents: 10709 diff changeset	15878	modifiedDictionary := Dictionary new.
1055a716e253 * empty log message * sr parents: 10709 diff changeset	15879
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	15880	(self getPerSecondViaPerformBlock:[self bytesSent]) keysAndValuesDo:[:key :value\|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15881	modifiedDictionary at:key put:(value / 1024).
10710 1055a716e253 * empty log message * sr parents: 10709 diff changeset	15882	].
1055a716e253 * empty log message * sr parents: 10709 diff changeset	15883
1055a716e253 * empty log message * sr parents: 10709 diff changeset	15884	^ modifiedDictionary
1055a716e253 * empty log message * sr parents: 10709 diff changeset	15885
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15886	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15887	self current kBytesSentPerSecond
10710 1055a716e253 * empty log message * sr parents: 10709 diff changeset	15888	"
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15889	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15890
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15891	kBytesSentPerSecondFromLast
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15892	\|return modifiedDictionary\|
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15893
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15894	return := self bytesSentPerSecondFromlast.
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15895	return isNil ifTrue:[^ nil].
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15896
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15897	modifiedDictionary := Dictionary new.
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15898
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15899	return keysAndValuesDo:[:key :value\|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15900	modifiedDictionary at:key put:(value / 1024).
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15901	].
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15902
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15903	^ modifiedDictionary
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15904
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15905	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15906	self current kBytesSentPerSecondFromLast
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15907	"
10710 1055a716e253 * empty log message * sr parents: 10709 diff changeset	15908	! !
1055a716e253 * empty log message * sr parents: 10709 diff changeset	15909
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15910	!Win32OperatingSystem::PerformanceData::Process class methodsFor:'accessing'!
9110d864362d * empty log message * sr parents: 10704 diff changeset	15911
9110d864362d * empty log message * sr parents: 10704 diff changeset	15912	current
9110d864362d * empty log message * sr parents: 10704 diff changeset	15913
9110d864362d * empty log message * sr parents: 10704 diff changeset	15914	TheOneAndOnlyInstance isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15915	TheOneAndOnlyInstance := self new.
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15916	].
9110d864362d * empty log message * sr parents: 10704 diff changeset	15917
9110d864362d * empty log message * sr parents: 10704 diff changeset	15918	^ TheOneAndOnlyInstance
9110d864362d * empty log message * sr parents: 10704 diff changeset	15919	! !
9110d864362d * empty log message * sr parents: 10704 diff changeset	15920
9110d864362d * empty log message * sr parents: 10704 diff changeset	15921	!Win32OperatingSystem::PerformanceData::Process methodsFor:'definition'!
9110d864362d * empty log message * sr parents: 10704 diff changeset	15922
9110d864362d * empty log message * sr parents: 10704 diff changeset	15923	aliveTime
9110d864362d * empty log message * sr parents: 10704 diff changeset	15924	^ 80
9110d864362d * empty log message * sr parents: 10704 diff changeset	15925	!
9110d864362d * empty log message * sr parents: 10704 diff changeset	15926
9110d864362d * empty log message * sr parents: 10704 diff changeset	15927	indexedName
9110d864362d * empty log message * sr parents: 10704 diff changeset	15928	^ '230'
9110d864362d * empty log message * sr parents: 10704 diff changeset	15929	! !
9110d864362d * empty log message * sr parents: 10704 diff changeset	15930
9110d864362d * empty log message * sr parents: 10704 diff changeset	15931	!Win32OperatingSystem::PerformanceData::Process methodsFor:'queries'!
9110d864362d * empty log message * sr parents: 10704 diff changeset	15932
9110d864362d * empty log message * sr parents: 10704 diff changeset	15933	processTime
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15934	^ self getValuesByCounter:6 timed:true
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15935
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15936	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15937	self current processTime
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15938	"
9110d864362d * empty log message * sr parents: 10704 diff changeset	15939	!
9110d864362d * empty log message * sr parents: 10704 diff changeset	15940
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15941	processTimeBasic
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15942	^ self getBasicValuesByCounter:6 timed:true
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15943
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15944	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15945	self current processTimeBasic
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15946	"
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15947	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15948
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15949	processUsage
9110d864362d * empty log message * sr parents: 10704 diff changeset	15950	\|modifiedDictionary\|
9110d864362d * empty log message * sr parents: 10704 diff changeset	15951
9110d864362d * empty log message * sr parents: 10704 diff changeset	15952	modifiedDictionary := Dictionary new.
9110d864362d * empty log message * sr parents: 10704 diff changeset	15953
9110d864362d * empty log message * sr parents: 10704 diff changeset	15954	(self getUsageViaPerformBlock:[self processTime]) keysAndValuesDo:[:key :value\|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15955	modifiedDictionary at:key put:(100 - value).
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15956	].
9110d864362d * empty log message * sr parents: 10704 diff changeset	15957
9110d864362d * empty log message * sr parents: 10704 diff changeset	15958	^ modifiedDictionary
9110d864362d * empty log message * sr parents: 10704 diff changeset	15959
9110d864362d * empty log message * sr parents: 10704 diff changeset	15960	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15961	self current processUsage
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15962	"
9110d864362d * empty log message * sr parents: 10704 diff changeset	15963	!
9110d864362d * empty log message * sr parents: 10704 diff changeset	15964
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15965	processUsageFromLast
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15966	\|return modifiedDictionary\|
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15967
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15968	return := self getUsageFromLast:#processTimeBasic.
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15969	return isNil ifTrue:[^ nil].
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15970
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15971	modifiedDictionary := Dictionary new.
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15972
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15973	return keysAndValuesDo:[:key :value\|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15974	modifiedDictionary at:key put:(100 - value).
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15975	].
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15976
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15977	^ modifiedDictionary
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15978
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15979	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15980	self current processUsageFromLast
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15981	"
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15982	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15983
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15984	runningProcessNameList
9110d864362d * empty log message * sr parents: 10704 diff changeset	15985	"_Total ~ pseudo process; Idle ~ pseudo process represents the free resources"
9110d864362d * empty log message * sr parents: 10704 diff changeset	15986	^ (self data objectArray first at:#Instances) collect:[:el\|el at:#Name]
9110d864362d * empty log message * sr parents: 10704 diff changeset	15987
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15988	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15989	self current runningProcessNameList
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15990	"
9110d864362d * empty log message * sr parents: 10704 diff changeset	15991	!
9110d864362d * empty log message * sr parents: 10704 diff changeset	15992
9110d864362d * empty log message * sr parents: 10704 diff changeset	15993	runningProcesses
9110d864362d * empty log message * sr parents: 10704 diff changeset	15994	"_Total ~ pseudo process; Idle ~ pseudo process represents the free resources"
9110d864362d * empty log message * sr parents: 10704 diff changeset	15995	^ (self data objectArray first at:#NumInstances)
9110d864362d * empty log message * sr parents: 10704 diff changeset	15996
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15997	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	15998	self current runningProcesses
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15999	"
9110d864362d * empty log message * sr parents: 10704 diff changeset	16000	! !
9110d864362d * empty log message * sr parents: 10704 diff changeset	16001
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16002	!Win32OperatingSystem::PerformanceData::Processor class methodsFor:'accessing'!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16003
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16004	current
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16005
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16006	TheOneAndOnlyInstance isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16007	TheOneAndOnlyInstance := self new.
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16008	].
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16009
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16010	^ TheOneAndOnlyInstance
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16011	! !
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16012
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16013	!Win32OperatingSystem::PerformanceData::Processor methodsFor:'definitions'!
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	16014
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	16015	aliveTime
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	16016	^ 80
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	16017	!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	16018
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	16019	indexedName
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	16020	^ '238'
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	16021	! !
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	16022
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16023	!Win32OperatingSystem::PerformanceData::Processor methodsFor:'queries'!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16024
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16025	interrupts
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	16026	^ self getValuesByCounter:148 timed:true
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	16027
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	16028	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16029	self current interrupts
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16030	"
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16031	!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16032
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	16033	interruptsBasic
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	16034	^ self getBasicValuesByCounter:148 timed:true
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	16035
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	16036	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16037	self current interruptsBasic
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	16038	"
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	16039	!
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	16040
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16041	interruptsPerSecond
10701 b8c876510d1d * empty log message * sr parents: 10699 diff changeset	16042	^ self getPerSecondViaPerformBlock:[self interrupts]
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16043
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16044	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16045	self current interruptsPerSecond
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16046	"
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16047	!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16048
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	16049	interruptsPerSecondFromLast
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	16050	^ self getPerSecondFromLast:#interruptsBasic
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	16051
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	16052	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16053	self current interruptsPerSecondFromLast
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	16054	"
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	16055	!
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	16056
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16057	processorTime
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	16058	^ self getValuesByCounter:6 timed:true
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	16059
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	16060	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16061	self current processorTime
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16062	"
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16063	!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16064
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	16065	processorTimeBasic
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	16066	^ self getBasicValuesByCounter:6 timed:true
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	16067
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	16068	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16069	self current processorTimeBasic
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	16070	"
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	16071	!
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	16072
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16073	processorUsage
11215 b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	16074	^ self getUsageViaPerformBlock:[self processorTime]
b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	16075
b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	16076	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16077	self current processorUsage
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	16078	"
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	16079	!
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	16080
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	16081	processorUsageFromLast
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	16082	^ self getUsageFromLast:#processorTimeBasic
d694d3872402 * empty log message * sr parents: 10755 diff changeset	16083
d694d3872402 * empty log message * sr parents: 10755 diff changeset	16084	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16085	self current processorUsageFromLast
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16086	"
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16087	! !
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	16088
9475 c57956a348bf printing support fm parents: 9431 diff changeset	16089	!Win32OperatingSystem::PrinterInfo2Structure methodsFor:'accessing'!
c57956a348bf printing support fm parents: 9431 diff changeset	16090
c57956a348bf printing support fm parents: 9431 diff changeset	16091	defaultPriority
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16092
9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16093	\|defaultPriority\|
9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16094
9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16095	Error handle:[:ex \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16096	Transcript showCR: 'PrinterInfo2 error getting defaultPriority - ', ex description.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16097	defaultPriority := 0.
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16098	] do:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16099	defaultPriority := self unsignedLongAt:(60 + 1)
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16100	].
9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16101	^ defaultPriority
9475 c57956a348bf printing support fm parents: 9431 diff changeset	16102
c57956a348bf printing support fm parents: 9431 diff changeset	16103	"Created: / 01-08-2006 / 12:46:50 / fm"
10511 7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	16104	"Modified: / 16-04-2007 / 13:08:33 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	16105	!
c57956a348bf printing support fm parents: 9431 diff changeset	16106
c57956a348bf printing support fm parents: 9431 diff changeset	16107	pComment
10511 7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	16108	\|pComment\|
7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	16109
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16110	Error handle:[:ex \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16111	Transcript showCR: 'PrinterInfo2 error getting pComment - ', ex description.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16112	pComment := 0.
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16113	] do:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16114	pComment := self unsignedLongAt:(20 + 1).
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16115	].
9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16116
10627 bef737d1b8a7 care for -1 fd returned by CreatePipe Claus Gittinger <cg@exept.de> parents: 10622 diff changeset	16117	^ pComment == 0
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16118	ifTrue:''
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16119	ifFalse:[ (ExternalBytes address:pComment) stringAt:1 ]
9475 c57956a348bf printing support fm parents: 9431 diff changeset	16120
c57956a348bf printing support fm parents: 9431 diff changeset	16121	"Created: / 01-08-2006 / 14:02:55 / fm"
10511 7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	16122	"Modified: / 16-04-2007 / 13:08:39 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	16123	!
c57956a348bf printing support fm parents: 9431 diff changeset	16124
c57956a348bf printing support fm parents: 9431 diff changeset	16125	pDriverName
10511 7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	16126	\|pName\|
7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	16127
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16128	Error handle:[:ex \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16129	Transcript showCR: 'PrinterInfo2 error getting pDriverName - ', ex description.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16130	pName := 0.
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16131	] do:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16132	pName := self unsignedLongAt:(16 + 1).
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16133	].
10511 7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	16134	pName == 0 ifTrue:[^ ''].
7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	16135	^ (ExternalBytes address:pName) stringAt:1
9475 c57956a348bf printing support fm parents: 9431 diff changeset	16136
c57956a348bf printing support fm parents: 9431 diff changeset	16137	"Created: / 01-08-2006 / 14:05:18 / fm"
10511 7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	16138	"Modified: / 16-04-2007 / 13:08:43 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	16139	!
c57956a348bf printing support fm parents: 9431 diff changeset	16140
c57956a348bf printing support fm parents: 9431 diff changeset	16141	pLocation
10511 7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	16142	\|pLocation externalBytes\|
7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	16143
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16144	Error handle:[:ex \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16145	Transcript showCR: 'PrinterInfo2 error getting pLocation - ', ex description.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16146	pLocation := 0.
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16147	] do:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16148	pLocation := self unsignedLongAt:(24 + 1).
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16149	].
9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16150
10511 7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	16151	pLocation == 0 ifTrue:[^ nil].
7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	16152
7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	16153	externalBytes := ExternalBytes address:pLocation.
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	16154	^ externalBytes isEmpty
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16155	ifTrue:[ nil ]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16156	ifFalse:[ externalBytes stringAt:1 ]
9475 c57956a348bf printing support fm parents: 9431 diff changeset	16157
c57956a348bf printing support fm parents: 9431 diff changeset	16158	"Created: / 01-08-2006 / 14:03:21 / fm"
10098 7cb05f4cac0b * empty log message * fm parents: 10026 diff changeset	16159	"Modified: / 18-10-2006 / 12:06:45 / User"
10511 7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	16160	"Modified: / 16-04-2007 / 13:08:27 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	16161	!
c57956a348bf printing support fm parents: 9431 diff changeset	16162
c57956a348bf printing support fm parents: 9431 diff changeset	16163	priority
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16164
9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16165	\|priority\|
9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16166
9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16167	Error handle:[:ex \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16168	Transcript showCR: 'PrinterInfo2 error getting priority - ', ex description.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16169	priority := 0.
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16170	] do:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16171	priority := self unsignedLongAt: 56 + 1
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16172	].
9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16173	^ priority
9475 c57956a348bf printing support fm parents: 9431 diff changeset	16174
c57956a348bf printing support fm parents: 9431 diff changeset	16175	"Created: / 01-08-2006 / 14:40:08 / fm"
10511 7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	16176	"Modified: / 16-04-2007 / 13:09:02 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	16177	!
c57956a348bf printing support fm parents: 9431 diff changeset	16178
c57956a348bf printing support fm parents: 9431 diff changeset	16179	status
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16180
9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16181	\|status\|
9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16182
9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16183	Error handle:[:ex \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16184	Transcript showCR: 'PrinterInfo2 error getting status - ', ex description.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16185	status := -1.
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16186	] do:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16187	status := self unsignedLongAt: 72 + 1
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16188	].
9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	16189	^ status
9475 c57956a348bf printing support fm parents: 9431 diff changeset	16190
c57956a348bf printing support fm parents: 9431 diff changeset	16191	"Created: / 31-07-2006 / 11:08:05 / fm"
10511 7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	16192	"Modified: / 16-04-2007 / 13:08:59 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	16193	! !
c57956a348bf printing support fm parents: 9431 diff changeset	16194
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16195	!Win32OperatingSystem::RegistryEntry class methodsFor:'defaults'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16196
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16197	rootKeyNames
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16198	"returns a collection of root keyNames"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16199
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16200	^ #(
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16201	'HKEY_CLASSES_ROOT'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16202	'HKEY_CURRENT_USER'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16203	'HKEY_LOCAL_MACHINE'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16204	'HKEY_USERS'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16205	'HKEY_PERFORMANCE_DATA'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16206	'HKEY_CURRENT_CONFIG'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16207	'HKEY_DYN_DATA'
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16208	)
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16209	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16210
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16211	separator
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16212	"returns the registry-key-path separator character"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16213
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16214	^$\
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16215	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16216
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16217	!Win32OperatingSystem::RegistryEntry class methodsFor:'documentation'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16218
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16219	documentation
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16220	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16221	Interface to a WIN32 registry.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16222
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16223	As this is a private class, access it via
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16224	Win32OperatingSystem registryEntry
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16225
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16226	[author:]
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16227	Claus Gittinger (initial version & cleanup)
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16228	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16229	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16230
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16231	examples
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16232	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16233	retrieve an existing entry by key:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16234	[exBegin]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16235	\|k\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16236
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16237	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16238	[exEnd]
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16239
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16240
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16241	retrieve a non-existing entry by key:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16242	[exBegin]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16243	\|k\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16244
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16245	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\Software\xxx'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16246	[exEnd]
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16247
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16248
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16249	ask a keys value:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16250	[exBegin]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16251	\|k\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16252
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16253	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16254	Transcript show:'Windows serial NR:'; showCR:(k valueNamed:'ProductId').
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16255
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16256	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16257	Transcript showCR:(k valueNamed:'CurrentVersion').
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16258	[exEnd]
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16259
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16260
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16261	create a sub-key (if not already present):
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16262	[exBegin]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16263	\|k subKey\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16264
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16265	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16266	subKey := k createSubKeyNamed:'RegistryDemo'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16267	[exEnd]
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16268
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16269
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16270	change a keys value:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16271	[exBegin]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16272	\|k\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16273
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16274	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X\RegistryDemo'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16275	k valueNamed:'FooBarBaz' put:'a foo bar baz string'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16276	[exEnd]
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16277
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16278	delete a value:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16279	[exBegin]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16280	\|k\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16281
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16282	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X\RegistryDemo'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16283	k deleteValueNamed:'FooBarBaz'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16284	[exEnd]
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16285
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16286	delete a key:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16287	[exBegin]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16288	\|k\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16289
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16290	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16291	k deleteSubKeyNamed:'RegistryDemo'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16292	[exEnd]
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16293
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16294	enumerate keys:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16295	[exBegin]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16296	\|k\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16297
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16298	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\Software'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16299	k subKeysDo:[:subKey \|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16300	Transcript showCR:subKey path
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16301	]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16302	[exEnd]
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16303
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16304	enumerate all keys (recursive):
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16305	[exBegin]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16306	\|k\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16307
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16308	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\Software'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16309	k allSubKeysDo:[:subKey \|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16310	Transcript showCR:subKey path
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16311	]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16312	[exEnd]
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16313
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16314	fetch value by index:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16315	[exBegin]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16316	\|k\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16317
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16318	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\SOFTWARE\eXept\Smalltalk/X'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16319	Transcript showCR:(k valueNameAtIndex:0)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16320	[exEnd]
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16321
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16322
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16323	enumerate value names:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16324	[exBegin]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16325	\|k\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16326
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16327	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\SOFTWARE\eXept\Smalltalk/X'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16328	k valueNamesDo:[:nm \|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16329	Transcript showCR:nm.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16330	]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16331	[exEnd]
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16332
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16333	enumerate values:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16334	[exBegin]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16335	\|k\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16336
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16337	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\SOFTWARE\eXept\Smalltalk/X'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16338	k valueNamesAndValuesDo:[:nm :val \|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16339	Transcript showCR:(nm , ' -> ' , val storeString).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16340	]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16341	[exEnd]
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16342
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16343	search for a value (where does NT store the domain ?):
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16344	[exBegin]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16345	\|k\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16346
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16347	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\System'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16348	k subKeysDo:[:subKey \|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16349	subKey subKeysDo:[:subSubKey \|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16350	\|tcp params\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16351
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16352	(subSubKey path asLowercase endsWith:'services') ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16353	tcp := subSubKey subKeyNamed:'tcpip'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16354	tcp notNil ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16355	params := tcp subKeyNamed:'parameters'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16356	params notNil ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16357	Transcript showCR:'Domain is found in ' , params path ,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16358	' value: ' , (params valueNamed:'Domain').
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16359	params close.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16360	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16361	tcp close.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16362	]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16363	]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16364	]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16365	]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16366	[exEnd]
14514 e45969ab90ac class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14449 diff changeset	16367	register an exe for shell-open:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16368	[exBegin]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16369	\|k stx shell open cmd st_af edit st owl list id\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16370
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16371	k := Win32OperatingSystem registryEntry key:'HKEY_CURRENT_USER\Software\Classes\Applications'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16372	stx := k createSubKeyNamed:'SmalltalkX.exe'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16373	shell := stx createSubKeyNamed:'shell'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16374	open := shell createSubKeyNamed:'open'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16375	cmd := open createSubKeyNamed:'command'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16376	cmd defaultValue:(Character doubleQuote asString,OperatingSystem nameOfSTXExecutable,Character doubleQuote,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16377	' ',Character doubleQuote,'%1',Character doubleQuote).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16378
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16379	k := Win32OperatingSystem registryEntry key:'HKEY_CURRENT_USER\Software\Classes'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16380	st_af := k createSubKeyNamed:'st_auto_file'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16381	shell := st_af createSubKeyNamed:'shell'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16382	open := shell createSubKeyNamed:'open'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16383	cmd := open createSubKeyNamed:'command'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16384	cmd defaultValue:(Character doubleQuote asString,OperatingSystem nameOfSTXExecutable,Character doubleQuote,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16385	' --open ',Character doubleQuote,'%1',Character doubleQuote).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16386	edit := shell createSubKeyNamed:'edit'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16387	cmd := edit createSubKeyNamed:'command'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16388	cmd defaultValue:(Character doubleQuote asString,OperatingSystem nameOfSTXExecutable,Character doubleQuote,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16389	' --edit ',Character doubleQuote,'%1',Character doubleQuote).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16390
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16391	k := Win32OperatingSystem registryEntry key:'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16392	st := k createSubKeyNamed:'.st'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16393	owl := st createSubKeyNamed:'OpenWithList'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16394	list := owl valueNames.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16395	(list contains:[:k \| (owl valueNamed:k) = 'SmalltalkX.exe']) ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16396	Transcript showCR:'already registered.'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16397	] ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16398	id := ($a to:$z) detect:[:k \| (list includes:(k asString)) not] ifNone:nil.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16399	owl valueNamed:id asString put:'SmalltalkX.exe'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16400	]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16401	[exEnd]
14514 e45969ab90ac class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14449 diff changeset	16402
e45969ab90ac class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14449 diff changeset	16403
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16404
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16405
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16406	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16407	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16408
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16409	!Win32OperatingSystem::RegistryEntry class methodsFor:'initialization'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16410
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16411	initialize
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16412	Lobby := Registry new.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16413	ObjectMemory addDependent:self.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16414
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16415	HKEY_CLASSES_ROOT := %{ __MKEXTERNALADDRESS(HKEY_CLASSES_ROOT) %}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16416	HKEY_CURRENT_USER := %{ __MKEXTERNALADDRESS(HKEY_CURRENT_USER) %}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16417	HKEY_LOCAL_MACHINE := %{ __MKEXTERNALADDRESS(HKEY_LOCAL_MACHINE) %}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16418	HKEY_USERS := %{ __MKEXTERNALADDRESS(HKEY_USERS) %}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16419	HKEY_PERFORMANCE_DATA := %{ __MKEXTERNALADDRESS(HKEY_PERFORMANCE_DATA) %}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16420	HKEY_CURRENT_CONFIG := %{ __MKEXTERNALADDRESS(HKEY_CURRENT_CONFIG) %}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16421	HKEY_DYN_DATA := %{ __MKEXTERNALADDRESS(HKEY_DYN_DATA) %}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16422
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	16423	%{
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	16424	#ifndef HKEY_PERFORMANCE_TEXT
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	16425	/* sigh - not defined with borland-cc */
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	16426	# define HKEY_PERFORMANCE_TEXT (( HKEY ) (ULONG_PTR)((LONG)0x80000050) )
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	16427	#endif
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	16428	#ifndef HKEY_PERFORMANCE_NLSTEXT
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	16429	/* sigh - not defined with borland-cc */
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	16430	# define HKEY_PERFORMANCE_NLSTEXT (( HKEY ) (ULONG_PTR)((LONG)0x80000060) )
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	16431	#endif
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	16432	%}.
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	16433	HKEY_PERFORMANCE_TEXT := %{ __MKEXTERNALADDRESS(HKEY_PERFORMANCE_TEXT) %}.
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	16434	HKEY_PERFORMANCE_NLSTEXT := %{ __MKEXTERNALADDRESS(HKEY_PERFORMANCE_NLSTEXT) %}.
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	16435
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	16436	"
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	16437	self initialize
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16438	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16439
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16440	"Created: / 19.5.1999 / 21:39:57 / cg"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16441	"Modified: / 19.5.1999 / 22:45:31 / cg"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16442	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16443
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16444	rootKeyValueFor:specialKeyStringOrSymbol
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16445	"returns one of the root keys or nil
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16446	(these are shared and not finalized, as opposed to all other keys)"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16447
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16448	HKEY_CLASSES_ROOT isNil ifTrue:[self initialize].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16449
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16450	specialKeyStringOrSymbol = #'HKEY_CLASSES_ROOT' ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16451	^ HKEY_CLASSES_ROOT.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16452	].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16453	specialKeyStringOrSymbol = #'HKEY_CURRENT_USER' ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16454	^ HKEY_CURRENT_USER.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16455	].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16456	specialKeyStringOrSymbol = #'HKEY_LOCAL_MACHINE' ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16457	^ HKEY_LOCAL_MACHINE.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16458	].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16459	specialKeyStringOrSymbol = #'HKEY_USERS' ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16460	^ HKEY_USERS.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16461	].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16462	specialKeyStringOrSymbol = #'HKEY_PERFORMANCE_DATA' ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16463	^ HKEY_PERFORMANCE_DATA.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16464	].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16465	specialKeyStringOrSymbol = #'HKEY_CURRENT_CONFIG' ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16466	^ HKEY_CURRENT_CONFIG.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16467	].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16468	specialKeyStringOrSymbol = #'HKEY_DYN_DATA' ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16469	^ HKEY_DYN_DATA.
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	16470	].
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	16471	specialKeyStringOrSymbol = #'HKEY_PERFORMANCE_TEXT' ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16472	^ HKEY_PERFORMANCE_TEXT.
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	16473	].
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	16474	specialKeyStringOrSymbol = #'HKEY_PERFORMANCE_NLSTEXT' ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16475	^ HKEY_PERFORMANCE_NLSTEXT.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16476	].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16477
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16478	^ nil
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16479
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16480	"Created: / 19.5.1999 / 21:40:30 / cg"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16481	"Modified: / 24.12.1999 / 00:02:06 / cg"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16482	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16483
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16484	update:something with:aParameter from:changedObject
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16485	"handle image restarts and refetch registry handles"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16486
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16487	(something == #returnFromSnapshot) ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16488	self initialize
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16489	]
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16490
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16491	"Created: 15.6.1996 / 15:14:03 / cg"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16492	"Modified: 24.2.1997 / 22:08:05 / cg"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16493	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16494
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16495	!Win32OperatingSystem::RegistryEntry class methodsFor:'instance creation'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16496
9186 662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	16497	immediateHandle:aHandleValue
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	16498	\|h newEntry\|
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	16499
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	16500	aHandleValue isInteger ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16501	h := ExternalAddress newAddress:aHandleValue
9186 662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	16502	] ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16503	h := aHandleValue
9186 662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	16504	].
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	16505
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	16506	"/ rootKeys are not registered for RegClose ...
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	16507	newEntry := self basicNew setHandle:h path:nil.
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	16508	newEntry registerForFinalization.
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	16509	^ newEntry.
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	16510
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	16511	"
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	16512	RegistryEntry immediateHandle:16r80000002
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	16513	"
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	16514	!
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	16515
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16516	key:aKeyNamePath
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16517	"retrieve an entry by full path name (starting at a root)"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16518
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16519	^ self key:aKeyNamePath flags:nil createIfAbsent:false
13224 751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	16520
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	16521	"
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	16522	self key:'HKEY_LOCAL_MACHINE'
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	16523	self key:'HKEY_LOCAL_MACHINE\Software'
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	16524	self key:'HKEY_LOCAL_MACHINE\Software\Borland\'
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	16525	self key:'HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X\3.2.5\Directory'
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	16526	(self key:'HKEY_CLASSES_ROOT\MicrosoftWorks.WordProcessor\CLSID') valueNamed:''
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	16527	"
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	16528
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	16529	"Modified: / 19-01-2011 / 15:59:36 / cg"
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	16530	!
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	16531
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	16532	key:aKeyNamePath createIfAbsent:createIfAbsent
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	16533	"retrieve an entry by full path name (starting at a root)"
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	16534
17601 f740dbc12977 Fix last change Stefan Vogel <sv@exept.de> parents: 17599 diff changeset	16535	^ self key:aKeyNamePath flags:nil createIfAbsent:createIfAbsent
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16536
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16537	"
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16538	self key:'HKEY_LOCAL_MACHINE'
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16539	self key:'HKEY_LOCAL_MACHINE\Software'
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16540	self key:'HKEY_LOCAL_MACHINE\Software\Borland\'
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16541	self key:'HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X\3.2.5\Directory'
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16542	(self key:'HKEY_CLASSES_ROOT\MicrosoftWorks.WordProcessor\CLSID') valueNamed:''
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16543	"
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16544
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16545	"Created: / 19-01-2011 / 15:59:21 / cg"
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16546	!
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16547
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16548	key:aKeyNamePath flags:flags
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16549	"retrieve an entry by full path name (starting at a root).
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16550	flags may be one of:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16551	#KEY_WOW64_64KEY to force access to the 64Bit Windows key,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16552	#KEY_WOW64_32KEY to force access to the 32Bit Windows key,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16553	or nil, to access the key (32/64) for the current application"
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16554
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16555	^ self key:aKeyNamePath flags:flags createIfAbsent:false
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16556
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16557	"
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16558	self key:'HKEY_LOCAL_MACHINE'
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16559	self key:'HKEY_LOCAL_MACHINE\Software'
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16560	self key:'HKEY_LOCAL_MACHINE\Software\Borland\'
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16561	self key:'HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X\3.2.5\Directory'
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16562	(self key:'HKEY_CURRENT_USER\Console' flags:#KEY_WOW64_64KEY) subKeys
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16563	(self key:'HKEY_CURRENT_USER\Console' flags:#KEY_WOW64_32KEY) subKeys
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16564	"
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16565
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16566	"Modified: / 19-01-2011 / 15:59:36 / cg"
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16567	!
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16568
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16569	key:aKeyNamePath flags:flags createIfAbsent:createIfAbsent
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16570	"retrieve an entry by full path name (starting at a root).
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16571	flags may be one of:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16572	#KEY_WOW64_64KEY to force access to the 64Bit Windows key,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16573	#KEY_WOW64_32KEY to force access to the 32Bit Windows key,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16574	or nil, to access the key (32/64) for the current application"
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16575
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16576	\|idx first rest root\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16577
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16578	HKEY_CLASSES_ROOT isNil ifTrue:[self initialize].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16579
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16580	idx := aKeyNamePath indexOf:(self separator).
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16581	idx == 0 ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16582	first := aKeyNamePath.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16583	rest := nil.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16584	] ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16585	first := aKeyNamePath copyTo:idx-1.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16586	rest := aKeyNamePath copyFrom:idx+1
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16587	].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16588
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16589	first := first asUppercase.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16590
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16591	"/ the first is a pseudo name
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16592	root := self rootKey:first.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16593	root isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16594	^ nil
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16595	].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16596
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16597	rest size == 0 ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16598	^ root
10758 36af354a5b4b * empty log message * Claus Gittinger <cg@exept.de> parents: 10757 diff changeset	16599	].
36af354a5b4b * empty log message * Claus Gittinger <cg@exept.de> parents: 10757 diff changeset	16600
36af354a5b4b * empty log message * Claus Gittinger <cg@exept.de> parents: 10757 diff changeset	16601	Error handle:[:ex \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16602	^ nil
10758 36af354a5b4b * empty log message * Claus Gittinger <cg@exept.de> parents: 10757 diff changeset	16603	] do:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16604	^ root subKeyNamed:rest flags:flags createIfAbsent:createIfAbsent.
10758 36af354a5b4b * empty log message * Claus Gittinger <cg@exept.de> parents: 10757 diff changeset	16605	].
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16606
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16607	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16608	self key:'HKEY_LOCAL_MACHINE'
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16609	self key:'HKEY_LOCAL_MACHINE\Software'
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16610	self key:'HKEY_LOCAL_MACHINE\Software\Borland\'
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16611	self key:'HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X\3.2.5\Directory'
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16612	(self key:'HKEY_CLASSES_ROOT\MicrosoftWorks.WordProcessor\CLSID' flags:#KEY_WOW64_64KEY) valueNamed:''
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16613	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16614
13224 751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	16615	"Created: / 19-01-2011 / 15:59:21 / cg"
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16616	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16617
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16618	key:aKeyNamePath valueNamed:aValueName
25095 ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	16619	"retrieve a registry value by full path name(aKeyNamePath starting at a root)
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16620	and valueName.
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16621	Answer nil, if the registry entry or the entry's value does not exist-"
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16622
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16623	\|regEntry value\|
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16624
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16625	regEntry := self key:aKeyNamePath flags:nil createIfAbsent:false.
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16626	regEntry notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16627	value := regEntry valueNamed:aValueName.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16628	regEntry close.
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16629	].
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16630	^ value.
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16631
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16632	"
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16633	self key:'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders'
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16634	valueNamed:'AppData'
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16635	"
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16636
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16637	"Created: / 16-05-2019 / 18:04:01 / Stefan Vogel"
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16638	!
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16639
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16640	rootKey:aRootKeyStringOrSymbol
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16641	"retrieve one of the root entries by name"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16642
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16643	\|keyVal\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16644
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16645	keyVal := self rootKeyValueFor:aRootKeyStringOrSymbol.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16646	keyVal isNil ifTrue:[^ nil].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16647	"/ rootKeys are not registered for RegClose ...
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16648	^ self basicNew setHandle:keyVal path:aRootKeyStringOrSymbol.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16649
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16650	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16651	RegistryEntry rootKey:#'HKEY_LOCAL_MACHINE'
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16652	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16653	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16654
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16655	!Win32OperatingSystem::RegistryEntry class methodsFor:'misc queries'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16656
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16657	classIDOf:applicationName
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16658	\|k clsIDString\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16659
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16660	k := self key:'HKEY_CLASSES_ROOT\',applicationName,'\CLSID'.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16661	k isNil ifTrue:[ ^ nil ].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16662
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16663	clsIDString := k defaultValue.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16664	k close.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16665	^ UUID fromString:clsIDString
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16666
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16667	"
9170 10277c16d1fc * empty log message * Claus Gittinger <cg@exept.de> parents: 9169 diff changeset	16668	self classIDOf:'MicrosoftWorks.WordProcessor'
9167 aaf9ce008153 * empty log message * Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	16669	self classIDOf:'AcroPDF.PDF'
aaf9ce008153 * empty log message * Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	16670	self classIDOf:'PDF.PdfCtrl.5'
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16671	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16672	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16673
9212 1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16674	commandTemplateToOpenMimeType:mimeType
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16675	"given a mimeType, retrieve the command-template of an application for opening the document.
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16676	Return nil, if no such application is known.
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16677	Do nor use directly - this is a helper for MIMEType"
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16678
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16679	^ self commandTemplateToOpenSuffix:(self extensionForMimeType:mimeType)
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16680
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16681	"
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16682	Win32OperatingSystem::RegistryEntry commandTemplateToOpenMimeType:'application/pdf'
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16683	Win32OperatingSystem::RegistryEntry commandTemplateToOpenMimeType:'audio/mp3'
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16684	Win32OperatingSystem::RegistryEntry commandTemplateToOpenMimeType:'video/avi'
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16685	Win32OperatingSystem::RegistryEntry commandTemplateToOpenMimeType:'application/x-zip-compressed'
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16686	"
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16687	!
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16688
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16689	commandTemplateToOpenSuffix:suffixArg
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16690	"given a suffix, retrieve the command template for an application to print the document.
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16691	Do nor use directly - this is a helper for MIMEType"
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16692
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16693	^ self shellCommandTemplateFor:'open' onSuffix:suffixArg
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16694
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16695	"
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16696	self commandTemplateToOpenSuffix:'pdf'
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16697	self commandTemplateToOpenSuffix:'zip'
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16698	"
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16699	!
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16700
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16701	commandTemplateToPrintMimeType:mimeType
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16702	"given a mimeType, retrieve the command-template of an application for printing the document.
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16703	Return nil, if no such application is known.
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16704	Do nor use directly - this is a helper for MIMEType"
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16705
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16706	^ self commandTemplateToPrintSuffix:(self extensionForMimeType:mimeType)
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16707
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16708	"
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	16709	Win32OperatingSystem::RegistryEntry commandTemplateToPrintMimeType:'application/pdf'
51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	16710	Win32OperatingSystem::RegistryEntry commandTemplateToPrintMimeType:'audio/mp3'
9212 1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16711	"
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16712	!
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16713
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16714	commandTemplateToPrintSuffix:suffixArg
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16715	"given a suffix, retrieve the command template for an application to open the document.
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16716	Do nor use directly - this is a helper for MIMEType"
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16717
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16718	^ self shellCommandTemplateFor:'print' onSuffix:suffixArg
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16719
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16720	"
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	16721	self commandTemplateToPrintSuffix:'pdf'
51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	16722	self commandTemplateToPrintSuffix:'zip'
9212 1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16723	"
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16724	!
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16725
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16726	executableForMimeType:mimeType
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16727	"given a mimeType, retrieve the path to an application from the registry"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16728
9212 1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16729	<resource: #obsolete>
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16730
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16731	self obsoleteMethodWarning:'use commandTemplateToOpenMimeType:'.
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16732	^ self commandTemplateToOpenMimeType:mimeType
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16733
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16734	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16735	Win32OperatingSystem::RegistryEntry executableForMimeType:'application/pdf'
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16736	Win32OperatingSystem::RegistryEntry executableForMimeType:'audio/mp3'
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16737	Win32OperatingSystem::RegistryEntry executableForMimeType:'video/avi'
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16738	Win32OperatingSystem::RegistryEntry executableForMimeType:'application/x-zip-compressed'
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16739	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16740	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16741
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16742	executableForSuffix:suffixArg
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16743	"given a suffix, retrieve the path to an application from the registry"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16744
9212 1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16745	<resource: #obsolete>
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16746
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16747	self obsoleteMethodWarning:'use commandTemplateToOpenSuffix:'.
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16748	^ self commandTemplateToOpenSuffix:suffixArg.
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16749
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16750	"
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	16751	self executableForSuffix:'pdf'
9212 1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16752	self executableForSuffix:'zip'
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16753	"
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16754	!
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16755
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16756	extensionForMimeType:mimeType
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16757	"HELPER: given a mimeType, retrieve the file extension or nil (if unknown)"
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16758
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16759	^ self key:'HKEY_CLASSES_ROOT\MIME\Database\Content Type\', mimeType
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16760	valueNamed:'extension'.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16761
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16762
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16763	"
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16764	self extensionForMimeType:'text/html'
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16765	"
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16766
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16767	"Modified: / 16-05-2019 / 18:56:46 / Stefan Vogel"
9212 1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16768	!
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16769
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16770	shellCommandTemplateFor:operation onSuffix:suffixArg
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16771	"HELPER: given a suffix, and an operation, retrieve a command template for an application"
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16772
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16773	\|fkey cmd suffix redirect\|
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16774
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16775	suffix := suffixArg.
9212 1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16776	suffix isNil ifTrue:[^ nil].
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	16777
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16778	(suffix startsWith:'.') ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16779	suffix := suffix copyFrom:2
25095 ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	16780	].
ed06cbc9f0b8 fix win10 detection Claus Gittinger <cg@exept.de> parents: 25093 diff changeset	16781	fkey := self
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16782	key:'HKEY_CLASSES_ROOT\.',suffix
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16783	valueNamed:''.
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16784
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16785	fkey isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16786	fkey := suffix,'_auto_file'
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16787	].
9257 e0554fbd09d3 added redirect for RegistryEntry sr parents: 9255 diff changeset	16788
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16789	fkey notEmptyOrNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16790	redirect := self key:('HKEY_CLASSES_ROOT\' , fkey , '\CurVer') valueNamed:''.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16791	redirect isNil ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16792	cmd := self key:('HKEY_CLASSES_ROOT\' , (fkey) , '\shell\',operation,'\command') valueNamed:''.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16793	] ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16794	cmd := self key:('HKEY_CLASSES_ROOT\' , (redirect) , '\shell\',operation,'\command') valueNamed:''.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16795	].
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16796	].
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	16797
51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	16798	^ cmd
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16799
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16800	"
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16801	self shellCommandTemplateFor:'open' onSuffix:'pdf'
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16802	"
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16803
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16804	"Modified (comment): / 16-05-2019 / 19:02:51 / Stefan Vogel"
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16805	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16806
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16807	!Win32OperatingSystem::RegistryEntry class methodsFor:'registry access'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16808
25209 8293e76f3a08 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25200 diff changeset	16809	defaultValueFor:keyPath
8293e76f3a08 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25200 diff changeset	16810	"convenient accessing method;
8293e76f3a08 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25200 diff changeset	16811	Looks for the default value under keyPath;
8293e76f3a08 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25200 diff changeset	16812	returns nil if either not found, or no string value"
8293e76f3a08 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25200 diff changeset	16813
8293e76f3a08 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25200 diff changeset	16814	\|k\|
8293e76f3a08 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25200 diff changeset	16815
8293e76f3a08 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25200 diff changeset	16816	k := self key:keyPath.
8293e76f3a08 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25200 diff changeset	16817	k notNil ifTrue:[^ k defaultValue].
8293e76f3a08 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25200 diff changeset	16818	^ nil
8293e76f3a08 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25200 diff changeset	16819
8293e76f3a08 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25200 diff changeset	16820	"
8293e76f3a08 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25200 diff changeset	16821	self defaultValueFor:'HKEY_LOCAL_MACHINE\Software\IronPython\2.7\InstallPath'
8293e76f3a08 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25200 diff changeset	16822	self defaultValueFor:'HKEY_LOCAL_MACHINE\Software\xxxIronPython\2.7\InstallPath'
8293e76f3a08 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25200 diff changeset	16823	self defaultValueFor:'xHKEY_LOCAL_MACHINE\Software\xxxIronPython\2.7\InstallPath'
8293e76f3a08 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25200 diff changeset	16824	"
8293e76f3a08 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25200 diff changeset	16825	!
8293e76f3a08 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25200 diff changeset	16826
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16827	stringValueFor:valueName atKey:keyPath
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16828	"convenient accessing method;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16829	Looks for a string value under keyPath;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16830	returns nil if either not found, or no string value"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16831
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16832	\|v\|
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16833
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16834	v := self key:keyPath valueNamed:valueName.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16835	v isString ifFalse:[^ nil].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16836	^ v
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16837
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16838	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16839	self
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16840	stringValueFor:'Content Type'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16841	atKey:'HKEY_CLASSES_ROOT\.au'
24124 ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16842	"
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16843
ad6d160880eb #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 24122 diff changeset	16844	"Modified: / 16-05-2019 / 19:03:39 / Stefan Vogel"
9155 8b2ca287c1bb * empty log message * Claus Gittinger <cg@exept.de> parents: 9154 diff changeset	16845	! !
8b2ca287c1bb * empty log message * Claus Gittinger <cg@exept.de> parents: 9154 diff changeset	16846
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16847	!Win32OperatingSystem::RegistryEntry methodsFor:'accessing'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16848
9186 662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	16849	handleValue
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	16850	^ handle address
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	16851	!
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	16852
17619 6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	16853	isNew
6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	16854	"answer true, if this key hats just be created, false if it did already exist"
6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	16855
6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	16856	^ isNew ? false
6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	16857	!
6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	16858
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16859	name
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16860	"return the keys name component (subKey name within my
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16861	parent key)"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16862
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16863	\|idx\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16864
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16865	idx := path lastIndexOf:(self class separator).
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16866	idx == 0 ifTrue:[^ path].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16867	^ path copyFrom:idx+1
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16868	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16869
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16870	path
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16871	"return the keys full key path name"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16872
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16873	^ path.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16874	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16875
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16876	!Win32OperatingSystem::RegistryEntry methodsFor:'accessing subkeys'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16877
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16878	createSubKeyNamed:subKeyString
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16879	"create a new key below mySelf and return a new registry entry for it.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16880	If it already exists, return it.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16881	Return nil if the new key cannot be created."
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16882
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16883	^ self subKeyNamed:subKeyString flags:nil createIfAbsent:true
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16884
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16885	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16886	\|top sub\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16887
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16888	top := self key:'HKEY_CURRENT_USER'.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16889	sub := top createSubKeyNamed:'FooBarBaz'.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16890	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16891	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16892
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16893	createSubKeyNamed:subKeyString flags:flags
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16894	"create a new key below mySelf and return a new registry entry for it.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16895	If it already exists, return it.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16896	Return nil if the new key cannot be created.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16897	flags may be one of:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16898	#KEY_WOW64_64KEY to force access to the 64Bit Windows key,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16899	#KEY_WOW64_32KEY to force access to the 32Bit Windows key,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16900	or nil, to access the key (32/64) for the current application"
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16901
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16902
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16903	^ self subKeyNamed:subKeyString flags:flags createIfAbsent:true
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16904
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16905	"
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16906	\|top sub\|
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16907
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16908	top := self key:'HKEY_CURRENT_USER'.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16909	sub := top createSubKeyNamed:'FooBarBaz' flags:nil.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16910	"
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16911	!
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16912
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16913	deleteSubKeyNamed:subKeyString
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16914	"delete a key below mySelf.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16915	Return true on success."
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16916
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16917	^ self deleteSubKeyNamed:subKeyString flags:nil
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16918
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16919	"
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16920	\|top sub\|
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16921
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16922	top := self key:'HKEY_CURRENT_USER'.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16923	sub := top createSubKeyNamed:'FooBarBaz'.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16924	top deleteSubKeyNamed:'FooBarBaz'.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16925	"
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16926	!
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16927
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16928	deleteSubKeyNamed:subKeyString flags:flags
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16929	"delete a key below mySelf.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16930	Return true on success.
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	16931	subKeyString may be a string or unicode16string;
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16932	flags may be one of:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16933	#KEY_WOW64_64KEY to force access to the 64Bit Windows key,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16934	#KEY_WOW64_32KEY to force access to the 32Bit Windows key,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16935	or nil, to access the key (32/64) for the current application.
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16936
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16937	CAVEAT: due to a missing library entry in the BCC system,
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16938	the flags are currently ignored"
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16939
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16940	\|subKeyStringZ errorNumber\|
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16941
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16942	subKeyStringZ := subKeyString asUnicode16StringZ.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16943
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16944	%{
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16945	#ifndef KEY_WOW64_64KEY
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16946	// this is missing in BCC header files
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16947	# define KEY_WOW64_64KEY 0x0100
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16948	# define KEY_WOW64_32KEY 0x0200
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16949	#endif
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16950
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16951	HKEY myKey, subKey = 0;
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	16952	int _retVal;
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16953	int _flags = 0;
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16954
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16955	if (flags != nil) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16956	if (flags == @symbol(KEY_WOW64_64KEY)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16957	_flags = KEY_WOW64_64KEY;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16958	} else if (flags == @symbol(KEY_WOW64_32KEY)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16959	_flags = KEY_WOW64_32KEY;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16960	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16961	errorNumber = @symbol(badArgument2);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16962	goto out;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16963	}
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16964	}
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16965
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16966	if (__isExternalAddressLike(__INST(handle))
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16967	&& __isUnicode16String(subKeyStringZ)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16968	myKey = (HKEY)__externalAddressVal(__INST(handle));
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16969	#ifdef __BORLANDC__
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16970	_retVal = RegDeleteKeyW(myKey, __unicode16StringVal(subKeyStringZ));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16971	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16972	_retVal = RegDeleteKeyExW(myKey,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16973	__unicode16StringVal(subKeyStringZ),
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16974	_flags,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16975	0); // reserved
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16976	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16977	if (_retVal == ERROR_SUCCESS) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16978	RETURN (true);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16979	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16980	if ((_retVal != ERROR_PATH_NOT_FOUND)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16981	&& (_retVal != ERROR_FILE_NOT_FOUND)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16982	errorNumber = __MKSMALLINT(_retVal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16983	}
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16984	}
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16985	out:;
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16986	%}.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16987
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	16988	errorNumber notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	16989	(OperatingSystem errorHolderForNumber:errorNumber) reportError.
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	16990	].
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16991	^ false
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16992
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16993	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16994	\|top sub\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16995
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16996	top := self key:'HKEY_CURRENT_USER'.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16997	sub := top createSubKeyNamed:'FooBarBaz'.
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16998	top deleteSubKeyNamed:'FooBarBaz' flags:nil.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16999	"
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17000
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17001	"
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17002	\|top sub\|
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17003
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17004	top := self key:'HKEY_CURRENT_USER\Software\ExeptTest'.
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17005	top deleteSubKeyNamed:'Fooαβγ' flags:nil.
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17006	"
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17007	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17008
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17009	remoteKeyOnHost:hostName
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17010	"return the corresponding registry entry from
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17011	a remote computer's registry."
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17012
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17013	\|hostNameZ newEntry remoteHandle errorNumber\|
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17014
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17015	hostName isSingleByteString ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17016	hostNameZ := hostName asUnicode16StringZ.
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17017	].
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17018	%{
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17019	HKEY myKey, remoteKey = 0;
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	17020	int _retVal;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17021
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17022	if (__isExternalAddressLike(__INST(handle))) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17023	myKey = (HKEY)__externalAddressVal(__INST(handle));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17024
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17025	if ((hostNameZ != nil) && __isUnicode16String(hostNameZ)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17026	_retVal = RegConnectRegistryW(__unicode16StringVal(hostNameZ), myKey, &remoteKey);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17027	} else if (__isStringLike(hostName)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17028	_retVal = RegConnectRegistryA(__stringVal(hostName), myKey, &remoteKey);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17029	} else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17030	goto badArg;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17031
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17032	switch (_retVal) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17033	case ERROR_SUCCESS:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17034	remoteHandle = __MKEXTERNALADDRESS(remoteKey);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17035	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17036
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17037	case ERROR_PATH_NOT_FOUND:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17038	case ERROR_FILE_NOT_FOUND:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17039	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17040
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17041	default:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17042	errorNumber = __MKSMALLINT(_retVal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17043	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17044	}
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17045	}
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17046	badArg: ;;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17047	%}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17048	remoteHandle notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17049	newEntry := self class basicNew setHandle:remoteHandle path:path.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17050	newEntry registerForFinalization.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17051	^ newEntry.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17052	].
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	17053	errorNumber notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17054	(OperatingSystem errorHolderForNumber:errorNumber) reportError.
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17055	].
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17056	self primitiveFailed:'bad argument'.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17057	^ nil
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17058
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17059	"will report a missing peer:
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17060
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17061	\|top remote\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17062
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17063	top := self key:'HKEY_LOCAL_MACHINE'.
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17064	remote := top remoteKeyOnHost:'fooBarBaz'
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17065	"
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17066
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17067	"will either report a missing peer or endpoint:
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17068
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17069	\|top remote\|
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17070
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17071	top := self key:'HKEY_LOCAL_MACHINE'.
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17072	remote := top remoteKeyOnHost:'www.exept.de'
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17073	"
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17074
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17075	"if the host exists, you'll likely get a permission error:
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17076	\|top remote\|
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17077
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17078	top := self key:'HKEY_LOCAL_MACHINE'.
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17079	remote := top remoteKeyOnHost:'sr-laptop'
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17080	"
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17081
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17082	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17083	\|top remote\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17084
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17085	top := self key:'HKEY_USERS'.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17086	remote := top remoteKeyOnHost:'BETTI'
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17087	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17088	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17089	\|top remote\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17090
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17091	top := self key:'HKEY_LOCAL_MACHINE'.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17092	remote := top remoteKeyOnHost:'JOSHUA'
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17093	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17094	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17095	\|top remote\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17096
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17097	top := self key:'HKEY_USERS'.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17098	remote := top remoteKeyOnHost:'JOSHUA'
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17099	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17100	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17101
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17102	subKeyAtIndex:subKeyIndex
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17103	"return a new registry entry, below mySelf for the given subKey index.
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17104	Return nil if no such key exists.
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17105	To get the subkeys, call with increasing index, until a nil is returned."
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17106
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17107	\|subKeyName errorNumber\|
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17108
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17109	%{
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17110	#ifndef MAX_NUMCHARS
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17111	# define MAX_NUMCHARS 256
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17112	#endif
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17113	HKEY myKey, subKey = 0;
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17114	WCHAR nameBuffer[MAX_NUMCHARS];
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17115	DWORD nameSize = MAX_NUMCHARS - 1;
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17116	WCHAR classNameBuffer[MAX_NUMCHARS];
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17117	DWORD classNameSize = MAX_NUMCHARS - 1;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17118	FILETIME modificationTime;
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	17119	int _retVal;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17120
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17121	if (__isExternalAddressLike(__INST(handle))
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17122	&& __isSmallInteger(subKeyIndex)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17123	myKey = (HKEY)__externalAddressVal(__INST(handle));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17124	if ((_retVal = RegEnumKeyExW(myKey, __intVal(subKeyIndex),
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17125	nameBuffer, &nameSize,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17126	NULL,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17127	classNameBuffer, &classNameSize,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17128	&modificationTime)) == ERROR_SUCCESS) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17129	nameBuffer[nameSize] = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17130	subKeyName = __MKU16STRING(nameBuffer);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17131	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17132	if ((_retVal != ERROR_PATH_NOT_FOUND)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17133	&& (_retVal != ERROR_FILE_NOT_FOUND)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17134	&& (_retVal != ERROR_NO_MORE_ITEMS)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17135	errorNumber = __MKSMALLINT(_retVal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17136	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17137	}
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17138	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17139	%}.
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	17140	subKeyName notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17141	subKeyName := subKeyName asSingleByteStringIfPossible.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17142	^ self subKeyNamed:subKeyName.
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	17143	].
2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	17144	errorNumber notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17145	(OperatingSystem errorHolderForNumber:errorNumber) reportError.
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17146	].
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17147	^ nil
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17148
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17149	"
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17150	\|top sub\|
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17151
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17152	top := self key:'HKEY_CURRENT_USER'.
22246 436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	17153	sub := top subKeyAtIndex:0.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	17154	sub := top subKeyAtIndex:1.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	17155	sub := top subKeyAtIndex:2.
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17156	"
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17157
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17158	"
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17159	\|top sub\|
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17160
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17161	top := self key:'HKEY_CURRENT_USER\Software\ExeptTest'.
22246 436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	17162	sub := top subKeyAtIndex:0.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	17163	sub := top subKeyAtIndex:1.
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17164	"
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17165	!
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17166
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17167	subKeyNameAndClassAtIndex:subKeyIndex
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17168	"return the name and className of the given subKey at index as a pair.
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17169	Each of the pair may be a string or unicode16string.
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17170	Return nil if no such key exists."
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17171
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17172	\|subKeyName subKeyClassName errorNumber\|
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17173
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17174	%{
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17175	#ifndef MAX_NUMCHARS
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17176	# define MAX_NUMCHARS 256
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17177	#endif
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17178
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17179	HKEY myKey, subKey = 0;
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17180	WCHAR nameBuffer[MAX_NUMCHARS];
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17181	WCHAR classNameBuffer[MAX_NUMCHARS];
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17182	DWORD nameSize = MAX_NUMCHARS - 1;
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17183	DWORD classNameSize = MAX_NUMCHARS - 1;
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17184	FILETIME modificationTime;
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17185	int _retVal;
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17186
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17187	if (__isExternalAddressLike(__INST(handle))
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17188	&& __isSmallInteger(subKeyIndex)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17189	myKey = (HKEY)__externalAddressVal(__INST(handle));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17190	_retVal = RegEnumKeyExW(myKey, __intVal(subKeyIndex),
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17191	nameBuffer, &nameSize,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17192	NULL,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17193	classNameBuffer, &classNameSize,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17194	&modificationTime);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17195
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17196	if (_retVal == ERROR_SUCCESS) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17197	nameBuffer[nameSize] = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17198	classNameBuffer[classNameSize] = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17199	subKeyName = __mkStringOrU16String_maxlen(nameBuffer, nameSize);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17200	subKeyClassName = __mkStringOrU16String_maxlen(classNameBuffer, classNameSize);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17201	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17202	if ((_retVal != ERROR_PATH_NOT_FOUND)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17203	&& (_retVal != ERROR_FILE_NOT_FOUND)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17204	&& (_retVal != ERROR_NO_MORE_ITEMS)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17205	errorNumber = __MKSMALLINT(_retVal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17206	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17207	}
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17208	}
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17209	%}.
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17210	subKeyName notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17211	^ {subKeyName . subKeyClassName}.
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17212	].
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17213	errorNumber notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17214	(OperatingSystem errorHolderForNumber:errorNumber) reportError.
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17215	].
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17216	"/ no more items
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	17217	^ nil
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17218
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17219	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17220	\|top sub\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17221
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17222	top := self key:'HKEY_LOCAL_MACHINE'.
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17223	sub := top subKeyNameAndClassAtIndex:0.
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17224	sub := top subKeyNameAndClassAtIndex:1.
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17225	"
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17226
19336 1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	17227
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	17228	"
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	17229	\|top sub\|
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	17230
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17231	top := self key:'HKEY_CURRENT_USER\Software\'.
22246 436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	17232	sub := top subKeyNameAndClassAtIndex:0.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	17233	sub := top subKeyNameAndClassAtIndex:1.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	17234	sub := top subKeyNameAndClassAtIndex:2.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	17235	sub := top subKeyNameAndClassAtIndex:3.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	17236	sub := top subKeyNameAndClassAtIndex:4.
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17237	"
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17238
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17239	"
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17240	\|top sub\|
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17241
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17242	top := self key:'HKEY_CURRENT_USER\Software\ExeptTest'.
22246 436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	17243	sub := top subKeyNameAndClassAtIndex:0.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	17244	sub := top subKeyNameAndClassAtIndex:1.
19336 1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	17245	"
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	17246	!
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	17247
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17248	subKeyNamed:subKeyString
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17249	"return a new registry entry below mySelf with the given subKey.
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17250	subKeyString may be a string or unicode16string.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17251	Return nil if no such key exists"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17252
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17253	^ self subKeyNamed:subKeyString flags:nil createIfAbsent:false
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17254
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17255	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17256	\|top sub\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17257
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17258	top := self key:'HKEY_LOCAL_MACHINE'.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17259	sub := top subKeyNamed:'Software'
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17260	"
13224 751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	17261	!
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	17262
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	17263	subKeyNamed:subKeyString createIfAbsent:createIfAbsent
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	17264	"return a new registry entry below mySelf with the given subKey.
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17265	subKeyString may be a string or unicode16string.
13224 751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	17266	If no such key exists and createIfAbsent is true, the key is created.
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	17267	Otherwise, nil is returned"
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	17268
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17269	^ self subKeyNamed:subKeyString flags:nil createIfAbsent:createIfAbsent
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17270	!
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17271
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17272	subKeyNamed:subKeyString flags:flags
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17273	"return a new registry entry below mySelf with the given subKey.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17274	Return nil if no such key exists.
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17275	subKeyString may be a string or unicode16string.
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17276	flags may be one of:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17277	#KEY_WOW64_64KEY to force access to the 64Bit Windows key,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17278	#KEY_WOW64_32KEY to force access to the 32Bit Windows key,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17279	or nil, to access the key (32/64) for the current application"
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17280
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17281
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17282	^ self subKeyNamed:subKeyString flags:flags createIfAbsent:false
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17283	!
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17284
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17285	subKeyNamed:subKeyString flags:flags createIfAbsent:createIfAbsent
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17286	"return a new registry entry below mySelf with the given subKey.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17287	If no such key exists and createIfAbsent is true, the key is created.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17288	Otherwise, nil is returned.
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17289	subKeyString may be a string or unicode16string.
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17290	flags may be one of:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17291	#KEY_WOW64_64KEY to force access to the 64Bit Windows key,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17292	#KEY_WOW64_32KEY to force access to the 32Bit Windows key,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17293	or nil, to access the key (32/64) for the current application"
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17294
17619 6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	17295	\|subKeyStringZ newEntry subHandle errorNumber disposition\|
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17296
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17297	subKeyStringZ := subKeyString asUnicode16StringZ.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17298
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17299	%{
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17300	#ifndef KEY_WOW64_64KEY
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17301	// this is missing in BCC header files
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17302	# define KEY_WOW64_64KEY 0x0100
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17303	# define KEY_WOW64_32KEY 0x0200
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17304	#endif
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17305
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17306	HKEY myKey, subKey = 0;
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17307	int _retVal;
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17308	int _flags = 0;
17619 6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	17309	int _disposition = 0;
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17310
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17311	if (flags != nil) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17312	if (flags == @symbol(KEY_WOW64_64KEY)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17313	_flags = KEY_WOW64_64KEY;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17314	} else if (flags == @symbol(KEY_WOW64_32KEY)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17315	_flags = KEY_WOW64_32KEY;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17316	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17317	errorNumber = @symbol(badArgument2);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17318	goto out;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17319	}
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17320	}
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17321
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17322	if (__isExternalAddressLike(__INST(handle))
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17323	&& __isUnicode16String(subKeyStringZ)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17324	myKey = (HKEY)__externalAddressVal(__INST(handle));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17325	if (createIfAbsent == true) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17326	_retVal = RegCreateKeyExW(myKey,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17327	__unicode16StringVal(subKeyStringZ),
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17328	0, // reserved
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17329	NULL, // class
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17330	0, // options
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17331	KEY_ALL_ACCESS\|_flags, // rights
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17332	NULL, // securityAttributes - handle cannot be inherited
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17333	&subKey,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17334	&_disposition); // disposition (created vs. opened)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17335	disposition = _disposition == REG_CREATED_NEW_KEY ? true : false;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17336	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17337	_retVal = RegOpenKeyExW(
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17338	myKey,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17339	__unicode16StringVal(subKeyStringZ),
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17340	0,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17341	KEY_ALL_ACCESS\|_flags,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17342	&subKey);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17343
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17344	if (!(_retVal == 0)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17345	// try again with less permission
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17346	_retVal = RegOpenKeyExW(
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17347	myKey,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17348	__unicode16StringVal(subKeyStringZ),
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17349	0,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17350	KEY_READ \|_flags,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17351	&subKey);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17352	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17353
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17354	disposition = false;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17355	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17356	if (_retVal == ERROR_SUCCESS) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17357	subHandle = __MKEXTERNALADDRESS(subKey);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17358	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17359	if ((_retVal != ERROR_PATH_NOT_FOUND)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17360	&& (_retVal != ERROR_FILE_NOT_FOUND)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17361	errorNumber = __MKSMALLINT(_retVal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17362	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17363	}
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17364	}
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17365	out:;
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17366	%}.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17367	subHandle notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17368	newEntry := self class basicNew
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17369	setHandle:subHandle
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17370	path:((path ? '?') , self class separator asString , subKeyString)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17371	isNew:disposition.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17372
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17373	newEntry registerForFinalization.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17374	^ newEntry.
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17375	].
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17376	errorNumber notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17377	(OperatingSystem errorHolderForNumber:errorNumber) reportProceedableError.
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17378	].
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17379	^ nil
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17380
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17381	"
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17382	\|top sub\|
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17383
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17384	top := self key:'HKEY_LOCAL_MACHINE'.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17385	sub := top subKeyNamed:'Software' flags:nil createIfAbsent:false
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17386	"
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17387
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17388	" regular (iso8859) key:
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17389	\|top sub\|
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17390
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17391	top := self key:'HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Development Kit'.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17392	top valueNamed:'CurrentVersion'.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17393	sub := top subKeyNamed:'1.8' flags:#KEY_WOW64_64KEY createIfAbsent:false.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	17394	"
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17395
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17396	"unicode key:
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17397	\|top sub\|
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17398
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17399	top := self key:'HKEY_CURRENT_USER\Software\ExeptTest'.
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17400	sub := top subKeyNamed:'Fooαβγ' flags:#KEY_WOW64_64KEY createIfAbsent:true.
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17401	"
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17402	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17403
22383 8d98888faa15 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22253 diff changeset	17404	!Win32OperatingSystem::RegistryEntry methodsFor:'accessing-values'!
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17405
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17406	defaultValue
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17407	^ self valueNamed:''
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17408
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17409	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17410	(self key:'HKEY_CLASSES_ROOT\MicrosoftWorks.WordProcessor\CLSID') defaultValue
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17411	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17412	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17413
11623 c767911bff13 + defaultValue: in registry Claus Gittinger <cg@exept.de> parents: 11617 diff changeset	17414	defaultValue:datum
c767911bff13 + defaultValue: in registry Claus Gittinger <cg@exept.de> parents: 11617 diff changeset	17415	"store a value; the value type depends upon the stored value:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17416	ByteArray -> REG_BINARY
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17417	String -> REG_SZ
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17418	Array of string -> REG_MULTI_SZ
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17419	Integer -> REG_DWORD
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17420	nil -> REG_NONE
11623 c767911bff13 + defaultValue: in registry Claus Gittinger <cg@exept.de> parents: 11617 diff changeset	17421	"
c767911bff13 + defaultValue: in registry Claus Gittinger <cg@exept.de> parents: 11617 diff changeset	17422
c767911bff13 + defaultValue: in registry Claus Gittinger <cg@exept.de> parents: 11617 diff changeset	17423	^ self valueNamed:'' put:datum
c767911bff13 + defaultValue: in registry Claus Gittinger <cg@exept.de> parents: 11617 diff changeset	17424
c767911bff13 + defaultValue: in registry Claus Gittinger <cg@exept.de> parents: 11617 diff changeset	17425	"
c767911bff13 + defaultValue: in registry Claus Gittinger <cg@exept.de> parents: 11617 diff changeset	17426	(self key:'HKEY_CLASSES_ROOT\MicrosoftWorks.WordProcessor\CLSID') defaultValue
c767911bff13 + defaultValue: in registry Claus Gittinger <cg@exept.de> parents: 11617 diff changeset	17427	"
c767911bff13 + defaultValue: in registry Claus Gittinger <cg@exept.de> parents: 11617 diff changeset	17428	!
c767911bff13 + defaultValue: in registry Claus Gittinger <cg@exept.de> parents: 11617 diff changeset	17429
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17430	deleteValueNamed:aValueName
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17431	"delete a value.
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17432	aValueName may be a string or unicode16string;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17433	Return true on success."
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17434
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17435	\|errorNumber valueNameZ\|
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17436
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17437	valueNameZ := aValueName asUnicode16StringZ.
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	17438
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17439	%{
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17440	HKEY myKey;
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	17441	int _retVal;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17442
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17443	if (__isExternalAddressLike(__INST(handle))
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17444	&& __isUnicode16String(valueNameZ)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17445	myKey = (HKEY)__externalAddressVal(__INST(handle));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17446	if ((_retVal = RegDeleteValueW(myKey, __unicode16StringVal(valueNameZ))) == ERROR_SUCCESS) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17447	RETURN (true);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17448	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17449	if ((_retVal != ERROR_PATH_NOT_FOUND)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17450	&& (_retVal != ERROR_FILE_NOT_FOUND)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17451	errorNumber = __MKSMALLINT(_retVal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17452	}
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	17453	}
2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	17454	%}.
2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	17455	errorNumber notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17456	(OperatingSystem errorHolderForNumber:errorNumber) reportError.
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	17457	].
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17458	^ false
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17459
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17460	"
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17461	\|top sub\|
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17462
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17463	top := self key:'HKEY_CURRENT_USER'.
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17464	sub := top valueNamed:'BLA' put:'FooBarBaz'.
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17465	top deleteValueNamed:'BLA'.
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17466	"
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17467	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17468
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17469	valueNameAtIndex:valueIndex
22116 997ed4bfc518 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22113 diff changeset	17470	"return a value's name for the given value index.
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17471	The returned name may be a string or unicode16string.
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17472	Return nil if no such value exists.
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17473	To get the value names,
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17474	call with increasing index, until a nil is returned."
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17475
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	17476	\|valueName errorNumber\|
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17477
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17478	%{
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17479	#define NUM_CHARS 256
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17480	HKEY myKey;
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17481	WCHAR nameBuffer[NUM_CHARS];
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17482	DWORD nameSize = NUM_CHARS - 1;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17483	DWORD valueType;
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	17484	int _retVal;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17485
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17486	if (__isExternalAddressLike(__INST(handle))
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17487	&& __isSmallInteger(valueIndex)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17488	myKey = (HKEY)__externalAddressVal(__INST(handle));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17489	if ((_retVal = RegEnumValueW(myKey, __intVal(valueIndex),
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17490	nameBuffer, &nameSize,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17491	NULL,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17492	&valueType,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17493	NULL, NULL)) == ERROR_SUCCESS) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17494	nameBuffer[nameSize] = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17495	valueName = __MKU16STRING(nameBuffer);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17496	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17497	if ((_retVal != ERROR_PATH_NOT_FOUND)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17498	&& (_retVal != ERROR_FILE_NOT_FOUND)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17499	&& (_retVal != ERROR_NO_MORE_ITEMS)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17500	errorNumber = __MKSMALLINT(_retVal);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17501	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17502	}
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17503	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17504	%}.
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	17505	errorNumber notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17506	(OperatingSystem errorHolderForNumber:errorNumber) reportError.
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	17507	].
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17508	valueName notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17509	valueName := valueName asSingleByteStringIfPossible
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17510	].
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17511	^ valueName
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17512
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17513	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17514	\|top sub\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17515
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17516	top := self key:'HKEY_LOCAL_MACHINE'.
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17517	sub := top valueNameAtIndex:0
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17518	"
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17519	"
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17520	\|top sub\|
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17521
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17522	top := self key:'HKEY_CURRENT_USER\Software\ExeptTest\Foo'.
22246 436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	17523	sub := top valueNameAtIndex:0.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	17524	sub := top valueNameAtIndex:1.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	17525	sub := top valueNameAtIndex:2.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	17526	sub := top valueNameAtIndex:3.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17527	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17528	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17529
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17530	valueNamed:aValueName
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17531	"retrieve a value; the returned object depends upon the type:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17532	REG_BINARY -> ByteArray
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17533	REG_SZ -> String
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17534	REG_MULTI_SZ -> Array of strings
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17535	REG_DWORD -> Integer
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17536	REG_QWORD -> Integer
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17537	REG_NONE -> nil
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17538	aValueName name may be a string or unicode16string.
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17539	"
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17540
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17541	\|nameW stringArray retVal errorNumber\|
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17542
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17543	nameW := aValueName asUnicode16StringZ.
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	17544
19335 2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	17545	%{ /* STACK: 20000 */
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17546	HKEY myKey;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17547	DWORD valueType;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17548	union {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17549	DWORD dWord;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17550	unsigned char dWordBytes[4];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17551	unsigned char smallDataBuffer[1024*16];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17552	unsigned char qWordBytes[8];
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17553	} quickData;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17554	int val;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17555	DWORD dataSize = sizeof(quickData);
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17556	unsigned char *dataBuffer = NULL;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17557
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17558	if (__isExternalAddressLike(__INST(handle))
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17559	&& __isUnicode16String(nameW)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17560	int ret;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17561
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17562	myKey = (HKEY)__externalAddressVal(__INST(handle));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17563
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17564	/*
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17565	* try to get it with one call ...
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17566	*/
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17567	ret = RegQueryValueExW(myKey, __unicode16StringVal(nameW),
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17568	NULL,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17569	&valueType,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17570	(char *)&quickData,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17571	&dataSize);
20375 6269450051d8 #BUGFIX by sr sr parents: 20371 diff changeset	17572	#if 0
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17573	console_printf("get \"%s\": dataSize=%d ret=%d\n", __stringVal(aValueName), dataSize, ret);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17574	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17575	while (ret == ERROR_MORE_DATA) {
20375 6269450051d8 #BUGFIX by sr sr parents: 20371 diff changeset	17576	#if 0
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17577	console_printf("ERROR_MORE_DATA dataSize=%d valueType=%d\n", dataSize, valueType);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17578	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17579	/*
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17580	* nope - need another one ...
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17581	*/
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17582	if (myKey = HKEY_PERFORMANCE_DATA) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17583	dataSize = dataSize * 2;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17584	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17585	switch (valueType) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17586	case REG_BINARY:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17587	case REG_MULTI_SZ:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17588	dataBuffer = malloc(dataSize);;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17589	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17590	case REG_SZ:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17591	dataBuffer = malloc(dataSize);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17592	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17593	default:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17594	console_printf("RegistryEntry [warning]: unhandled valueType: %d\n", valueType);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17595	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17596	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17597	if (dataBuffer) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17598	ret = RegQueryValueExW(myKey, __unicode16StringVal(nameW),
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17599	NULL,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17600	&valueType,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17601	dataBuffer,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17602	&dataSize);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17603	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17604	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17605	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17606	if (myKey != HKEY_PERFORMANCE_DATA) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17607	if (ret != ERROR_SUCCESS) break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17608	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17609	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17610
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17611	if (ret == ERROR_SUCCESS) {
20375 6269450051d8 #BUGFIX by sr sr parents: 20371 diff changeset	17612	#if 0
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17613	console_printf("ERROR_SUCCESS dataSize=%d valueType=%d\n", dataSize, valueType);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17614	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17615	switch (valueType) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17616	case REG_NONE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17617	/* RETURN (@symbol(none)); */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17618	retVal = nil;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17619	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17620
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17621	case REG_BINARY:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17622	retVal = __MKBYTEARRAY(dataBuffer ? dataBuffer : quickData.smallDataBuffer, dataSize);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17623	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17624
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17625	case REG_SZ:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17626	case REG_EXPAND_SZ:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17627	retVal = __MKU16STRING(dataBuffer ? dataBuffer : quickData.smallDataBuffer);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17628	break;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17629
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17630	#if 0
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17631	// REG_DWORD is an alias to
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17632	// one of REG_DWORD_LITTLE_ENDIAN or REG_DWORD_BIG_ENDIAN
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17633	case REG_DWORD:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17634	/* int in native format */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17635	retVal = __MKUINT(quickData.dWord);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17636	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17637	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17638	case REG_DWORD_LITTLE_ENDIAN:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17639	val = quickData.dWordBytes[3];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17640	val = (val << 8) \| quickData.dWordBytes[2];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17641	val = (val << 8) \| quickData.dWordBytes[1];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17642	val = (val << 8) \| quickData.dWordBytes[0];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17643	retVal = __MKUINT(val);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17644	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17645
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17646	case REG_DWORD_BIG_ENDIAN:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17647	val = quickData.dWordBytes[0];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17648	val = (val << 8) \| quickData.dWordBytes[1];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17649	val = (val << 8) \| quickData.dWordBytes[2];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17650	val = (val << 8) \| quickData.dWordBytes[3];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17651	retVal = __MKUINT(val);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17652	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17653
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17654	case REG_QWORD_LITTLE_ENDIAN:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17655	{
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17656	INT valLow, valHigh;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17657
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17658	valHigh = quickData.qWordBytes[7];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17659	valHigh = (valHigh << 8) \| quickData.dWordBytes[6];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17660	valHigh = (valHigh << 8) \| quickData.dWordBytes[5];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17661	valHigh = (valHigh << 8) \| quickData.dWordBytes[4];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17662
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17663	valLow = quickData.dWordBytes[3];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17664	valLow = (valLow << 8) \| quickData.dWordBytes[2];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17665	valLow = (valLow << 8) \| quickData.dWordBytes[1];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17666	valLow = (valLow << 8) \| quickData.dWordBytes[0];
22116 997ed4bfc518 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22113 diff changeset	17667	#if __POINTER_SIZE__ == 8
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17668	retVal = __MKUINT( (valHigh<<32)\|valLow );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17669	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17670	retVal = __MKLARGEINT64(1, (unsigned INT)valLow, (unsigned INT)valHigh);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17671	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17672	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17673	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17674
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17675	case REG_MULTI_SZ:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17676	{
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17677	WCHAR cp, cp0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17678	int ns, i;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17679
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17680	cp0 = dataBuffer ? dataBuffer : quickData.smallDataBuffer;
20375 6269450051d8 #BUGFIX by sr sr parents: 20371 diff changeset	17681	#if 0
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17682	console_printf("**************\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17683	for (i=0;i<50;i++) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17684	console_printf("%x ", cp0[i]);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17685	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17686	console_printf("\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17687	for (i=0;i<50;i++) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17688	if (cp0[i] == 0)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17689	console_printf("\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17690	else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17691	console_printf("%c", cp0[i]);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17692	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17693	console_printf("\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17694	console_printf("**************\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17695	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17696	cp = cp0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17697	ns = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17698	while (*cp) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17699	while (*cp++) ;;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17700	ns++;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17701	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17702	stringArray = __ARRAY_NEW_INT(ns);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17703
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17704	i = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17705	while (*cp0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17706	OBJ s;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17707	WCHAR *cp;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17708
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17709	cp = cp0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17710	while (*cp++) ;;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17711	s = __MKU16STRING(cp0); __ArrayInstPtr(stringArray)->a_element[i] = s; __STORE(stringArray, s);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17712	cp0 = cp;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17713	i++;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17714	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17715	retVal = stringArray;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17716	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17717	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17718	default:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17719	console_printf("RegistryEntry [warning]: unhandled valueType: %d\n", valueType);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17720	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17721	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17722	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17723	if ((ret != ERROR_PATH_NOT_FOUND)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17724	&& (ret != ERROR_FILE_NOT_FOUND)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17725	errorNumber = __MKSMALLINT(ret);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17726	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17727	}
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	17728	}
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	17729	if (dataBuffer) free(dataBuffer);
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	17730	%}.
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	17731	errorNumber notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17732	(OperatingSystem errorHolderForNumber:errorNumber) reportError.
22116 997ed4bfc518 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22113 diff changeset	17733	].
22117 45595a437961 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22116 diff changeset	17734	(retVal isString and:[retVal isUnicodeString]) ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17735	^ retVal asSingleByteStringIfPossible
22116 997ed4bfc518 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22113 diff changeset	17736	].
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17737	retVal isArray ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17738	retVal := retVal collect:[:s \|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17739	(s isString and:[s isUnicodeString]) ifTrue:[ s asSingleByteStringIfPossible ] ifFalse:[s]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17740	]
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17741	].
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	17742	^ retVal
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17743
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17744	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17745	\|key\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17746	key := self key:'HKEY_LOCAL_MACHINE\SOFTWARE\eXept\Smalltalk/X'.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17747	key valueNamed:'CurrentVersion'
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17748	"
22116 997ed4bfc518 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22113 diff changeset	17749
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17750	"ascii name:
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17751	\|key\|
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17752	key := self key:'HKEY_CURRENT_USER\Software\ExeptTest\Foo'.
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17753	key valueNamed:'BLA10'
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17754	"
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17755
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17756	"unicode name:
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17757	\|key\|
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17758	key := self key:'HKEY_CURRENT_USER\Software\ExeptTest\Foo'.
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17759	key valueNamed:'BLA10αβ'
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17760	"
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17761
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17762	"unicode name:
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17763	\|key\|
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17764	key := self key:'HKEY_CURRENT_USER\Software\ExeptTest\Foo'.
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17765	key valueNamed:'BLA10αβγ'
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17766	"
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17767
22116 997ed4bfc518 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22113 diff changeset	17768	"
997ed4bfc518 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22113 diff changeset	17769	\|key\|
997ed4bfc518 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22113 diff changeset	17770	key := self key:'HKEY_CURRENT_USER\Software\ExeptTest'.
22246 436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	17771	key valueNamed:'BLA10'.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	17772	key valueNamed:'BLA1600'.
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	17773	key valueNamed:'BLA3200'.
22116 997ed4bfc518 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22113 diff changeset	17774	"
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17775	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17776
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17777	valueNamed:aValueName put:datum
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17778	"store a value; the value type depends upon the stored value:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17779	ByteArray -> REG_BINARY
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17780	String -> REG_SZ
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17781	Array of string -> REG_MULTI_SZ
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17782	Integer -> REG_DWORD
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17783	nil -> REG_NONE
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17784	aValueName name may be a string or unicode16string.
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17785	"
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17786
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17787	\|nameA nameW dataA dataW stringArray errorNumber badArg \|
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17788
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17789	"/ when value is a unicode string, we'll need a unicode name as well.
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17790	"/ when name is a unicode name, we'll need a unicode string as well
23502 4826a1e286e2 #FEATURE by sr sr parents: 23491 diff changeset	17791	"sr: the unicode case must have priority,
4826a1e286e2 #FEATURE by sr sr parents: 23491 diff changeset	17792	to be able to set/force REG_EXPAND_SZ"
23528 64850968fa93 experiment to get the real version Claus Gittinger <cg@exept.de> parents: 23510 diff changeset	17793	(datum isString
23502 4826a1e286e2 #FEATURE by sr sr parents: 23491 diff changeset	17794	and:[datum isUnicode16String]) ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17795	nameW := aValueName asUnicode16StringZ.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17796	dataW := datum asUnicode16StringZ.
23502 4826a1e286e2 #FEATURE by sr sr parents: 23491 diff changeset	17797	] ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17798	nameA := aValueName asSingleByteStringIfPossible.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17799	nameA isSingleByteString ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17800	nameW := aValueName asUnicode16StringZ.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17801	nameA := nil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17802	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17803
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17804	dataA := datum.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17805	dataA isString ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17806	dataA := datum asSingleByteStringIfPossible.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17807	dataA isSingleByteString ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17808	nameW isNil ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17809	nameW := aValueName asUnicode16StringZ.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17810	nameA := nil.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17811	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17812	dataW := datum asUnicode16StringZ.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17813	dataA := nil.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17814	] ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17815	nameA isNil ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17816	dataW := datum asUnicode16StringZ.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17817	dataA := nil.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17818	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17819	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17820	].
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17821	].
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17822
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17823	%{
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17824	HKEY myKey;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17825	DWORD valueType = -1;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17826	int val;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17827	DWORD dataSize = -1;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17828	unsigned char *dataPointer = NULL;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17829	int datumOk = 1, mustFreeData = 0;
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17830	int ret;
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17831	OBJ cls;
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17832	WCHAR *_nameW = NULL;
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17833	char *_nameA = NULL;
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17834
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17835	badArg = true;
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17836	if (__isExternalAddressLike(__INST(handle))) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17837	myKey = (HKEY)__externalAddressVal(__INST(handle));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17838
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17839	if (__isStringLike(nameA)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17840	_nameA = __unicode16StringVal(aValueName);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17841	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17842	if (__isUnicode16String(nameW)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17843	_nameW = __unicode16StringVal(nameW);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17844	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17845	if ((_nameA == NULL) && (_nameW == NULL)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17846	errorNumber = __MKSMALLINT(-1);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17847	goto getOutOfHere;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17848	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17849
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17850	badArg = false;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17851	if (datum == nil) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17852	valueType = REG_NONE;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17853	dataSize = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17854	} else if (__isSmallInteger(datum)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17855	valueType = REG_DWORD;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17856	val = __intVal(datum);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17857	dataPointer = (unsigned char *)(&val);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17858	dataSize = sizeof(val);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17859	} else if (__isStringLike(dataA)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17860	valueType = REG_SZ;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17861	dataPointer = __stringVal(dataA);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17862	dataSize = __stringSize(dataA) + 1;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17863	} else if (__isUnicode16String(dataW)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17864	valueType = REG_EXPAND_SZ;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17865	dataPointer = __unicode16StringVal(dataW);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17866	dataSize = (__unicode16StringSize(dataW) + 1)*2;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17867	nameA = NULL; // must use WideChar-interface
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17868	} else if (__Class(datum) == ByteArray) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17869	valueType = REG_BINARY;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17870	dataPointer = __ByteArrayInstPtr(datum)->ba_element;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17871	dataSize = __byteArraySize(datum);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17872	} else if (__Class(datum) == LargeInteger) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17873	valueType = REG_DWORD;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17874	val = __longIntVal(datum);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17875	if (val) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17876	dataPointer = (unsigned char *)(&val);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17877	dataSize = sizeof(val);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17878	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17879	datumOk = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17880	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17881	} else if (__Class(datum) == Array) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17882	int i = 0, ns = 0, totalSize = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17883
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17884	nameW = NULL; // must use Ascii-interface (for now)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17885
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17886	valueType = REG_MULTI_SZ;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17887
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17888	/*
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17889	* must allocate a local buffer
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17890	* find size ...
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17891	*/
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17892	for (i=0; i<__arraySize(datum); i++) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17893	OBJ s = __ArrayInstPtr(datum)->a_element[i];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17894
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17895	if (__isStringLike(s)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17896	totalSize += __stringSize(s) + 1;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17897	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17898	datumOk = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17899	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17900	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17901	ns++;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17902	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17903	if (datumOk) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17904	char *cp;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17905
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17906	/*
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17907	* allocate and fill...
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17908	*/
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17909	totalSize ++;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17910	dataPointer = (char *)(malloc(totalSize));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17911	mustFreeData = 1;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17912	cp = dataPointer;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17913	for (i=0; i<__arraySize(datum); i++) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17914	OBJ s = __ArrayInstPtr(datum)->a_element[i];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17915
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17916	strcpy(cp, __stringVal(s));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17917	cp += __stringSize(s);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17918	*cp++ = '\0';
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17919	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17920	*cp++ = '\0';
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17921	dataSize = totalSize;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17922	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17923	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17924	datumOk = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17925	badArg = true;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17926	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17927
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17928	if (datumOk) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17929	if (_nameA != NULL) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17930	ret = RegSetValueExA(myKey, _nameA,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17931	0, valueType,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17932	dataPointer, dataSize);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17933	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17934	ret = RegSetValueExW(myKey, _nameW,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17935	0, valueType,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17936	dataPointer, dataSize);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17937	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17938
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17939	if (mustFreeData) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17940	free(dataPointer);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17941	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17942	if (ret == ERROR_SUCCESS) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17943	RETURN (true);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17944	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17945	if ((ret != ERROR_PATH_NOT_FOUND)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17946	&& (ret != ERROR_FILE_NOT_FOUND)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17947	errorNumber = __MKSMALLINT(ret);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17948	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17949	}
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17950	}
22124 622da576b2cf #BUGFIX mawalch parents: 22123 diff changeset	17951	getOutOfHere:
22123 c128e86f09df #BUGFIX mawalch parents: 22122 diff changeset	17952	/* intentional null statement to make recent gcc happy */
c128e86f09df #BUGFIX mawalch parents: 22122 diff changeset	17953	;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17954	%}.
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	17955	errorNumber notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17956	badArg ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17957	self primitiveFailed:'bad argument'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17958	] ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17959	(OperatingSystem errorHolderForNumber:errorNumber) reportError.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17960	]
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	17961	].
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17962	^ false
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17963
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17964	"unicode name:
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17965
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17966	\|key\|
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17967
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17968	key := self key:'HKEY_CURRENT_USER\Software\ExeptTest\Foo'.
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17969	key valueNamed:'BLA10αβγ' put:'1234567890'.
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17970	"
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17971
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17972	"unicode value; ascii name:
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17973	\|key\|
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17974
22122 59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17975	key := self key:'HKEY_CURRENT_USER\Software\ExeptTest\Foo'.
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17976	key valueNamed:'BLA10' put:'αβγ'
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17977	"
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17978
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17979	"both unicode:
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17980	\|key\|
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17981
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17982	key := self key:'HKEY_CURRENT_USER\Software\ExeptTest\Foo'.
59d2b8361ed0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 22117 diff changeset	17983	key valueNamed:'BLA10αβ' put:'αβγ123αβγ'
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17984	"
23502 4826a1e286e2 #FEATURE by sr sr parents: 23491 diff changeset	17985
4826a1e286e2 #FEATURE by sr sr parents: 23491 diff changeset	17986	"Modified: / 31-10-2018 / 14:32:59 / sr"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17987	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17988
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17989	!Win32OperatingSystem::RegistryEntry methodsFor:'enumeration'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17990
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17991	allSubKeysDo:aBlock
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17992	"recursively evaluate aBlock for all subKeys below the receiver"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17993
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17994	\|idx subEntry\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17995
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17996	idx := 0.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17997	[true] whileTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17998	subEntry := self subKeyAtIndex:idx.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	17999	subEntry isNil ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18000	^self
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18001	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18002	aBlock value:subEntry.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18003	subEntry allSubKeysDo:aBlock.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18004	subEntry close.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18005	idx := idx + 1.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18006	]
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18007
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18008	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18009	\|top sub\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18010
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18011	top := self key:'HKEY_LOCAL_MACHINE'.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18012	top allSubKeysDo:[:subEntry \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18013	Transcript showCR:subEntry path
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18014	]
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18015	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18016	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18017
19336 1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	18018	subKeyNamesAndClassesDo:aTwoArgBlock
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	18019	"evaluate aBlock for all subKeys names and class names below the receiver"
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	18020
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	18021	\|idx nameAndClassNameOrNil\|
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	18022
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	18023	idx := 0.
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	18024	[true] whileTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18025	nameAndClassNameOrNil := self subKeyNameAndClassAtIndex:idx.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18026	nameAndClassNameOrNil isNil ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18027	^self
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18028	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18029	aTwoArgBlock value:nameAndClassNameOrNil first value:nameAndClassNameOrNil second.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18030	idx := idx + 1.
19336 1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	18031	]
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	18032
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	18033	"
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	18034	\|top sub\|
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	18035
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	18036	top := self key:'HKEY_LOCAL_MACHINE'.
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	18037	top subKeyNamesAndClassesDo:[:nm :cls \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18038	Transcript showCR:('name: ',nm,' class: ',cls)
19336 1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	18039	]
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	18040	"
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	18041	!
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	18042
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18043	subKeys
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18044	"return a collection of subKeys below the receiver"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18045
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18046	\|idx subEntry subKeys\|
5135 cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	18047
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	18048	subKeys := OrderedCollection new.
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	18049	self subKeysDo:[:k \| subKeys add:k].
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	18050	^ subKeys
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	18051
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	18052	"
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	18053	\|top sub\|
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	18054
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	18055	top := self key:'HKEY_LOCAL_MACHINE'.
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	18056	top subKeys
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	18057	"
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	18058
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	18059	"Created: / 23.12.1999 / 22:15:22 / cg"
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	18060	"Modified: / 23.12.1999 / 22:15:44 / cg"
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	18061	!
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	18062
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18063	subKeysDo:aBlock
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18064	"evaluate aBlock for all subKeys below the receiver"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18065
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18066	\|idx subEntry\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18067
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18068	idx := 0.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18069	[true] whileTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18070	subEntry := self subKeyAtIndex:idx.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18071	subEntry isNil ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18072	^self
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18073	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18074	aBlock value:subEntry.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18075	subEntry close.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18076	idx := idx + 1.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18077	]
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18078
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18079	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18080	\|top sub\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18081
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18082	top := self key:'HKEY_LOCAL_MACHINE'.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18083	top subKeysDo:[:subEntry \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18084	Transcript showCR:subEntry path
19532 e7cbf86b25d5 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19499 diff changeset	18085	]
e7cbf86b25d5 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19499 diff changeset	18086	"
e7cbf86b25d5 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19499 diff changeset	18087	"
e7cbf86b25d5 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19499 diff changeset	18088	\|top sub\|
e7cbf86b25d5 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19499 diff changeset	18089
e7cbf86b25d5 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19499 diff changeset	18090	top := self key:'HKEY_LOCAL_MACHINE'.
e7cbf86b25d5 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19499 diff changeset	18091	OSErrorHolder noPermissionsSignal handle:[:ex \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18092	ex proceed
19532 e7cbf86b25d5 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19499 diff changeset	18093	] do:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18094	top subKeysDo:[:subEntry \|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18095	Transcript showCR:subEntry path
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18096	]
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18097	]
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18098	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18099	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18100
13223 6255f420ba70 x Claus Gittinger <cg@exept.de> parents: 13197 diff changeset	18101	valueNames
6255f420ba70 x Claus Gittinger <cg@exept.de> parents: 13197 diff changeset	18102	"evaluate aBlock for all value names"
6255f420ba70 x Claus Gittinger <cg@exept.de> parents: 13197 diff changeset	18103
6255f420ba70 x Claus Gittinger <cg@exept.de> parents: 13197 diff changeset	18104	^ Array streamContents:[:s \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18105	self valueNamesDo:[:nm \| s nextPut:nm]
13223 6255f420ba70 x Claus Gittinger <cg@exept.de> parents: 13197 diff changeset	18106	].
6255f420ba70 x Claus Gittinger <cg@exept.de> parents: 13197 diff changeset	18107
6255f420ba70 x Claus Gittinger <cg@exept.de> parents: 13197 diff changeset	18108	"Created: / 18-01-2011 / 20:24:52 / cg"
6255f420ba70 x Claus Gittinger <cg@exept.de> parents: 13197 diff changeset	18109	!
6255f420ba70 x Claus Gittinger <cg@exept.de> parents: 13197 diff changeset	18110
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18111	valueNamesAndValuesDo:aBlock
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18112	"evaluate aBlock for all value names"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18113
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18114	self valueNamesDo:[:nm \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18115	aBlock value:nm value:(self valueNamed:nm)
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18116	]
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18117
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18118	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18119	\|key\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18120
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18121	key := self key:'HKEY_LOCAL_MACHINE\SOFTWARE\eXept\Smalltalk/X'.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18122	key valueNamesAndValuesDo:[:nm :val \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18123	Transcript showCR:(nm , ' -> ' , val storeString).
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18124	]
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18125	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18126	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18127
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18128	valueNamesDo:aBlock
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18129	"evaluate aBlock for all value names"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18130
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18131	\|idx valueName\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18132
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18133	idx := 0.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18134	[true] whileTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18135	valueName := self valueNameAtIndex:idx.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18136	valueName isNil ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18137	^self
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18138	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18139	aBlock value:valueName.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18140	idx := idx + 1.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	18141	]
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18142	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18143
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18144	!Win32OperatingSystem::RegistryEntry methodsFor:'instance release'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18145
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18146	close
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18147	"close mySelf"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18148
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18149	self closeKey.
9186 662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	18150	self unregisterForFinalization.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18151	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18152
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18153	closeKey
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18154	"close mySelf"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18155
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18156	%{
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18157	HKEY myKey;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18158
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18159	if (__isExternalAddressLike(__INST(handle))) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18160	myKey = (HKEY)(__externalAddressVal(__INST(handle)));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18161	__INST(handle) = nil;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18162	RegCloseKey(myKey);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18163	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18164	%}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18165	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18166
9186 662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	18167	finalizationLobby
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	18168	^ Lobby
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	18169	!
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	18170
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18171	finalize
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18172	"some entry has been collected - close it"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18173
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18174	handle notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18175	self closeKey.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18176	]
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18177
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18178	"Created: / 19.5.1999 / 22:39:52 / cg"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18179	"Modified: / 19.5.1999 / 22:44:50 / cg"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18180	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18181
11135 db5762c9d81b #getDomainName - Domain is found in CurrentControlSet - no need Stefan Vogel <sv@exept.de> parents: 11129 diff changeset	18182	!Win32OperatingSystem::RegistryEntry methodsFor:'printing & storing'!
db5762c9d81b #getDomainName - Domain is found in CurrentControlSet - no need Stefan Vogel <sv@exept.de> parents: 11129 diff changeset	18183
db5762c9d81b #getDomainName - Domain is found in CurrentControlSet - no need Stefan Vogel <sv@exept.de> parents: 11129 diff changeset	18184	printOn:aStream
11215 b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	18185	aStream
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18186	nextPutAll:self className;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18187	nextPut:$(;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18188	nextPutAll:path;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18189	nextPut:$).
11135 db5762c9d81b #getDomainName - Domain is found in CurrentControlSet - no need Stefan Vogel <sv@exept.de> parents: 11129 diff changeset	18190	! !
db5762c9d81b #getDomainName - Domain is found in CurrentControlSet - no need Stefan Vogel <sv@exept.de> parents: 11129 diff changeset	18191
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18192	!Win32OperatingSystem::RegistryEntry methodsFor:'private'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18193
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18194	setHandle:aHandle path:aPathString
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18195	handle := aHandle.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18196	path := aPathString.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18197
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18198	"Created: / 19.5.1999 / 22:27:05 / cg"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18199	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18200
17619 6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	18201	setHandle:aHandle path:aPathString isNew:disposition
6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	18202	handle := aHandle.
6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	18203	path := aPathString.
6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	18204	isNew := disposition.
6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	18205
6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	18206	"Created: / 19.5.1999 / 22:27:05 / cg"
6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	18207	!
6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	18208
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18209	setupForHandleValue:integerHandleValue
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18210	"not normally used - given an integer address,
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18211	return a registry entry. This is provided to
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18212	allow for future root keys to be added at the smalltalk level"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18213
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18214	%{
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18215	HKEY key;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18216	OBJ t;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18217
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	18218	key = (HKEY)__longIntVal(integerHandleValue);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18219	if (! key) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18220	RETURN (nil);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18221	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18222
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18223	t = __MKEXTERNALADDRESS(key); __INST(handle) = t; __STORE(self, t);
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18224	%}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18225
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18226	"Created: / 19.5.1999 / 21:45:05 / cg"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18227	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18228
9475 c57956a348bf printing support fm parents: 9431 diff changeset	18229	!Win32OperatingSystem::TextMetricsStructure class methodsFor:'instance creation'!
c57956a348bf printing support fm parents: 9431 diff changeset	18230
c57956a348bf printing support fm parents: 9431 diff changeset	18231	new
c57956a348bf printing support fm parents: 9431 diff changeset	18232
c57956a348bf printing support fm parents: 9431 diff changeset	18233	^super new: self sizeInBytes
c57956a348bf printing support fm parents: 9431 diff changeset	18234
c57956a348bf printing support fm parents: 9431 diff changeset	18235	"Created: / 02-08-2006 / 16:20:02 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	18236	!
c57956a348bf printing support fm parents: 9431 diff changeset	18237
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	18238	sizeInBytes
9475 c57956a348bf printing support fm parents: 9431 diff changeset	18239
c57956a348bf printing support fm parents: 9431 diff changeset	18240	^53
c57956a348bf printing support fm parents: 9431 diff changeset	18241
c57956a348bf printing support fm parents: 9431 diff changeset	18242	"Created: / 02-08-2006 / 16:20:09 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	18243	! !
c57956a348bf printing support fm parents: 9431 diff changeset	18244
c57956a348bf printing support fm parents: 9431 diff changeset	18245	!Win32OperatingSystem::TextMetricsStructure methodsFor:'accessing'!
c57956a348bf printing support fm parents: 9431 diff changeset	18246
c57956a348bf printing support fm parents: 9431 diff changeset	18247	tmDefaultChar
c57956a348bf printing support fm parents: 9431 diff changeset	18248	^self byteAt: 46 + 1
c57956a348bf printing support fm parents: 9431 diff changeset	18249
c57956a348bf printing support fm parents: 9431 diff changeset	18250	"Created: / 02-08-2006 / 16:15:35 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	18251	!
c57956a348bf printing support fm parents: 9431 diff changeset	18252
c57956a348bf printing support fm parents: 9431 diff changeset	18253	tmExternalLeading
c57956a348bf printing support fm parents: 9431 diff changeset	18254	^self longAt: 16 + 1
c57956a348bf printing support fm parents: 9431 diff changeset	18255
c57956a348bf printing support fm parents: 9431 diff changeset	18256	"Created: / 02-08-2006 / 16:17:11 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	18257	!
c57956a348bf printing support fm parents: 9431 diff changeset	18258
c57956a348bf printing support fm parents: 9431 diff changeset	18259	tmHeight
c57956a348bf printing support fm parents: 9431 diff changeset	18260	^self longAt: 0 + 1
c57956a348bf printing support fm parents: 9431 diff changeset	18261
c57956a348bf printing support fm parents: 9431 diff changeset	18262	"Created: / 02-08-2006 / 16:16:38 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	18263	! !
c57956a348bf printing support fm parents: 9431 diff changeset	18264
19499 ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	18265	!Win32OperatingSystem::Win32ChangeNotificationHandle class methodsFor:'documentation'!
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	18266
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	18267	documentation
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	18268	"
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	18269	I represent a handle on change notifications (directory changes).
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	18270	I can be waited upon in a WaitForHandle / WaitForMultipleObjects call.
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	18271	"
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	18272	! !
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	18273
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	18274	!Win32OperatingSystem::Win32ChangeNotificationHandle methodsFor:'release'!
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	18275
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	18276	close
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	18277	"close the handle"
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	18278
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	18279	self closeHandle.
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	18280	self unregisterForFinalization.
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	18281	! !
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	18282
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18283	!Win32OperatingSystem::Win32IOHandle class methodsFor:'documentation'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18284
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18285	documentation
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18286	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18287	I represent a handle on which I/O is possible.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18288	Typical instances are File-Handles, Socket-Handles etc.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18289	"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	18290	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	18291
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18292	!Win32OperatingSystem::Win32IOHandle methodsFor:'io'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18293
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18294	readBytes:count into:aByteBuffer startingAt:firstIndex
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18295	"read count bytes into a byte-buffer;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18296	Return the number of bytes read (negative on error)"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18297
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18298	\|errSym errorNumber\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18299
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18300	%{
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18301	unsigned char *extPtr;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18302	int bufferIsExternalBytes;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18303	int mustFreeBuffer = 0;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18304	int nRead = -1;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18305	HANDLE hFile = (HANDLE)(__externalAddressVal(self));
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18306	DWORD cntWanted, offs, cntRead;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18307	int bufferSize;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18308	char miniBuffer[32];
15543 196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	18309	int ok;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18310
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18311	if ((hFile == 0) \|\| (hFile == INVALID_HANDLE_VALUE)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18312	errSym = @symbol(errorNotOpen);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18313	goto bad;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18314	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18315	if (! __bothSmallInteger(count, firstIndex)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18316	errSym = @symbol(badArgument);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18317	goto bad;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18318	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18319	cntWanted = __smallIntegerVal(count);
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18320	if (cntWanted <= 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18321	errSym = @symbol(badCount);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18322	goto bad;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18323	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18324	offs = __smallIntegerVal(firstIndex) - 1;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18325	if (offs < 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18326	errSym = @symbol(badOffset);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18327	goto bad;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18328	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18329
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18330	bufferIsExternalBytes = __isExternalBytesLike(aByteBuffer);
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18331	if (! bufferIsExternalBytes) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18332	if (__isByteArray(aByteBuffer)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18333	bufferSize = __byteArraySize(aByteBuffer);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18334	} else if (__isString(aByteBuffer)) { // not isStringLike here !
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18335	bufferSize = __stringSize(aByteBuffer);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18336	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18337	errSym = @symbol(badBuffer);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18338	goto bad;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18339	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18340	if (bufferSize < (cntWanted + offs)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18341	errSym = @symbol(badBufferSize);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18342	goto bad;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18343	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18344	if (cntWanted <= sizeof(miniBuffer)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18345	extPtr = miniBuffer;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18346	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18347	extPtr = malloc(cntWanted);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18348	mustFreeBuffer = 1;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18349	}
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18350	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18351	OBJ sz;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18352
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18353	extPtr = (char *)(__externalBytesAddress(aByteBuffer));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18354	if (extPtr == NULL) goto bad;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18355	sz = __externalBytesSize(aByteBuffer);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18356	if (! __isSmallInteger(sz)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18357	errSym = @symbol(badBufferSize);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18358	goto bad;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18359	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18360	bufferSize = __smallIntegerVal(sz);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18361	if (bufferSize < (cntWanted + offs)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18362	errSym = @symbol(badBufferSize);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18363	goto bad;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18364	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18365	extPtr = extPtr + offs;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18366	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18367
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18368	do {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18369	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18370	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18371	ok = (int)(STX_API_NOINT_CALL5( "ReadFile", ReadFile, hFile, extPtr, cntWanted, &cntRead, 0 /* lpOverlapped */));
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18372	} while(__threadErrno == EINTR);
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18373
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18374	if (ok == TRUE) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18375	if (! bufferIsExternalBytes) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18376	/* copy over */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18377	memcpy(__byteArrayVal(aByteBuffer)+offs, extPtr, cntRead);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18378	if (mustFreeBuffer) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18379	free(extPtr);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18380	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18381	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18382	RETURN (__mkSmallInteger(cntRead));
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18383	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18384	errorNumber = __mkSmallInteger( __WIN32_ERR(GetLastError()) );
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18385
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18386	bad: ;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18387	if (mustFreeBuffer) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18388	free(extPtr);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18389	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18390	%}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18391
9154 d7f8a015da92 more com experiments Claus Gittinger <cg@exept.de> parents: 9153 diff changeset	18392	errorNumber isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18393	self error:'invalid argument(s): ', errSym.
9155 8b2ca287c1bb * empty log message * Claus Gittinger <cg@exept.de> parents: 9154 diff changeset	18394	] ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18395	(OperatingSystem errorHolderForNumber:errorNumber) reportError
9155 8b2ca287c1bb * empty log message * Claus Gittinger <cg@exept.de> parents: 9154 diff changeset	18396	].
8b2ca287c1bb * empty log message * Claus Gittinger <cg@exept.de> parents: 9154 diff changeset	18397
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18398	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18399	\|h buff n\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18400
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18401	h := self basicNew.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18402	buff := ByteArray new:10.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18403	n := h readBytes:10 into:buff startingAt:1.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18404	Transcript show:n; show:' '; showCR:buff.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18405	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18406	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18407
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18408	readWaitWithTimeoutMs:millis
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18409	"return true if a timeout occurred"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18410
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18411	\|errSym errorNumber\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18412
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18413	%{
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18414	HANDLE hFile = (HANDLE)(__externalAddressVal(self));
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18415	DWORD res;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18416	INT t;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18417
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18418	if ((hFile == 0) \|\| (hFile == INVALID_HANDLE_VALUE)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18419	errSym = @symbol(errorNotOpen);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18420	goto bad;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18421	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18422
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18423	#if 0
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18424	if (ioctlsocket((SOCKET)hFile, FIONREAD, &res)==0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18425	/* its a socket */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18426	if (res > 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18427	RETURN ( false );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18428	}
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18429	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18430	if (PeekNamedPipe(hFile, 0, 0, 0, &res, 0)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18431	/* its a namedPipe */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18432	if (res > 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18433	RETURN ( false );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18434	}
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18435	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18436	#endif
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18437	if (__isSmallInteger(millis)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18438	t = __intVal(millis);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18439	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18440	t = INFINITE;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18441	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18442
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18443	do {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18444	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18445	res = WaitForSingleObject(hFile, t);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18446	} while (__threadErrno == EINTR);
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18447
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18448	switch (res) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18449	case WAIT_OBJECT_0:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18450	/* signalled */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18451	RETURN ( false );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18452
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18453	case WAIT_TIMEOUT:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18454	/* signalled */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18455	RETURN ( true );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18456
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18457	default:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18458	case WAIT_ABANDONED:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18459	errorNumber = __mkSmallInteger( __WIN32_ERR(GetLastError()) );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18460	goto bad;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18461	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18462
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18463	bad: ;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18464	%}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18465	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18466	timeout argument not integer,
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18467	or any fd-array nonNil and not an array
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18468	or not supported by OS
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18469	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18470	^ self primitiveFailed
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18471	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18472
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18473	seekTo:newPosition from:whence
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18474	"whence is one of:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18475	#begin
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18476	#current
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18477	#end
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18478	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18479
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18480	\|errSym errorNumber\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18481
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18482	%{
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18483	HANDLE hFile = (HANDLE)(__externalAddressVal(self));
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18484	DWORD moveHow;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18485	LONG posLo, posHi = 0;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18486	__uint64__ pos64, newPos64;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18487
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18488	if ((hFile == 0) \|\| (hFile == INVALID_HANDLE_VALUE)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18489	errSym = @symbol(errorNotOpen);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18490	goto bad;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18491	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18492
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18493	if (whence == @symbol(begin)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18494	moveHow = FILE_BEGIN;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18495	} else if (whence == @symbol(current)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18496	moveHow = FILE_CURRENT;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18497	} else if (whence == @symbol(end)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18498	moveHow = FILE_END;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18499	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18500	errSym = @symbol(badArgument2);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18501	goto bad;
6336 7accea3927f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6304 diff changeset	18502	}
7accea3927f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6304 diff changeset	18503
7accea3927f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6304 diff changeset	18504	if (__signedLong64IntVal(newPosition, &pos64) == 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18505	errSym = @symbol(badArgument);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18506	goto bad;
6336 7accea3927f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6304 diff changeset	18507	}
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	18508	#if __POINTER_SIZE__ == 8
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	18509	posLo = pos64 & 0xFFFFFFFF;
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	18510	posHi = (pos64 >> 32) & 0xFFFFFFFF;
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	18511	#else
6336 7accea3927f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6304 diff changeset	18512	posLo = pos64.lo;
7accea3927f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6304 diff changeset	18513	posHi = pos64.hi;
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	18514	#endif
6336 7accea3927f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6304 diff changeset	18515	posLo = SetFilePointer(hFile, posLo, &posHi, moveHow);
7accea3927f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6304 diff changeset	18516	if (posLo == 0xFFFFFFFF) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18517	int lastError;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18518
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18519	/* can be either an error, or a valid low-word */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18520	lastError = GetLastError();
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18521	if (lastError != NO_ERROR) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18522	errorNumber = __mkSmallInteger( __WIN32_ERR(lastError) );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18523	goto bad;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18524	}
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18525	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18526
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18527	if (posHi == 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18528	RETURN (__MKUINT( posLo ));
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18529	}
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	18530	#if __POINTER_SIZE__ == 8
15543 196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	18531	newPos64 = (__uint64__)posLo \| ((__uint64__)posHi << 32);
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	18532	RETURN ( __MKUINT(newPos64) );
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	18533	#else
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18534	newPos64.lo = posLo;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18535	newPos64.hi = posHi;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18536	RETURN ( __MKUINT64(&newPos64) );
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	18537	#endif
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18538
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18539	bad: ;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18540	%}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18541
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18542	errorNumber isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18543	self error:'invalid argument(s): ', errSym.
6336 7accea3927f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6304 diff changeset	18544	] ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18545	(OperatingSystem errorHolderForNumber:errorNumber) reportError
6336 7accea3927f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6304 diff changeset	18546	].
7accea3927f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6304 diff changeset	18547	!
7accea3927f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6304 diff changeset	18548
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18549	writeBytes:count from:aByteBuffer startingAt:firstIndex
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18550	"write count bytes from a byte-buffer;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18551	Return the number of bytes written (negative on error)"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18552
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18553	\|errSym errorNumber\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18554	%{
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18555	unsigned char *extPtr;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18556	int bufferIsExternalBytes;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18557	int mustFreeBuffer = 0;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18558	int nWritten = -1;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18559	HANDLE hFile = (HANDLE)(__externalAddressVal(self));
6304 c51a3d81ba5b * empty log message * Claus Gittinger <cg@exept.de> parents: 6297 diff changeset	18560	DWORD cntWanted, offs, cntWritten;
c51a3d81ba5b * empty log message * Claus Gittinger <cg@exept.de> parents: 6297 diff changeset	18561	int bufferSize;
6338 7a927c5cc9f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6337 diff changeset	18562	char miniBuffer[32];
15543 196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	18563	int ok;
6304 c51a3d81ba5b * empty log message * Claus Gittinger <cg@exept.de> parents: 6297 diff changeset	18564
c51a3d81ba5b * empty log message * Claus Gittinger <cg@exept.de> parents: 6297 diff changeset	18565	if ((hFile == 0) \|\| (hFile == INVALID_HANDLE_VALUE)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18566	errSym = @symbol(errorNotOpen);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18567	goto bad;
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	18568	}
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18569	if (! __bothSmallInteger(count, firstIndex)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18570	errSym = @symbol(badArgument);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18571	goto bad;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18572	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18573	cntWanted = __smallIntegerVal(count);
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18574	if (cntWanted <= 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18575	errSym = @symbol(badCount);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18576	goto bad;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18577	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18578	offs = __smallIntegerVal(firstIndex) - 1;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18579	if (offs < 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18580	errSym = @symbol(badOffset);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18581	goto bad;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18582	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18583
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18584	bufferIsExternalBytes = __isExternalBytesLike(aByteBuffer);
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18585	if (! bufferIsExternalBytes) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18586	if (__isByteArray(aByteBuffer)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18587	bufferSize = __byteArraySize(aByteBuffer);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18588	} else if (__isStringLike(aByteBuffer)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18589	bufferSize = __stringSize(aByteBuffer);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18590	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18591	errSym = @symbol(badBuffer);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18592	goto bad;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18593	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18594	if (bufferSize < (cntWanted + offs)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18595	errSym = @symbol(badBufferSize);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18596	goto bad;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18597	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18598	if (cntWanted <= sizeof(miniBuffer)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18599	extPtr = miniBuffer;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18600	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18601	extPtr = malloc(cntWanted);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18602	mustFreeBuffer = 1;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18603	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18604	memcpy(extPtr, __byteArrayVal(aByteBuffer)+offs, cntWanted);
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	18605	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18606	extPtr = (char *)(__externalBytesAddress(aByteBuffer));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18607	if (extPtr == NULL) goto bad;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18608	bufferSize = __externalBytesSize(aByteBuffer);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18609	if (! __isSmallInteger(bufferSize)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18610	errSym = @symbol(badBufferSize);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18611	goto bad;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18612	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18613	bufferSize = __smallIntegerVal(bufferSize);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18614	if (bufferSize < (cntWanted + offs)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18615	errSym = @symbol(badBufferSize);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18616	goto bad;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18617	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18618	extPtr = extPtr + offs;
6338 7a927c5cc9f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6337 diff changeset	18619	}
7a927c5cc9f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6337 diff changeset	18620
7a927c5cc9f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6337 diff changeset	18621	do {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18622	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18623	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18624	ok = (int)(STX_API_NOINT_CALL5( "WriteFile", WriteFile, hFile, extPtr, cntWanted, &cntWritten, 0 /* lpOverlapped */));
6338 7a927c5cc9f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6337 diff changeset	18625	} while(__threadErrno == EINTR);
7a927c5cc9f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6337 diff changeset	18626
7a927c5cc9f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6337 diff changeset	18627	if (ok == TRUE) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18628	if (mustFreeBuffer) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18629	free(extPtr);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18630	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18631	RETURN (__mkSmallInteger(cntWritten));
6338 7a927c5cc9f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6337 diff changeset	18632	}
7a927c5cc9f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6337 diff changeset	18633	errorNumber = __mkSmallInteger( __WIN32_ERR(GetLastError()) );
7a927c5cc9f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6337 diff changeset	18634
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	18635	bad: ;
6338 7a927c5cc9f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6337 diff changeset	18636	if (mustFreeBuffer) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18637	free(extPtr);
6338 7a927c5cc9f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6337 diff changeset	18638	}
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	18639	%}.
6304 c51a3d81ba5b * empty log message * Claus Gittinger <cg@exept.de> parents: 6297 diff changeset	18640	errorNumber isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18641	self error:'invalid argument(s): ', errSym.
6304 c51a3d81ba5b * empty log message * Claus Gittinger <cg@exept.de> parents: 6297 diff changeset	18642	] ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18643	(OperatingSystem errorHolderForNumber:errorNumber) reportError
6304 c51a3d81ba5b * empty log message * Claus Gittinger <cg@exept.de> parents: 6297 diff changeset	18644	].
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	18645
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	18646	"
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	18647	\|h buff n\|
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	18648
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	18649	h := self basicNew.
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	18650	h setFileDescriptor:1.
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	18651	buff := '12345678901234567890'.
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	18652	n := h writeBytes:10 from:buff startingAt:1.
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	18653	"
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18654	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18655
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18656	!Win32OperatingSystem::Win32IOHandle methodsFor:'release'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18657
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18658	close
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18659	"close the file"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18660
16345 575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	18661	self closeHandle.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18662	self unregisterForFinalization.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18663	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18664
22253 e1b728149a94 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 22248 diff changeset	18665	!Win32OperatingSystem::Win32FileHandle class methodsFor:'documentation'!
e1b728149a94 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 22248 diff changeset	18666
e1b728149a94 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 22248 diff changeset	18667	documentation
e1b728149a94 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 22248 diff changeset	18668	"
e1b728149a94 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 22248 diff changeset	18669	I represent a handle of a file in the filesystem.
e1b728149a94 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 22248 diff changeset	18670
e1b728149a94 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 22248 diff changeset	18671	[author:]
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18672	Stefan Vogel
22253 e1b728149a94 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 22248 diff changeset	18673	"
e1b728149a94 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 22248 diff changeset	18674	! !
e1b728149a94 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 22248 diff changeset	18675
20591 e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	18676	!Win32OperatingSystem::Win32MutexHandle class methodsFor:'documentation'!
e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	18677
e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	18678	documentation
e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	18679	"
e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	18680	I represent a mutex (can be used from more than a single OS processe).
e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	18681	I can be waited upon in a WaitForHandle / WaitForMultipleObjects call.
e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	18682	"
e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	18683	! !
e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	18684
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18685	!Win32OperatingSystem::Win32NetworkResourceHandle class methodsFor:'accessing - types'!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18686
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18687	displayTypeMappingTable
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18688	"answer a Dictionary containing displayTypes symbols to integer mapping and vice versa"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18689	\| symbTable \|
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18690
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18691	DisplayTypeMappingTable notNil ifTrue:[ ^ DisplayTypeMappingTable ].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18692
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18693	symbTable := Dictionary new.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18694	%{
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18695	__AT_PUT_(symbTable , @symbol(GENERIC), __MKUINT( RESOURCEDISPLAYTYPE_GENERIC ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18696	__AT_PUT_(symbTable , @symbol(DOMAIN), __MKUINT( RESOURCEDISPLAYTYPE_DOMAIN ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18697	__AT_PUT_(symbTable , @symbol(SERVER), __MKUINT( RESOURCEDISPLAYTYPE_SERVER ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18698	__AT_PUT_(symbTable , @symbol(SHARE), __MKUINT( RESOURCEDISPLAYTYPE_SHARE ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18699	__AT_PUT_(symbTable , @symbol(FILE), __MKUINT( RESOURCEDISPLAYTYPE_FILE ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18700	__AT_PUT_(symbTable , @symbol(GROUP), __MKUINT( RESOURCEDISPLAYTYPE_GROUP ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18701	__AT_PUT_(symbTable , @symbol(NETWORK), __MKUINT( RESOURCEDISPLAYTYPE_NETWORK ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18702	__AT_PUT_(symbTable , @symbol(ROOT), __MKUINT( RESOURCEDISPLAYTYPE_ROOT ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18703	__AT_PUT_(symbTable , @symbol(SHAREADMIN), __MKUINT( RESOURCEDISPLAYTYPE_SHAREADMIN ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18704	__AT_PUT_(symbTable , @symbol(DIRECTORY), __MKUINT( RESOURCEDISPLAYTYPE_DIRECTORY ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18705	__AT_PUT_(symbTable , @symbol(TREE), __MKUINT( RESOURCEDISPLAYTYPE_TREE ) );
15580 4f1aa9df6162 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15547 diff changeset	18706	#ifdef RESOURCEDISPLAYTYPE_NDSCONTAINER
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18707	__AT_PUT_(symbTable , @symbol(NDSCONTAINER), __MKUINT( RESOURCEDISPLAYTYPE_NDSCONTAINER ) );
15580 4f1aa9df6162 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15547 diff changeset	18708	#endif
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18709	%}.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18710	DisplayTypeMappingTable := Dictionary new.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18711
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18712	symbTable keysAndValuesDo:[:aSYMB :anINT \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18713	DisplayTypeMappingTable at: aSYMB put: anINT.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18714	DisplayTypeMappingTable at: anINT put: aSYMB. "/ vice versa
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18715	].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18716	^ DisplayTypeMappingTable
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18717	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18718
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18719	scopeMappingTable
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18720	"answer a Dictionary with scopes mapping symbol to integer and vice verca"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18721	\| symbTable \|
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18722
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18723	ScopeMappingTable notNil ifTrue:[ ^ ScopeMappingTable].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18724
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18725	symbTable := Dictionary new.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18726	%{
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18727	__AT_PUT_(symbTable, @symbol(CONNECTED), __MKUINT( RESOURCE_CONNECTED ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18728	__AT_PUT_(symbTable, @symbol(CONTEXT), __MKUINT( RESOURCE_CONTEXT ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18729	__AT_PUT_(symbTable, @symbol(GLOBALNET), __MKUINT( RESOURCE_GLOBALNET ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18730	__AT_PUT_(symbTable, @symbol(REMEMBERED), __MKUINT( RESOURCE_REMEMBERED ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18731	__AT_PUT_(symbTable, @symbol(RECENT), __MKUINT( RESOURCE_RECENT ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18732	%}.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18733	ScopeMappingTable := Dictionary new.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18734
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18735	symbTable keysAndValuesDo:[:aSYMB :anINT \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18736	ScopeMappingTable at: aSYMB put: anINT.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18737	ScopeMappingTable at: anINT put: aSYMB. "/ vice versa
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18738	].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18739	^ ScopeMappingTable
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18740	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18741
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18742	typeMappingTable
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18743	"answer a Dictionary containing types symbols to integer mapping and vice versa"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18744	\| symbTable \|
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18745
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18746	TypeMappingTable notNil ifTrue:[ ^ TypeMappingTable].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18747
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18748	symbTable := Dictionary new.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18749	%{
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18750	__AT_PUT_(symbTable , @symbol(ANY), __MKUINT( RESOURCETYPE_ANY ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18751	__AT_PUT_(symbTable , @symbol(DISK), __MKUINT( RESOURCETYPE_DISK ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18752	__AT_PUT_(symbTable , @symbol(PRINT), __MKUINT( RESOURCETYPE_PRINT ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18753	__AT_PUT_(symbTable , @symbol(UNKNOWN), __MKUINT( RESOURCETYPE_UNKNOWN ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18754	__AT_PUT_(symbTable , @symbol(RESERVED), __MKUINT( RESOURCETYPE_RESERVED ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18755	%}.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18756	TypeMappingTable := Dictionary new.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18757
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18758	symbTable keysAndValuesDo:[:aSYMB :anINT \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18759	TypeMappingTable at: aSYMB put: anINT.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18760	TypeMappingTable at: anINT put: aSYMB. "/ vice versa
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18761	].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18762	^ TypeMappingTable
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18763	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18764
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18765	usageMappingTable
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18766	"answer a Dictionary containing usages symbols to integer mapping and vice versa"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18767	\| symbTable \|
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18768
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18769	UsageMappingTable notNil ifTrue:[ ^ UsageMappingTable].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18770
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18771	symbTable := Dictionary new.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18772	%{
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18773	__AT_PUT_(symbTable , @symbol(NULL), __MKUINT( 0 ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18774	__AT_PUT_(symbTable , @symbol(CONNECTABLE), __MKUINT( RESOURCEUSAGE_CONNECTABLE ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18775	__AT_PUT_(symbTable , @symbol(CONTAINER), __MKUINT( RESOURCEUSAGE_CONTAINER ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18776	__AT_PUT_(symbTable , @symbol(ATTACHED), __MKUINT( RESOURCEUSAGE_ATTACHED ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18777	__AT_PUT_(symbTable , @symbol(ALL), __MKUINT( RESOURCEUSAGE_ALL ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18778	__AT_PUT_(symbTable , @symbol(NOLOCALDEVICE), __MKUINT( RESOURCEUSAGE_NOLOCALDEVICE ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18779	__AT_PUT_(symbTable , @symbol(SIBLING), __MKUINT( RESOURCEUSAGE_SIBLING ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18780	__AT_PUT_(symbTable , @symbol(RESERVED), __MKUINT( RESOURCEUSAGE_RESERVED ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18781	%}.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18782	UsageMappingTable := Dictionary new.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18783
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18784	symbTable keysAndValuesDo:[:aSYMB :anINT \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18785	UsageMappingTable at: aSYMB put: anINT.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18786	UsageMappingTable at: anINT put: aSYMB. "/ vice versa
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18787	].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18788	^ UsageMappingTable
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18789	! !
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18790
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18791	!Win32OperatingSystem::Win32NetworkResourceHandle class methodsFor:'fetch resources'!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18792
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18793	fetchResourcesStartingAt: aNetworkResourceOrNil
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18794	withScope: aScope type: aType usage: aUsage onError: aBlock
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18795
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18796	"Fetch all resources from the given network resource or if nil the root system.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18797	On success a collection of al network resources is returned.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18798	If the open fails, the error block if notNil will be evaluated with the error number
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18799	and nil is returned.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18800
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18801	self fetchResourcesStartingAt: nil withScope: #GLOBALNET type: #ANY usage: 0
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18802	onError: [:err\| Transcript showCR: err ].
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18803	"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18804	\| stream networkResources \|
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18805
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18806	[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18807	stream := self openAt: aNetworkResourceOrNil
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18808	withScope: aScope type: aType usage: aUsage onError: aBlock.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18809
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18810	stream notNil ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18811	\|next\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18812
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18813	networkResources := OrderedCollection new.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18814
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18815	[ (next := stream nextOrNil) notNil ] whileTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18816	networkResources add:next.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18817	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18818	]
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18819	] ensure:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18820	stream notNil ifTrue:[ stream close ].
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18821	].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18822	^ networkResources.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18823	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18824
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18825	fetchSystemResourcesWithScope: aScope type: aType usage: aUsage onError: aBlock
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18826
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18827	"Fetch all system resources.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18828	On success a collection of al network resources is returned.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18829	If the open fails, the error block if notNil will be evaluated with the error number
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18830	and nil is returned.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18831
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18832	self fetchSystemResourcesWithScope: #GLOBALNET type: #ANY usage: 0
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18833	onError: [:err\| Transcript showCR: err ].
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18834
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18835	self fetchSystemResourcesWithScope: #REMEMBERED type: #DISK usage: 0
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18836	onError: [:err\| Transcript showCR: err ].
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18837
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18838	self fetchSystemResourcesWithScope: #REMEMBERED type: #ANY usage: 0
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18839	onError: [:err\| Transcript showCR: err ].
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18840	"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18841
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18842	^ self fetchResourcesStartingAt: nil
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18843	withScope: aScope type: aType usage: aUsage onError: aBlock
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18844	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18845
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18846	fetchVirtualDrives
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18847	"answer a collection of virtual drive resources
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18848
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18849	self fetchVirtualDrives
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18850	"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18851	^ self fetchSystemResourcesWithScope: #REMEMBERED type: #DISK usage: 0 onError: nil.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18852	! !
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18853
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18854	!Win32OperatingSystem::Win32NetworkResourceHandle class methodsFor:'opening'!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18855
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18856	openAt: aResourceOrNil withScope: aScope type: aType usage: aUsage onError: aBlock
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18857	"Open a handle for network resource enumeratation starting at the given NetworkResource
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18858	or if nil on the system root. On success the handle will is returned.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18859	If the open fails, the error block if notNil will be evaluated with the error number
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18860	and nil is returned.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18861
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18862	OperatingSystem networkResourceAccessor openOn:nil withScope:#GLOBALNET type:#ANY usage:0 onError:nil.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18863	OperatingSystem networkResourceAccessor openOn:nil withScope:#REMEMBERED type:#DISK usage:0 onError:nil.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18864	"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18865	\| resourceHandle errorNumber enumScope enumUsage enumType
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18866	resScope resType resUsage resDisplayType resComment resLocalName resRemoteName resProvider \|
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18867
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18868	"/ map symbols to integer values.. on error an exception is raised
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18869	aScope isInteger ifTrue:[ enumScope := aScope ]
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18870	ifFalse:[ enumScope := self scopeMappingTable at:aScope ].
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18871
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18872	aUsage isInteger ifTrue:[ enumUsage := aUsage ]
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18873	ifFalse:[ enumUsage := self usageMappingTable at:aUsage ].
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18874
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18875	aType isInteger ifTrue:[ enumType := aType ]
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18876	ifFalse:[ enumType := self typeMappingTable at:aType ].
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18877
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18878	aResourceOrNil notNil ifTrue:[ \| checkAndGetString \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18879	resScope := aResourceOrNil scope.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18880	resScope isInteger ifFalse:[ resScope := self scopeMappingTable at:resScope ].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18881
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18882	resType := aResourceOrNil type.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18883	resType isInteger ifFalse:[ resType := self typeMappingTable at: resType ].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18884
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18885	resUsage := aResourceOrNil usage.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18886	resUsage isInteger ifFalse:[ resUsage := self usageMappingTable at: resUsage ].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18887
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18888	resDisplayType := aResourceOrNil displayType.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18889	resDisplayType isInteger ifFalse:[ resDisplayType := self displayTypeMappingTable at:resDisplayType ].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18890
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18891	checkAndGetString := [: aString\| \|string\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18892	aString notNil ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18893	self isUsingUnicode
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18894	ifTrue: [ string := aString asUnicode16String ]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18895	ifFalse:[ string := aString asSingleByteString ].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18896	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18897	string
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18898	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18899	resRemoteName := checkAndGetString value:( aResourceOrNil remoteName ).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18900	resLocalName := checkAndGetString value:( aResourceOrNil localName ).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18901	resComment := checkAndGetString value:( aResourceOrNil comment ).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18902	resProvider := checkAndGetString value:( aResourceOrNil provider ).
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18903	].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18904	resourceHandle := self new.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18905
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18906	%{
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18907	HANDLE __hEnum;
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18908	int __errno;
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18909	DWORD __scope = __unsignedLongIntVal( enumScope );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18910	DWORD __usage = __unsignedLongIntVal( enumUsage );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18911	DWORD __type = __unsignedLongIntVal( enumType );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18912
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18913	#ifdef USE_ANSI_NETWORKRESOURCES
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18914	char __buffer[ 8192 ];
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18915	LPNETRESOURCE __lpnetRes = (LPNETRESOURCE) __buffer;
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18916	char * __cp = __buffer + sizeof(NETRESOURCE);
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18917	char * __sp;
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18918	#else
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18919	wchar_t __buffer[ 8192 ];
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18920	LPNETRESOURCEW __lpnetRes = (LPNETRESOURCEW) __buffer;
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18921	wchar_t * __cp = __buffer + sizeof(NETRESOURCEW);
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18922	wchar_t * __sp;
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18923	#endif
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18924
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18925	if( resScope == nil ) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18926	__lpnetRes = 0;
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18927	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18928	int __sz;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18929
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18930	ZeroMemory( __buffer, (__cp - __buffer) );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18931
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18932	__lpnetRes->dwScope = __unsignedLongIntVal( resScope );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18933	__lpnetRes->dwType = __unsignedLongIntVal( resType );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18934	__lpnetRes->dwUsage = __unsignedLongIntVal( resUsage );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18935	__lpnetRes->dwDisplayType = __unsignedLongIntVal( resDisplayType );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18936
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18937	if( resRemoteName != nil ) {
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18938	#ifdef USE_ANSI_NETWORKRESOURCES
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18939	__sp = __stringVal(resRemoteName);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18940	__sz = strlen(__sp);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18941	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18942	__sp = __unicode16StringVal(resRemoteName);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18943	__sz = __unicode16StringSize(resRemoteName);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18944	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18945	for( __lpnetRes->lpRemoteName = __cp; __sz > 0; --__sz ) { * __cp++ = * __sp++; }
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18946	*__cp++ = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18947	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18948
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18949	if( resLocalName != nil ) {
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18950	#ifdef USE_ANSI_NETWORKRESOURCES
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18951	__sp = __stringVal(resLocalName);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18952	__sz = strlen(__sp);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18953	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18954	__sp = __unicode16StringVal(resLocalName);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18955	__sz = __unicode16StringSize(resLocalName);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18956	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18957	for( __lpnetRes->lpLocalName = __cp; __sz > 0; --__sz ) { * __cp++ = * __sp++; }
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18958	*__cp++ = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18959	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18960
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18961	if( resComment != nil ) {
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18962	#ifdef USE_ANSI_NETWORKRESOURCES
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18963	__sp = __stringVal(resComment);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18964	__sz = strlen(__sp);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18965	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18966	__sp = __unicode16StringVal(resComment);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18967	__sz = __unicode16StringSize(resComment);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18968	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18969	for( __lpnetRes->lpComment = __cp; __sz > 0; --__sz ) { * __cp++ = * __sp++; }
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18970	*__cp++ = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18971	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18972
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18973	if( resProvider != nil ) {
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18974	#ifdef USE_ANSI_NETWORKRESOURCES
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18975	__sp = __stringVal(resProvider);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18976	__sz = strlen(__sp);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18977	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18978	__sp = (wchar_t*)__unicode16StringVal(resProvider);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18979	__sz = __unicode16StringSize(resProvider);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18980	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18981	for( __lpnetRes->lpProvider = __cp; __sz > 0; --__sz ) { * __cp++ = * __sp++; }
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18982	*__cp++ = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18983	}
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18984	}
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18985
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18986	#ifdef DO_WRAP_CALLS
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18987	do {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18988	__threadErrno = 0;
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18989	#ifdef USE_ANSI_NETWORKRESOURCES
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18990	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18991	__errno = (int)(STX_API_NOINT_CALL5( "WNetOpenEnumA", WNetOpenEnumA, __scope, __type, __usage, __lpnetRes, & __hEnum ));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18992	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18993	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	18994	__errno = (int)(STX_API_NOINT_CALL5( "WNetOpenEnumW", WNetOpenEnumW, __scope, __type, __usage, __lpnetRes, & __hEnum ));
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18995	#endif
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18996	} while ((__errno < 0) && (__threadErrno == EINTR));
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18997	#else
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18998
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18999	#ifdef USE_ANSI_NETWORKRESOURCES
15177 8cb1904f7966 * empty log message * Claus Gittinger <cg@exept.de> parents: 15169 diff changeset	19000	__errno = WNetOpenEnumA ( __scope, __type, __usage, __lpnetRes, & __hEnum );
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19001	#else
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19002	__errno = WNetOpenEnumW( __scope, __type, __usage, __lpnetRes, & __hEnum );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19003	#endif
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19004
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19005	#endif
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19006
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19007	if( __errno == NO_ERROR ) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19008	__externalAddressVal(resourceHandle) = (void *) __hEnum;
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19009	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19010	resourceHandle = nil;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19011	errorNumber = __mkSmallInteger( __errno );
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19012	}
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19013
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19014	%}.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19015	resourceHandle isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19016	aBlock notNil ifTrue:[ aBlock value: errorNumber ].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19017	^ nil
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19018	].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19019	resourceHandle registerForFinalization.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19020	^ resourceHandle
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19021	! !
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19022
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19023	!Win32OperatingSystem::Win32NetworkResourceHandle class methodsFor:'testing'!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19024
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19025	isUsingUnicode
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19026	"answer true if we are using unicode; has effect to the open and next operation"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19027
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19028	%{
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19029	#ifdef USE_ANSI_NETWORKRESOURCES
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19030	RETURN( false );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19031	#endif
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19032	%}.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19033	^ true
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19034	! !
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19035
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19036	!Win32OperatingSystem::Win32NetworkResourceHandle methodsFor:'queries'!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19037
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19038	atEnd
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19039	"answer true if the stream is at the end (no longer valid)"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19040	^ (self address == 0)
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19041	! !
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19042
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19043	!Win32OperatingSystem::Win32NetworkResourceHandle methodsFor:'reading'!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19044
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19045	nextOrNil
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19046	"answer the next NetworkResource or nil (no more resource available);
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19047	if no more resource is available the stream is closed"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19048
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19049	\| scope type usage displayType comment localName remoteName provider \|
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19050
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19051	self atEnd ifTrue:[ ^ nil ].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19052
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19053	%{
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19054	HANDLE __hEnum = (HANDLE)(__externalAddressVal(self));
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19055
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19056	if ((__hEnum == 0) \|\| (__hEnum == INVALID_HANDLE_VALUE)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19057	__externalAddressVal(self) = (HANDLE)0;
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19058	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19059	DWORD __entries = 1;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19060	DWORD __bufSize = 8192;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19061	int __errno;
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19062
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19063	#ifdef USE_ANSI_NETWORKRESOURCES
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19064	char __buffer[ 8192 ];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19065	LPNETRESOURCE __lpNetRes = (LPNETRESOURCE) __buffer;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19066
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19067	ZeroMemory( __buffer, sizeof(NETRESOURCE) );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19068	__errno = WNetEnumResourceA ( __hEnum , & __entries , __lpNetRes, & __bufSize );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19069	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19070	wchar_t __buffer[ 8192 ];
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19071	LPNETRESOURCEW __lpNetRes = (LPNETRESOURCEW) __buffer;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19072
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19073	ZeroMemory( __buffer, sizeof(NETRESOURCEW) );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19074	__errno = WNetEnumResourceW ( __hEnum , & __entries , __lpNetRes, & __bufSize );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19075	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19076
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19077	if( (__errno == NO_ERROR) && (__entries == 1) ) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19078	scope = __MKUINT( __lpNetRes->dwScope );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19079	type = __MKUINT( __lpNetRes->dwType );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19080	usage = __MKUINT( __lpNetRes->dwUsage );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19081	displayType = __MKUINT( __lpNetRes->dwDisplayType );
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19082
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19083	#ifdef USE_ANSI_NETWORKRESOURCES
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19084	if( __lpNetRes->lpRemoteName != 0 ) { remoteName = __MKSTRING( __lpNetRes->lpRemoteName ); }
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19085	if( __lpNetRes->lpLocalName != 0 ) { localName = __MKSTRING( __lpNetRes->lpLocalName ); }
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19086	if( __lpNetRes->lpComment != 0 ) { comment = __MKSTRING( __lpNetRes->lpComment ); }
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19087	if( __lpNetRes->lpProvider != 0 ) { provider = __MKSTRING( __lpNetRes->lpProvider ); }
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19088	#else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19089	if( __lpNetRes->lpRemoteName != 0 ) { remoteName = __MKU16STRING( __lpNetRes->lpRemoteName ); }
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19090	if( __lpNetRes->lpLocalName != 0 ) { localName = __MKU16STRING( __lpNetRes->lpLocalName ); }
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19091	if( __lpNetRes->lpComment != 0 ) { comment = __MKU16STRING( __lpNetRes->lpComment ); }
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19092	if( __lpNetRes->lpProvider != 0 ) { provider = __MKU16STRING( __lpNetRes->lpProvider ); }
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19093	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19094	}
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19095	}
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19096	%}.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19097	scope notNil ifTrue:[ \|netResource\|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19098	netResource := NetworkResource new.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19099
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19100	"map integer values to symbol excluding the usage..."
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19101	netResource scope: (self class scopeMappingTable at:scope ifAbsent:[scope]).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19102	netResource type: (self class typeMappingTable at:type ifAbsent:[type]).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19103	netResource displayType: (self class displayTypeMappingTable at:displayType ifAbsent:[displayType]).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19104	netResource usage: usage.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19105
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19106	netResource remoteName: remoteName.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19107	netResource localName: localName.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19108	netResource comment: comment.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19109	netResource provider: provider.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19110
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19111	^ netResource
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19112	].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19113	self close.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19114	^ nil
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19115	! !
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19116
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19117	!Win32OperatingSystem::Win32NetworkResourceHandle methodsFor:'release'!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19118
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19119	closeHandle
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19120	"close the handle"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19121
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19122	self address == 0 ifTrue:[ ^ self ].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19123	%{
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19124	HANDLE __hEnum = (HANDLE)(__externalAddressVal(self));
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19125
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19126	if (__hEnum) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19127	__externalAddressVal(self) = (HANDLE)0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19128	WNetCloseEnum(__hEnum);
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19129	}
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19130	%}.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19131	! !
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19132
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19133	!Win32OperatingSystem::Win32NetworkResourceHandle::NetworkResource methodsFor:'accessing'!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19134
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19135	comment
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19136	"comment supplied by the network provider or nil"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19137
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19138	^ comment
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19139	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19140
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19141	comment: aStringOrNil
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19142	"comment supplied by the network provider or nil"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19143
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19144	comment := aStringOrNil.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19145	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19146
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19147	displayType
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19148	"The display options for the network object in a network browsing user interface"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19149
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19150	^ displayType
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19151	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19152
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19153	displayType: theDisplayType
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19154	"The display options for the network object in a network browsing user interface"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19155
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19156	displayType := theDisplayType.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19157	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19158
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19159	localName
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19160	"if the scope member is equal to RESOURCE_CONNECTED or RESOURCE_REMEMBERED,
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19161	this specifies the name of a local device. This member is NULL if the connection
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19162	does not use a device."
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19163
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19164	^ localName
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19165	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19166
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19167	localName: aStringOrNil
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19168	"if the scope member is equal to RESOURCE_CONNECTED or RESOURCE_REMEMBERED,
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19169	this specifies the name of a local device. This member is NULL if the connection
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19170	does not use a device."
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19171
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19172	localName := aStringOrNil.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19173	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19174
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19175	provider
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19176	"the name of the provider that owns the resource or nil"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19177
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19178	^ provider
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19179	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19180
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19181	provider: aStringOrNil
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19182	"the name of the provider that owns the resource or nil"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19183
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19184	provider := aStringOrNil.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19185	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19186
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19187	remoteName
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19188	"If the resource is a network resource, this specifies the remote network name.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19189	If the resource is a current or persistent connection, this specifies the network
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19190	name associated with the name pointed to by the localName"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19191
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19192	^ remoteName
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19193	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19194
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19195	remoteName: aStringOrNil
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19196	"If the resource is a network resource, this specifies the remote network name.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19197	If the resource is a current or persistent connection, this specifies the network
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19198	name associated with the name pointed to by the localName"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19199
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19200	remoteName := aStringOrNil.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19201	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19202
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19203	scope
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19204	"The scope of the enumeration
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19205	RESOURCE_CONNECTED RESOURCE_GLOBALNET RESOURCE_REMEMBERED
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19206	"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19207	^ scope
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19208	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19209
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19210	scope: theScope
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19211	"The scope of the enumeration
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19212	RESOURCE_CONNECTED RESOURCE_GLOBALNET RESOURCE_REMEMBERED
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19213	"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19214	scope := theScope.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19215	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19216
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19217	type
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19218	"describes the type of the resource
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19219	RESOURCETYPE_ANY RESOURCETYPE_DISK RESOURCETYPE_PRINT
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19220	"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19221	^ type
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19222	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19223
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19224	type: theType
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19225	"describes the type of the resource
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19226	RESOURCETYPE_ANY RESOURCETYPE_DISK RESOURCETYPE_PRINT
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19227	"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19228	type := theType.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19229	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19230
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19231	usage
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19232	"a set of bit flags (INTEGER) describing how the resource can be used"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19233
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19234	^ usage
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19235	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19236
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19237	usage: anInteger
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19238	"a set of bit flags (INTEGER) describing how the resource can be used"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19239
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19240	usage := anInteger.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19241	! !
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19242
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19243	!Win32OperatingSystem::Win32NetworkResourceHandle::NetworkResource methodsFor:'printing'!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19244
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19245	printOn: aStream
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19246	"print self on a stream"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19247
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19248	\| paction \|
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19249
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19250	paction := [: anIdentifier :theValue \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19251	anIdentifier printOn: aStream.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19252
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19253	theValue notNil ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19254	theValue isInteger ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19255	theValue printOn:aStream base:2 showRadix:true.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19256	] ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19257	theValue isSymbol ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19258	theValue printOn: aStream.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19259	] ifFalse:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19260	aStream nextPut: $". theValue printOn: aStream. aStream nextPut: $"
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19261	]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19262	]
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19263	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19264	aStream cr.
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19265	].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19266
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19267	aStream nextPutAll: 'NetworkResource {'; cr.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19268
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19269	paction value: ' Scope: ' value:scope.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19270	paction value: ' Type: ' value:type.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19271	paction value: ' DisplayType: ' value:displayType.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19272	paction value: ' Usage(mask): ' value:usage.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19273
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19274	aStream cr.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19275
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19276	paction value: ' RemoteName: ' value:remoteName.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19277	paction value: ' LocalName: ' value:localName.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19278	paction value: ' Comment ' value:comment.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19279	paction value: ' Provider ' value:provider.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19280
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19281	aStream nextPut: $}; cr.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19282	! !
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19283
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19284	!Win32OperatingSystem::Win32NetworkResourceHandle::NetworkResource methodsFor:'queries'!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19285
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19286	isResourceContainer
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19287	"answer true if the resource is a resource container"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19288
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19289	\| flag \|
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19290
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19291	usage isInteger ifFalse:[ ^ usage = #CONTAINER ].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19292	flag := usage.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19293	%{
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19294	DWORD __usage = __unsignedLongIntVal( flag );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19295
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19296	if( __usage & RESOURCEUSAGE_CONTAINER ) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19297	RETURN( true );
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19298	}
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19299	%}.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19300	^ false
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19301	! !
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	19302
9475 c57956a348bf printing support fm parents: 9431 diff changeset	19303	!Win32OperatingSystem::Win32PrinterHandle methodsFor:'release'!
c57956a348bf printing support fm parents: 9431 diff changeset	19304
c57956a348bf printing support fm parents: 9431 diff changeset	19305	closeHandle
c57956a348bf printing support fm parents: 9431 diff changeset	19306	self address ~~ 0 ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19307	OperatingSystem primClosePrinter:self.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	19308	]
c57956a348bf printing support fm parents: 9431 diff changeset	19309
c57956a348bf printing support fm parents: 9431 diff changeset	19310	"Created: / 27-07-2006 / 14:48:37 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	19311	! !
c57956a348bf printing support fm parents: 9431 diff changeset	19312
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19313	!Win32OperatingSystem::Win32ProcessHandle methodsFor:'accessing'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19314
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19315	pid
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19316	^ pid
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19317	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19318
16334 41fddda3b611 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16331 diff changeset	19319	!Win32OperatingSystem::Win32ProcessHandle methodsFor:'comparing'!
41fddda3b611 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16331 diff changeset	19320
41fddda3b611 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16331 diff changeset	19321	= aWin32ProcessHandle
22684 2d3d83732eaf #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22383 diff changeset	19322	^ aWin32ProcessHandle class == self class
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19323	and:[pid = aWin32ProcessHandle pid and:[pid notNil or:[self address = aWin32ProcessHandle address]]]
16334 41fddda3b611 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16331 diff changeset	19324	!
41fddda3b611 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16331 diff changeset	19325
41fddda3b611 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16331 diff changeset	19326	hash
22246 436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	19327	pid isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19328	^ super hash.
22246 436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	19329	].
16334 41fddda3b611 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16331 diff changeset	19330	^ pid hash
41fddda3b611 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16331 diff changeset	19331	! !
41fddda3b611 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16331 diff changeset	19332
12632 19e07026403f comment/format in: Stefan Vogel <sv@exept.de> parents: 12625 diff changeset	19333	!Win32OperatingSystem::Win32ProcessHandle methodsFor:'printing & storing'!
19e07026403f comment/format in: Stefan Vogel <sv@exept.de> parents: 12625 diff changeset	19334
22246 436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	19335	printOn:aStream
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	19336	"return a printed representation of the receiver
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	19337	If there is a pid, only print the pid, so that OSProcess>>#pid is printed the same on Windows and Linux-
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	19338	See also: https://expeccoalm.exept.de/D216833"
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	19339
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	19340	pid isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19341	super printOn:aStream.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19342	aStream nextPutAll:' pid:'.
22246 436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	19343	].
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	19344
436ac1b74528 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22131 diff changeset	19345	pid printOn:aStream.
22248 d912ed5595ba #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22247 diff changeset	19346	!
d912ed5595ba #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22247 diff changeset	19347
d912ed5595ba #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22247 diff changeset	19348	printStringForPrintIt
d912ed5595ba #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 22247 diff changeset	19349	^ super printString, ' pid:', pid printString.
12632 19e07026403f comment/format in: Stefan Vogel <sv@exept.de> parents: 12625 diff changeset	19350	! !
19e07026403f comment/format in: Stefan Vogel <sv@exept.de> parents: 12625 diff changeset	19351
23636 b9e5840e2c22 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23534 diff changeset	19352	!Win32OperatingSystem::Win32ProcessHandle methodsFor:'release'!
b9e5840e2c22 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23534 diff changeset	19353
23638 37512eec04c2 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23636 diff changeset	19354	closeHandle
37512eec04c2 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23636 diff changeset	19355	OperatingSystem closePid:self.
37512eec04c2 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23636 diff changeset	19356
37512eec04c2 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23636 diff changeset	19357	"Created: / 22-01-2019 / 19:17:15 / Stefan Vogel"
23636 b9e5840e2c22 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23534 diff changeset	19358	! !
b9e5840e2c22 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 23534 diff changeset	19359
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19360	!Win32OperatingSystem::Win32SerialPortHandle methodsFor:'opening'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19361
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19362	open:portName baudRate:baudRate stopBitsType:stopBitsType
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19363	parityType:parityType dataBits:dataBits
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19364	inFlowCtrl:inFlowCtrlType outFlowCtrl:outFlowCtrlType
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19365	xOnChar:xOnChar xOffChar:xOffChar
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19366	"portName: COM%d
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19367	baudRate: Integer
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19368	stopBitsType: #stop1, #stop2 or #stop1_5
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19369	parityType: #odd, #even or #none
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19370	dataBits: #integer
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19371	inFlowCtrlType: #xOnOff #hardware
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19372	outFlowCtrlType: #xOnOff #hardware
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19373	xOnChar: Character or Integer
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19374	xOffChar: Character or Integer"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19375
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19376	\|errorNumber\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19377
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19378	%{
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19379	HANDLE port;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19380	COMMTIMEOUTS timeouts;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19381	DCB dcb;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19382	char *__portName;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19383	int __setBaudRate = 1,
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19384	__setDataBits = 1,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19385	__setXOnChar = 1,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19386	__setXOffChar = 1,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19387	__setInFlowCtrl = 1,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19388	__setOutFlowCtrl = 1,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19389	__setStopBits = 1,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19390	__setParityType = 1;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19391	int __baudRate, __dataBits;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19392	int __xOnChar, __xOffChar;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19393	int __inFlowCtrl, __outFlowCtrl;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19394	int __stopBits, __parityType;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19395	# define XONOFF 1
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19396	# define HARDWARE 2
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19397	# define STOP1 1
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19398	# define STOP2 2
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19399	# define STOP1_5 3
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19400	# define ODD 1
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19401	# define EVEN 2
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19402	# define NONE 3
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19403
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	19404	if (__isStringLike(portName)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19405	__portName = __stringVal(portName);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19406	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19407	goto failure;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19408	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19409	if (__isSmallInteger(baudRate)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19410	__baudRate = __intVal(baudRate);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19411	} else if (baudRate == nil) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19412	__setBaudRate = 0;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19413	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19414	goto failure;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19415	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19416
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19417	if (__isSmallInteger(dataBits)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19418	__dataBits = __intVal(dataBits);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19419	} else if (dataBits == nil) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19420	__setDataBits = 0;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19421	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19422	goto failure;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19423	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19424
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19425	if (__isSmallInteger(xOnChar)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19426	__xOnChar = __intVal(xOnChar);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19427	} else if (__isCharacter(xOnChar)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19428	__xOnChar = __intVal(_characterVal(xOnChar));
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19429	} else if (xOnChar == nil) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19430	__setXOnChar = 0;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19431	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19432	goto failure;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19433	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19434
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19435	if (__isSmallInteger(xOffChar)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19436	__xOffChar = __intVal(xOffChar);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19437	} else if (__isCharacter(xOffChar)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19438	__xOffChar = __intVal(_characterVal(xOffChar));
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19439	} else if (xOffChar == nil) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19440	__setXOffChar = 0;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19441	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19442	goto failure;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19443	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19444
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19445	if (inFlowCtrlType == @symbol(xOnOff)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19446	__inFlowCtrl = XONOFF;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19447	} else if (inFlowCtrlType == @symbol(hardware)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19448	__inFlowCtrl = HARDWARE;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19449	} else if (inFlowCtrlType == nil) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19450	__setInFlowCtrl = 0;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19451	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19452	goto failure;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19453	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19454
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19455	if (outFlowCtrlType == @symbol(xOnOff)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19456	__outFlowCtrl = XONOFF;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19457	} else if (outFlowCtrlType == @symbol(hardware)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19458	__outFlowCtrl = HARDWARE;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19459	} else if (outFlowCtrlType == nil) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19460	__setOutFlowCtrl = 0;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19461	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19462	goto failure;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19463	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19464
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19465	if (stopBitsType == @symbol(stop1)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19466	__stopBits = STOP1;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19467	} else if (stopBitsType == @symbol(stop2)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19468	__stopBits = STOP2;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19469	} else if (stopBitsType == @symbol(stop1_5)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19470	__stopBits = STOP1_5;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19471	} else if (stopBitsType == nil) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19472	__setStopBits = 0;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19473	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19474	goto failure;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19475	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19476
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19477	port = CreateFile(__portName,
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19478	GENERIC_READ \| GENERIC_WRITE,
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19479	0, /* comm devices must be opened with exclusive access */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19480	NULL, /* no security attrs */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19481	OPEN_EXISTING, /* comm devices must use OPEN_EXISTING */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19482	0, /* no overlapped I/O */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19483	NULL /* hTemplate must be NULL for comm devices */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19484	);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19485	if (port == INVALID_HANDLE_VALUE) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19486	console_fprintf(stderr, "Win32OS [info]: serial port open failed\n");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19487	errorNumber = __mkSmallInteger( __WIN32_ERR(GetLastError()) );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19488	goto failure;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19489	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19490	/* Flush the driver */
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19491	PurgeComm( port, PURGE_TXABORT \| PURGE_RXABORT \| PURGE_TXCLEAR \| PURGE_RXCLEAR );
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19492
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19493	/* Set driver buffer sizes */
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19494	SetupComm( port, 4096 /SERIAL_IN_QUEUE_SIZE/, 4096 /SERIAL_OUT_QUEUE_SIZE/);
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19495
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19496	/* Reset timeout constants */
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19497	timeouts.ReadIntervalTimeout= 0xFFFFFFFF;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19498	timeouts.ReadTotalTimeoutMultiplier = 0;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19499	timeouts.ReadTotalTimeoutConstant = 0;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19500	timeouts.WriteTotalTimeoutMultiplier = 0;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19501	timeouts.WriteTotalTimeoutConstant = 0;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19502	SetCommTimeouts( port, &timeouts );
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19503
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19504	/* Set communication parameters */
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19505	ZeroMemory(&dcb, sizeof(dcb));
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19506	dcb.DCBlength = sizeof(dcb);
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19507	GetCommState(port, &dcb);
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19508
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19509	if (__setBaudRate) dcb.BaudRate = __baudRate;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19510	if (__setDataBits) dcb.ByteSize = __dataBits;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19511	if (__setXOnChar) dcb.XonChar = __xOnChar;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19512	if (__setXOffChar) dcb.XoffChar = __xOffChar;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19513
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19514	if (__setStopBits) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19515	/* set stop bits */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19516	switch(__stopBits) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19517	case STOP1_5: dcb.StopBits = 1; break; /* 1.5 stop bits */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19518	case STOP1: dcb.StopBits = 0; break; /* 1 stop bit */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19519	case STOP2: dcb.StopBits = 2; break; /* 2 stop bits */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19520	default: goto errExit;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19521	}
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19522	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19523
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19524	if (__setParityType) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19525	/* set parity */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19526	switch(__parityType) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19527	case NONE: dcb.Parity = NOPARITY; break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19528	case ODD: dcb.Parity = ODDPARITY; break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19529	case EVEN: dcb.Parity = EVENPARITY; break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19530	default: goto errExit;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19531	}
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19532	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19533
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19534	if (__setInFlowCtrl) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19535	/* set control flow */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19536	dcb.fInX = FALSE;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19537	dcb.fDtrControl = FALSE;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19538	if (__inFlowCtrl == XONOFF) dcb.fInX = TRUE; /* XOn/XOff handshaking */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19539	if (__inFlowCtrl == HARDWARE) dcb.fDtrControl = TRUE; /* hardware handshaking */
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19540	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19541	if (__setOutFlowCtrl) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19542	dcb.fOutX = FALSE;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19543	dcb.fOutxCtsFlow = FALSE;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19544
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19545	if (__outFlowCtrl == XONOFF) dcb.fOutX = TRUE; /* XOn/XOff handshaking */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19546	if (__outFlowCtrl == HARDWARE) dcb.fOutxCtsFlow = TRUE; /* hardware handshaking */
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19547	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19548
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19549	if (SetCommState(port, &dcb)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19550	RETURN( true );
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19551	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19552
10352 f2e9bb8906db * empty log message * Claus Gittinger <cg@exept.de> parents: 10342 diff changeset	19553	console_fprintf(stderr, "Win32OS [info]: serial port comm-setup failed\n");
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19554	errorNumber = __mkSmallInteger( __WIN32_ERR(GetLastError()) );
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19555	/* fall into */
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19556	errExit: ;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19557	CloseHandle(port);
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19558
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19559	failure: ;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19560	# undef XONOFF
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19561	# undef HARDWARE
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19562	# undef STOP1
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19563	# undef STOP2
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19564	# undef STOP1_5
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19565	# undef ODD
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19566	# undef EVEN
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19567	# undef NONE
9088 6ae1b16f69a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 9083 diff changeset	19568	%}.
6ae1b16f69a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 9083 diff changeset	19569	errorNumber isNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19570	self error:'invalid argument(s)'.
9088 6ae1b16f69a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 9083 diff changeset	19571	] ifFalse:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19572	(OperatingSystem errorHolderForNumber:errorNumber) reportError
9088 6ae1b16f69a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 9083 diff changeset	19573	].
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19574	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19575
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19576	!Win32OperatingSystem::Win32SerialPortHandle methodsFor:'release'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19577
16345 575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19578	closeHandle
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19579	"close the handle"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19580
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19581	%{
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19582	HANDLE port = (HANDLE)(__externalAddressVal(self));
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19583
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19584	if (port) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19585	__externalAddressVal(self) = (HANDLE)0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19586	PurgeComm( port, PURGE_TXABORT \| PURGE_RXABORT \| PURGE_TXCLEAR \| PURGE_RXCLEAR );
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19587	CloseHandle(port);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19588	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19589	%}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19590	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19591
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19592	!Win32OperatingSystem::Win32SerialPortHandle methodsFor:'setup'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19593
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19594	baudRate:newRate
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19595	%{
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19596	HANDLE port = (HANDLE)(__externalAddressVal(self));
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19597
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19598	if (port
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19599	&& __isSmallInteger(newRate)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19600	DCB dcb;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19601
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19602	ZeroMemory(&dcb, sizeof(dcb));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19603	dcb.DCBlength = sizeof(dcb);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19604	GetCommState(port, &dcb);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19605
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19606	dcb.BaudRate = __intVal(newRate);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19607
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19608	if (! SetCommState(port, &dcb)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19609	RETURN(false);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19610	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19611	RETURN(true);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19612	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19613	%}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19614	self primitiveFailed.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19615	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19616
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19617	dataBits:newNumberOfBits
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19618	%{
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19619	HANDLE port = (HANDLE)(__externalAddressVal(self));
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19620
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19621	if (port
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19622	&& __isSmallInteger(newNumberOfBits)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19623	DCB dcb;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19624
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19625	ZeroMemory(&dcb, sizeof(dcb));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19626	dcb.DCBlength = sizeof(dcb);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19627	GetCommState(port, &dcb);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19628
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19629	dcb.ByteSize = __intVal(newNumberOfBits);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19630
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19631	if (! SetCommState(port, &dcb)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19632	RETURN(false);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19633	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19634	RETURN(true);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19635	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19636	%}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19637	self primitiveFailed.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19638	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19639
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19640	parityType:newParityTypeSymbol
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19641	"newParityTypeSymbol must be one of #odd, #even or #none (or nil)"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19642
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19643	%{
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19644	HANDLE port = (HANDLE)(__externalAddressVal(self));
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19645
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19646	if (port) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19647	DCB dcb;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19648
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19649	ZeroMemory(&dcb, sizeof(dcb));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19650	dcb.DCBlength = sizeof(dcb);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19651	GetCommState(port, &dcb);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19652
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19653
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19654	if ((newParityTypeSymbol == nil) \|\| (newParityTypeSymbol == @symbol(none))) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19655	dcb.Parity = NOPARITY;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19656	} else if (newParityTypeSymbol == @symbol(odd)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19657	dcb.Parity = ODDPARITY;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19658	} else if (newParityTypeSymbol == @symbol(even)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19659	dcb.Parity = EVENPARITY;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19660	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19661	goto failure;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19662	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19663
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19664	if (! SetCommState(port, &dcb)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19665	RETURN(false);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19666	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19667	RETURN(true);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19668	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19669	failure: ;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19670	%}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19671	self primitiveFailed.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19672	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19673
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19674	stopBitsType:newStopBitsSymbol
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19675	"newParityTypeSymbol must be one of #stop1, #stop2 or #stop1_5"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19676	%{
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19677	HANDLE port = (HANDLE)(__externalAddressVal(self));
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19678
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19679	if (port) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19680	DCB dcb;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19681
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19682	ZeroMemory(&dcb, sizeof(dcb));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19683	dcb.DCBlength = sizeof(dcb);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19684	GetCommState(port, &dcb);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19685
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19686	if (newStopBitsSymbol == @symbol(stop1)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19687	dcb.Parity = 0 /* STOP1 */;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19688	} else if (newStopBitsSymbol == @symbol(stop2)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19689	dcb.Parity = 2 /* STOP2 */;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19690	} else if (newStopBitsSymbol == @symbol(stop1_5)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19691	dcb.Parity = 1 /* STOP1_5 */;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19692	} else {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19693	goto failure;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19694	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19695
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19696	if (! SetCommState(port, &dcb)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19697	RETURN(false);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19698	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19699	RETURN(true);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19700	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19701	failure: ;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19702	%}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19703	self primitiveFailed.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19704	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19705
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19706	!Win32OperatingSystem::Win32SocketHandle class methodsFor:'constants'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19707
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19708	protocolCodeOf:aNameOrNumber
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19709	"q&d hack for unix-compatibility"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19710
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19711	aNameOrNumber isNumber ifTrue:[^ aNameOrNumber].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19712	aNameOrNumber isNil ifTrue:[^ aNameOrNumber].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19713
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19714	aNameOrNumber = 'tcp' ifTrue:[^ 6].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19715	aNameOrNumber = 'udp' ifTrue:[^ 17].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19716	aNameOrNumber = 'raw' ifTrue:[^ 255].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19717
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19718	self error:'unsupported protocol' mayProceed:true.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19719	^ nil.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19720
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19721	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19722	self protocolCodeOf:#tcp
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19723	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19724	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19725
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19726	protocolSymbolOf:anInteger
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19727	"q&d hack for unix-compatibility"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19728
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19729	anInteger isNil ifTrue:[^ nil].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19730	anInteger isSymbol ifTrue:[^ anInteger].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19731
14889 eaddf47af679 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14854 diff changeset	19732	anInteger == 0 ifTrue:[ ^ #ip ].
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19733	anInteger == 6 ifTrue:[ ^ #tcp ].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19734	anInteger == 17 ifTrue:[ ^ #udp ].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19735	anInteger == 255 ifTrue:[ ^ #raw ].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19736
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19737	self error:'unsupported protocol' mayProceed:true.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19738	^ nil.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19739
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19740	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19741	self protocolSymbolOf:6
8740 bb4a76c88cca temporary kludge: added dummy SocketHandle for Unix compat. Claus Gittinger <cg@exept.de> parents: 8667 diff changeset	19742	"
bb4a76c88cca temporary kludge: added dummy SocketHandle for Unix compat. Claus Gittinger <cg@exept.de> parents: 8667 diff changeset	19743	! !
bb4a76c88cca temporary kludge: added dummy SocketHandle for Unix compat. Claus Gittinger <cg@exept.de> parents: 8667 diff changeset	19744
16345 575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19745	!Win32OperatingSystem::Win32SocketHandle class methodsFor:'instance creation'!
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19746
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19747	new
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19748	"return an initialized instance"
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19749
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19750	^ self basicNew initialize.
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19751	! !
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19752
8740 bb4a76c88cca temporary kludge: added dummy SocketHandle for Unix compat. Claus Gittinger <cg@exept.de> parents: 8667 diff changeset	19753	!Win32OperatingSystem::Win32SocketHandle class methodsFor:'queries'!
bb4a76c88cca temporary kludge: added dummy SocketHandle for Unix compat. Claus Gittinger <cg@exept.de> parents: 8667 diff changeset	19754
16289 78bd98e104bb class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16285 diff changeset	19755	getAddressInfo:hostNameOrNil serviceName:serviceNameOrNil domain:domainArg type:typeArg protocol:protoArg flags:flags
78bd98e104bb class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16285 diff changeset	19756	"answer an Array of socket addresses for serviceName on hostName.
8740 bb4a76c88cca temporary kludge: added dummy SocketHandle for Unix compat. Claus Gittinger <cg@exept.de> parents: 8667 diff changeset	19757	Domain, type, protocol may be nil or specify a hint for the socket
bb4a76c88cca temporary kludge: added dummy SocketHandle for Unix compat. Claus Gittinger <cg@exept.de> parents: 8667 diff changeset	19758	addresses to be returned."
bb4a76c88cca temporary kludge: added dummy SocketHandle for Unix compat. Claus Gittinger <cg@exept.de> parents: 8667 diff changeset	19759
16285 d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	19760	\|error errorString result domain type proto hostName serviceName port\|
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19761
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19762	domain := OperatingSystem domainCodeOf:domainArg.
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19763	type := OperatingSystem socketTypeCodeOf:typeArg.
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19764	proto := self protocolCodeOf:protoArg.
16289 78bd98e104bb class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16285 diff changeset	19765	serviceNameOrNil notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19766	serviceName := serviceNameOrNil printString. "convert integer port numbers"
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19767	serviceNameOrNil isInteger ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19768	port := serviceNameOrNil.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19769	].
10792 46d6f7358405 Win32SocketHandle>>#getAddressInfo:... Stefan Vogel <sv@exept.de> parents: 10775 diff changeset	19770	]. "ifFalse:[serviceName := nil]"
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19771
16285 d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	19772
d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	19773	%{
d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	19774	#if 1 \|\| !defined(AI_NUMERICHOST)
d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	19775	%}.
d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	19776
d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	19777	"have to convert serviceName and hostName to single byte strings
d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	19778	until we implement getAddrInfoW() for Borland C.
d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	19779	If we really have 16-bit hostnames, this fails with #primitiveFailed"
16289 78bd98e104bb class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16285 diff changeset	19780	hostNameOrNil notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19781	hostName := hostNameOrNil asSingleByteStringIfPossible.
16289 78bd98e104bb class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16285 diff changeset	19782	]. "ifFalse:[hostName := nil] is nil anyway"
16285 d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	19783	serviceName notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19784	serviceName := serviceName asSingleByteStringIfPossible.
16285 d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	19785	].
d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	19786	%{
d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	19787	#endif // !AI_NUMERICHOST
d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	19788	%}.
d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	19789
d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	19790
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19791	%{ /* STACK:32000 */
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19792	#if !defined(NO_SOCKET)
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19793	char __hostName, __serviceName;
15580 4f1aa9df6162 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15547 diff changeset	19794	char __hostNameCopy[1024], __serviceNameCopy[256];
15543 196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	19795	int ret;
196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	19796	int cnt = 0;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19797
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19798	if (hostName == nil) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19799	__hostName = 0;
10792 46d6f7358405 Win32SocketHandle>>#getAddressInfo:... Stefan Vogel <sv@exept.de> parents: 10775 diff changeset	19800	} else if (__isStringLike(hostName)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19801	strncpy(__hostNameCopy, __stringVal(hostName), sizeof(__hostNameCopy)-1);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19802	__hostName = __hostNameCopy;
16285 d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	19803	} else if (__isUnicode16String(hostName)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19804	error = @symbol(unsupportedUnicodeName);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19805	errorString = __MKSTRING("Unicode hostnames are not yet supported");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19806	goto exitPrim;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19807	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19808	error = @symbol(badArgument1);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19809	goto exitPrim;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19810	}
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19811	if (serviceName == nil) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19812	__serviceName = 0;
10792 46d6f7358405 Win32SocketHandle>>#getAddressInfo:... Stefan Vogel <sv@exept.de> parents: 10775 diff changeset	19813	} else if (__isStringLike(serviceName)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19814	strncpy(__serviceNameCopy, __stringVal(serviceName), sizeof(__serviceNameCopy)-1);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19815	__serviceName = __serviceNameCopy;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19816	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19817	error = @symbol(badArgument2);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19818	goto exitPrim;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19819	}
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19820	if (__hostName == 0 && __serviceName == 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19821	error = @symbol(badArgument);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19822	goto exitPrim;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19823	}
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19824
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19825	{
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19826	# if defined(AI_NUMERICHOST)
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19827	/*
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19828	* Use getaddrinfo()
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19829	*/
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19830	struct addrinfo hints;
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19831	struct addrinfo info = NULL, infop;
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19832
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19833	memset(&hints, 0, sizeof(hints));
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19834	if (__isSmallInteger(domain))
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19835	hints.ai_family = __intVal(domain);
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19836	if (__isSmallInteger(type))
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19837	hints.ai_socktype = __intVal(type);
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19838	if (__isSmallInteger(proto))
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19839	hints.ai_protocol = __intVal(proto);
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19840
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19841	do {
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19842	# ifdef DO_WRAP_CALLS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19843	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19844	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19845	// do not cast to INT - will loose sign bit then!
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19846	ret = (int)(STX_WSA_NOINT_CALL4( "getaddrinfo", getaddrinfo, __hostName, __serviceName, &hints, &info));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19847	} while ((ret < 0) && (__threadErrno == EINTR));
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19848	# else
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19849	__BEGIN_INTERRUPTABLE__
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19850	ret = getaddrinfo(__hostName, __serviceName, &hints, &info);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19851	__END_INTERRUPTABLE__
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19852	# endif
14852 f8cf16374fd5 Fix getnameinfo() and getaddrinfo() #ifdefed code Stefan Vogel <sv@exept.de> parents: 14849 diff changeset	19853	} while (ret != 0 && __threadErrno == EINTR);
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19854	if (ret != 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19855	switch (ret) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19856	case EAI_FAMILY:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19857	error = @symbol(badProtocol);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19858	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19859	case EAI_SOCKTYPE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19860	error = @symbol(badSocketType);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19861	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19862	case EAI_BADFLAGS:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19863	error = @symbol(badFlags);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19864	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19865	case EAI_NONAME:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19866	error = @symbol(unknownHost);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19867	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19868	case EAI_SERVICE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19869	error = @symbol(unknownService);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19870	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19871	case EAI_MEMORY:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19872	error = @symbol(allocationFailure);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19873	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19874	case EAI_FAIL:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19875	error = @symbol(permanentFailure);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19876	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19877	case EAI_AGAIN:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19878	error = @symbol(tryAgain);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19879	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19880	default:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19881	error = @symbol(unknownError);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19882	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19883	errorString = __MKSTRING(gai_strerror(ret));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19884	goto err;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19885	}
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19886	for (cnt=0, infop=info; infop; infop=infop->ai_next)
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19887	cnt++;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19888
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19889	result = __ARRAY_NEW_INT(cnt);
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19890	if (result == nil) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19891	error = @symbol(allocationFailure);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19892	goto err;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19893	}
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19894	for (infop=info, cnt=0; infop; infop=infop->ai_next, cnt++) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19895	OBJ o, resp;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19896
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19897	resp = __ARRAY_NEW_INT(6);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19898	if (resp == nil) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19899	error = @symbol(allocationFailure);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19900	goto err;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19901	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19902
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19903	__ArrayInstPtr(result)->a_element[cnt] = resp; __STORE(result, resp);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19904
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19905	__ArrayInstPtr(resp)->a_element[0] = __mkSmallInteger(infop->ai_flags);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19906	__ArrayInstPtr(resp)->a_element[1] = __mkSmallInteger(infop->ai_family);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19907	__ArrayInstPtr(resp)->a_element[2] = __mkSmallInteger(infop->ai_socktype);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19908	__ArrayInstPtr(resp)->a_element[3] = __mkSmallInteger(infop->ai_protocol);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19909
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19910	__PROTECT__(resp);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19911	o = __BYTEARRAY_NEW_INT(infop->ai_addrlen);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19912	__UNPROTECT__(resp);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19913	if (o == nil) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19914	error = @symbol(allocationFailure);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19915	goto err;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19916	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19917	memcpy(__byteArrayVal(o), infop->ai_addr, infop->ai_addrlen);
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19918	__ArrayInstPtr(resp)->a_element[4] = o; __STORE(resp, o);
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19919
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19920	if (infop->ai_canonname) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19921	__PROTECT__(resp);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19922	o = __MKSTRING(infop->ai_canonname);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19923	__UNPROTECT__(resp);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19924	if (o == nil) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19925	error = @symbol(allocationFailure);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19926	goto err;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19927	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19928	__ArrayInstPtr(resp)->a_element[5] = o; __STORE(resp, o);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19929	}
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19930	}
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19931
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19932	err:
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19933	if (info) freeaddrinfo(info);
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19934
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19935	# else /* ! AI_NUMERICHOST =============================================================*/
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19936
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19937	/*
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19938	* Use getservbyname() / gethostByName()
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19939	*/
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19940	struct hostent *hp;
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19941	char **addrpp;
10792 46d6f7358405 Win32SocketHandle>>#getAddressInfo:... Stefan Vogel <sv@exept.de> parents: 10775 diff changeset	19942	int __port = 0;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19943	int i;
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19944
10792 46d6f7358405 Win32SocketHandle>>#getAddressInfo:... Stefan Vogel <sv@exept.de> parents: 10775 diff changeset	19945	if (__isSmallInteger(port)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19946	__port = htons(__smallIntegerVal(port));
10792 46d6f7358405 Win32SocketHandle>>#getAddressInfo:... Stefan Vogel <sv@exept.de> parents: 10775 diff changeset	19947	} else if (__serviceName) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19948	struct servent *sp;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19949	char *__proto = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19950
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19951	if (__isStringLike(protoArg))
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19952	__proto = __stringVal(protoArg);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19953
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19954	sp = getservbyname(__serviceName, __proto);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19955	if (sp == NULL) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19956	__port = atoi(__serviceName);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19957	if (__port <= 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19958	errorString = @symbol(unknownService);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19959	error = __mkSmallInteger(-3);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19960	goto err;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19961	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19962	__port = htons(__port);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19963	} else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19964	__port = sp->s_port;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19965	}
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19966
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19967	if (__hostName) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19968	int err;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19969
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19970	do {
15604 86e0ba23123f class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15598 diff changeset	19971	# if 0 && defined(DO_WRAP_CALLS)
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19972	/* This does not work - the structure is allocated in thread local storage */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19973	hp = STX_WSA_NOINT_CALL1("gethostbyname", gethostbyname, __hostName);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19974	if ((INT)hp < 0) hp = NULL;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19975	# else
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19976	/* __BEGIN_INTERRUPTABLE__ is dangerous, because gethostbyname
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19977	* uses a static data area, but allocates it in thread local storage
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19978	*/
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19979	// __BEGIN_INTERRUPTABLE__
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19980	hp = gethostbyname(__hostName);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19981	// __END_INTERRUPTABLE__
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19982	#endif
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19983	} while ((hp == NULL
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19984	&& (err = WSAGetLastError()) == EINTR));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19985	if (hp == 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19986	switch (err) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19987	case HOST_NOT_FOUND:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19988	errorString = @symbol(unknownHost);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19989	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19990	case NO_ADDRESS:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19991	errorString = @symbol(noAddress);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19992	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19993	case NO_RECOVERY:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19994	errorString = @symbol(permanentFailure);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19995	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19996	case TRY_AGAIN:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19997	errorString = @symbol(tryAgain);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19998	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	19999	default:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20000	errorString = @symbol(unknownError);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20001	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20002	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20003	error = __mkSmallInteger(err);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20004	goto err;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20005	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20006
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20007	if (__isSmallInteger(domain) && hp->h_addrtype != __smallIntegerVal(domain)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20008	errorString = @symbol(unknownHost);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20009	error = __mkSmallInteger(-2);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20010	goto err;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20011	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20012
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20013	for (cnt = 0, addrpp = hp->h_addr_list; *addrpp; addrpp++)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20014	cnt++;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20015	addrpp = hp->h_addr_list;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20016	} else {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20017	cnt = 1;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20018	}
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20019
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20020	result = __ARRAY_NEW_INT(cnt);
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20021	if (result == nil) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20022	error = @symbol(allocationFailure);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20023	goto err;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20024	}
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20025
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20026	for (i = 0; i < cnt; i++) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20027	OBJ o, resp;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20028	struct sockaddr_in *sa;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20029
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20030	resp = __ARRAY_NEW_INT(6);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20031	if (resp == nil) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20032	error = @symbol(allocationFailure);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20033	goto err;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20034	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20035
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20036	__ArrayInstPtr(result)->a_element[i] = resp; __STORE(result, resp);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20037	__ArrayInstPtr(resp)->a_element[0] = __mkSmallInteger(0);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20038	__ArrayInstPtr(resp)->a_element[2] = type; __STORE(resp, type);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20039	__ArrayInstPtr(resp)->a_element[3] = proto; __STORE(resp, proto);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20040	__PROTECT__(resp);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20041	o = __BYTEARRAY_NEW_INT(sizeof(*sa));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20042	__UNPROTECT__(resp);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20043	if (o == nil) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20044	error = @symbol(allocationFailure);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20045	goto err;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20046	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20047	__ArrayInstPtr(resp)->a_element[4] = o; __STORE(resp, o);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20048	sa = (struct sockaddr_in *)__byteArrayVal(o);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20049	sa->sin_port = __port;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20050
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20051	if (__hostName) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20052	sa->sin_family = hp->h_addrtype;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20053	memcpy(&sa->sin_addr, *addrpp, hp->h_length);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20054	__ArrayInstPtr(resp)->a_element[1] = __mkSmallInteger(hp->h_addrtype);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20055	if (hp->h_name) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20056	__PROTECT__(resp);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20057	o = __MKSTRING(hp->h_name);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20058	__UNPROTECT__(resp);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20059	if (o == nil) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20060	error = @symbol(allocationFailure);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20061	goto err;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20062	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20063	__ArrayInstPtr(resp)->a_element[5] = o; __STORE(resp, o);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20064	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20065	addrpp++;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20066	} else{
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20067	if (__isSmallInteger(domain))
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20068	sa->sin_family = __intVal(domain);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20069	else
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20070	sa->sin_family = AF_INET;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20071	__ArrayInstPtr(resp)->a_element[1] = domain; __STORE(resp, domain);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20072	}
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20073	}
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20074
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20075	err:;
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20076	# endif /* ! AI_NUMERICHOST */
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20077	}
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20078	#else /* ! HAS_SOCKET */
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20079	error = @symbol(notImplemented);
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20080	#endif
10792 46d6f7358405 Win32SocketHandle>>#getAddressInfo:... Stefan Vogel <sv@exept.de> parents: 10775 diff changeset	20081	exitPrim:;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20082	%}.
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20083	error notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20084	\|request\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20085	request := SocketAddressInfo new
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20086	domain:domainArg;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20087	type:typeArg;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20088	protocol:protoArg;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20089	canonicalName:hostName;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20090	serviceName:serviceName.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20091	^ (HostNameLookupError new
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20092	parameter:error;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20093	messageText:' - ', (errorString ? error printString);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20094	request:request) raiseRequest.
8740 bb4a76c88cca temporary kludge: added dummy SocketHandle for Unix compat. Claus Gittinger <cg@exept.de> parents: 8667 diff changeset	20095	].
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20096	1 to:result size do:[:i \|
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20097	\|entry dom info\|
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20098
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20099	info := SocketAddressInfo new.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20100	entry := result at:i.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20101	info flags:(entry at:1).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20102	info domain:(dom := OperatingSystem domainSymbolOf:(entry at:2)).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20103	info type:(OperatingSystem socketTypeSymbolOf:(entry at:3)).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20104	info protocol:(self protocolSymbolOf:(entry at:4)).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20105	info socketAddress:((SocketAddress newDomain:dom) fromBytes:(entry at:5)).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20106	info canonicalName:(entry at:6).
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20107	result at:i put:info
8740 bb4a76c88cca temporary kludge: added dummy SocketHandle for Unix compat. Claus Gittinger <cg@exept.de> parents: 8667 diff changeset	20108	].
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20109	^ result
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20110
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20111	"
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20112	self getAddressInfo:'localhost' serviceName:nil
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20113	domain:nil type:nil protocol:nil flags:nil
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20114	self getAddressInfo:'localhost' serviceName:nil
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20115	domain:#AF_INET type:#stream protocol:nil flags:nil
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20116	self getAddressInfo:'localhost' serviceName:nil
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20117	domain:#AF_INET type:#stream protocol:#tcp flags:nil
10792 46d6f7358405 Win32SocketHandle>>#getAddressInfo:... Stefan Vogel <sv@exept.de> parents: 10775 diff changeset	20118	self getAddressInfo:'localhost' serviceName:10
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20119	domain:#AF_INET type:#stream protocol:#tcp flags:nil
10792 46d6f7358405 Win32SocketHandle>>#getAddressInfo:... Stefan Vogel <sv@exept.de> parents: 10775 diff changeset	20120	self getAddressInfo:'localhost' serviceName:'10'
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20121	domain:#AF_INET type:#stream protocol:#tcp flags:nil
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20122	self getAddressInfo:'blurb.exept.de' serviceName:nil
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20123	domain:#AF_INET type:nil protocol:nil flags:nil
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20124	self getAddressInfo:'1.2.3.4' serviceName:'bla'
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20125	domain:#AF_INET type:nil protocol:nil flags:nil
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20126	self getAddressInfo:'localhost' serviceName:'echo'
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20127	domain:#AF_INET type:nil protocol:nil flags:nil
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20128	self getAddressInfo:nil serviceName:'echo'
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20129	domain:#AF_INET type:nil protocol:nil flags:nil
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20130	self getAddressInfo:nil serviceName:nil
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20131	domain:#AF_INET type:nil protocol:nil flags:nil
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20132	self getAddressInfo:'www.google.de' serviceName:nil
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20133	domain:nil type:nil protocol:nil flags:nil
16285 d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	20134	self getAddressInfo:'exeptn' serviceName:nil
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20135	domain:nil type:nil protocol:nil flags:nil
16285 d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	20136
d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	20137	self getAddressInfo:'localhost' asUnicode16String serviceName:nil
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20138	domain:nil type:nil protocol:nil flags:nil
16285 d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	20139	self getAddressInfo:'ützlbrützl' serviceName:nil
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20140	domain:nil type:nil protocol:nil flags:nil
16285 d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	20141	self getAddressInfo:'ützlbrützl' serviceName:nil
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20142	domain:nil type:nil protocol:nil flags:nil
16285 d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	20143	self getAddressInfo:'путин.ру' asUnicode16String serviceName:nil
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20144	domain:nil type:nil protocol:nil flags:nil
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	20145	"
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20146	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20147
17595 3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	20148	getNameInfo:socketAddressIn wantHostName:wantHostName wantServiceName:wantServiceName datagram:useDatagram flags:flags
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20149	"answer an Array containing the hostName and serviceName
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20150	in socketAddress.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20151	This is the generic version of getHostByAddr, however, if supported by the OS,
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20152	this returns multiple hostnames (if appropriate)"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20153
17595 3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	20154	\|socketAddress error errorString hostName serviceName\|
3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	20155
3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	20156	socketAddress := socketAddressIn.
3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	20157
3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	20158	%{ /* STACK:32000 */
3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	20159	#if !defined(NI_NUMERICHOST)
3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	20160	%}.
3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	20161	"if the getNameInfo() syscall is not present (as in Borland),
3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	20162	convert mapped IPv4 to IPv6Addresses back to IPv4,
3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	20163	so that these addresses can be resolved"
3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	20164	socketAddress := socketAddress asIPv4SocketAddressIfPossible.
3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	20165	%{
3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	20166	#endif // !defined(NI_NUMERICHOST)
3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	20167	%}.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20168
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20169	%{ /* STACK:32000 */
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20170
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20171	#if !defined(NO_SOCKET)
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20172
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20173	# ifndef NI_MAXHOST
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20174	# define NI_MAXHOST 256
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20175	# define NI_MAXSERV 64
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20176	# endif
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20177
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20178	char host[NI_MAXHOST];
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20179	char service[NI_MAXSERV];
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	20180	char sockAddrLocal[1024];
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	20181	char hp = NULL, sp = NULL;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20182	int hsz = 0, ssz = 0;
15543 196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	20183	int ret;
196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	20184	int __flags;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20185	char *bp;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20186	int nInstBytes, sockAddrSize;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20187
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20188	if (wantHostName == true) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20189	hp = host;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20190	hsz = sizeof(host);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20191	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20192	if (wantServiceName == true) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20193	sp = service;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20194	ssz = sizeof(service);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20195	}
20278 a1900948623c * empty log message * Claus Gittinger <cg@exept.de> parents: 20277 diff changeset	20196	if (hp == NULL && sp == NULL) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20197	error = @symbol(badArgument);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20198	goto err;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20199	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20200	if (!__isBytes(socketAddress)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20201	error = @symbol(badArgument1);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20202	goto err;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20203	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20204
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20205	nInstBytes = __OBJS2BYTES__(__intVal(__ClassInstPtr(__qClass(socketAddress))->c_ninstvars));
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20206	sockAddrSize = __byteArraySize(socketAddress);
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20207	sockAddrSize -= nInstBytes;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20208
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	20209	if (sockAddrSize > sizeof(sockAddrLocal)) {
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	20210	error = @symbol(badArgument1);
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	20211	goto err;
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	20212	}
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	20213	bp = (char *)(__byteArrayVal(socketAddress));
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	20214	bp += nInstBytes;
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	20215	memcpy(sockAddrLocal, bp, sockAddrSize);
3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	20216
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20217	if (!__isSmallInteger(flags)) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20218	error = @symbol(badArgument5);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20219	goto err;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20220	}
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	20221
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20222	__flags = __intVal(flags);
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20223
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20224	#if defined(NI_NUMERICHOST)
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20225	if (useDatagram == true) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20226	__flags \|= NI_DGRAM;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20227	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20228
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20229	{
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20230	bp = (char *)(__byteArrayVal(socketAddress));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20231	bp += nInstBytes;
14852 f8cf16374fd5 Fix getnameinfo() and getaddrinfo() #ifdefed code Stefan Vogel <sv@exept.de> parents: 14849 diff changeset	20232	# ifdef DO_WRAP_CALLS
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20233	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20234	__threadErrno = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20235	// do not cast to INT - will loose sign bit then!
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	20236	ret = (int)(STX_WSA_NOINT_CALL7( "getnameinfo", getnameinfo, (struct sockaddr *)sockAddrLocal, (INT)sockAddrSize, hp, (INT)hsz, sp, (INT)ssz, (INT)__flags));
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20237	} while ((ret < 0) && (__threadErrno == EINTR));
14852 f8cf16374fd5 Fix getnameinfo() and getaddrinfo() #ifdefed code Stefan Vogel <sv@exept.de> parents: 14849 diff changeset	20238	# else
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20239	__BEGIN_INTERRUPTABLE__
25339 3fb3b8bd0b19 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 25330 diff changeset	20240	ret = getnameinfo((struct sockaddr *)sockAddrLocal, sockAddrSize, hp, hsz, sp, ssz, __flags);
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20241	__END_INTERRUPTABLE__
14852 f8cf16374fd5 Fix getnameinfo() and getaddrinfo() #ifdefed code Stefan Vogel <sv@exept.de> parents: 14849 diff changeset	20242	# endif
f8cf16374fd5 Fix getnameinfo() and getaddrinfo() #ifdefed code Stefan Vogel <sv@exept.de> parents: 14849 diff changeset	20243	} while (ret != 0 && __threadErrno == EINTR);
f8cf16374fd5 Fix getnameinfo() and getaddrinfo() #ifdefed code Stefan Vogel <sv@exept.de> parents: 14849 diff changeset	20244
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20245	if (ret != 0) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20246	switch (ret) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20247	case EAI_FAMILY:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20248	error = @symbol(badProtocol);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20249	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20250	case EAI_SOCKTYPE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20251	error = @symbol(badSocketType);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20252	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20253	case EAI_BADFLAGS:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20254	error = @symbol(badFlags);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20255	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20256	case EAI_NONAME:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20257	error = @symbol(unknownHost);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20258	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20259	case EAI_SERVICE:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20260	error = @symbol(unknownService);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20261	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20262	case EAI_MEMORY:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20263	error = @symbol(allocationFailure);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20264	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20265	case EAI_FAIL:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20266	error = @symbol(permanentFailure);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20267	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20268	case EAI_AGAIN:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20269	error = @symbol(tryAgain);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20270	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20271	default:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20272	error = @symbol(unknownError);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20273	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20274	errorString = __MKSTRING(gai_strerror(ret));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20275	goto err;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20276	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20277	# else /* ! NI_NUMERICHOST */
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20278	{
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20279	/*
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20280	* Do it using gethostbyaddr()
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20281	*/
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20282	struct sockaddr_in *sa;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20283
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20284	if (sockAddrSize < sizeof(*sa)) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20285	error = @symbol(badArgument1);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20286	goto err;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20287	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20288	bp = (char *)(__byteArrayVal(socketAddress));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20289	bp += nInstBytes;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20290	sa = (struct sockaddr_in *)bp;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20291
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20292	if (sp) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20293	struct servent *servp;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20294	char *__proto = 0;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20295
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20296	__proto = (useDatagram == true ? "udp" : "tcp");
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20297
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20298	servp = getservbyport(sa->sin_port, __proto);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20299	if (servp) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20300	sp = servp->s_name;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20301	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20302	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20303
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20304	if (sa->sin_family == AF_INET6) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20305	if (sp)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20306	serviceName = __MKSTRING(sp);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20307	error = @symbol(AF_INET6);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20308	goto err;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20309	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20310
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20311	if (hp) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20312	struct hostent *hostp;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20313	int err;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20314
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20315	do {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20316	/* must refetch in loop */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20317	bp = (char *)(__byteArrayVal(socketAddress));
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20318	bp += nInstBytes;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20319	sa = (struct sockaddr_in *)bp;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20320	/* __BEGIN_INTERRUPTABLE__ is dangerous, because gethostbyname uses a static data area
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20321	*/
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20322	hostp = gethostbyaddr((char *)&sa->sin_addr, sockAddrSize, sa->sin_family);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20323	/* __END_INTERRUPTABLE__ */
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20324	} while ((hostp == NULL)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20325	&& ((err = WSAGetLastError()) == EINTR)
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20326	);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20327	if (hostp == 0) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20328	switch (err) {
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20329	case HOST_NOT_FOUND:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20330	errorString = @symbol(unknownHost);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20331	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20332	case NO_ADDRESS:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20333	errorString = @symbol(noAddress);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20334	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20335	case NO_RECOVERY:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20336	errorString = @symbol(permanentFailure);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20337	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20338	case TRY_AGAIN:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20339	errorString = @symbol(tryAgain);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20340	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20341	default:
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20342	errorString = @symbol(unknownError);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20343	break;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20344	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20345	error = __mkSmallInteger(err);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20346	goto err;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20347	}
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20348	hp = hostp->h_name;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20349	}
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20350	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20351	# endif /* ! NI_NUMERICHOST */
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20352
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20353	if (hp)
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20354	hostName = __MKSTRING(hp);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20355	if (sp)
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20356	serviceName = __MKSTRING(sp);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20357	err:;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20358	#else
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20359	error = @symbol(notImplemented);
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20360	#endif
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20361	%}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20362	error notNil ifTrue:[
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20363	(error == #AF_INET6 or:[errorString == #noAddress]) ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20364	"This is a socket address of wrong size - probably an IPv6SocketAddres on a system where
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20365	the getNetByAddr() syscall is not supported"
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20366	^ Array
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20367	with:socketAddress hostAddressString
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20368	with:serviceName.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20369	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20370	error isSymbol ifTrue:[
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20371	self primitiveFailed:error.
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20372	].
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20373	^ (HostAddressLookupError new
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20374	parameter:error;
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20375	messageText:' - ', (errorString ? error printString);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20376	request:thisContext message) raiseRequest.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20377	].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20378
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20379	^ Array with:hostName with:serviceName
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20380
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20381	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20382	self getNameInfo:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20383	(self getAddressInfo:'localhost' serviceName:'echo'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20384	domain:#AF_INET type:#stream protocol:nil flags:nil) first socketAddress
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20385	wantHostName:true wantServiceName:true datagram:false flags:0
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20386
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20387	self getNameInfo:
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20388	(self getAddressInfo:'exept.exept.de' serviceName:'echo'
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20389	domain:#AF_INET type:#stream protocol:nil flags:nil) first socketAddress
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20390	wantHostName:true wantServiceName:true datagram:false flags:0
15604 86e0ba23123f class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15598 diff changeset	20391
86e0ba23123f class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15598 diff changeset	20392	self getNameInfo:(IPSocketAddress hostAddress:#[1 2 3 4])
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20393	wantHostName:true wantServiceName:true datagram:false flags:0
17594 1f6f1ece1bb0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17521 diff changeset	20394
1f6f1ece1bb0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17521 diff changeset	20395	self getNameInfo:(IPv6SocketAddress localHost port:21)
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20396	wantHostName:true wantServiceName:true datagram:false flags:0
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	20397	"
8740 bb4a76c88cca temporary kludge: added dummy SocketHandle for Unix compat. Claus Gittinger <cg@exept.de> parents: 8667 diff changeset	20398	! !
bb4a76c88cca temporary kludge: added dummy SocketHandle for Unix compat. Claus Gittinger <cg@exept.de> parents: 8667 diff changeset	20399
16345 575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20400	!Win32OperatingSystem::Win32SocketHandle methodsFor:'initialization'!
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20401
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20402	initialize
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20403	%{ /* NOCONTEXT */
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20404	__ExternalAddressInstPtr(self)->e_address = (void *)(INVALID_SOCKET);
16345 575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20405	%}
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20406
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20407	"
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20408	self new
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20409	self new isValid
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20410	"
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20411	! !
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20412
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20413	!Win32OperatingSystem::Win32SocketHandle methodsFor:'queries'!
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20414
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20415	handleType
16367 e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	20416	^ #socketHandle
16345 575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20417	!
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20418
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20419	isValid
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20420	%{ /* NOCONTEXT */
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20421	SOCKET sock = (SOCKET)(__externalAddressVal(self));
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20422
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20423	RETURN(sock == INVALID_SOCKET ? false : true);
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20424	%}.
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20425
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20426	"
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20427	self new isValid
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20428	"
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20429	! !
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20430
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20431	!Win32OperatingSystem::Win32SocketHandle methodsFor:'release'!
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20432
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20433	closeHandle
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20434	"close the handle"
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20435
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20436	%{ /* NOCONTEXT */
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20437	SOCKET sock = (SOCKET)(__externalAddressVal(self));
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20438
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20439	if (sock != INVALID_SOCKET) {
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20440	__externalAddressVal(self) = (void *)(INVALID_SOCKET);
37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20441	closesocket(sock);
16345 575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20442	}
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20443	%}.
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20444	! !
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20445
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20446	!Win32OperatingSystem::Win32SocketHandle methodsFor:'testing'!
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20447
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20448	isSocketHandle
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20449	^ true
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20450	! !
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	20451
9475 c57956a348bf printing support fm parents: 9431 diff changeset	20452	!Win32OperatingSystem::WinPointStructure class methodsFor:'instance creation'!
c57956a348bf printing support fm parents: 9431 diff changeset	20453
c57956a348bf printing support fm parents: 9431 diff changeset	20454	new
c57956a348bf printing support fm parents: 9431 diff changeset	20455
c57956a348bf printing support fm parents: 9431 diff changeset	20456	^super new: self sizeInBytes
c57956a348bf printing support fm parents: 9431 diff changeset	20457
c57956a348bf printing support fm parents: 9431 diff changeset	20458	"Created: / 03-08-2006 / 10:37:59 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	20459	!
c57956a348bf printing support fm parents: 9431 diff changeset	20460
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	20461	sizeInBytes
9475 c57956a348bf printing support fm parents: 9431 diff changeset	20462
c57956a348bf printing support fm parents: 9431 diff changeset	20463	^8
c57956a348bf printing support fm parents: 9431 diff changeset	20464
c57956a348bf printing support fm parents: 9431 diff changeset	20465	"Created: / 03-08-2006 / 10:38:06 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	20466	! !
c57956a348bf printing support fm parents: 9431 diff changeset	20467
c57956a348bf printing support fm parents: 9431 diff changeset	20468	!Win32OperatingSystem::WinPointStructure methodsFor:'accessing'!
c57956a348bf printing support fm parents: 9431 diff changeset	20469
c57956a348bf printing support fm parents: 9431 diff changeset	20470	asPoint
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20471	"Private - Answer the receiver as a Point."
9475 c57956a348bf printing support fm parents: 9431 diff changeset	20472	^self x @ self y
c57956a348bf printing support fm parents: 9431 diff changeset	20473
c57956a348bf printing support fm parents: 9431 diff changeset	20474	"Created: / 03-08-2006 / 10:45:55 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	20475	!
c57956a348bf printing support fm parents: 9431 diff changeset	20476
c57956a348bf printing support fm parents: 9431 diff changeset	20477	x
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20478	"Private - Answer the x coordinate of the point."
9475 c57956a348bf printing support fm parents: 9431 diff changeset	20479	^self longAt: 0 + 1
c57956a348bf printing support fm parents: 9431 diff changeset	20480
c57956a348bf printing support fm parents: 9431 diff changeset	20481	"Created: / 03-08-2006 / 10:46:11 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	20482	!
c57956a348bf printing support fm parents: 9431 diff changeset	20483
c57956a348bf printing support fm parents: 9431 diff changeset	20484	x: anInteger
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20485	"Private - Set the x coordinate of the point."
9475 c57956a348bf printing support fm parents: 9431 diff changeset	20486	self longAt: 0 + 1 put: anInteger
c57956a348bf printing support fm parents: 9431 diff changeset	20487
c57956a348bf printing support fm parents: 9431 diff changeset	20488	"Created: / 03-08-2006 / 10:46:41 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	20489	!
c57956a348bf printing support fm parents: 9431 diff changeset	20490
c57956a348bf printing support fm parents: 9431 diff changeset	20491	y
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20492	"Private - Answer the y coordinate of the point."
9475 c57956a348bf printing support fm parents: 9431 diff changeset	20493	^self longAt: 4 + 1
c57956a348bf printing support fm parents: 9431 diff changeset	20494
c57956a348bf printing support fm parents: 9431 diff changeset	20495	"Created: / 03-08-2006 / 10:46:26 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	20496	!
c57956a348bf printing support fm parents: 9431 diff changeset	20497
c57956a348bf printing support fm parents: 9431 diff changeset	20498	y: anInteger
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20499	"Private - Set the y coordinate of the point."
9475 c57956a348bf printing support fm parents: 9431 diff changeset	20500	self longAt: 4 + 1 put: anInteger
c57956a348bf printing support fm parents: 9431 diff changeset	20501
c57956a348bf printing support fm parents: 9431 diff changeset	20502	"Created: / 03-08-2006 / 10:46:56 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	20503	! !
c57956a348bf printing support fm parents: 9431 diff changeset	20504
c57956a348bf printing support fm parents: 9431 diff changeset	20505	!Win32OperatingSystem::WinPointStructure methodsFor:'printing'!
c57956a348bf printing support fm parents: 9431 diff changeset	20506
c57956a348bf printing support fm parents: 9431 diff changeset	20507	printOn: aStream
25225 37f7886845ca FIX: setBlocking crashed with segv. Claus Gittinger <cg@exept.de> parents: 25224 diff changeset	20508	"Append a textual representation of the receiver to aStream."
9475 c57956a348bf printing support fm parents: 9431 diff changeset	20509	aStream nextPutAll: self class name, ' { ', self asPoint printString, ' } '
c57956a348bf printing support fm parents: 9431 diff changeset	20510
c57956a348bf printing support fm parents: 9431 diff changeset	20511	"Created: / 03-08-2006 / 10:45:40 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	20512	! !
c57956a348bf printing support fm parents: 9431 diff changeset	20513
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	20514	!Win32OperatingSystem class methodsFor:'documentation'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	20515
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	20516	version
18543 fef08f652ef8 * empty log message * Claus Gittinger <cg@exept.de> parents: 18414 diff changeset	20517	^ '$Header$'
12154 646c4171f0d2 added: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 11920 diff changeset	20518	!
646c4171f0d2 added: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 11920 diff changeset	20519
646c4171f0d2 added: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 11920 diff changeset	20520	version_CVS
18543 fef08f652ef8 * empty log message * Claus Gittinger <cg@exept.de> parents: 18414 diff changeset	20521	^ '$Header$'
13618 9af72c855037 Fixes for #canExecuteCommand: vrany parents: 13616 diff changeset	20522	!
9af72c855037 Fixes for #canExecuteCommand: vrany parents: 13616 diff changeset	20523
9af72c855037 Fixes for #canExecuteCommand: vrany parents: 13616 diff changeset	20524	version_SVN
18543 fef08f652ef8 * empty log message * Claus Gittinger <cg@exept.de> parents: 18414 diff changeset	20525	^ '$Id$'
13618 9af72c855037 Fixes for #canExecuteCommand: vrany parents: 13616 diff changeset	20526
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	20527	! !
6791 ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	20528
14730 a4cc809df4f1 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14667 diff changeset	20529
5135 cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	20530	Win32OperatingSystem initialize!
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	20531	Win32OperatingSystem::PECOFFConstants initialize!
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	20532	Win32OperatingSystem::PerformanceData initialize!
6791 ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	20533	Win32OperatingSystem::RegistryEntry initialize!

author	Stefan Vogel <sv@exept.de>
	Tue, 28 Apr 2020 14:41:21 +0200
changeset 25372	389daab3ee10
parent 25362	f1606835f9fb
permissions	-rw-r--r--