hg/stx-libbasic: Win32OperatingSystem.st@1f3f9bcc9689 (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
23107 40173e082cbc Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23101 diff changeset	6	COPYRIGHT (c) 2015-2018 Jan Vrany
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7	All Rights Reserved
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9	This software is furnished under a license and may be used
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10	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	11	inclusion of the above copyright notice. This software may not
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12	be provided or otherwise made available to, or used by, any
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	13	other person. No title to or ownership of the software is
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	14	hereby transferred.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	15	"
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	16	"{ Package: 'stx:libbasic' }"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	17
17286 a7170033e17f directory access ca parents: 17169 diff changeset	18	"{ NameSpace: Smalltalk }"
a7170033e17f directory access ca parents: 17169 diff changeset	19
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	20	AbstractOperatingSystem subclass:#Win32OperatingSystem
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	21	instanceVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	22	classVariableNames:'CurrentDirectory DomainName HostName Initialized LastOsTimeHi
23614 1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	23	LastOsTimeLow LastTimeInfo LastTimeInfoIsLocal PathExtensions'
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	24	poolDictionaries:'Win32Constants'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	25	category:'OS-Windows'
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	26	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	27
9475 c57956a348bf printing support fm parents: 9431 diff changeset	28	ByteArray variableByteSubclass:#DevModeStructure
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	29	instanceVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	30	classVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	31	poolDictionaries:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	32	privateIn:Win32OperatingSystem
9475 c57956a348bf printing support fm parents: 9431 diff changeset	33	!
c57956a348bf printing support fm parents: 9431 diff changeset	34
c57956a348bf printing support fm parents: 9431 diff changeset	35	ByteArray variableByteSubclass:#DocInfoStructure
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	36	instanceVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	37	classVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	38	poolDictionaries:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	39	privateIn:Win32OperatingSystem
9475 c57956a348bf printing support fm parents: 9431 diff changeset	40	!
c57956a348bf printing support fm parents: 9431 diff changeset	41
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	42	Object subclass:#FileStatusInfo
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	43	instanceVariableNames:'type mode uid gid size id accessed modified created statusChanged
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	44	sourcePath linkTargetPath fullPathName alternativePathName'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	45	classVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	46	poolDictionaries:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	47	privateIn:Win32OperatingSystem
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	48	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	49
21180 88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	50	Object subclass:#OSProcessDescriptor
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	51	instanceVariableNames:'pid parentPid commandLine'
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	52	classVariableNames:''
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	53	poolDictionaries:''
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	54	privateIn:Win32OperatingSystem
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	55	!
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	56
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	57	Object subclass:#OSProcessStatus
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	58	instanceVariableNames:'pid status code core'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	59	classVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	60	poolDictionaries:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	61	privateIn:Win32OperatingSystem
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	62	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	63
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	64	SharedPool subclass:#PECOFFConstants
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	65	instanceVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	66	classVariableNames:'PE_Signature_OFFSET_OFFSET PE_Signature COFF_HEADER_SIZE
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	67	COFF_HEADER_Machine_OFFSET IMAGE_FILE_MACHINE_UNKNOWN
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	68	IMAGE_FILE_MACHINE_AM33 IMAGE_FILE_MACHINE_AMD64
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	69	IMAGE_FILE_MACHINE_ARM IMAGE_FILE_MACHINE_ARMNT
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	70	IMAGE_FILE_MACHINE_ARM64 IMAGE_FILE_MACHINE_EBC
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	71	IMAGE_FILE_MACHINE_I386 IMAGE_FILE_MACHINE_IA64
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	72	IMAGE_FILE_MACHINE_M32R IMAGE_FILE_MACHINE_MIPS16
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	73	IMAGE_FILE_MACHINE_MIPSFPU IMAGE_FILE_MACHINE_MIPSFPU16
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	74	IMAGE_FILE_MACHINE_POWERPC IMAGE_FILE_MACHINE_POWEPCFP
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	75	IMAGE_FILE_MACHINE_R4000 IMAGE_FILE_MACHINE_SH3
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	76	IMAGE_FILE_MACHINE_SH3DSP IMAGE_FILE_MACHINE_SH4
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	77	IMAGE_FILE_MACHINE_SH5 IMAGE_FILE_MACHINE_THUMB
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	78	IMAGE_FILE_MACHINE_WCEMIPSV2'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	79	poolDictionaries:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	80	privateIn:Win32OperatingSystem
17630 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
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	83	Object subclass:#PECOFFFileHeader
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	84	instanceVariableNames:'file data'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	85	classVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	86	poolDictionaries:'Win32OperatingSystem::PECOFFConstants'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	87	privateIn:Win32OperatingSystem
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	88	!
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	89
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	90	Object subclass:#PerformanceData
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	91	instanceVariableNames:'objectArray perfTime perfFreq perfTime100nSec'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	92	classVariableNames:'PerformanceText CounterIndexTextDictionary
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	93	HelpIndexTextDictionary'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	94	poolDictionaries:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	95	privateIn:Win32OperatingSystem
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	96	!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	97
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	98	Object subclass:#Abstract
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	99	instanceVariableNames:'lastData lastTimestamp cachedResults'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	100	classVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	101	poolDictionaries:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	102	privateIn:Win32OperatingSystem::PerformanceData
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	103	!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	104
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	105	Win32OperatingSystem::PerformanceData::Abstract subclass:#DiskIO
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	106	instanceVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	107	classVariableNames:'TheOneAndOnlyInstance'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	108	poolDictionaries:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	109	privateIn:Win32OperatingSystem::PerformanceData
10688 1e8dc6018c76 * empty log message * sr parents: 10687 diff changeset	110	!
1e8dc6018c76 * empty log message * sr parents: 10687 diff changeset	111
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	112	Win32OperatingSystem::PerformanceData::Abstract subclass:#Global
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	113	instanceVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	114	classVariableNames:'TheOneAndOnlyInstance'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	115	poolDictionaries:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	116	privateIn:Win32OperatingSystem::PerformanceData
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	117	!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	118
10707 3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	119	Win32OperatingSystem::PerformanceData::Abstract subclass:#Memory
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	120	instanceVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	121	classVariableNames:'TheOneAndOnlyInstance'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	122	poolDictionaries:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	123	privateIn:Win32OperatingSystem::PerformanceData
10707 3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	124	!
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	125
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	126	Win32OperatingSystem::PerformanceData::Abstract subclass:#Network
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	127	instanceVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	128	classVariableNames:'TheOneAndOnlyInstance'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	129	poolDictionaries:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	130	privateIn:Win32OperatingSystem::PerformanceData
10710 1055a716e253 * empty log message * sr parents: 10709 diff changeset	131	!
1055a716e253 * empty log message * sr parents: 10709 diff changeset	132
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	133	Win32OperatingSystem::PerformanceData::Abstract subclass:#Process
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	134	instanceVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	135	classVariableNames:'TheOneAndOnlyInstance'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	136	poolDictionaries:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	137	privateIn:Win32OperatingSystem::PerformanceData
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	138	!
9110d864362d * empty log message * sr parents: 10704 diff changeset	139
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	140	Win32OperatingSystem::PerformanceData::Abstract subclass:#Processor
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	141	instanceVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	142	classVariableNames:'TheOneAndOnlyInstance'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	143	poolDictionaries:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	144	privateIn:Win32OperatingSystem::PerformanceData
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	145	!
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	146
9475 c57956a348bf printing support fm parents: 9431 diff changeset	147	ByteArray variableByteSubclass:#PrinterInfo2Structure
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	148	instanceVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	149	classVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	150	poolDictionaries:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	151	privateIn:Win32OperatingSystem
9475 c57956a348bf printing support fm parents: 9431 diff changeset	152	!
c57956a348bf printing support fm parents: 9431 diff changeset	153
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	154	Object subclass:#RegistryEntry
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	155	instanceVariableNames:'path handle isNew'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	156	classVariableNames:'Lobby HKEY_CLASSES_ROOT HKEY_CURRENT_USER HKEY_LOCAL_MACHINE
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	157	HKEY_USERS HKEY_PERFORMANCE_DATA HKEY_CURRENT_CONFIG
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	158	HKEY_DYN_DATA HKEY_PERFORMANCE_TEXT HKEY_PERFORMANCE_NLSTEXT'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	159	poolDictionaries:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	160	privateIn:Win32OperatingSystem
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	161	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	162
9475 c57956a348bf printing support fm parents: 9431 diff changeset	163	ByteArray variableByteSubclass:#TextMetricsStructure
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	164	instanceVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	165	classVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	166	poolDictionaries:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	167	privateIn:Win32OperatingSystem
9475 c57956a348bf printing support fm parents: 9431 diff changeset	168	!
c57956a348bf printing support fm parents: 9431 diff changeset	169
19499 ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	170	Win32Handle subclass:#Win32ChangeNotificationHandle
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	171	instanceVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	172	classVariableNames:'Lobby'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	173	poolDictionaries:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	174	privateIn:Win32OperatingSystem
19499 ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	175	!
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	176
16345 575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	177	Win32Handle subclass:#Win32IOHandle
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	178	instanceVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	179	classVariableNames:'Lobby'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	180	poolDictionaries:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	181	privateIn:Win32OperatingSystem
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	182	!
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	183
20591 e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	184	Win32Handle subclass:#Win32MutexHandle
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	185	instanceVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	186	classVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	187	poolDictionaries:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	188	privateIn:Win32OperatingSystem
20591 e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	189	!
e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	190
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	191	Win32Handle subclass:#Win32NetworkResourceHandle
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	192	instanceVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	193	classVariableNames:'ScopeMappingTable TypeMappingTable DisplayTypeMappingTable
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	194	UsageMappingTable'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	195	poolDictionaries:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	196	privateIn:Win32OperatingSystem
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	197	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	198
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	199	Object subclass:#NetworkResource
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	200	instanceVariableNames:'scope type usage displayType remoteName localName provider
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	201	comment'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	202	classVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	203	poolDictionaries:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	204	privateIn:Win32OperatingSystem::Win32NetworkResourceHandle
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	205	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	206
9475 c57956a348bf printing support fm parents: 9431 diff changeset	207	Win32Handle subclass:#Win32PrinterHandle
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	208	instanceVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	209	classVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	210	poolDictionaries:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	211	privateIn:Win32OperatingSystem
9475 c57956a348bf printing support fm parents: 9431 diff changeset	212	!
c57956a348bf printing support fm parents: 9431 diff changeset	213
9255 fded804fe4e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9249 diff changeset	214	Win32Handle subclass:#Win32ProcessHandle
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	215	instanceVariableNames:'pid'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	216	classVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	217	poolDictionaries:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	218	privateIn:Win32OperatingSystem
7645 fd98d4cfa617 terminateProcess and closePid are now two separate operations. Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	219	!
fd98d4cfa617 terminateProcess and closePid are now two separate operations. Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	220
9100 0ebdc95e88ff * empty log message * Claus Gittinger <cg@exept.de> parents: 9094 diff changeset	221	Win32OperatingSystem::Win32IOHandle subclass:#Win32SerialPortHandle
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	222	instanceVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	223	classVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	224	poolDictionaries:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	225	privateIn:Win32OperatingSystem
8740 bb4a76c88cca temporary kludge: added dummy SocketHandle for Unix compat. Claus Gittinger <cg@exept.de> parents: 8667 diff changeset	226	!
bb4a76c88cca temporary kludge: added dummy SocketHandle for Unix compat. Claus Gittinger <cg@exept.de> parents: 8667 diff changeset	227
9100 0ebdc95e88ff * empty log message * Claus Gittinger <cg@exept.de> parents: 9094 diff changeset	228	Win32OperatingSystem::Win32IOHandle subclass:#Win32SocketHandle
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	229	instanceVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	230	classVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	231	poolDictionaries:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	232	privateIn:Win32OperatingSystem
9092 286c8b9e8780 * empty log message * Claus Gittinger <cg@exept.de> parents: 9089 diff changeset	233	!
286c8b9e8780 * empty log message * Claus Gittinger <cg@exept.de> parents: 9089 diff changeset	234
9475 c57956a348bf printing support fm parents: 9431 diff changeset	235	ByteArray variableByteSubclass:#WinPointStructure
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	236	instanceVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	237	classVariableNames:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	238	poolDictionaries:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	239	privateIn:Win32OperatingSystem
9475 c57956a348bf printing support fm parents: 9431 diff changeset	240	!
c57956a348bf printing support fm parents: 9431 diff changeset	241
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	242	!Win32OperatingSystem primitiveDefinitions!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	243	%{
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	244
14364 c2c870cc557c * empty log message * Claus Gittinger <cg@exept.de> parents: 14088 diff changeset	245	# define WINVER 0x0500 /required for CoInitializeEx/
18513 f65d5cb6d1d3 Fixes for MINGW32: TOKEN_ELEVATION_TYPE is not defined in MINGW32's winnt.h Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18418 diff changeset	246	# undef WINVER
f65d5cb6d1d3 Fixes for MINGW32: TOKEN_ELEVATION_TYPE is not defined in MINGW32's winnt.h Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18418 diff changeset	247	# define WINVER 0x0600 /required for GetTokenInformation & associated typedefs /
f65d5cb6d1d3 Fixes for MINGW32: TOKEN_ELEVATION_TYPE is not defined in MINGW32's winnt.h Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18418 diff changeset	248	# undef WINVER
f65d5cb6d1d3 Fixes for MINGW32: TOKEN_ELEVATION_TYPE is not defined in MINGW32's winnt.h Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18418 diff changeset	249	# define WINVER 0x0601 /required for GetTimeZoneInformationForYear & associated typedefs /
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	250	#include "stxOSDefs.h"
14852 f8cf16374fd5 Fix getnameinfo() and getaddrinfo() #ifdefed code Stefan Vogel <sv@exept.de> parents: 14849 diff changeset	251
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	252	#define USE_H_ERRNO
6095 fd28101edf09 * empty log message * Claus Gittinger <cg@exept.de> parents: 5922 diff changeset	253
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	254	# if defined(i386) \|\| defined(__i386__)
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	255	# ifndef _X86_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	256	# define _X86_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	257	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	258	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	259
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	260	/*
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	261	* notice: although many systems' include files
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	262	* already block against multiple inclusion, some
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	263	* do not. Therefore, this is done here again.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	264	* (it does not hurt)
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	265	*/
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	266	# ifndef _SIGNAL_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	267	# include <signal.h>
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	268	# define _SIGNAL_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	269	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	270
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	271	# ifndef _SYS_TYPES_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	272	# include <sys/types.h>
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	273	# define _SYS_TYPES_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	274	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	275
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	276	# ifndef _TIME_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	277	# include <time.h>
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	278	# define _TIME_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	279	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	280
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	281	# ifndef _SYS_TIMEB_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	282	# include <sys/timeb.h>
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	283	# define _SYS_TIMEB_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	284	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	285
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	286	# ifndef _SYS_STAT_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	287	# include <sys/stat.h>
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	288	# define _SYS_STAT_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	289	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	290
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	291	# ifndef _ERRNO_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	292	# include <errno.h>
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	293	# define _ERRNO_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	294	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	295
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	296	# ifndef _STDIO_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	297	# include <stdio.h>
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	298	# define _STDIO_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	299	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	300
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	301	# ifndef _FCNTL_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	302	# include <fcntl.h>
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	303	# define _FCNTL_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	304	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	305
20896 c88fbd0cb367 * empty log message * Claus Gittinger <cg@exept.de> parents: 20677 diff changeset	306	# define PROCESSDEBUGWIN32
18954 813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	307	// # define PROCESS1DEBUGWIN32
813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	308	// # define PROCESS2DEBUGWIN32
813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	309	// # define PROCESSDEBUG_CHILDPROCESSWAIT
813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	310	// # define SELECTDEBUGWIN32
813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	311	// # define SELECT1DEBUGWIN32
813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	312	// # define SELECT2DEBUGWIN32
813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	313	// # define WAITDEBUGWIN32
813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	314	// # define SIGNALDEBUGWIN32
7852 5e0c389a8164 * empty log message * ca parents: 7850 diff changeset	315
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	316	# undef INT
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	317	# undef UINT
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	318
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	319	# undef Array
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	320	# undef Number
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	321	# undef Method
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	322	# undef Point
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	323	# undef Rectangle
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	324	# undef Block
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	325	# undef String
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	326	# undef Message
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	327	# undef Object
11920 4d2ef58645de compilable with VC9.0 Claus Gittinger <cg@exept.de> parents: 11842 diff changeset	328	# undef Class
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	329	# undef Context
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	330	# undef Time
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	331	# undef Date
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	332	# undef Set
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	333	# undef Signal
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	334	# undef Delay
9025 e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	335	# undef Message
e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	336	# undef Process
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	337	# undef NameSpace
10341 5138e7faf10b * empty log message * Claus Gittinger <cg@exept.de> parents: 10334 diff changeset	338	# undef Processor
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	339	# undef String
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	340	# undef Character
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	341
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	342	# include <stdarg.h> /* */
9092 286c8b9e8780 * empty log message * Claus Gittinger <cg@exept.de> parents: 9089 diff changeset	343
7531 4682ca752d27 * empty log message * Claus Gittinger <cg@exept.de> parents: 7287 diff changeset	344	# ifndef WINDOWS_H_INCLUDED
4682ca752d27 * empty log message * Claus Gittinger <cg@exept.de> parents: 7287 diff changeset	345	# define WINDOWS_H_INCLUDED
4682ca752d27 * empty log message * Claus Gittinger <cg@exept.de> parents: 7287 diff changeset	346	# include <windows.h>
4682ca752d27 * empty log message * Claus Gittinger <cg@exept.de> parents: 7287 diff changeset	347	# endif
7840 a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	348
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	349	# ifndef TLHELP32_H_INCLUDE
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	350	# define TLHELP32_H_INCLUDE
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	351	# include <TLHELP32.h> /* to get all processes in system */
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	352	#endif
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	353
6543 916373aeb49f * empty log message * Claus Gittinger <cg@exept.de> parents: 6542 diff changeset	354	# ifndef NO_GETADAPTERSINFO
7840 a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	355	# include <iphlpapi.h>
6543 916373aeb49f * empty log message * Claus Gittinger <cg@exept.de> parents: 6542 diff changeset	356	# endif
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	357
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	358	# ifndef WINDOWSX_H_INCLUDED
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	359	# define WINDOWSX_H_INCLUDED
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	360	# include <windowsx.h>
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	361	# endif
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	362
11217 c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	363	# define _WIN32_DCOM /required for CoInitializeEx/
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	364	# include <objbase.h> //for COM
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	365
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	366	# include <shlobj.h>
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	367	# include <objbase.h>
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	368	# include <initguid.h>
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	369	# ifndef _STRING_H_INCLUDED_
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	370	# define _STRING_H_INCLUDED_
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	371	# include <string.h>
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	372	# endif
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	373
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	374	# ifdef __DEF_Array
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	375	# define Array __DEF_Array
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	376	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	377	# ifdef __DEF_Number
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	378	# define Number __DEF_Number
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	379	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	380	# ifdef __DEF_Method
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	381	# define Method __DEF_Method
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	382	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	383	# ifdef __DEF_Point
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	384	# define Point __DEF_Point
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	385	# endif
7860 d08a47772aa1 * empty log message * ca parents: 7852 diff changeset	386	# ifdef __DEF_Rectangle
d08a47772aa1 * empty log message * ca parents: 7852 diff changeset	387	# define Rectangle __DEF_Rectangle
d08a47772aa1 * empty log message * ca parents: 7852 diff changeset	388	# endif
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	389	# ifdef __DEF_Block
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	390	# define Block __DEF_Block
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	391	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	392	# ifdef __DEF_String
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	393	# define String __DEF_String
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	394	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	395	# ifdef __DEF_Message
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	396	# define Message __DEF_Message
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	397	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	398	# ifdef __DEF_Object
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	399	# define Object __DEF_Object
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	400	# endif
11920 4d2ef58645de compilable with VC9.0 Claus Gittinger <cg@exept.de> parents: 11842 diff changeset	401	# ifndef __DEF_Class
4d2ef58645de compilable with VC9.0 Claus Gittinger <cg@exept.de> parents: 11842 diff changeset	402	# define Class __DEF_Class
4d2ef58645de compilable with VC9.0 Claus Gittinger <cg@exept.de> parents: 11842 diff changeset	403	# endif
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	404	# ifdef __DEF_Context
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	405	# define Context __DEF_Context
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	406	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	407	# ifdef __DEF_Date
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	408	# define Date __DEF_Date
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	409	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	410	# ifdef __DEF_Time
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	411	# define Time __DEF_Time
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	412	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	413	# ifdef __DEF_Set
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	414	# define Set __DEF_Set
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	415	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	416	# ifdef __DEF_Signal
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	417	# define Signal __DEF_Signal
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	418	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	419	# ifdef __DEF_Delay
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	420	# define Delay __DEF_Delay
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	421	# endif
9025 e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	422	# ifdef __DEF_Message
e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	423	# define Message __DEF_Message
e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	424	# endif
e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	425	# ifdef __DEF_Process
e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	426	# define Process __DEF_Process
e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	427	# endif
10341 5138e7faf10b * empty log message * Claus Gittinger <cg@exept.de> parents: 10334 diff changeset	428	# ifdef __DEF_Processor
5138e7faf10b * empty log message * Claus Gittinger <cg@exept.de> parents: 10334 diff changeset	429	# define Processor __DEF_Processor
5138e7faf10b * empty log message * Claus Gittinger <cg@exept.de> parents: 10334 diff changeset	430	# endif
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	431	# ifdef __DEF_NameSpace
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	432	# define NameSpace __DEF_NameSpace
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	433	# endif
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	434	# ifdef __DEF_String
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	435	# define String __DEF_String
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	436	# endif
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	437	# ifdef __DEF_Character
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	438	# define Character __DEF_Character
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	439	# endif
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	440
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	441	# define INT STX_INT
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	442	# define UINT STX_UINT
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	443
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	444	typedef int (*intf)(int);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	445	BOOL __signalUserInterruptWIN32(DWORD sig);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	446
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	447	# if defined (HAS_LOCALECONV)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	448	# ifndef _LOCALE_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	449	# include <locale.h>
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	450	# define _LOCALE_H_INCLUDED_
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	451	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	452	# endif
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	# ifdef __BORLANDC__
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	455	# include <dir.h>
13778 8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	456	# define xMAXPATHLEN MAXPATH
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	457	# define MAXFILELEN MAXFILE
9094 c4d084167915 * empty log message * Claus Gittinger <cg@exept.de> parents: 9093 diff changeset	458
14740 609c0c77a4c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 14731 diff changeset	459	# if 0
9094 c4d084167915 * empty log message * Claus Gittinger <cg@exept.de> parents: 9093 diff changeset	460	OBJ _SEND0(OBJ, OBJ, OBJ, inlineCachePtr);
c4d084167915 * empty log message * Claus Gittinger <cg@exept.de> parents: 9093 diff changeset	461	OBJ _SEND1(OBJ, OBJ, OBJ, inlineCachePtr, OBJ);
c4d084167915 * empty log message * Claus Gittinger <cg@exept.de> parents: 9093 diff changeset	462	OBJ _SEND2(OBJ, OBJ, OBJ, inlineCachePtr, OBJ, OBJ);
c4d084167915 * empty log message * Claus Gittinger <cg@exept.de> parents: 9093 diff changeset	463	OBJ _SEND3(OBJ, OBJ, OBJ, inlineCachePtr, OBJ, OBJ, OBJ);
14740 609c0c77a4c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 14731 diff changeset	464	# endif
9094 c4d084167915 * empty log message * Claus Gittinger <cg@exept.de> parents: 9093 diff changeset	465
10449 41456eed5b53 chmod def for WIN32/msvc Claus Gittinger <cg@exept.de> parents: 10448 diff changeset	466	# endif /* BORLANDC */
41456eed5b53 chmod def for WIN32/msvc Claus Gittinger <cg@exept.de> parents: 10448 diff changeset	467
41456eed5b53 chmod def for WIN32/msvc Claus Gittinger <cg@exept.de> parents: 10448 diff changeset	468	# ifndef __BORLANDC__
41456eed5b53 chmod def for WIN32/msvc Claus Gittinger <cg@exept.de> parents: 10448 diff changeset	469	# define chmod _chmod
41456eed5b53 chmod def for WIN32/msvc Claus Gittinger <cg@exept.de> parents: 10448 diff changeset	470	# endif /* not BORLANDC */
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	471
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	472	# ifndef MAXPATHLEN
13778 8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	473
8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	474	# ifdef FILENAME_MAX
8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	475	# define xMAXPATHLEN FILENAME_MAX
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	476	# endif
13778 8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	477
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	478	# ifndef MAXPATHLEN
13778 8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	479	# define MAXPATHLEN 1024
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	480	# endif
13778 8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	481
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	482	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	483
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	484	/*
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	485	* sigaction dummies (you won't believe these call themself ``POSIX'' systems ...)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	486	*/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	487	# ifndef SA_RESTART
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	488	# define SA_RESTART 0
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	# ifndef SA_SIGINFO
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	491	# define SA_SIGINFO 0
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	492	# endif
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	# if defined(HAS_WAITPID) \|\| defined(HAS_WAIT3)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	495	# include <sys/wait.h>
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	498	# if defined(HAS_SYSINFO)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	499	# include <sys/systeminfo.h>
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	500	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	501
11215 b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	502	# ifndef __BORLANDC__
b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	503	# ifndef COINIT_MULTITHREADED
b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	504	# define COINIT_MULTITHREADED 0x0
b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	505	# endif
b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	506	# endif
b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	507
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	508	#define SIGHANDLER_ARG int
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	509
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	510	#define _HANDLEVal(o) (HANDLE)(__externalAddressVal(o))
14636 26765f6a6b11 * empty log message * Claus Gittinger <cg@exept.de> parents: 14632 diff changeset	511	#define _SETHANDLEVal(o, v) (__externalAddressVal(o) = (v))
15871 2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	512	#if defined(__BORLANDC__)
16367 e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	513	HANDLE _get_osfhandle(int);
18339 fc6fd2a3fc53 Win/x86_64: do not declare prototype for _get_osfhandle() under MINGW Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18120 diff changeset	514	#endif
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	515
19982 cc4c5eda0fec Win32: Fixed compilation under MING32 5.x.x Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19882 diff changeset	516	/*
cc4c5eda0fec Win32: Fixed compilation under MING32 5.x.x Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19882 diff changeset	517	* Borland (oh, my!) and __old__ MING32 have no TOKEN_ELEVATION_TYPE defined.
cc4c5eda0fec Win32: Fixed compilation under MING32 5.x.x Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19882 diff changeset	518	* However, MINGW32 coming with MSYS2 (https://msys2.github.io/) uses
cc4c5eda0fec Win32: Fixed compilation under MING32 5.x.x Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19882 diff changeset	519	* MINGW32 5.3.x which does have the enum defined. Hence the test for
cc4c5eda0fec Win32: Fixed compilation under MING32 5.x.x Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19882 diff changeset	520	* (__GNUC__ < 5).
cc4c5eda0fec Win32: Fixed compilation under MING32 5.x.x Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19882 diff changeset	521	* Q: Is there any better way to do so?
18520 a8e93cc8d476 Dirty hack for MINGW64 problem introduced by f65d5cb6d1d3 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18513 diff changeset	522	*/
19982 cc4c5eda0fec Win32: Fixed compilation under MING32 5.x.x Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19882 diff changeset	523	#if defined(__BORLANDC__) \|\| (defined(__MINGW32__) && (__GNUC__ < 5))
15871 2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	524
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	525	typedef enum _TOKEN_ELEVATION_TYPE {
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	526	TokenElevationTypeDefault = 1,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	527	TokenElevationTypeFull,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	528	TokenElevationTypeLimited,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	529	} TOKEN_ELEVATION_TYPE, *PTOKEN_ELEVATION_TYPE;
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	530
18513 f65d5cb6d1d3 Fixes for MINGW32: TOKEN_ELEVATION_TYPE is not defined in MINGW32's winnt.h Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18418 diff changeset	531	#endif
f65d5cb6d1d3 Fixes for MINGW32: TOKEN_ELEVATION_TYPE is not defined in MINGW32's winnt.h Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18418 diff changeset	532
f65d5cb6d1d3 Fixes for MINGW32: TOKEN_ELEVATION_TYPE is not defined in MINGW32's winnt.h Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18418 diff changeset	533	#if defined(__BORLANDC__)
f65d5cb6d1d3 Fixes for MINGW32: TOKEN_ELEVATION_TYPE is not defined in MINGW32's winnt.h Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18418 diff changeset	534
15871 2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	535	typedef struct _TOKEN_ELEVATION {
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	536	DWORD TokenIsElevated;
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	537	} TOKEN_ELEVATION, *PTOKEN_ELEVATION;
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	538
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	539	typedef enum _TOKEN_INFORMATION_CLASS_V2 {
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	540	nTokenUser = 1,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	541	nTokenGroups,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	542	nTokenPrivileges,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	543	nTokenOwner,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	544	nTokenPrimaryGroup,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	545	nTokenDefaultDacl,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	546	nTokenSource,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	547	nTokenType,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	548	nTokenImpersonationLevel,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	549	nTokenStatistics,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	550	nTokenRestrictedSids,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	551	nTokenSessionId,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	552	nTokenGroupsAndPrivileges,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	553	nTokenSessionReference,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	554	nTokenSandBoxInert,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	555	nTokenAuditPolicy,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	556	nTokenOrigin,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	557	nTokenElevationType,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	558	nTokenLinkedToken,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	559	nTokenElevation,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	560	nTokenHasRestrictions,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	561	nTokenAccessInformation,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	562	nTokenVirtualizationAllowed,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	563	nTokenVirtualizationEnabled,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	564	nTokenIntegrityLevel,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	565	nTokenUIAccess,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	566	nTokenMandatoryPolicy,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	567	nTokenLogonSid,
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	568	nMaxTokenInfoClass // MaxTokenInfoClass should always be the last enum
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	569	} TOKEN_INFORMATION_CLASS_V2, *PTOKEN_INFORMATION_CLASS_V2;
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	570	# define TokenElevationType (TOKEN_INFORMATION_CLASS)nTokenElevationType
2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	571	# define TokenElevation (TOKEN_INFORMATION_CLASS)nTokenElevation
19269 1089087bca33 mingw stuff Claus Gittinger <cg@exept.de> parents: 19174 diff changeset	572
1089087bca33 mingw stuff Claus Gittinger <cg@exept.de> parents: 19174 diff changeset	573	#endif /* BORLAND */
15871 2cb35be4d68f isRunningElevated Claus Gittinger <cg@exept.de> parents: 15870 diff changeset	574
20896 c88fbd0cb367 * empty log message * Claus Gittinger <cg@exept.de> parents: 20677 diff changeset	575	#ifdef PROCESSDEBUGWIN32
c88fbd0cb367 * empty log message * Claus Gittinger <cg@exept.de> parents: 20677 diff changeset	576	static int flag_PROCESSDEBUGWIN32 = 0;
c88fbd0cb367 * empty log message * Claus Gittinger <cg@exept.de> parents: 20677 diff changeset	577	#endif
c88fbd0cb367 * empty log message * Claus Gittinger <cg@exept.de> parents: 20677 diff changeset	578
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	579	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	580	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	581
11258 5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	582	!Win32OperatingSystem primitiveVariables!
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	583	%{
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	584	static int coInitialized = 0;
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	585	%}
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	586	! !
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	587
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	588	!Win32OperatingSystem primitiveFunctions!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	589	%{
23101 cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	590
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	591	/**
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	592	* The `_makeWchar()` function copies contents of a string object `srcObj` to a
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	593	* (wide char) buffer `dst`. At most `n` bytes including null terminator
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	594	* are copied to destination buffer `dst`.
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	595	*
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	596	* Returns the number of bytes copied (including null terminator). If
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	597	* source string object is not an instance of `String` or `Unicode16String`,
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	598	* returns `-1`.
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	599	*/
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	600	static int
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	601	_makeWchar(OBJ srcObj, wchar_t dst, int n/ in bytes!!! */)
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	602	{
23101 cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	603	int i;
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	604	int srcLen; /* length of string to be copied, in characters */
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	605	int dstLen; /* length of destination buffer, in characters */
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	606
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	607	dstLen = n / sizeof(wchar_t);
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	608
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	609	if (__isStringLike(srcObj)) {
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	610	srcLen = __stringSize(srcObj);
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	611
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	612	if (srcLen >= dstLen) srcLen = dstLen - 1;
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	613
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	614	for (i=0; i<srcLen; i++) {
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	615	dst[i] = __stringVal(srcObj)[i];
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	616	}
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	617	} else if (__isUnicode16String(srcObj)) {
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	618	srcLen = __unicode16StringSize(srcObj);
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	619
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	620	if (srcLen >= dstLen) srcLen = dstLen - 1;
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	621
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	622	memcpy(dst, __unicode16StringVal(srcObj), srcLen * sizeof(wchar_t));
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	623	} else {
23101 cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	624	dst[0] = 0;
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	625	return(-1);
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	626	}
23101 cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	627	dst[srcLen] = 0;
cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	628	return(srcLen * sizeof(wchar_t));
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	629	}
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	630
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	631
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	632
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	633	static int
16367 e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	634	_canAccessIOWithoutBlocking (HANDLE handle, int readMode)
7825 b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	635	{
b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	636	struct timeval tv;
b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	637	fd_set fds;
b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	638	int n;
10454 0905cc7c6903 readCheck for broken non-socket (broken named pipes) fixed; Claus Gittinger <cg@exept.de> parents: 10449 diff changeset	639	int winErrNo;
7825 b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	640
16367 e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	641	FD_ZERO(&fds);
e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	642	FD_SET (handle, &fds);
7825 b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	643
b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	644	tv.tv_sec = 0;
b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	645	tv.tv_usec = 0;
b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	646
b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	647	if (readMode) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	648	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	649	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	650	n = select (1, NULL, &fds, NULL, &tv);
7825 b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	651	}
b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	652
b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	653	if (n == 0) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	654	return (0);
7825 b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	655	}
b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	656
b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	657	if (n > 0) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	658	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	659	}
0905cc7c6903 readCheck for broken non-socket (broken named pipes) fixed; Claus Gittinger <cg@exept.de> parents: 10449 diff changeset	660
0905cc7c6903 readCheck for broken non-socket (broken named pipes) fixed; Claus Gittinger <cg@exept.de> parents: 10449 diff changeset	661	winErrNo = WSAGetLastError();
0905cc7c6903 readCheck for broken non-socket (broken named pipes) fixed; Claus Gittinger <cg@exept.de> parents: 10449 diff changeset	662	switch (winErrNo) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	663	case WSAENOTSOCK:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	664	if (readMode) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	665	DWORD w = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	666
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	667	if (PeekNamedPipe (handle, 0, 0, 0, & w, 0)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	668	return (w > 0);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	669	}
10458 678c2c39488f * empty log message * Claus Gittinger <cg@exept.de> parents: 10454 diff changeset	670	#if 0
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	671	console_fprintf(stderr, "_canAccessIOWithoutBlocking non Socket\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	672	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	673	return (-1);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	674	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	675	/* in writeMode we return always true for none-sockets */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	676	return (1);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	677
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	678	case WSAEINPROGRESS:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	679	case WSAEWOULDBLOCK:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	680	return (0);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	681
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	682	default:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	683	console_fprintf(stderr, "_canAccessIOWithoutBlocking -> %d (0x%x)\n", winErrNo, winErrNo);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	684	return (-1);
10454 0905cc7c6903 readCheck for broken non-socket (broken named pipes) fixed; Claus Gittinger <cg@exept.de> parents: 10449 diff changeset	685	}
0905cc7c6903 readCheck for broken non-socket (broken named pipes) fixed; Claus Gittinger <cg@exept.de> parents: 10449 diff changeset	686
0905cc7c6903 readCheck for broken non-socket (broken named pipes) fixed; Claus Gittinger <cg@exept.de> parents: 10449 diff changeset	687	/* not reached */
7825 b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	688	return (0);
b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	689	}
b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	690
7840 a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	691	#define _canReadWithoutBlocking(fd) _canAccessIOWithoutBlocking(fd, 1)
a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	692	#define _canWriteWithoutBlocking(fd) _canAccessIOWithoutBlocking(fd, 0)
7825 b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	693
11217 c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	694	/*
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	695	* 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	696	* 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	697	* load the library and looks what we get.
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	698	* Here are support functions to load the libs.
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	699	*/
8654 872098a9943e * empty log message * Claus Gittinger <cg@exept.de> parents: 8653 diff changeset	700	static FARPROC
11217 c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	701	__get_functionAddress(HINSTANCE pLibHandle, char libraryName, char *functionName)
8654 872098a9943e * empty log message * Claus Gittinger <cg@exept.de> parents: 8653 diff changeset	702	{
9094 c4d084167915 * empty log message * Claus Gittinger <cg@exept.de> parents: 9093 diff changeset	703	FARPROC entry;
11217 c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	704
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	705	if (*pLibHandle == NULL) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	706	*pLibHandle = LoadLibrary(libraryName);
11217 c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	707	}
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	708	entry = GetProcAddress(*pLibHandle, functionName);
8654 872098a9943e * empty log message * Claus Gittinger <cg@exept.de> parents: 8653 diff changeset	709	return entry;
872098a9943e * empty log message * Claus Gittinger <cg@exept.de> parents: 8653 diff changeset	710	}
872098a9943e * empty log message * Claus Gittinger <cg@exept.de> parents: 8653 diff changeset	711
872098a9943e * empty log message * Claus Gittinger <cg@exept.de> parents: 8653 diff changeset	712	static FARPROC
11217 c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	713	__get_kernel32_functionAddress(char *functionName)
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	714	{
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	715	static HINSTANCE libHandle = NULL;
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	716
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	717	return __get_functionAddress(&libHandle, "kernel32.DLL", functionName);
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	718	}
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	719
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	720	static FARPROC
8654 872098a9943e * empty log message * Claus Gittinger <cg@exept.de> parents: 8653 diff changeset	721	__get_iphlpapi_functionAddress(functionName)
872098a9943e * empty log message * Claus Gittinger <cg@exept.de> parents: 8653 diff changeset	722	char *functionName;
872098a9943e * empty log message * Claus Gittinger <cg@exept.de> parents: 8653 diff changeset	723	{
11217 c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	724	static HINSTANCE libHandle = NULL;
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	725
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	726	return __get_functionAddress(&libHandle, "iphlpapi.DLL", functionName);
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	727	}
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	728
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	729	static FARPROC
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	730	__get_ole32_functionAddress(functionName)
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	731	char *functionName;
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	732	{
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	733	static HINSTANCE libHandle = NULL;
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	734
c9b8dec0091b * empty log message * Claus Gittinger <cg@exept.de> parents: 11216 diff changeset	735	return __get_functionAddress(&libHandle, "ole32.DLL", functionName);
8654 872098a9943e * empty log message * Claus Gittinger <cg@exept.de> parents: 8653 diff changeset	736	}
7825 b58ba4e4dcd6 bugfix in selectOnAnyReadable:writable:exception:withTimeOut: ca parents: 7777 diff changeset	737
19653 ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	738	#if 0
19651 59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	739	// original: biased for 1.1.1601
19653 ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	740	// obsolete...
12821 56c56e8bee2a Raise TimeConversionError if appropriate. Stefan Vogel <sv@exept.de> parents: 12820 diff changeset	741	OBJ
56c56e8bee2a Raise TimeConversionError if appropriate. Stefan Vogel <sv@exept.de> parents: 12820 diff changeset	742	FileTimeToOsTime(LPFILETIME pft)
56c56e8bee2a Raise TimeConversionError if appropriate. Stefan Vogel <sv@exept.de> parents: 12820 diff changeset	743	{
56c56e8bee2a Raise TimeConversionError if appropriate. Stefan Vogel <sv@exept.de> parents: 12820 diff changeset	744	LONGLONG lTime = ((LONGLONG)pft->dwHighDateTime << 32) + pft->dwLowDateTime;
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	745	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	746	#if __POINTER_SIZE__ == 8
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	747	return(__MKUINT(lTime));
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	748	#else
12821 56c56e8bee2a Raise TimeConversionError if appropriate. Stefan Vogel <sv@exept.de> parents: 12820 diff changeset	749	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	750	#endif
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	751	}
19653 ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	752	#endif
19651 59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	753
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	754	// biased for 1.1.1970
19653 ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	755	// (renamed to catch references from other classes)
19651 59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	756	OBJ
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	757	FileTimeToOsTime1970(LPFILETIME pft)
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	758	{
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	759	LONGLONG lTime = ((LONGLONG)pft->dwHighDateTime << 32) + pft->dwLowDateTime;
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	760	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	761
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	762	#if __POINTER_SIZE__ == 8
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	763	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	764	return(__MKINT(lTime));
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	765	#else
19666 755edabcbe67 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19653 diff changeset	766	if (lTime >= (LONGLONG)11644473600000L) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	767	lTime -= (LONGLONG)11644473600000L; // the number of millis from 1.1.1601 to 1.1.1970
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	768	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	769	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	770	lTime = (LONGLONG)11644473600000L - lTime;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	771	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	772	}
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	773	#endif
12821 56c56e8bee2a Raise TimeConversionError if appropriate. Stefan Vogel <sv@exept.de> parents: 12820 diff changeset	774	}
56c56e8bee2a Raise TimeConversionError if appropriate. Stefan Vogel <sv@exept.de> parents: 12820 diff changeset	775
19653 ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	776	#if 0
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	777	// obsolete; biased for 1.1.1601
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	778	int
16948 45832ec999e2 method name cleanup Claus Gittinger <cg@exept.de> parents: 16947 diff changeset	779	OsTimeToFileTime(OBJ tLow, OBJ tHigh, LPFILETIME pft) {
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	780	LONGLONG lTime;
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	781	UINT low = __unsignedLongIntVal(tLow);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	782	UINT hi = __unsignedLongIntVal(tHigh);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	783
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	784	if (hi == 0 && !__isSmallInteger(tHigh))
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	785	return(0); // conversion error
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	786
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	787	lTime = ((LONGLONG)hi << 32) + (LONGLONG)low;
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	788	lTime = lTime * 10000; // convert to multiple of 100ns
17006 d6ec5e448ac5 timestamp changes Claus Gittinger <cg@exept.de> parents: 17004 diff changeset	789
16951 cf9c2837afb8 * empty log message * Claus Gittinger <cg@exept.de> parents: 16948 diff changeset	790	pft->dwHighDateTime = (UINT)(lTime >> 32);
cf9c2837afb8 * empty log message * Claus Gittinger <cg@exept.de> parents: 16948 diff changeset	791	pft->dwLowDateTime = (UINT)(lTime & 0xFFFFFFFF);
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	792	return(1);
16948 45832ec999e2 method name cleanup Claus Gittinger <cg@exept.de> parents: 16947 diff changeset	793	}
19653 ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	794	#endif
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	795
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	796	// biased for 1.1.1970
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	797	// renamed to catch any references from other classes.
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	798	int
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	799	OsTime1970ToFileTime(OBJ tLow, OBJ tHigh, LPFILETIME pft) {
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	800	LONGLONG lTime;
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	801	UINT low = __unsignedLongIntVal(tLow);
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	802	UINT hi = __unsignedLongIntVal(tHigh);
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	803
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	804	if (hi == 0 && !__isSmallInteger(tHigh))
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	805	return(0); // conversion error
19653 ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	806
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	807	lTime = ((LONGLONG)hi << 32) + (LONGLONG)low;
19668 8c30d204cd7b bcc fix Claus Gittinger <cg@exept.de> parents: 19666 diff changeset	808	lTime += (LONGLONG)11644473600000L; // rebias to 1.1.1601
19653 ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	809	lTime = lTime * 10000; // convert to multiple of 100ns
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	810
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	811	pft->dwHighDateTime = (UINT)(lTime >> 32);
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	812	pft->dwLowDateTime = (UINT)(lTime & 0xFFFFFFFF);
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	813	return(1);
ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	814	}
12817 33771eb7d88b Fix daylight saving time computations by converting from broken libc Stefan Vogel <sv@exept.de> parents: 12815 diff changeset	815
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	816	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	817	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	818
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	819	!Win32OperatingSystem class methodsFor:'documentation'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	820
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	821	copyright
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	822	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	823	COPYRIGHT (c) 1988 by Claus Gittinger
7852 5e0c389a8164 * empty log message * ca parents: 7850 diff changeset	824	COPYRIGHT (c) 1998-2004 by eXept Software AG
23107 40173e082cbc Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23101 diff changeset	825	COPYRIGHT (c) 2015-2018 Jan Vrany
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	826	All Rights Reserved
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	827
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	828	This software is furnished under a license and may be used
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	829	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	830	inclusion of the above copyright notice. This software may not
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	831	be provided or otherwise made available to, or used by, any
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	832	other person. No title to or ownership of the software is
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	833	hereby transferred.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	834	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	835	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	836
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	837	documentation
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	838	"
20275 e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	839	This class resulted from extracting WIN32 specifics of the old
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	840	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	841
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	842	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	843	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	844
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	845	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	846	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	847	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	848	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	849	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	850	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	851	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	852	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	853
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	854	You decide - portability vs. functionality)
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	855
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	856	[Class variables:]
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	857
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	858	HostName <String> remembered hostname
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	859
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	860	DomainName <String> remembered domainname
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	861
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	862	CurrentDirectory <String> remembered currentDirectories path
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	863
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	864	[author:]
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	865	Claus Gittinger (initial version & cleanup)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	866	Manfred Dierolf (many features)
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	867
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	868	[see also:]
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	869	OSProcessStatus
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	870	Filename Date Time
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	871	ExternalStream FileStream PipeStream Socket
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	872	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	873	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	874
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	875	examples
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	876	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	877	various queries
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	878	[exBegin]
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	879	Transcript
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	880	showCR:'hello ' , (OperatingSystem getLoginName)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	881	[exEnd]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	882
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	883	[exBegin]
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	884	OperatingSystem isUNIXlike ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	885	Transcript showCR:'this is some UNIX-like OS'
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	886	] ifFalse:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	887	Transcript showCR:'this OS is not UNIX-like'
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	888	]
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	889	[exEnd]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	890
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	891	[exBegin]
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	892	Transcript
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	893	showCR:'this machine is called ' , OperatingSystem getHostName
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	894	[exEnd]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	895
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	896	[exBegin]
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	897	Transcript
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	898	showCR:('this machine is in the '
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	899	, OperatingSystem getDomainName
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	900	, ' domain')
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	901	[exEnd]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	902
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	903	[exBegin]
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	904	Transcript
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	905	showCR:('this machine''s CPU is a '
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	906	, OperatingSystem getCPUType
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	907	)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	908	[exEnd]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	909
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	910	[exBegin]
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	911	Transcript showCR:'executing ls command ...'.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	912	OperatingSystem executeCommand:'ls'.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	913	Transcript showCR:'... done.'.
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	914	[exEnd]
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	915
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	916	locking a file
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	917	(should be executed on two running smalltalks - not in two threads):
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	918	[exBegin]
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	919	\|f\|
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	920
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	921	f := 'testFile' asFilename readWriteStream.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	922
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	923	10 timesRepeat:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	924	'about to lock ...' printCR.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	925	[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	926	OperatingSystem
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	927	lockFD:(f fileDescriptor)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	928	shared:false
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	929	blocking:false
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	930	] whileFalse:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	931	'process ' print. OperatingSystem getProcessId print. ' is waiting' printCR.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	932	Delay waitForSeconds:1
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	933	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	934	'LOCKED ...' printCR.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	935	Delay waitForSeconds:10.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	936	'unlock ...' printCR.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	937	(OperatingSystem
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	938	unlockFD:(f fileDescriptor)) printCR.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	939	Delay waitForSeconds:3.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	940	]
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	941	[exBegin]
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	942	"
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	945	!Win32OperatingSystem class methodsFor:'initialization'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	946
11253 ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	947	coInitialize
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	948	%{
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	949	HRESULT hres;
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	950
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	951	if( ! coInitialized ) {
15252 621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	952
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	953	hres = CoInitializeEx(NULL, COINIT_MULTITHREADED);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	954	if (! SUCCEEDED(hres)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	955	console_fprintf(stderr, "OperatingSystem [info]: Could not open the COM library hres = %08x\n", hres );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	956	goto error;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	957	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	958	coInitialized = 1;
15252 621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	959
11253 ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	960	#ifdef COM_DEBUG
15252 621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	961
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	962	console_fprintf(stderr, "OperatingSystem [info]: COM initialized\n" );
15169 0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	963	#endif
11253 ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	964	}
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	965	RETURN (self );
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	966
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	967	error: ;
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	968	%}.
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	969	self primitiveFailed
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	970	!
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	971
16367 e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	972	getOSVersion
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	973	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	974	OSVERSIONINFO osvi;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	975
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	976	memset(&osvi, 0, sizeof(OSVERSIONINFO));
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	977	osvi.dwOSVersionInfoSize = sizeof (OSVERSIONINFO);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	978	GetVersionEx (&osvi);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	979
16367 e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	980	RETURN(__mkSmallInteger(osvi.dwPlatformId));
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	981	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	982	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	983
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	984	initialize
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	985	"initialize the class"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	986
11253 ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	987	"/ attention: must be ok to be called twice during startup.
16374 6d37c2c45365 fix typo in prev version Stefan Vogel <sv@exept.de> parents: 16367 diff changeset	988	Initialized isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	989	Initialized := true.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	990	ObjectMemory addDependent:self.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	991	HostName := nil.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	992	DomainName := nil.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	993	LastErrorNumber := nil.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	994	PipeFailed := false.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	995	self coInitialize.
11253 ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	996	].
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	997
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	998	"Modified: 13.9.1997 / 10:47:32 / cg"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	999	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1000
23091 817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1001	initializeLocale
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1002	\| lang territory \|
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1003
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1004	"/ Defaults
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1005	Language := #en.
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1006	LanguageTerritory := #us.
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1007
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1008	%{
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1009	char str_buf[9];
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1010	int str_len = 0;
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1011
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1012	/*
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1013	* While the documentation says we should use GetLocaleInfoEx(),
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1014	* we by purpose use (discourage) GetLocaleInfo() in order to run
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1015	* also on Windows XP. Not sure it makes much sense these days,
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1016	* but there was a request recently some XP fixes.
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1017	*/
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1018	str_len = GetLocaleInfoA(LOCALE_NAME_USER_DEFAULT, LOCALE_SISO639LANGNAME, str_buf, sizeof(str_buf));
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1019	if (str_len) {
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1020	lang = __MKSTRING_L(str_buf, str_len);
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1021	}
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1022	str_len = GetLocaleInfoA(LOCALE_NAME_USER_DEFAULT, LOCALE_SISO3166CTRYNAME, str_buf, sizeof(str_buf));
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1023	if (str_len) {
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1024	territory = __MKSTRING_L(str_buf, str_len);
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1025	}
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1026	%}.
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1027	"/ Since this may be called early during initialization, do not make
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1028	"/ `#primitiveFailed` when `GetLocaleInfoEx()` fails. Otherwise smalltalk
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1029	"/ may fail to compe up.
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1030	"/ Instead, log an error and proceed with `en-us` locale.
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1031	lang isNil ifTrue:[
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1032	Logger error: 'GetLocaleInfoEx(..., LOCALE_SISO639LANGNAME, ...) failed'.
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1033	].
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1034	territory isNil ifTrue:[
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1035	Logger error: 'GetLocaleInfoEx(..., LOCALE_SISO3166CTRYNAME, ...) failed'.
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1036	].
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1037	Language := lang asSymbol.
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1038	LanguageTerritory := territory asLowercase asSymbol.
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1039
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1040	!
817fd8c6e4c5 Issue #80: added `AbstractOperatingSystem class >> #getLanguage` and `#getLanguageTerritory` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21784 diff changeset	1041
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1042	update:something with:aParameter from:changedObject
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1043	"catch image restart and flush some cached data"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1044
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1045	something == #earlyRestart ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1046	"
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1047	flush cached data
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1048	"
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1049	HostName := nil.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1050	DomainName := nil.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1051	LastErrorNumber := nil.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1052	PipeFailed := false.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1053	self coInitialize.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1054	]
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1055
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1056	"Modified: 22.4.1996 / 13:10:43 / cg"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1057	"Created: 15.6.1996 / 15:22:37 / cg"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1058	"Modified: 7.1.1997 / 19:36:11 / stefan"
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1061	!Win32OperatingSystem class methodsFor:'OS signal constants'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1062
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1063	sigABRT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1064	"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	1065	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1066
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1067	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1068	#ifdef SIGABRT
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1069	RETURN ( __mkSmallInteger(SIGABRT) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1070	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1071	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1072	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1073	%}
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	sigALRM
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1077	"return the signal number for SIGALRM - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1078	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1079
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1080	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1081	#ifdef SIGALRM
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1082	RETURN ( __mkSmallInteger(SIGALRM) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1083	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1084	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1085	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1086	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1087	!
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	sigBREAK
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1090	"return the signal number for SIGBREAK - 0 if not supported.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1091	This is an MSDOS specific signal"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1092
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1093	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1094	#ifdef SIGBREAK
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1095	RETURN ( __mkSmallInteger(SIGBREAK) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1096	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1097	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1098	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1099	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1102	sigBUS
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1103	"return the signal number for SIGBUS - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1104	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1105
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1106	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1107	#ifdef SIGBUS
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1108	RETURN ( __mkSmallInteger(SIGBUS) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1109	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1110	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1111	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1112	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1115	sigCHLD
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1116	"return the signal number for SIGCHLD - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1117	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1118
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1119	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1120	#if defined(SIGCHLD)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1121	RETURN ( __mkSmallInteger(SIGCHLD) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1122	#else
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1123	# if defined(SIGCLD)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1124	RETURN ( __mkSmallInteger(SIGCLD) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1125	# else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1126	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1127	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1128	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1129	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1130	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1131
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1132	sigCONT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1133	"return the signal number for SIGCONT - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1134	(the numeric value is not the same across unix-systems)"
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	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1137	#if defined(SIGCONT)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1138	RETURN ( __mkSmallInteger(SIGCONT) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1139	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1140	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1141	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1142	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1143	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1144
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1145	sigDANGER
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1146	"return the signal number for SIGDANGER - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1147	(seems to be an AIX special)"
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	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1150	#if defined(SIGDANGER)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1151	RETURN ( __mkSmallInteger(SIGDANGER) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1152	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1153	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1154	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1155	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1156	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1157
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1158	sigEMT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1159	"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	1160	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1161
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1162	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1163	#ifdef SIGEMT
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1164	RETURN ( __mkSmallInteger(SIGEMT) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1165	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1166	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1167	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1168	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1171	sigFP
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1172	"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	1173	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1174
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1175	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1176	#ifdef SIGFPE
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1177	RETURN ( __mkSmallInteger(SIGFPE) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1178	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1179	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1180	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1181	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1184	sigGRANT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1185	"return the signal number for SIGGRANT - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1186	(seems to be an AIX special)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1187
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1188	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1189	#if defined(SIGGRANT)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1190	RETURN ( __mkSmallInteger(SIGGRANT) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1191	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1192	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1193	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1194	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1197	sigHUP
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1198	"return the signal number for SIGHUP
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1199	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1200
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1201	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1202	#ifdef SIGHUP
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1203	RETURN ( __mkSmallInteger(SIGHUP) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1204	#else
11669 db58374346b3 Define (and handle) the HUP and PWR signals Stefan Vogel <sv@exept.de> parents: 11623 diff changeset	1205	RETURN ( __mkSmallInteger(1) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1206	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1207	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1210	sigILL
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1211	"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	1212	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1213
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1214	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1215	#ifdef SIGILL
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1216	RETURN ( __mkSmallInteger(SIGILL) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1217	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1218	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1219	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1220	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1223	sigINT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1224	"return the signal number for SIGINT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1225	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1226
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1227	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1228	#ifdef SIGINT
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1229	RETURN ( __mkSmallInteger(SIGINT) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1230	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1231	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1232	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1233	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1236	sigIO
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1237	"return the signal number for SIGIO - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1238	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1239
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1240	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1241	#if defined(SIGIO)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1242	RETURN ( __mkSmallInteger(SIGIO) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1243	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1244	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1245	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1246	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1249	sigIOT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1250	"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	1251	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1252
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1253	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1254	#ifdef SIGIOT
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1255	RETURN ( __mkSmallInteger(SIGIOT) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1256	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1257	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1258	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1259	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1262	sigKILL
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1263	"return the signal number for SIGKILL
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1264	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1265
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1266	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1267	#ifdef SIGKILL
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1268	RETURN ( __mkSmallInteger(SIGKILL) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1269	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1270	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1271	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1272	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1275	sigLOST
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1276	"return the signal number for SIGLOST - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1277	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1278
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1279	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1280	#if defined(SIGLOST)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1281	RETURN ( __mkSmallInteger(SIGLOST) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1282	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1283	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1284	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1285	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1288	sigMIGRATE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1289	"return the signal number for SIGMIGRATE - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1290	(seems to be an AIX special)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1291
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1292	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1293	#if defined(SIGMIGRATE)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1294	RETURN ( __mkSmallInteger(SIGMIGRATE) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1295	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1296	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1297	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1298	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1301	sigMSG
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1302	"return the signal number for SIGMSG - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1303	(seems to be an AIX special)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1304
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1305	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1306	#if defined(SIGMSG)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1307	RETURN ( __mkSmallInteger(SIGMSG) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1308	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1309	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1310	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1311	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1314	sigPIPE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1315	"return the signal number for SIGPIPE - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1316	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1317
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1318	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1319	#ifdef SIGPIPE
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1320	RETURN ( __mkSmallInteger(SIGPIPE) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1321	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1322	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1323	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1324	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1327	sigPOLL
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1328	"return the signal number for SIGPOLL - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1329	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1330
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1331	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1332	#if defined(SIGPOLL)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1333	RETURN ( __mkSmallInteger(SIGPOLL) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1334	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1335	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1336	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1337	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1340	sigPRE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1341	"return the signal number for SIGPRE - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1342	(seems to be an AIX special)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1343
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1344	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1345	#if defined(SIGPRE)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1346	RETURN ( __mkSmallInteger(SIGPRE) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1347	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1348	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1349	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1350	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1353	sigPROF
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1354	"return the signal number for SIGPROF - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1355	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1356
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1357	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1358	#if defined(SIGPROF)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1359	RETURN ( __mkSmallInteger(SIGPROF) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1360	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1361	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1362	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1363	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1366	sigPWR
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1367	"return the signal number for SIGPWR - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1368	(not available on all systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1369
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1370	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1371	#if defined(SIGPWR)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1372	RETURN ( __mkSmallInteger(SIGPWR) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1373	#else
11669 db58374346b3 Define (and handle) the HUP and PWR signals Stefan Vogel <sv@exept.de> parents: 11623 diff changeset	1374	RETURN ( __mkSmallInteger(30) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1375	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1376	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1379	sigQUIT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1380	"return the signal number for SIGQUIT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1381	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1382
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1383	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1384	#ifdef SIGQUIT
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1385	RETURN ( __mkSmallInteger(SIGQUIT) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1386	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1387	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1388	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1389	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1392	sigRETRACT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1393	"return the signal number for SIGRETRACT - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1394	(seems to be an AIX special)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1395
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1396	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1397	#if defined(SIGRETRACT)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1398	RETURN ( __mkSmallInteger(SIGRETRACT) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1399	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1400	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1401	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1402	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1405	sigSAK
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1406	"return the signal number for SIGSAK - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1407	(seems to be an AIX special)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1408
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1409	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1410	#if defined(SIGSAK)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1411	RETURN ( __mkSmallInteger(SIGSAK) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1412	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1413	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1414	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1415	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1418	sigSEGV
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1419	"return the signal number for SIGSEGV - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1420	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1421
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1422	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1423	#ifdef SIGSEGV
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1424	RETURN ( __mkSmallInteger(SIGSEGV) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1425	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1426	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1427	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1428	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1431	sigSOUND
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1432	"return the signal number for SIGSOUND - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1433	(seems to be an AIX special)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1434
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1435	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1436	#if defined(SIGSOUND)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1437	RETURN ( __mkSmallInteger(SIGSOUND) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1438	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1439	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1440	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1441	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1444	sigSTOP
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1445	"return the signal number for SIGSTOP - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1446	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1447
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1448	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1449	#if defined(SIGSTOP)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1450	RETURN ( __mkSmallInteger(SIGSTOP) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1451	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1452	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1453	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1454	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1457	sigSYS
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1458	"return the signal number for SIGSYS - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1459	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1460
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1461	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1462	#ifdef SIGSYS
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1463	RETURN ( __mkSmallInteger(SIGSYS) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1464	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1465	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1466	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1467	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1470	sigTERM
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1471	"return the signal number for SIGTERM - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1472	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1473
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1474	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1475	#ifdef SIGTERM
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1476	RETURN ( __mkSmallInteger(SIGTERM) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1477	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1478	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1479	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1480	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1483	sigTRAP
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1484	"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	1485	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1486
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1487	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1488	#ifdef SIGTRAP
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1489	RETURN ( __mkSmallInteger(SIGTRAP) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1490	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1491	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1492	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1493	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1496	sigTSTP
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1497	"return the signal number for SIGTSTP - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1498	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1499
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1500	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1501	#if defined(SIGTSTP)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1502	RETURN ( __mkSmallInteger(SIGTSTP) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1503	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1504	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1505	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1506	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1509	sigTTIN
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1510	"return the signal number for SIGTTIN - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1511	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1512
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1513	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1514	#if defined(SIGTTIN)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1515	RETURN ( __mkSmallInteger(SIGTTIN) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1516	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1517	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1518	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1519	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1522	sigTTOU
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1523	"return the signal number for SIGTTOU - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1524	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1525
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1526	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1527	#if defined(SIGTTOU)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1528	RETURN ( __mkSmallInteger(SIGTTOU) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1529	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1530	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1531	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1532	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1535	sigURG
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1536	"return the signal number for SIGURG - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1537	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1538
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1539	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1540	#if defined(SIGURG)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1541	RETURN ( __mkSmallInteger(SIGURG) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1542	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1543	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1544	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1545	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1548	sigUSR1
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1549	"return the signal number for SIGUSR1 - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1550	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1551
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1552	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1553	#if defined(SIGUSR1)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1554	RETURN ( __mkSmallInteger(SIGUSR1) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1555	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1556	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1557	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1558	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1561	sigUSR2
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1562	"return the signal number for SIGUSR2 - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1563	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1564
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1565	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1566	#if defined(SIGUSR2)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1567	RETURN ( __mkSmallInteger(SIGUSR2) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1568	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1569	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1570	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1571	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1574	sigVTALRM
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1575	"return the signal number for SIGVTALRM - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1576	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1577
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1578	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1579	#if defined(SIGVTALRM)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1580	RETURN ( __mkSmallInteger(SIGVTALRM) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1581	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1582	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1583	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1584	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1587	sigWINCH
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1588	"return the signal number for SIGWINCH - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1589	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1590
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1591	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1592	#if defined(SIGWINCH)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1593	RETURN ( __mkSmallInteger(SIGWINCH) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1594	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1595	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1596	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1597	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1600	sigXCPU
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1601	"return the signal number for SIGXCPU - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1602	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1603
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1604	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1605	#if defined(SIGXCPU)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1606	RETURN ( __mkSmallInteger(SIGXCPU) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1607	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1608	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1609	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1610	%}
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1613	sigXFSZ
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1614	"return the signal number for SIGXFSZ - 0 if not supported
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1615	(the numeric value is not the same across unix-systems)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1616
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1617	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1618	#if defined(SIGXFSZ)
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1619	RETURN ( __mkSmallInteger(SIGXFSZ) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1620	#else
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1621	RETURN ( __mkSmallInteger(0) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1622	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1623	%}
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
21784 d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1626	!Win32OperatingSystem class methodsFor:'TTY support'!
d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1627
d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1628	getTTYAttributes: fd
d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1629	OsError raiseErrorString: 'TTYs / PTYs not supported on Windows'
d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1630
23097 d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	1631	!
21784 d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1632
d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1633	isTTY: fd
d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1634	"Return true, if given filedescriptor refers to a character device (console). See _isatty()
d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1635	for details."
d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1636
d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1637	%{
d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1638	if (__isSmallInteger(fd)) {
d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1639	if ( _isatty( __intVal(fd) ) ) {
d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1640	RETURN(true)
d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1641	} else {
d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1642	RETURN(false);
d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1643	}
d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1644	}
d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1645	%}.
d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1646	self primitiveFailed.
d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1647
d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1648	"Created: / 01-06-2017 / 20:12:57 / jv"
d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1649
d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1650	!
d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1651
d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1652	setTTYAttributes: fd to: ttyattrs withActions: actions
d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1653	OsError raiseErrorString: 'TTYs / PTYs not supported on Windows'
d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1654
d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1655	! !
d58698c455c1 UNIX: added support for TTY / PTY attributes (`tdgetattr()` & `tcsetattr()`) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21638 diff changeset	1656
9209 0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1657	!Win32OperatingSystem class methodsFor:'VM messages'!
0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1658
11511 8e097a558bac * empty log message * Claus Gittinger <cg@exept.de> parents: 11402 diff changeset	1659	win32LogFile
11513 97a94bac0991 comments Claus Gittinger <cg@exept.de> parents: 11512 diff changeset	1660	"return the name of the log file.
97a94bac0991 comments Claus Gittinger <cg@exept.de> parents: 11512 diff changeset	1661	This is mostly used by standAlone apps, without a console,
97a94bac0991 comments Claus Gittinger <cg@exept.de> parents: 11512 diff changeset	1662	which write their log info into a file named xxx_log_xxx.log.
97a94bac0991 comments Claus Gittinger <cg@exept.de> parents: 11512 diff changeset	1663	The default logFilename is defined be the make-build process, and
97a94bac0991 comments Claus Gittinger <cg@exept.de> parents: 11512 diff changeset	1664	can be overwritten by a command line argumen (--logFile). In order to
97a94bac0991 comments Claus Gittinger <cg@exept.de> parents: 11512 diff changeset	1665	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	1666	use this method to ask for the files name.
11513 97a94bac0991 comments Claus Gittinger <cg@exept.de> parents: 11512 diff changeset	1667	Returns nil, of nothing has been written to the logfile, yet.
97a94bac0991 comments Claus Gittinger <cg@exept.de> parents: 11512 diff changeset	1668	Enforce a logFile, by doing an errorPrint or infoPrint first."
11511 8e097a558bac * empty log message * Claus Gittinger <cg@exept.de> parents: 11402 diff changeset	1669
8e097a558bac * empty log message * Claus Gittinger <cg@exept.de> parents: 11402 diff changeset	1670	\|ret\|
8e097a558bac * empty log message * Claus Gittinger <cg@exept.de> parents: 11402 diff changeset	1671
8e097a558bac * empty log message * Claus Gittinger <cg@exept.de> parents: 11402 diff changeset	1672	%{
11512 c6a1dc4bad14 * empty log message * Claus Gittinger <cg@exept.de> parents: 11511 diff changeset	1673	extern char *__win32_getLogFilename();
11511 8e097a558bac * empty log message * Claus Gittinger <cg@exept.de> parents: 11402 diff changeset	1674	char *lp;
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	lp = __win32_getLogFilename();
11511 8e097a558bac * empty log message * Claus Gittinger <cg@exept.de> parents: 11402 diff changeset	1677	if (lp) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1678	ret = __MKSTRING(lp);
11511 8e097a558bac * empty log message * Claus Gittinger <cg@exept.de> parents: 11402 diff changeset	1679	}
8e097a558bac * empty log message * Claus Gittinger <cg@exept.de> parents: 11402 diff changeset	1680	%}.
8e097a558bac * empty log message * Claus Gittinger <cg@exept.de> parents: 11402 diff changeset	1681	^ ret
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	Win32OperatingSystem win32LogFile
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
9209 0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1688	win32LogFile:aFilenameOrNil
11513 97a94bac0991 comments Claus Gittinger <cg@exept.de> parents: 11512 diff changeset	1689	"change the file, into which log info is written.
97a94bac0991 comments Claus Gittinger <cg@exept.de> parents: 11512 diff changeset	1690	This is mostly used by standAlone apps, without a console,
97a94bac0991 comments Claus Gittinger <cg@exept.de> parents: 11512 diff changeset	1691	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	1692
0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1693	\|logFilePath\|
0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1694
0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1695	aFilenameOrNil notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1696	logFilePath := aFilenameOrNil asFilename pathName
9209 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
0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1699	%{
0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1700	extern void __win32_setLogFile();
0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1701
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	1702	if (__isStringLike(logFilePath)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1703	__win32_setLogFile(__stringVal(logFilePath));
9209 0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1704	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1705	__win32_setLogFile( NULL );
9209 0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1706	}
0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1707	%}
0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1708
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	Win32OperatingSystem win32LogFile:'myLog.log'
9210 ed7cf7380224 * empty log message * Claus Gittinger <cg@exept.de> parents: 9209 diff changeset	1711	Win32OperatingSystem win32LogFile:nil
9209 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	! !
0b065c21f6c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9198 diff changeset	1714
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	1715	!Win32OperatingSystem class methodsFor:'accessing'!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	1716
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	1717	performanceData
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	1718	^ PerformanceData
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	1719	! !
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	1720
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1721	!Win32OperatingSystem class methodsFor:'clipboard'!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1722
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1723	clipboardContainsBitmap
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1724	"Answer whether the clipboard contains a bitmap."
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1725
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1726	^self clipboardContainsFormat: 2 "CfBitmap"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1727	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1728
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1729	clipboardContainsFormat: aCfConstant
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1730	"Answer true if the clipboard contains data in
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1731	the format described by aCfConstant. "
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1732
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1733	^self primIsClipboardFormatAvailable: aCfConstant
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1734	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1735
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1736	closeClipboard
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1737	\| result \|
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1738	result := self primCloseClipboard.
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1739	result ifFalse: [ ^self error].
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1740	^result
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1741	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1742
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1743	emptyClipboard
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1744	"Private - empty the clipboard. Note: it must be opened first."
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1745	\| result \|
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1746	result := self primEmptyClipboard.
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1747	result ifFalse: [ ^self error].
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1748	^result
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1749	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1750
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1751	getDesktopWindow
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 primGetDesktopWindow
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	openClipboard
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1757
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1758	^self openClipboard: self getDesktopWindow
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1759	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1760
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1761	openClipboard: aHwnd
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1762	\| result \|
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1763	result := self primOpenClipboard: aHwnd.
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1764	result ifFalse: [ ^self error].
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1765	^result
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1766	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1767
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1768	primCloseClipboard
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1769
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1770	<apicall: bool "CloseClipboard" () module: "user32.dll" >
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1771	^self primitiveFailed
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1772	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1773
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1774	primEmptyClipboard
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1775
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1776	<apicall: bool "EmptyClipboard" () module: "user32.dll" >
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1777	^self primitiveFailed
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1778	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1779
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1780	primGetDesktopWindow
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1781
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1782	<apicall: ulongReturn "GetDesktopWindow" () module: "user32.dll" >
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1783	^self primitiveFailed
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1784	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1785
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1786	primIsClipboardFormatAvailable: aCfConstant
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1787
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1788	<apicall: boolean "IsClipboardFormatAvailable" (ulong) module: "user32.dll" >
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1789	^self primitiveFailed
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1790	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1791
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1792	primOpenClipboard: aHwnd
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1793
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1794	<apicall: bool "OpenClipboard" (ulong) module: "user32.dll" >
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1795	^self primitiveFailed
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1796	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1797
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1798	primSetClipboardData: aCfConstant hMem: aMemHandle
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1799
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1800	<apicall: ulongReturn "SetClipboardData" (ulong ulong) module: "user32.dll" >
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1801	^self primitiveFailed
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1802	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1803
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1804	setBitmapToClipboard: aBitmap
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1805	"Copy aBitmap to the clipboard."
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1806	\| handle \|
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1807	aBitmap isNil ifTrue:[ ^nil ].
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1808	aBitmap id isNil ifTrue:[aBitmap onDevice: Screen current].
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1809	handle := aBitmap id.
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1810	handle isNil ifTrue: [ ^nil ].
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1811	self openClipboard ifFalse: [ ^nil ].
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1812	self emptyClipboard.
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1813	self setClipboardData: 2 "CfBitmap" hMem: handle.
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1814	self closeClipboard
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1815
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1816	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1817	self setBitmapToClipboard: Image fromUser
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
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1821	setClipboardData: aCfConstant hMem: aMemHandle
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1822	\|result\|
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1823	result := self primSetClipboardData: aCfConstant hMem: aMemHandle address.
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1824	result = 0 ifTrue: [ ^self error ].
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	1825	! !
10913 b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	1826
20930 793c81da8cb1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20897 diff changeset	1827	!Win32OperatingSystem class methodsFor:'debugging'!
793c81da8cb1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20897 diff changeset	1828
793c81da8cb1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20897 diff changeset	1829	verbose:aBoolean
793c81da8cb1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20897 diff changeset	1830	%{
793c81da8cb1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20897 diff changeset	1831	#ifdef PROCESSDEBUGWIN32
793c81da8cb1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20897 diff changeset	1832	flag_PROCESSDEBUGWIN32 = (aBoolean == true);
793c81da8cb1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20897 diff changeset	1833	#endif
793c81da8cb1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20897 diff changeset	1834	%}
793c81da8cb1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20897 diff changeset	1835	! !
793c81da8cb1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20897 diff changeset	1836
17286 a7170033e17f directory access ca parents: 17169 diff changeset	1837	!Win32OperatingSystem class methodsFor:'directory access'!
a7170033e17f directory access ca parents: 17169 diff changeset	1838
a7170033e17f directory access ca parents: 17169 diff changeset	1839	linkInfoFor:osPathname fileSize:fileSize fileAttributes:osFileAttributes osCrtTime:osCrtTime osAccTime:osAccTime osModTime:osModTime
a7170033e17f directory access ca parents: 17169 diff changeset	1840	\|type modeBits crtTime accTime modTime\|
a7170033e17f directory access ca parents: 17169 diff changeset	1841
a7170033e17f directory access ca parents: 17169 diff changeset	1842	%{
a7170033e17f directory access ca parents: 17169 diff changeset	1843	DWORD __fileAttr = __unsignedLongIntVal( osFileAttributes );
a7170033e17f directory access ca parents: 17169 diff changeset	1844	int __modeBits = 0;
a7170033e17f directory access ca parents: 17169 diff changeset	1845
a7170033e17f directory access ca parents: 17169 diff changeset	1846	if (__fileAttr & FILE_ATTRIBUTE_DIRECTORY) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1847	type = @symbol(directory);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1848	__modeBits = 0777; /* executable and WRITABLE - refer to comment in #isWritable: */
17286 a7170033e17f directory access ca parents: 17169 diff changeset	1849	} else if (__fileAttr & FILE_ATTRIBUTE_REPARSE_POINT) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1850	type = @symbol(symbolicLink);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1851	__modeBits = 0777; /* even in UNIX symlinks have 0777 */
17286 a7170033e17f directory access ca parents: 17169 diff changeset	1852	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1853	type = @symbol(regular);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1854	if (__fileAttr & FILE_ATTRIBUTE_READONLY) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1855	__modeBits = 0444;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1856	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1857	__modeBits = 0666;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1858	}
17286 a7170033e17f directory access ca parents: 17169 diff changeset	1859	}
a7170033e17f directory access ca parents: 17169 diff changeset	1860	modeBits = __mkSmallInteger(__modeBits);
a7170033e17f directory access ca parents: 17169 diff changeset	1861
a7170033e17f directory access ca parents: 17169 diff changeset	1862	%}.
a7170033e17f directory access ca parents: 17169 diff changeset	1863	osCrtTime isNil
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1864	ifTrue: [crtTime := Timestamp now]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1865	ifFalse:[crtTime := Timestamp new fromOSTime:(osCrtTime "- OperatingSystem osTimeOf19700101 -- already done")].
17286 a7170033e17f directory access ca parents: 17169 diff changeset	1866
a7170033e17f directory access ca parents: 17169 diff changeset	1867	osAccTime isNil
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1868	ifTrue: [accTime := Timestamp now]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1869	ifFalse:[accTime := Timestamp new fromOSTime:(osAccTime "- OperatingSystem osTimeOf19700101 -- already done")].
17286 a7170033e17f directory access ca parents: 17169 diff changeset	1870
a7170033e17f directory access ca parents: 17169 diff changeset	1871	osModTime isNil
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1872	ifTrue: [modTime := accTime]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1873	ifFalse:[modTime := Timestamp new fromOSTime:(osModTime "- OperatingSystem osTimeOf19700101 -- already done")].
17286 a7170033e17f directory access ca parents: 17169 diff changeset	1874
a7170033e17f directory access ca parents: 17169 diff changeset	1875	^ FileStatusInfo
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1876	type:type
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1877	mode:modeBits
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1878	uid:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1879	gid:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1880	size:fileSize
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1881	id:0
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1882	accessed:accTime
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1883	modified:modTime
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1884	created:crtTime
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1885	sourcePath:osPathname
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1886	fullName:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	1887	alternativeName:nil.
17286 a7170033e17f directory access ca parents: 17169 diff changeset	1888	!
a7170033e17f directory access ca parents: 17169 diff changeset	1889
a7170033e17f directory access ca parents: 17169 diff changeset	1890	nextLinkInfoFrom:aDirectoryStream dirPointer:dirPointer
a7170033e17f directory access ca parents: 17169 diff changeset	1891	"return the next FileStatusInfo or nil at the end"
a7170033e17f directory access ca parents: 17169 diff changeset	1892
a7170033e17f directory access ca parents: 17169 diff changeset	1893	\|resultInfo error fileSize osPathname osModTime osCrtTime osAccTime osFileAttributes\|
a7170033e17f directory access ca parents: 17169 diff changeset	1894
a7170033e17f directory access ca parents: 17169 diff changeset	1895	%{
a7170033e17f directory access ca parents: 17169 diff changeset	1896	HANDLE d;
a7170033e17f directory access ca parents: 17169 diff changeset	1897	WIN32_FIND_DATAW data;
a7170033e17f directory access ca parents: 17169 diff changeset	1898	int rslt;
a7170033e17f directory access ca parents: 17169 diff changeset	1899
a7170033e17f directory access ca parents: 17169 diff changeset	1900	if ((dirPointer != nil)
a7170033e17f directory access ca parents: 17169 diff changeset	1901	&& __isExternalAddressLike(dirPointer)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1902	// __INST(lastErrorNumber) = nil;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1903	d = _HANDLEVal(dirPointer);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1904
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1905	do {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1906	__threadErrno = 0;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1907	// do not cast to INT - will loose sign bit then!
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1908	rslt = (int)(STX_API_NOINT_CALL2( "FindNextFileW", FindNextFileW, d, &data ));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1909	} while ((rslt < 0) && (__threadErrno == EINTR));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1910
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1911	if (rslt > 0) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1912	fileSize = __MKLARGEINT64(1, data.nFileSizeLow, data.nFileSizeHigh);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1913	osPathname = __mkStringOrU16String_maxlen( data.cFileName, MAXPATHLEN );
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1914	osFileAttributes = __mkSmallInteger( data.dwFileAttributes );
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1915
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1916	osCrtTime = FileTimeToOsTime1970(&data.ftCreationTime);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1917	osAccTime = FileTimeToOsTime1970(&data.ftLastAccessTime);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1918	osModTime = FileTimeToOsTime1970(&data.ftLastWriteTime);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1919	} else {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1920	// we signal end-of-directory through a nil osPathName
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1921	if (__threadErrno != __WIN32_ERR(ERROR_NO_MORE_FILES))
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1922	error = __mkSmallInteger( __threadErrno );
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1923	}
21065 d4735595a002 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21063 diff changeset	1924	}
d4735595a002 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21063 diff changeset	1925	%}.
d4735595a002 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21063 diff changeset	1926	error notNil ifTrue:[
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1927	^ StreamIOError newException
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1928	errorCode:error;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1929	osErrorHolder:(OperatingSystem errorHolderForNumber:error);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1930	parameter:aDirectoryStream;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1931	raiseRequest
17286 a7170033e17f directory access ca parents: 17169 diff changeset	1932	].
a7170033e17f directory access ca parents: 17169 diff changeset	1933
a7170033e17f directory access ca parents: 17169 diff changeset	1934	osPathname isNil ifTrue:[^ nil].
a7170033e17f directory access ca parents: 17169 diff changeset	1935
a7170033e17f directory access ca parents: 17169 diff changeset	1936	^ self
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1937	linkInfoFor:osPathname
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1938	fileSize:fileSize
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1939	fileAttributes:osFileAttributes
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1940	osCrtTime:osCrtTime
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1941	osAccTime:osAccTime
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1942	osModTime:osModTime
17286 a7170033e17f directory access ca parents: 17169 diff changeset	1943	! !
a7170033e17f directory access ca parents: 17169 diff changeset	1944
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1945	!Win32OperatingSystem class methodsFor:'error messages'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1946
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1947	currentErrorNumber
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1948	"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	1949	Notice, that the value of this flag is only valid immediately
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1950	after the error occurred - it gets updated with every other
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1951	request to the OS.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1952	Use lastErrorNumber - currentErrorNumber is invalidated by
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1953	many, many internal calls."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1954
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1955	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1956
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	1957	RETURN ( __mkSmallInteger(__threadErrno) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1958	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1959	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1960	OperatingSystem currentErrorNumber
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1961	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1962	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	1963
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	1964	errorHolderForNumber:errNr
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	1965	"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	1966
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	1967	\|sym typ holder\|
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	1968
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	1969	%{
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	1970	/* claus:
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	1971	* I made this primitive code, since errnos are not
16303 aad4b514271c class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16289 diff changeset	1972	* standard across operating systems
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	1973	*/
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	1974
9166 242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	1975	if (__isSmallInteger(errNr) \|\| (__unsignedLongIntVal(errNr) > 0)) {
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	1976	int __eno = __unsignedLongIntVal(errNr);
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	1977
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	1978	if (__isWIN32Error(__eno)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1979	switch (__eno & 0xFFFF) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1980	/*
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1981	* WIN32 GetLastError returns
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1982	*/
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1983	case ERROR_INVALID_FUNCTION:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1984	sym = @symbol(ERROR_INVALID_FUNCTION);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1985	typ = @symbol(illegalOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1986	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1987
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1988	case ERROR_BAD_FORMAT:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1989	sym = @symbol(ERROR_BAD_FORMAT);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1990	typ = @symbol(invalidArgumentsSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1991	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1992
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1993	case ERROR_FILE_NOT_FOUND:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1994	sym = @symbol(ERROR_FILE_NOT_FOUND);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1995	typ = @symbol(nonexistentSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1996	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1997
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1998	case ERROR_PATH_NOT_FOUND:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	1999	sym = @symbol(ERROR_PATH_NOT_FOUND);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2000	typ = @symbol(nonexistentSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2001	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2002
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2003	case ERROR_TOO_MANY_OPEN_FILES:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2004	sym = @symbol(ERROR_TOO_MANY_OPEN_FILES);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2005	typ = @symbol(noResourcesSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2006	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2007
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2008	/*
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2009	* what a nice errorCode - thats the most "useful" one I ever
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2010	* encountered ... (... those stupid micro-softies ...)
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2011	*/
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2012	case ERROR_OPEN_FAILED:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2013	sym = @symbol(ERROR_OPEN_FAILED);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2014	typ = @symbol(noResourcesSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2015	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2016
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2017	case ERROR_ACCESS_DENIED:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2018	sym = @symbol(ERROR_ACCESS_DENIED);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2019	typ = @symbol(noPermissionsSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2020	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2021
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2022	case ERROR_INVALID_HANDLE:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2023	sym = @symbol(ERROR_INVALID_HANDLE);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2024	typ = @symbol(invalidArgumentsSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2025	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2026
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2027	case ERROR_NOT_ENOUGH_MEMORY:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2028	sym = @symbol(ERROR_NOT_ENOUGH_MEMORY);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2029	typ = @symbol(noResourcesSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2030	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2031
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2032	case ERROR_NO_SYSTEM_RESOURCES:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2033	sym = @symbol(ERROR_NO_SYSTEM_RESOURCES);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2034	typ = @symbol(noResourcesSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2035	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2036
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2037	case ERROR_NONPAGED_SYSTEM_RESOURCES:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2038	sym = @symbol(ERROR_NONPAGED_SYSTEM_RESOURCES);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2039	typ = @symbol(noResourcesSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2040	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2041
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2042	case ERROR_PAGED_SYSTEM_RESOURCES:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2043	sym = @symbol(ERROR_PAGED_SYSTEM_RESOURCES);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2044	typ = @symbol(noResourcesSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2045	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2046
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2047	case ERROR_INVALID_ACCESS:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2048	sym = @symbol(ERROR_INVALID_ACCESS);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2049	typ = @symbol(inappropriateOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2050	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2051
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2052	case ERROR_INVALID_DATA:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2053	sym = @symbol(ERROR_INVALID_DATA);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2054	typ = @symbol(invalidArgumentsSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2055	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2056
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2057	case ERROR_INVALID_NAME:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2058	sym = @symbol(ERROR_INVALID_NAME);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2059	typ = @symbol(invalidArgumentsSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2060	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2061
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2062	case ERROR_ARENA_TRASHED:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2063	sym = @symbol(ERROR_ARENA_TRASHED);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2064	typ = @symbol(noResourcesSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2065	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2066
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2067	case ERROR_OUTOFMEMORY:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2068	sym = @symbol(ERROR_OUTOFMEMORY);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2069	typ = @symbol(noResourcesSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2070	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2071
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2072	case ERROR_BROKEN_PIPE:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2073	sym = @symbol(ERROR_BROKEN_PIPE);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2074	typ = @symbol(peerFaultSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2075	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2076
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2077	case ERROR_GEN_FAILURE:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2078	sym = @symbol(ERROR_GEN_FAILURE);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2079	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2080
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2081	case ERROR_WRITE_PROTECT:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2082	sym = @symbol(ERROR_WRITE_PROTECT);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2083	typ = @symbol(inappropriateOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2084	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2085
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2086	case ERROR_WRITE_FAULT:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2087	sym = @symbol(ERROR_WRITE_FAULT);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2088	typ = @symbol(transferFaultSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2089	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2090
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2091	case ERROR_READ_FAULT:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2092	sym = @symbol(ERROR_READ_FAULT);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2093	typ = @symbol(transferFaultSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2094	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2095
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2096	case ERROR_HANDLE_DISK_FULL:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2097	sym = @symbol(ERROR_HANDLE_DISK_FULL);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2098	typ = @symbol(volumeFullSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2099	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2100
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2101	case ERROR_DISK_FULL:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2102	sym = @symbol(ERROR_DISK_FULL);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2103	typ = @symbol(volumeFullSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2104	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2105
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2106	case ERROR_SHARING_VIOLATION:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2107	sym = @symbol(ERROR_SHARING_VIOLATION);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2108	typ = @symbol(noPermissionsSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2109	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2110
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2111	case ERROR_LOCK_VIOLATION:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2112	sym = @symbol(ERROR_LOCK_VIOLATION);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2113	typ = @symbol(noPermissionsSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2114	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2115
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2116	case ERROR_INVALID_PARAMETER:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2117	sym = @symbol(ERROR_INVALID_PARAMETER);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2118	typ = @symbol(invalidArgumentsSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2119	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2120
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2121	case ERROR_NET_WRITE_FAULT:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2122	sym = @symbol(ERROR_NET_WRITE_FAULT);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2123	typ = @symbol(transferFaultSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2124	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2125
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2126	case ERROR_NOT_SUPPORTED:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2127	sym = @symbol(ERROR_NOT_SUPPORTED);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2128	typ = @symbol(inappropriateOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2129	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2130
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2131	case ERROR_REM_NOT_LIST:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2132	sym = @symbol(ERROR_REM_NOT_LIST);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2133	typ = @symbol(noResourcesSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2134	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2135
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2136	case ERROR_NETWORK_ACCESS_DENIED:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2137	sym = @symbol(ERROR_NETWORK_ACCESS_DENIED);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2138	typ = @symbol(noPermissionsSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2139	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2140
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2141	case ERROR_DUP_NAME:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2142	sym = @symbol(ERROR_DUP_NAME);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2143	typ = @symbol(noResourcesSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2144	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2145
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2146	case ERROR_BAD_NETPATH:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2147	sym = @symbol(ERROR_BAD_NETPATH);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2148	typ = @symbol(noResourcesSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2149	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2150
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2151	case ERROR_NETWORK_BUSY:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2152	sym = @symbol(ERROR_NETWORK_BUSY);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2153	typ = @symbol(noResourcesSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2154	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2155
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2156	case ERROR_DRIVE_LOCKED:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2157	sym = @symbol(ERROR_DRIVE_LOCKED);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2158	typ = @symbol(inappropriateOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2159	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2160
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2161	case ERROR_INVALID_DRIVE:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2162	sym = @symbol(ERROR_INVALID_DRIVE);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2163	typ = @symbol(invalidArgumentsSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2164	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2165
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2166	case ERROR_WRONG_DISK:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2167	sym = @symbol(ERROR_WRONG_DISK);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2168	typ = @symbol(noResourcesSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2169	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2170
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2171	case ERROR_CURRENT_DIRECTORY:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2172	sym = @symbol(ERROR_CURRENT_DIRECTORY);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2173	typ = @symbol(invalidArgumentsSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2174	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2175
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2176	/*
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2177	* what a nice errorCode - thats the most "useful" one I ever
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2178	* encountered ... (... those stupid micro-softies ...)
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2179	*/
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2180	case ERROR_CANNOT_MAKE:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2181	sym = @symbol(ERROR_CANNOT_MAKE);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2182	typ = @symbol(inappropriateOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2183	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2184
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2185	case ERROR_NO_MORE_FILES:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2186	sym = @symbol(ERROR_NO_MORE_FILES);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2187	typ = @symbol(noResourcesSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2188	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2189
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2190	case ERROR_NOT_READY:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2191	sym = @symbol(ERROR_NOT_READY);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2192	typ = @symbol(noResourcesSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2193	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2194
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2195	case ERROR_NOT_DOS_DISK:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2196	sym = @symbol(ERROR_NOT_DOS_DISK);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2197	typ = @symbol(invalidArgumentsSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2198	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2199
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2200	case ERROR_OUT_OF_PAPER:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2201	sym = @symbol(ERROR_OUT_OF_PAPER);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2202	typ = @symbol(noResourcesSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2203	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2204
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2205	case ERROR_PRINTQ_FULL:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2206	sym = @symbol(ERROR_PRINTQ_FULL);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2207	typ = @symbol(noResourcesSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2208	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2209
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2210	case ERROR_FILE_EXISTS:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2211	sym = @symbol(ERROR_FILE_EXISTS);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2212	typ = @symbol(existingReferentSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2213	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2214
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2215	case ERROR_ALREADY_EXISTS:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2216	sym = @symbol(ERROR_ALREADY_EXISTS);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2217	typ = @symbol(existingReferentSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2218	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2219
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2220	default:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2221	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2222	}
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2223	} else {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2224	switch (__eno) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2225	/*
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2226	* POSIX errnos - these should be defined
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2227	*/
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2228	#ifdef EPERM
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2229	case EPERM:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2230	sym = @symbol(EPERM);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2231	typ = @symbol(noPermissionsSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2232	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2233	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2234	#ifdef ENOENT
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2235	case ENOENT:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2236	sym = @symbol(ENOENT);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2237	typ = @symbol(nonexistentSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2238	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2239	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2240	#ifdef ESRCH
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2241	case ESRCH:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2242	sym = @symbol(ESRCH);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2243	typ = @symbol(unavailableReferentSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2244	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2245	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2246	#ifdef EINTR
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2247	case EINTR:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2248	sym = @symbol(EINTR);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2249	typ = @symbol(transientErrorSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2250	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2251	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2252	#ifdef EIO
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2253	case EIO:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2254	sym = @symbol(EIO);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2255	typ = @symbol(transferFaultSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2256	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2257	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2258	#ifdef ENXIO
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2259	case ENXIO:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2260	sym = @symbol(ENXIO);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2261	typ = @symbol(unavailableReferentSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2262	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2263	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2264	#ifdef E2BIG
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2265	case E2BIG:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2266	sym = @symbol(E2BIG);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2267	typ = @symbol(invalidArgumentsSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2268	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2269	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2270	#ifdef ENOEXEC
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2271	case ENOEXEC:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2272	sym = @symbol(ENOEXEC);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2273	typ = @symbol(inappropriateOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2274	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2275	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2276	#ifdef EBADF
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2277	case EBADF:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2278	sym = @symbol(EBADF);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2279	typ = @symbol(badAccessorSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2280	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2281	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2282	#ifdef ECHILD
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2283	case ECHILD:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2284	sym = @symbol(ECHILD);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2285	typ = @symbol(informationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2286	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2287	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2288	#if !defined(EWOULDBLOCK) && defined(EAGAIN) && (EWOULDBLOCK != EAGAIN)
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2289	case EAGAIN:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2290	sym = @symbol(EAGAIN);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2291	typ = @symbol(notReadySignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2292	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2293	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2294	#ifdef ENOMEM
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2295	case ENOMEM:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2296	sym = @symbol(ENOMEM);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2297	typ = @symbol(noMemorySignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2298	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2299	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2300	#ifdef EACCES
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2301	case EACCES:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2302	sym = @symbol(EACCES);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2303	typ = @symbol(noPermissionsSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2304	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2305	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2306	#ifdef EFAULT
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2307	case EFAULT:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2308	sym = @symbol(EFAULT);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2309	typ = @symbol(invalidArgumentsSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2310	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2311	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2312	#ifdef EBUSY
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2313	case EBUSY:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2314	sym = @symbol(EBUSY);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2315	typ = @symbol(unavailableReferentSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2316	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2317	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2318	#ifdef EEXIST
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2319	case EEXIST:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2320	sym = @symbol(EEXIST);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2321	typ = @symbol(existingReferentSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2322	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2323	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2324	#ifdef EXDEV
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2325	case EXDEV:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2326	sym = @symbol(EXDEV);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2327	typ = @symbol(inappropriateReferentSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2328	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2329	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2330	#ifdef ENODEV
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2331	case ENODEV:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2332	sym = @symbol(ENODEV);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2333	typ = @symbol(inaccessibleSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2334	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2335	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2336	#ifdef ENOTDIR
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2337	case ENOTDIR:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2338	sym = @symbol(ENOTDIR);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2339	typ = @symbol(inappropriateOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2340	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2341	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2342	#ifdef EISDIR
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2343	case EISDIR:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2344	sym = @symbol(EISDIR);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2345	typ = @symbol(inappropriateOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2346	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2347	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2348	#ifdef EINVAL
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2349	case EINVAL:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2350	sym = @symbol(EINVAL);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2351	typ = @symbol(invalidArgumentsSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2352	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2353	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2354	#ifdef ENFILE
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2355	case ENFILE:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2356	sym = @symbol(ENFILE);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2357	typ = @symbol(noResourcesSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2358	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2359	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2360	#ifdef EMFILE
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2361	case EMFILE:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2362	sym = @symbol(EMFILE);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2363	typ = @symbol(noResourcesSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2364	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2365	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2366	#ifdef ENOTTY
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2367	case ENOTTY:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2368	sym = @symbol(ENOTTY);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2369	typ = @symbol(inappropriateOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2370	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2371	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2372	#ifdef EFBIG
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2373	case EFBIG:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2374	sym = @symbol(EFBIG);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2375	typ = @symbol(noResourcesSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2376	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2377	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2378	#ifdef ENOSPC
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2379	case ENOSPC:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2380	sym = @symbol(ENOSPC);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2381	typ = @symbol(noResourcesSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2382	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2383	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2384	#ifdef ESPIPE
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2385	case ESPIPE:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2386	sym = @symbol(ESPIPE);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2387	typ = @symbol(inappropriateOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2388	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2389	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2390	#ifdef EROFS
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2391	case EROFS:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2392	sym = @symbol(EROFS);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2393	typ = @symbol(inappropriateOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2394	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2395	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2396	#ifdef EMLINK
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2397	case EMLINK:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2398	sym = @symbol(EMLINK);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2399	typ = @symbol(rangeErrorSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2400	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2401	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2402	#ifdef EPIPE
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2403	case EPIPE:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2404	sym = @symbol(EPIPE);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2405	typ = @symbol(peerFaultSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2406	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2407	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2408	#ifdef EDOM
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2409	case EDOM:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2410	sym = @symbol(EDOM);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2411	typ = @symbol(rangeErrorSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2412	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2413	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2414	#ifdef ERANGE
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2415	case ERANGE:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2416	sym = @symbol(ERANGE);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2417	typ = @symbol(rangeErrorSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2418	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2419	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2420	#ifdef EDEADLK
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2421	# if EDEADLK != EWOULDBLOCK
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2422	case EDEADLK:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2423	sym = @symbol(EDEADLK);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2424	typ = @symbol(noResourcesSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 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	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2428	#ifdef ENAMETOOLONG
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2429	case ENAMETOOLONG:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2430	sym = @symbol(ENAMETOOLONG);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2431	typ = @symbol(rangeErrorSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2432	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2433	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2434	#ifdef ENOLCK
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2435	case ENOLCK:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2436	sym = @symbol(ENOLCK);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2437	typ = @symbol(inappropriateOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2438	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2439	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2440	#ifdef ENOSYS
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2441	case ENOSYS:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2442	sym = @symbol(ENOSYS);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2443	typ = @symbol(inappropriateOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2444	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2445	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2446	#if defined(ENOTEMPTY) && (ENOTEMPTY != EEXIST)
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2447	case ENOTEMPTY:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2448	sym = @symbol(ENOTEMPTY);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2449	typ = @symbol(inappropriateReferentSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2450	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2451	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2452	#ifdef EILSEQ
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2453	case EILSEQ:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2454	sym = @symbol(EILSEQ);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2455	typ = @symbol(transferFaultSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2456	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2457	#endif
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2458	/*
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2459	* XPG3 errnos - defined on most systems
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2460	*/
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2461	#ifdef ENOTBLK
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2462	case ENOTBLK:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2463	sym = @symbol(ENOTBLK);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2464	typ = @symbol(inappropriateReferentSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2465	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2466	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2467	#ifdef ETXTBSY
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2468	case ETXTBSY:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2469	sym = @symbol(ETXTBSY);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2470	typ = @symbol(inaccessibleSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2471	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2472	#endif
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2473	/*
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2474	* some others
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2475	*/
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2476	#ifdef EWOULDBLOCK
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2477	case EWOULDBLOCK:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2478	sym = @symbol(EWOULDBLOCK);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2479	typ = @symbol(notReadySignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2480	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2481	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2482	#ifdef ENOMSG
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2483	case ENOMSG:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2484	sym = @symbol(ENOMSG);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2485	typ = @symbol(noDataSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2486	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2487	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2488	#ifdef ELOOP
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2489	case ELOOP:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2490	sym = @symbol(ELOOP);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2491	typ = @symbol(rangeErrorSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2492	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2493	#endif
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2494
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2495	/*
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2496	* some stream errors
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2497	*/
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2498	#ifdef ETIME
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2499	case ETIME:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2500	sym = @symbol(ETIME);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2501	typ = @symbol(peerFaultSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2502	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2503	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2504	#ifdef ENOSR
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2505	case ENOSR:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2506	sym = @symbol(ENOSR);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2507	typ = @symbol(noResourcesSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2508	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2509	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2510	#ifdef ENOSTR
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2511	case ENOSTR:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2512	sym = @symbol(ENOSTR);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2513	typ = @symbol(inappropriateReferentSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2514	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2515	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2516	#ifdef ECOMM
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2517	case ECOMM:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2518	sym = @symbol(ECOMM);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2519	typ = @symbol(transferFaultSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2520	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2521	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2522	#ifdef EPROTO
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2523	case EPROTO:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2524	sym = @symbol(EPROTO);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2525	typ = @symbol(inappropriateOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2526	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2527	#endif
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2528	/*
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2529	* nfs errors
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2530	*/
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2531	#ifdef ESTALE
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2532	case ESTALE:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2533	sym = @symbol(ESTALE);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2534	typ = @symbol(unavailableReferentSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2535	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2536	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2537	#ifdef EREMOTE
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2538	case EREMOTE:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2539	sym = @symbol(EREMOTE);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2540	typ = @symbol(rangeErrorSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2541	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2542	#endif
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2543	/*
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2544	* some networking errors
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2545	*/
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2546	#ifdef EINPROGRESS
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2547	case EINPROGRESS:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2548	sym = @symbol(EINPROGRESS);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2549	typ = @symbol(operationStartedSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2550	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2551	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2552	#ifdef EALREADY
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2553	case EALREADY:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2554	sym = @symbol(EALREADY);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2555	typ = @symbol(operationStartedSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2556	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2557	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2558	#ifdef ENOTSOCK
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2559	case ENOTSOCK:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2560	sym = @symbol(ENOTSOCK);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2561	typ = @symbol(inappropriateOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2562	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2563	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2564	#ifdef EDESTADDRREQ
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2565	case EDESTADDRREQ:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2566	sym = @symbol(EDESTADDRREQ);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2567	typ = @symbol(underspecifiedSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2568	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2569	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2570	#ifdef EMSGSIZE
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2571	case EMSGSIZE:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2572	sym = @symbol(EMSGSIZE);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2573	typ = @symbol(rangeErrorSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2574	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2575	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2576	#ifdef EPROTOTYPE
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2577	case EPROTOTYPE:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2578	sym = @symbol(EPROTOTYPE);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2579	typ = @symbol(wrongSubtypeForOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2580	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2581	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2582	#ifdef ENOPROTOOPT
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2583	case ENOPROTOOPT:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2584	sym = @symbol(ENOPROTOOPT);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2585	typ = @symbol(unsupportedOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2586	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2587	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2588	#ifdef EPROTONOSUPPORT
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2589	case EPROTONOSUPPORT:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2590	sym = @symbol(EPROTONOSUPPORT);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2591	typ = @symbol(unsupportedOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2592	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2593	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2594	#ifdef ESOCKTNOSUPPORT
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2595	case ESOCKTNOSUPPORT:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2596	sym = @symbol(ESOCKTNOSUPPORT);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2597	typ = @symbol(unsupportedOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2598	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2599	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2600	#ifdef EOPNOTSUPP
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2601	case EOPNOTSUPP:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2602	sym = @symbol(EOPNOTSUPP);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2603	typ = @symbol(inappropriateOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2604	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2605	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2606	#ifdef EPFNOSUPPORT
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2607	case EPFNOSUPPORT:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2608	sym = @symbol(EPFNOSUPPORT);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2609	typ = @symbol(unsupportedOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2610	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2611	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2612	#ifdef EAFNOSUPPORT
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2613	case EAFNOSUPPORT:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2614	sym = @symbol(EAFNOSUPPORT);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2615	typ = @symbol(unsupportedOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2616	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2617	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2618	#ifdef EADDRINUSE
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2619	case EADDRINUSE:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2620	sym = @symbol(EADDRINUSE);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2621	typ = @symbol(existingReferentSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2622	break;
15816 ae834743050e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15779 diff changeset	2623	#endif
ae834743050e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15779 diff changeset	2624	#ifdef WSAEADDRINUSE
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2625	case WSAEADDRINUSE:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2626	sym = @symbol(WSAEADDRINUSE);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2627	typ = @symbol(existingReferentSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2628	break;
15816 ae834743050e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15779 diff changeset	2629	#endif
ae834743050e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15779 diff changeset	2630
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2631	#ifdef EADDRNOTAVAIL
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2632	case EADDRNOTAVAIL:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2633	sym = @symbol(EADDRNOTAVAIL);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2634	typ = @symbol(noPermissionsSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2635	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2636	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2637	#ifdef ETIMEDOUT
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2638	case ETIMEDOUT:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2639	sym = @symbol(ETIMEDOUT);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2640	typ = @symbol(peerFaultSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2641	break;
18954 813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	2642	#endif
813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	2643	#ifdef WSAETIMEDOUT
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2644	case WSAETIMEDOUT:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2645	sym = @symbol(ETIMEDOUT);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2646	typ = @symbol(peerFaultSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2647	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2648	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2649	#ifdef ECONNREFUSED
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2650	case ECONNREFUSED:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2651	sym = @symbol(ECONNREFUSED);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2652	typ = @symbol(peerFaultSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2653	break;
18954 813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	2654	#endif
813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	2655	#ifdef WSAECONNREFUSED
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2656	case WSAECONNREFUSED:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2657	sym = @symbol(ECONNREFUSED);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2658	typ = @symbol(peerFaultSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2659	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2660	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2661	#ifdef ENETDOWN
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2662	case ENETDOWN:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2663	sym = @symbol(ENETDOWN);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2664	typ = @symbol(peerFaultSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2665	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2666	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2667	#ifdef ENETUNREACH
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2668	case ENETUNREACH:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2669	sym = @symbol(ENETUNREACH);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2670	typ = @symbol(peerFaultSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2671	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2672	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2673	#ifdef ENETRESET
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2674	case ENETRESET:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2675	sym = @symbol(ENETRESET);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2676	typ = @symbol(peerFaultSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2677	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2678	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2679	#ifdef ECONNABORTED
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2680	case ECONNABORTED:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2681	sym = @symbol(ECONNABORTED);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2682	typ = @symbol(peerFaultSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2683	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2684	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2685	#ifdef ECONNRESET
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2686	case ECONNRESET:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2687	sym = @symbol(ECONNRESET);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2688	typ = @symbol(peerFaultSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2689	break;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2690	#endif
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2691	#ifdef EISCONN
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2692	case EISCONN:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2693	sym = @symbol(EISCONN);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2694	typ = @symbol(unpreparedOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 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 ENOTCONN
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2698	case ENOTCONN:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2699	sym = @symbol(ENOTCONN);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2700	typ = @symbol(unpreparedOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 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 ESHUTDOWN
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2704	case ESHUTDOWN:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2705	sym = @symbol(ESHUTDOWN);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2706	typ = @symbol(unpreparedOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 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 EHOSTDOWN
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2710	case EHOSTDOWN:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2711	sym = @symbol(EHOSTDOWN);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2712	typ = @symbol(peerFaultSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 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 EHOSTUNREACH
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2716	case EHOSTUNREACH:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2717	sym = @symbol(EHOSTUNREACH);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2718	typ = @symbol(peerFaultSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2719	break;
18954 813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	2720	#endif
813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	2721	#ifdef WSAHOSTUNREACH
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2722	case WSAHOSTUNREACH:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2723	sym = @symbol(EHOSTUNREACH);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2724	typ = @symbol(peerFaultSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2725	break;
7199 922f78e7eb72 also handle subclasses of externalBytes Claus Gittinger <cg@exept.de> parents: 7158 diff changeset	2726	#endif
922f78e7eb72 also handle subclasses of externalBytes Claus Gittinger <cg@exept.de> parents: 7158 diff changeset	2727
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	2728	#ifdef WSAEFAULT
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2729	case WSAEFAULT:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2730	sym = @symbol(WSAEFAULT);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2731	typ = @symbol(invalidArgumentsSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2732	break;
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	2733	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	2734	#ifdef WSAEINTR
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2735	case WSAEINTR:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2736	sym = @symbol(WSAEINTR);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2737	typ = @symbol(transientErrorSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2738	break;
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	2739	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	2740	#ifdef WSAEBADF
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2741	case WSAEBADF:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2742	sym = @symbol(WSAEBADF);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2743	typ = @symbol(badAccessorSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2744	break;
15816 ae834743050e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15779 diff changeset	2745	#endif
ae834743050e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15779 diff changeset	2746	#ifdef WSAEACCES
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2747	case WSAEACCES:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2748	sym = @symbol(WSAEACCES);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2749	typ = @symbol(badAccessorSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2750	break;
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	2751	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	2752	#ifdef WSAEINVAL
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2753	case WSAEINVAL:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2754	sym = @symbol(WSAEINVAL);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2755	typ = @symbol(invalidArgumentsSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2756	break;
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	2757	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	2758	#ifdef WSAEMFILE
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2759	case WSAEMFILE:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2760	sym = @symbol(WSAEMFILE);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2761	typ = @symbol(noResourcesSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2762	break;
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	2763	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	2764	#ifdef WSAEWOULDBLOCK
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2765	case WSAEWOULDBLOCK:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2766	sym = @symbol(WSAEWOULDBLOCK);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2767	typ = @symbol(notReadySignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2768	break;
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	2769	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	2770	#ifdef WSAEINPROGRESS
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2771	case WSAEINPROGRESS:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2772	sym = @symbol(WSAEINPROGRESS);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2773	typ = @symbol(operationStartedSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2774	break;
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	2775	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	2776	#ifdef WSAEALREADY
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2777	case WSAEALREADY:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2778	sym = @symbol(WSAEALREADY);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2779	typ = @symbol(operationStartedSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2780	break;
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	2781	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	2782	#ifdef WSAENOTSOCK
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2783	case WSAENOTSOCK:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2784	sym = @symbol(WSAENOTSOCK);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2785	typ = @symbol(inappropriateOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2786	break;
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	2787	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	2788	#ifdef WSAEPROTONOSUPPORT
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2789	case WSAEPROTONOSUPPORT:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2790	sym = @symbol(WSAEPROTONOSUPPORT);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2791	typ = @symbol(unsupportedOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2792	break;
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	2793	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	2794	#ifdef WSAESOCKTNOSUPPORT
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2795	case WSAESOCKTNOSUPPORT:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2796	sym = @symbol(WSAESOCKTNOSUPPORT);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2797	typ = @symbol(unsupportedOperationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2798	break;
9166 242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	2799	#endif
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	2800	#ifdef E_NOINTERFACE
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2801	case E_NOINTERFACE:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2802	sym = @symbol(E_NOINTERFACE);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2803	typ = @symbol(noInterfaceSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2804	break;
9166 242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	2805	#endif
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	2806	#ifdef CO_E_NOTINITIALIZED
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2807	case CO_E_NOTINITIALIZED:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2808	sym = @symbol(CO_E_NOTINITIALIZED);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2809	typ = @symbol(coNotInitializedSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2810	break;
9166 242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	2811	#endif
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	2812	#ifdef REGDB_E_CLASSNOTREG
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2813	case REGDB_E_CLASSNOTREG:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2814	sym = @symbol(REGDB_E_CLASSNOTREG);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2815	typ = @symbol(classNotRegisteredSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2816	break;
9166 242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	2817	#endif
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	2818	#ifdef CLASS_E_NOAGGREGATION
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2819	case CLASS_E_NOAGGREGATION:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2820	sym = @symbol(CLASS_E_NOAGGREGATION);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2821	typ = @symbol(noAggregationSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2822	break;
9166 242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	2823	#endif
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	2824	#ifdef DISP_E_UNKNOWNNAME
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2825	case DISP_E_UNKNOWNNAME:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2826	sym = @symbol(DISP_E_UNKNOWNNAME);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2827	typ = @symbol(unknownNameSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2828	break;
9181 90f5b5e63cb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9177 diff changeset	2829	#endif
90f5b5e63cb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9177 diff changeset	2830	#ifdef OLEOBJ_E_NOVERBS
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2831	case OLEOBJ_E_NOVERBS:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2832	sym = @symbol(OLEOBJ_E_NOVERBS);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2833	typ = @symbol(noVerbsSignal);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2834	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2835	#endif
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2836
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2837	default:
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2838	break;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2839	}
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2840	}
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2841	}
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2842	%}.
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2843	holder := OSErrorHolder new.
16303 aad4b514271c class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16289 diff changeset	2844	sym isNil ifTrue:[
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2845	sym := #ERROR_OTHER.
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2846	errNr notNil ifTrue:[
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2847	"keep symbols as symbols"
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2848	holder parameter:(errNr isString ifTrue:[errNr] ifFalse:[errNr asString]).
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2849	].
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	2850	].
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	2851	holder errorSymbol:sym errorCategory:typ.
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2852	^ holder
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2853
16303 aad4b514271c class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16289 diff changeset	2854
aad4b514271c class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16289 diff changeset	2855	"
aad4b514271c class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16289 diff changeset	2856	OperatingSystem errorHolderForNumber:4
aad4b514271c class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16289 diff changeset	2857	OperatingSystem errorHolderForNumber:#badArgument
15464 032fb42505bf class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15414 diff changeset	2858	self errorHolderForNumber:16777296
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	2859	self errorHolderForNumber:(self errorNumberFor:#EPERM)
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2860	self errorHolderForNumber:(self errorNumberFor:#EIO)
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2861	self errorHolderForNumber:(self errorNumberFor:#ENXIO)
9166 242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	2862	self errorHolderForNumber:(self errorNumberFor:#E_NOINTERFACE)
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2863	"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2864	!
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	2865
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2866	errorNumberFor:aSymbol
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2867	"given a symbolic error, return the numeric;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2868	(i.e. errorNumberFor:#EBADF returns EBADF's value).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2869	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	2870
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2871	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2872	OBJ sym = aSymbol;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2873
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	2874	/*
15500 f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	2875	* WIN32 GetLastError error codes - use __WIN32_ERR() to return the same as
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	2876	* the smalltalk methods
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2877	*/
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2878	#ifdef ERROR_INVALID_FUNCTION
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2879	if (sym == @symbol(ERROR_INVALID_FUNCTION)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2880	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_INVALID_FUNCTION)) );
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2881	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2882	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2883	#ifdef ERROR_BAD_FORMAT
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2884	if (sym == @symbol(ERROR_BAD_FORMAT)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2885	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_BAD_FORMAT)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2886	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2887	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2888	#ifdef ERROR_FILE_NOT_FOUND
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2889	if (sym == @symbol(ERROR_FILE_NOT_FOUND)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2890	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_FILE_NOT_FOUND)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2891	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2892	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2893	#ifdef ERROR_PATH_NOT_FOUND
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2894	if (sym == @symbol(ERROR_PATH_NOT_FOUND)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2895	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_PATH_NOT_FOUND)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2896	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2897	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2898	#ifdef ERROR_TOO_MANY_OPEN_FILES
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2899	if (sym == @symbol(ERROR_TOO_MANY_OPEN_FILES)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2900	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_TOO_MANY_OPEN_FILES)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2901	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2902	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2903	#ifdef ERROR_OPEN_FAILED
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2904	if (sym == @symbol(ERROR_OPEN_FAILED)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2905	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_OPEN_FAILED)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2906	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2907	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2908	#ifdef ERROR_ACCESS_DENIED
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2909	if (sym == @symbol(ERROR_ACCESS_DENIED)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2910	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_ACCESS_DENIED)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2911	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2912	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2913	#ifdef ERROR_INVALID_HANDLE
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2914	if (sym == @symbol(ERROR_INVALID_HANDLE)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2915	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_INVALID_HANDLE)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2916	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2917	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2918	#ifdef ERROR_NOT_ENOUGH_MEMORY
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2919	if (sym == @symbol(ERROR_NOT_ENOUGH_MEMORY)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2920	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_NOT_ENOUGH_MEMORY)));
13742 cfb6a76de348 version_CVS Claus Gittinger <cg@exept.de> parents: 13618 diff changeset	2921	}
cfb6a76de348 version_CVS Claus Gittinger <cg@exept.de> parents: 13618 diff changeset	2922	#endif
cfb6a76de348 version_CVS Claus Gittinger <cg@exept.de> parents: 13618 diff changeset	2923	#ifdef ERROR_NO_SYSTEM_RESOURCES
cfb6a76de348 version_CVS Claus Gittinger <cg@exept.de> parents: 13618 diff changeset	2924	if (sym == @symbol(ERROR_NO_SYSTEM_RESOURCES)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2925	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_NO_SYSTEM_RESOURCES)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2926	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2927	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2928	#ifdef ERROR_INVALID_ACCESS
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2929	if (sym == @symbol(ERROR_INVALID_ACCESS)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2930	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_INVALID_ACCESS)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2931	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2932	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2933	#ifdef ERROR_INVALID_DATA
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2934	if (sym == @symbol(ERROR_INVALID_DATA)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2935	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_INVALID_DATA)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2936	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2937	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2938	#ifdef ERROR_INVALID_NAME
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2939	if (sym == @symbol(ERROR_INVALID_NAME)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2940	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_INVALID_NAME)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2941	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2942	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2943	#ifdef ERROR_ARENA_TRASHED
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2944	if (sym == @symbol(ERROR_ARENA_TRASHED)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2945	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_ARENA_TRASHED)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2946	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2947	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2948	#ifdef ERROR_OUTOFMEMORY
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2949	if (sym == @symbol(ERROR_OUTOFMEMORY)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2950	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_OUTOFMEMORY)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2951	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2952	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2953	#ifdef ERROR_BROKEN_PIPE
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2954	if (sym == @symbol(ERROR_BROKEN_PIPE)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2955	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_BROKEN_PIPE)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2956	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2957	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2958	#ifdef ERROR_GEN_FAILURE
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2959	if (sym == @symbol(ERROR_GEN_FAILURE)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2960	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_GEN_FAILURE)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2961	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2962	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2963	#ifdef ERROR_WRITE_PROTECT
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2964	if (sym == @symbol(ERROR_WRITE_PROTECT)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2965	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_WRITE_PROTECT)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2966	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2967	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2968	#ifdef ERROR_WRITE_FAULT
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2969	if (sym == @symbol(ERROR_WRITE_FAULT)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2970	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_WRITE_FAULT)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2971	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2972	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2973	#ifdef ERROR_READ_FAULT
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2974	if (sym == @symbol(ERROR_READ_FAULT)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2975	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_READ_FAULT)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2976	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2977	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2978	#ifdef ERROR_HANDLE_DISK_FULL
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2979	if (sym == @symbol(ERROR_HANDLE_DISK_FULL)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2980	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_HANDLE_DISK_FULL)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2981	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2982	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2983	#ifdef ERROR_DISK_FULL
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2984	if (sym == @symbol(ERROR_DISK_FULL)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2985	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_DISK_FULL)));
21120 b930eee62bd2 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21104 diff changeset	2986	}
b930eee62bd2 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21104 diff changeset	2987	#endif
b930eee62bd2 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21104 diff changeset	2988	#ifdef ERROR_SHARING_VIOLATION
b930eee62bd2 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21104 diff changeset	2989	if (sym == @symbol(ERROR_SHARING_VIOLATION)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2990	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_SHARING_VIOLATION)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2991	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2992	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2993	#ifdef ERROR_LOCK_VIOLATION
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2994	if (sym == @symbol(ERROR_LOCK_VIOLATION)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	2995	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_LOCK_VIOLATION)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2996	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2997	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2998	#ifdef ERROR_INVALID_PARAMETER
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	2999	if (sym == @symbol(ERROR_INVALID_PARAMETER)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3000	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_INVALID_PARAMETER)));
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	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3003	#ifdef ERROR_NET_WRITE_FAULT
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3004	if (sym == @symbol(ERROR_NET_WRITE_FAULT)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3005	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_NET_WRITE_FAULT)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3006	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3007	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3008	#ifdef ERROR_NOT_SUPPORTED
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3009	if (sym == @symbol(ERROR_NOT_SUPPORTED)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3010	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_NOT_SUPPORTED)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3011	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3012	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3013	#ifdef ERROR_REM_NOT_LIST
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3014	if (sym == @symbol(ERROR_REM_NOT_LIST)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3015	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_REM_NOT_LIST)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3016	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3017	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3018	#ifdef ERROR_NETWORK_ACCESS_DENIED
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3019	if (sym == @symbol(ERROR_NETWORK_ACCESS_DENIED)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3020	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_NETWORK_ACCESS_DENIED)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3021	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3022	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3023	#ifdef ERROR_DUP_NAME
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3024	if (sym == @symbol(ERROR_DUP_NAME)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3025	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_DUP_NAME)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3026	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3027	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3028	#ifdef ERROR_BAD_NETPATH
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3029	if (sym == @symbol(ERROR_BAD_NETPATH)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3030	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_BAD_NETPATH)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3031	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3032	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3033	#ifdef ERROR_NETWORK_BUSY
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3034	if (sym == @symbol(ERROR_NETWORK_BUSY)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3035	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_NETWORK_BUSY)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3036	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3037	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3038	#ifdef ERROR_DRIVE_LOCKED
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3039	if (sym == @symbol(ERROR_DRIVE_LOCKED)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3040	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_DRIVE_LOCKED)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3041	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3042	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3043	#ifdef ERROR_INVALID_DRIVE
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3044	if (sym == @symbol(ERROR_INVALID_DRIVE)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3045	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_INVALID_DRIVE)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3046	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3047	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3048	#ifdef ERROR_WRONG_DISK
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3049	if (sym == @symbol(ERROR_WRONG_DISK)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3050	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_WRONG_DISK)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3051	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3052	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3053	#ifdef ERROR_CURRENT_DIRECTORY
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3054	if (sym == @symbol(ERROR_CURRENT_DIRECTORY)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3055	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_CURRENT_DIRECTORY)));
21120 b930eee62bd2 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21104 diff changeset	3056	}
b930eee62bd2 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21104 diff changeset	3057	#endif
b930eee62bd2 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21104 diff changeset	3058	#ifdef ERROR_FILE_EXISTS
b930eee62bd2 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21104 diff changeset	3059	if (sym == @symbol(ERROR_FILE_EXISTS)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3060	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_FILE_EXISTS)));
21120 b930eee62bd2 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21104 diff changeset	3061	}
b930eee62bd2 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21104 diff changeset	3062	#endif
b930eee62bd2 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21104 diff changeset	3063	#ifdef ERROR_ALREADY_EXISTS
b930eee62bd2 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21104 diff changeset	3064	if (sym == @symbol(ERROR_FILE_EXISTS)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3065	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_ALREADY_EXISTS)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3066	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3067	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3068	#ifdef ERROR_CANNOT_MAKE
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3069	if (sym == @symbol(ERROR_CANNOT_MAKE)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3070	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_CANNOT_MAKE)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3071	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3072	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3073	#ifdef ERROR_NO_MORE_FILES
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3074	if (sym == @symbol(ERROR_NO_MORE_FILES)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3075	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_NO_MORE_FILES)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3076	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3077	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3078	#ifdef ERROR_NOT_READY
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3079	if (sym == @symbol(ERROR_NOT_READY)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3080	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_NOT_READY)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3081	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3082	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3083	#ifdef ERROR_NOT_DOS_DISK
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3084	if (sym == @symbol(ERROR_NOT_DOS_DISK)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3085	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_NOT_DOS_DISK)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3086	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3087	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3088	#ifdef ERROR_OUT_OF_PAPER
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3089	if (sym == @symbol(ERROR_OUT_OF_PAPER)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3090	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_OUT_OF_PAPER)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3091	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3092	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3093	#ifdef ERROR_PRINTQ_FULL
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3094	if (sym == @symbol(ERROR_PRINTQ_FULL)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3095	RETURN ( __mkSmallInteger(__WIN32_ERR(ERROR_PRINTQ_FULL)));
6277 08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3096	}
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3097	#endif
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3098
08ba50e16d65 error text handling Claus Gittinger <cg@exept.de> parents: 6275 diff changeset	3099	/*
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3100	* POSIX errnos - these should be defined
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3101	*/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3102	#ifdef EPERM
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3103	if (sym == @symbol(EPERM)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3104	RETURN ( __mkSmallInteger(EPERM) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3105	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3106	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3107
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3108	#ifdef ENOENT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3109	if (sym == @symbol(ENOENT)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3110	RETURN ( __mkSmallInteger(ENOENT) );
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3111	}
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3112	#endif
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3113
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3114	#ifdef ESRCH
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3115	if (sym == @symbol(ESRCH)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3116	RETURN ( __mkSmallInteger(ESRCH) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3117	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3118	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3119
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3120	#ifdef EINTR
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3121	if (sym == @symbol(EINTR)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3122	RETURN ( __mkSmallInteger(EINTR) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3123	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3124	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3125
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3126	#ifdef EIO
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3127	if (sym == @symbol(EIO)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3128	RETURN ( __mkSmallInteger(EIO) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3129	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3130	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3131
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3132	#ifdef ENXIO
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3133	if (sym == @symbol(ENXIO)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3134	RETURN ( __mkSmallInteger(ENXIO) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3135	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3136	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3137
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3138	#ifdef E2BIG
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3139	if (sym == @symbol(E2BIG)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3140	RETURN ( __mkSmallInteger(E2BIG) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3141	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3142	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3143
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3144	#ifdef ENOEXEC
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3145	if (sym == @symbol(ENOEXEC)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3146	RETURN ( __mkSmallInteger(ENOEXEC) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3147	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3148	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3149
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3150	#ifdef EBADF
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3151	if (sym == @symbol(EBADF)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3152	RETURN ( __mkSmallInteger(EBADF) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3153	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3154	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3155
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3156	#ifdef ECHILD
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3157	if (sym == @symbol(ECHILD)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3158	RETURN ( __mkSmallInteger(ECHILD) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3159	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3160	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3161
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3162	#if defined(EAGAIN)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3163	if (sym == @symbol(EAGAIN)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3164	RETURN ( __mkSmallInteger(EAGAIN) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3165	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3166	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3167
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3168	#ifdef ENOMEM
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3169	if (sym == @symbol(ENOMEM)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3170	RETURN ( __mkSmallInteger(ENOMEM) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3171	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3172	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3173
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3174	#ifdef EACCES
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3175	if (sym == @symbol(EACCES)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3176	RETURN ( __mkSmallInteger(EACCES) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3177	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3178	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3179
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3180	#ifdef EFAULT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3181	if (sym == @symbol(EFAULT)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3182	RETURN ( __mkSmallInteger(EFAULT) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3183	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3184	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3185
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3186	#ifdef EBUSY
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3187	if (sym == @symbol(EBUSY)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3188	RETURN ( __mkSmallInteger(EBUSY) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3189	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3190	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3191
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3192	#ifdef EXDEV
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3193	if (sym == @symbol(EXDEV)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3194	RETURN ( __mkSmallInteger(EXDEV) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3195	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3196	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3197
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3198	#ifdef ENODEV
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3199	if (sym == @symbol(ENODEV)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3200	RETURN ( __mkSmallInteger(ENODEV) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3201	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3202	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3203
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3204	#ifdef ENOTDIR
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3205	if (sym == @symbol(ENOTDIR)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3206	RETURN ( __mkSmallInteger(ENOTDIR) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3207	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3208	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3209
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3210	#ifdef EISDIR
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3211	if (sym == @symbol(EISDIR)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3212	RETURN ( __mkSmallInteger(EISDIR) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3213	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3214	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3215
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3216	#ifdef EINVAL
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3217	if (sym == @symbol(EINVAL)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3218	RETURN ( __mkSmallInteger(EINVAL) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3219	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3220	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3221
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3222	#ifdef ENFILE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3223	if (sym == @symbol(ENFILE)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3224	RETURN ( __mkSmallInteger(ENFILE) );
5133 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	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3227
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3228	#ifdef EMFILE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3229	if (sym == @symbol(EMFILE)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3230	RETURN ( __mkSmallInteger(EMFILE) );
5133 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	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3233
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3234	#ifdef ENOTTY
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3235	if (sym == @symbol(ENOTTY)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3236	RETURN ( __mkSmallInteger(ENOTTY) );
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	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3239
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3240	#ifdef EFBIG
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3241	if (sym == @symbol(EFBIG)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3242	RETURN ( __mkSmallInteger(EFBIG) );
5133 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	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3245
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3246	#ifdef ENOSPC
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3247	if (sym == @symbol(ENOSPC)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3248	RETURN ( __mkSmallInteger(ENOSPC) );
5133 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	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3251
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3252	#ifdef ESPIPE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3253	if (sym == @symbol(ESPIPE)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3254	RETURN ( __mkSmallInteger(ESPIPE) );
5133 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	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3257
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3258	#ifdef EROFS
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3259	if (sym == @symbol(EROFS)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3260	RETURN ( __mkSmallInteger(EROFS) );
5133 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	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3263
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3264	#ifdef EMLINK
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3265	if (sym == @symbol(EMLINK)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3266	RETURN ( __mkSmallInteger(EMLINK) );
5133 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	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3269
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3270	#ifdef EPIPE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3271	if (sym == @symbol(EPIPE)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3272	RETURN ( __mkSmallInteger(EPIPE) );
5133 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	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3275
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3276	#ifdef EDOM
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3277	if (sym == @symbol(EDOM)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3278	RETURN ( __mkSmallInteger(EDOM) );
5133 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	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3281
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3282	#ifdef ERANGE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3283	if (sym == @symbol(ERANGE)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3284	RETURN ( __mkSmallInteger(ERANGE) );
5133 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	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3287
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3288	#ifdef EDEADLK
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3289	if (sym == @symbol(EDEADLK)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3290	RETURN ( __mkSmallInteger(EDEADLK) );
5133 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	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3293
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3294	#ifdef ENAMETOOLONG
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3295	if (sym == @symbol(ENAMETOOLONG)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3296	RETURN ( __mkSmallInteger(ENAMETOOLONG) );
5133 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	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3299
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3300	#ifdef ENOLCK
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3301	if (sym == @symbol(ENOLCK)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3302	RETURN ( __mkSmallInteger(ENOLCK) );
5133 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	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3305
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3306	#ifdef ENOSYS
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3307	if (sym == @symbol(ENOSYS)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3308	RETURN ( __mkSmallInteger(ENOSYS) );
5133 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	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3311
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3312	#ifdef ENOTEMPTY
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3313	if (sym == @symbol(ENOTEMPTY)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3314	RETURN ( __mkSmallInteger(ENOTEMPTY) );
5133 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	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3317
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3318	#ifdef EEXIST
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3319	if (sym == @symbol(EEXIST)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3320	RETURN ( __mkSmallInteger(EEXIST) );
5133 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	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3323
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3324	#ifdef EILSEQ
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3325	if (sym == @symbol(EILSEQ)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3326	RETURN ( __mkSmallInteger(EILSEQ) );
5133 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	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3329
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3330	/*
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3331	* XPG3 errnos - defined on most systems
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3332	*/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3333	#ifdef ENOTBLK
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3334	if (sym == @symbol(ENOTBLK)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3335	RETURN ( __mkSmallInteger(ENOTBLK) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3336	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3337	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3338
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3339	#ifdef ETXTBSY
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3340	if (sym == @symbol(ETXTBSY)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3341	RETURN ( __mkSmallInteger(ETXTBSY) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3342	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3343	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3344
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	* some others
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3347	*/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3348	#ifdef EWOULDBLOCK
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3349	if (sym == @symbol(EWOULDBLOCK)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3350	RETURN ( __mkSmallInteger(EWOULDBLOCK) );
5133 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	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3353
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3354	#ifdef ENOMSG
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3355	if (sym == @symbol(ENOMSG)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3356	RETURN ( __mkSmallInteger(ENOMSG) );
5133 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	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3359
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3360	#ifdef ELOOP
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3361	if (sym == @symbol(ELOOP)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3362	RETURN ( __mkSmallInteger(ELOOP) );
5133 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	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3365
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3366	/*
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3367	* some stream errors
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3368	*/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3369	#ifdef ETIME
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3370	if (sym == @symbol(ETIME)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3371	RETURN ( __mkSmallInteger(ETIME) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3372	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3373	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3374
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3375	#ifdef ENOSR
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3376	if (sym == @symbol(ENOSR)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3377	RETURN ( __mkSmallInteger(ENOSR) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3378	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3379	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3380
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3381	#ifdef ENOSTR
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3382	if (sym == @symbol(ENOSTR)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3383	RETURN ( __mkSmallInteger(ENOSTR) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3384	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3385	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3386
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3387	#ifdef ECOMM
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3388	if (sym == @symbol(ECOMM)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3389	RETURN ( __mkSmallInteger(ECOMM) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3390	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3391	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3392
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3393	#ifdef EPROTO
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3394	if (sym == @symbol(EPROTO)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3395	RETURN ( __mkSmallInteger(EPROTO) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3396	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3397	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3398
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	* nfs errors
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3401	*/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3402	#ifdef ESTALE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3403	if (sym == @symbol(ESTALE)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3404	RETURN ( __mkSmallInteger(ESTALE) );
5133 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	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3407
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3408	#ifdef EREMOTE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3409	if (sym == @symbol(EREMOTE)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3410	RETURN ( __mkSmallInteger(EREMOTE) );
5133 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	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3413
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3414	/*
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3415	* some networking errors
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3416	*/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3417	#ifdef EINPROGRESS
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3418	if (sym == @symbol(EINPROGRESS)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3419	RETURN ( __mkSmallInteger(EINPROGRESS) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3420	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3421	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3422
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3423	#ifdef EALREADY
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3424	if (sym == @symbol(EALREADY)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3425	RETURN ( __mkSmallInteger(EALREADY) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3426	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3427	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3428
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3429	#ifdef ENOTSOCK
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3430	if (sym == @symbol(ENOTSOCK)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3431	RETURN ( __mkSmallInteger(ENOTSOCK) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3432	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3433	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3434
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3435	#ifdef EDESTADDRREQ
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3436	if (sym == @symbol(EDESTADDRREQ)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3437	RETURN ( __mkSmallInteger(EDESTADDRREQ) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3438	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3439	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3440
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3441	#ifdef EMSGSIZE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3442	if (sym == @symbol(EMSGSIZE)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3443	RETURN ( __mkSmallInteger(EMSGSIZE) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3444	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3445	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3446
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3447	#ifdef EPROTOTYPE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3448	if (sym == @symbol(EPROTOTYPE)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3449	RETURN ( __mkSmallInteger(EPROTOTYPE) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3450	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3451	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3452
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3453	#ifdef ENOPROTOOPT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3454	if (sym == @symbol(ENOPROTOOPT)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3455	RETURN ( __mkSmallInteger(ENOPROTOOPT) );
5133 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	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3458
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3459	#ifdef EPROTONOSUPPORT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3460	if (sym == @symbol(EPROTONOSUPPORT)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3461	RETURN ( __mkSmallInteger(EPROTONOSUPPORT) );
5133 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	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3464
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3465	#ifdef ESOCKTNOSUPPORT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3466	if (sym == @symbol(ESOCKTNOSUPPORT)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3467	RETURN ( __mkSmallInteger(ESOCKTNOSUPPORT) );
5133 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	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3470
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3471	#ifdef EOPNOTSUPP
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3472	if (sym == @symbol(EOPNOTSUPP)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3473	RETURN ( __mkSmallInteger(EOPNOTSUPP) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3474	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3475	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3476
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3477	#ifdef EPFNOSUPPORT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3478	if (sym == @symbol(EPFNOSUPPORT)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3479	RETURN ( __mkSmallInteger(EPFNOSUPPORT) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3480	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3481	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3482
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3483	#ifdef EAFNOSUPPORT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3484	if (sym == @symbol(EAFNOSUPPORT)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3485	RETURN ( __mkSmallInteger(EAFNOSUPPORT) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3486	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3487	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3488
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3489	#ifdef EADDRINUSE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3490	if (sym == @symbol(EADDRINUSE)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3491	RETURN ( __mkSmallInteger(EADDRINUSE) );
5133 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	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3494
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3495	#ifdef EADDRNOTAVAIL
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3496	if (sym == @symbol(EADDRNOTAVAIL)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3497	RETURN ( __mkSmallInteger(EADDRNOTAVAIL) );
5133 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	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3500
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3501	#ifdef ETIMEDOUT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3502	if (sym == @symbol(ETIMEDOUT)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3503	RETURN ( __mkSmallInteger(ETIMEDOUT) );
18954 813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	3504	}
813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	3505	#endif
813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	3506	#ifdef WSAETIMEDOUT
813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	3507	if (sym == @symbol(ETIMEDOUT)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3508	RETURN ( __mkSmallInteger(WSAETIMEDOUT) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3509	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3510	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3511
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3512	#ifdef ECONNREFUSED
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3513	if (sym == @symbol(ECONNREFUSED)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3514	RETURN ( __mkSmallInteger(ECONNREFUSED) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3515	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3516	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3517
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3518	#ifdef ENETDOWN
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3519	if (sym == @symbol(ENETDOWN)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3520	RETURN ( __mkSmallInteger(ENETDOWN) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3521	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3522	#endif
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	#ifdef ENETUNREACH
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3525	if (sym == @symbol(ENETUNREACH)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3526	RETURN ( __mkSmallInteger(ENETUNREACH) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3527	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3528	#endif
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	#ifdef ENETRESET
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3531	if (sym == @symbol(ENETRESET)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3532	RETURN ( __mkSmallInteger(ENETRESET) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3533	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3534	#endif
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	#ifdef ECONNABORTED
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3537	if (sym == @symbol(ECONNABORTED)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3538	RETURN ( __mkSmallInteger(ECONNABORTED) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3539	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3540	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3541
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3542	#ifdef ECONNRESET
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3543	if (sym == @symbol(ECONNRESET)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3544	RETURN ( __mkSmallInteger(ECONNRESET) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3545	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3546	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3547
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3548	#ifdef EISCONN
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3549	if (sym == @symbol(EISCONN)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3550	RETURN ( __mkSmallInteger(EISCONN) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3551	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3552	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3553
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3554	#ifdef ENOTCONN
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3555	if (sym == @symbol(ENOTCONN)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3556	RETURN ( __mkSmallInteger(ENOTCONN) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3557	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3558	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3559
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3560	#ifdef ESHUTDOWN
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3561	if (sym == @symbol(ESHUTDOWN)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3562	RETURN ( __mkSmallInteger(ESHUTDOWN) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3563	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3564	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3565
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3566	#ifdef EHOSTDOWN
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3567	if (sym == @symbol(EHOSTDOWN)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3568	RETURN ( __mkSmallInteger(EHOSTDOWN) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3569	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3570	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3571
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3572	#ifdef EHOSTUNREACH
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3573	if (sym == @symbol(EHOSTUNREACH)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3574	RETURN ( __mkSmallInteger(EHOSTUNREACH) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3575	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3576	#endif
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3577	/*
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3578	* windows socket errors
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3579	*/
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3580	#ifdef WSAEINTR
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3581	if (sym == @symbol(WSAEINTR)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3582	RETURN ( __mkSmallInteger(WSAEINTR) );
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3583	}
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3584	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3585	#ifdef WSAEBADF
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3586	if (sym == @symbol(WSAEBADF)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3587	RETURN ( __mkSmallInteger(WSAEBADF) );
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3588	}
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3589	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3590	#ifdef WSAEACCESS
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3591	if (sym == @symbol(WSAEACCESS)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3592	RETURN ( __mkSmallInteger(WSAEACCESS) );
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3593	}
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3594	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3595	#ifdef WSAEFAULT
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3596	if (sym == @symbol(WSAEFAULT)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3597	RETURN ( __mkSmallInteger(WSAEFAULT) );
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3598	}
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3599	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3600	#ifdef WSAEINVAL
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3601	if (sym == @symbol(WSAEINVAL)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3602	RETURN ( __mkSmallInteger(WSAEINVAL) );
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3603	}
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3604	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3605	#ifdef WSAEMFILE
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3606	if (sym == @symbol(WSAEMFILE)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3607	RETURN ( __mkSmallInteger(WSAEMFILE) );
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3608	}
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3609	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3610	#ifdef WSAEWOULDBLOCK
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3611	if (sym == @symbol(WSAEWOULDBLOCK)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3612	RETURN ( __mkSmallInteger(WSAEWOULDBLOCK) );
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3613	}
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3614	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3615	#ifdef WSAEINPROGRESS
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3616	if (sym == @symbol(WSAEINPROGRESS)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3617	RETURN ( __mkSmallInteger(WSAEINPROGRESS) );
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3618	}
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3619	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3620	#ifdef WSAEALREADY
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3621	if (sym == @symbol(WSAEALREADY)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3622	RETURN ( __mkSmallInteger(WSAEALREADY) );
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3623	}
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3624	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3625	#ifdef WSAENOTSOCK
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3626	if (sym == @symbol(WSAENOTSOCK)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3627	RETURN ( __mkSmallInteger(WSAENOTSOCK) );
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3628	}
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3629	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3630	#ifdef WSAEPROTONOSUPPORT
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3631	if (sym == @symbol(WSAEPROTONOSUPPORT)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3632	RETURN ( __mkSmallInteger(WSAEPROTONOSUPPORT) );
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3633	}
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3634	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3635	#ifdef WSAESOCKTNOSUPPORT
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3636	if (sym == @symbol(WSAESOCKTNOSUPPORT)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3637	RETURN ( __mkSmallInteger(WSAESOCKTNOSUPPORT) );
9166 242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3638	}
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3639	#endif
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3640	#ifdef E_NOINTERFACE
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3641	if (sym == @symbol(E_NOINTERFACE)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3642	RETURN ( __MKUINT(E_NOINTERFACE) );
9166 242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3643	}
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3644	#endif
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3645	#ifdef CO_E_NOTINITIALIZED
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3646	if (sym == @symbol(CO_E_NOTINITIALIZED)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3647	RETURN ( __MKUINT(CO_E_NOTINITIALIZED) );
9166 242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3648	}
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3649	#endif
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3650	#ifdef REGDB_E_CLASSNOTREG
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3651	if (sym == @symbol(REGDB_E_CLASSNOTREG)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3652	RETURN ( __MKUINT(REGDB_E_CLASSNOTREG) );
9166 242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3653	}
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3654	#endif
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3655	#ifdef CLASS_E_NOAGGREGATION
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3656	if (sym == @symbol(CLASS_E_NOAGGREGATION)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3657	RETURN ( __MKUINT(CLASS_E_NOAGGREGATION) );
9166 242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3658	}
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3659	#endif
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3660	#ifdef DISP_E_UNKNOWNNAME
242137be8531 com Claus Gittinger <cg@exept.de> parents: 9156 diff changeset	3661	if (sym == @symbol(DISP_E_UNKNOWNNAME)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3662	RETURN ( __MKUINT(DISP_E_UNKNOWNNAME) );
9181 90f5b5e63cb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9177 diff changeset	3663	}
90f5b5e63cb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9177 diff changeset	3664	#endif
90f5b5e63cb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9177 diff changeset	3665	#ifdef OLEOBJ_E_NOVERBS
90f5b5e63cb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 9177 diff changeset	3666	if (sym == @symbol(OLEOBJ_E_NOVERBS)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	3667	RETURN ( __MKUINT(OLEOBJ_E_NOVERBS) );
8780 e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3668	}
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3669	#endif
e86dbfe09278 WSA error codes Claus Gittinger <cg@exept.de> parents: 8763 diff changeset	3670
5133 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	^ -1
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3673	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3674
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3675	!Win32OperatingSystem class methodsFor:'executing OS commands'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3676
7066 c1df8100c4ad canExecuteCommand fixed penk parents: 7065 diff changeset	3677	canExecuteCommand:aCommandString
c1df8100c4ad canExecuteCommand fixed penk parents: 7065 diff changeset	3678	"return true, if the OS can execute aCommand."
c1df8100c4ad canExecuteCommand fixed penk parents: 7065 diff changeset	3679
8800 b1762fb45942 canExecuteCommand fixed Claus Gittinger <cg@exept.de> parents: 8792 diff changeset	3680	"/ \|fn\|
b1762fb45942 canExecuteCommand fixed Claus Gittinger <cg@exept.de> parents: 8792 diff changeset	3681	"/
b1762fb45942 canExecuteCommand fixed Claus Gittinger <cg@exept.de> parents: 8792 diff changeset	3682	"/ fn := aCommandString asFilename.
b1762fb45942 canExecuteCommand fixed Claus Gittinger <cg@exept.de> parents: 8792 diff changeset	3683	"/ ( #('com' 'exe') includes:fn suffix) ifFalse:[^ false].
7066 c1df8100c4ad canExecuteCommand fixed penk parents: 7065 diff changeset	3684	^ super canExecuteCommand:aCommandString
c1df8100c4ad canExecuteCommand fixed penk parents: 7065 diff changeset	3685
c1df8100c4ad canExecuteCommand fixed penk parents: 7065 diff changeset	3686	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	3687	OperatingSystem canExecuteCommand:'fooBar'
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	3688	OperatingSystem canExecuteCommand:'ls'
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	3689	OperatingSystem canExecuteCommand:'cvs'
8843 373303414c54 * empty log message * Claus Gittinger <cg@exept.de> parents: 8800 diff changeset	3690	OperatingSystem canExecuteCommand:'diff'
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	3691	OperatingSystem canExecuteCommand:'cvs.exe'
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	3692	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	3693	OperatingSystem canExecuteCommand:'C:\Windows\cvs.exe'
11920 4d2ef58645de compilable with VC9.0 Claus Gittinger <cg@exept.de> parents: 11842 diff changeset	3694	OperatingSystem canExecuteCommand:'C:\Windows\system32\mspaint.exe'
7066 c1df8100c4ad canExecuteCommand fixed penk parents: 7065 diff changeset	3695	"
c1df8100c4ad canExecuteCommand fixed penk parents: 7065 diff changeset	3696
c1df8100c4ad canExecuteCommand fixed penk parents: 7065 diff changeset	3697	"Created: 4.11.1995 / 19:13:54 / cg"
c1df8100c4ad canExecuteCommand fixed penk parents: 7065 diff changeset	3698	!
c1df8100c4ad canExecuteCommand fixed penk parents: 7065 diff changeset	3699
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3700	commandAndArgsForOSCommand:aCommandString
17521 d6bc616e4dba class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17286 diff changeset	3701	"get a shell and shell arguments for command execution.
d6bc616e4dba class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17286 diff changeset	3702	If aCommandString is a String, the commandString is passed to a shell for execution
20531 000ea6870da3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20434 diff changeset	3703	- see the description of 'sh -c' in your UNIX manual ('cmd.exe' in your Windows manual).
17521 d6bc616e4dba class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17286 diff changeset	3704	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	3705	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	3706	Answer am Array with the command string as the first element,
000ea6870da3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20434 diff changeset	3707	the arguments (a String) as second element,
000ea6870da3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20434 diff changeset	3708	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	3709	as third element."
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3710
20559 2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3711	\|shell args wDir cmdName path\|
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3712
17521 d6bc616e4dba class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17286 diff changeset	3713	aCommandString isNonByteCollection ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3714	"easy: the caller does not want a shell to be executed"
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3715	^ Array with:aCommandString first with:(aCommandString asStringWith:' ') with:nil.
17521 d6bc616e4dba class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17286 diff changeset	3716	].
d6bc616e4dba class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17286 diff changeset	3717
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3718	"/
20559 2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3719	"/ 'x:\WINDOWS\System32\cmd /c <command>'
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3720	"/ or 'x:\WINDOWS\System\cmd /c <command>'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3721	"/ or whatever ...
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3722	"/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3723
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	3724	"/ to workaround a bug in win95's command.com
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	3725	"/ (which always returns a 0-exit code
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3726	"/ - even if the command failed),
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3727	"/ 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	3728	"/ call it directly if found.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3729	"/ If not found, assume its a builtIn or batch command
20559 2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3730	"/ and pass it to cmd.exe.
2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3731	"/ Also use cmd.exe, if any I/O redirection is
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3732	"/ involved, since that is (not yet) handled here.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3733	"/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3734	"/ I know: this is a kludge but should work for now...
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3735	"/ ...this will change in an upcoming version to include
20559 2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3736	"/ cmd.exe command-line parsing here (sigh).
2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3737
2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3738	cmdName := (aCommandString ? '') withoutSeparators.
2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3739
2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3740	(cmdName isEmpty or:[cmdName includesAny:'<>\|']) ifFalse:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3741	"/ test whether the command is a plain executable;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3742	"/ if so, no shell is required
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3743	\|index file suffix\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3744
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3745	index := cmdName indexOfSeparatorStartingAt:1.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3746	index ~~ 0 ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3747	cmdName := cmdName copyFrom:1 to:(index-1).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3748	args := cmdName copyFrom:(index+1).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3749	] ifFalse:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3750	args := ''.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3751	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3752
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3753	(cmdName first = $" and:[cmdName last = $"]) ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3754	cmdName := (cmdName copyFrom:2 to:cmdName size - 1) withoutSeparators.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3755	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3756	file := cmdName asFilename.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3757	file suffix isEmpty ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3758	file := file withSuffix:'exe'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3759	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3760	path := file fullAlternativePathName.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3761	(OperatingSystem getBinaryType:path) notNil ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3762	"/ is an executable, no shell required
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3763	^ Array with:path with:aCommandString with:nil.
11831 71349fc71208 Fix #executeCommand: Stefan Vogel <sv@exept.de> parents: 11811 diff changeset	3764	"/ ^ Array with:path with:(path, ' ', args).
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3765	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3766	path := self pathOfCommand:cmdName.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3767	(path notNil and:[(OperatingSystem getBinaryType:path) notNil]) ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3768	"/ is an executable, no shell required
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3769	^ Array with:path with:aCommandString with:nil.
11831 71349fc71208 Fix #executeCommand: Stefan Vogel <sv@exept.de> parents: 11811 diff changeset	3770	"/ ^ Array with:path with:(path, ' ', args).
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3771	].
11831 71349fc71208 Fix #executeCommand: Stefan Vogel <sv@exept.de> parents: 11811 diff changeset	3772	].
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3773
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3774	shell := self getEnvironment:'COMSPEC'.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3775	shell isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3776	wDir := self getWindowsSystemDirectory asFilename.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3777	shell := #('cmd.exe' 'command.com') detect:[:eachCommand\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3778	(wDir / eachCommand) isExecutableProgram
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3779	] ifNone:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3780	self error:'no cmd.exe available'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3781	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3782	shell := (wDir / shell) pathName.
20559 2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3783	].
2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3784
2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3785	cmdName isEmpty ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3786	^ Array with:shell with:nil with:nil.
20531 000ea6870da3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20434 diff changeset	3787	].
000ea6870da3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20434 diff changeset	3788
000ea6870da3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20434 diff changeset	3789	^ Array with:shell with:(' /c "' , aCommandString, '"') with:false.
11831 71349fc71208 Fix #executeCommand: Stefan Vogel <sv@exept.de> parents: 11811 diff changeset	3790
71349fc71208 Fix #executeCommand: Stefan Vogel <sv@exept.de> parents: 11811 diff changeset	3791	"
20559 2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3792	self commandAndArgsForOSCommand:''
2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3793	self commandAndArgsForOSCommand:'%ProgramFiles%\notepad++\notepad++.exe'
11831 71349fc71208 Fix #executeCommand: Stefan Vogel <sv@exept.de> parents: 11811 diff changeset	3794	self commandAndArgsForOSCommand:'diff'
20559 2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3795	self commandAndArgsForOSCommand:'diff.exe'
11831 71349fc71208 Fix #executeCommand: Stefan Vogel <sv@exept.de> parents: 11811 diff changeset	3796	self commandAndArgsForOSCommand:'dir/w'
20559 2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3797	self commandAndArgsForOSCommand:'diff >nul:'
2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3798	self commandAndArgsForOSCommand:'diff /bla'
11831 71349fc71208 Fix #executeCommand: Stefan Vogel <sv@exept.de> parents: 11811 diff changeset	3799	"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3800
8349 b87b90e6d15a com-command generation (d-quotes in command-arg string) Claus Gittinger <cg@exept.de> parents: 8348 diff changeset	3801	"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	3802	"Modified: / 11-02-2007 / 20:51:08 / cg"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3803	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3804
23097 d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3805	exec:commandPath withArguments:argumentsOrCommandLine environment:environment fileDescriptors:fdArray fork:doFork
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3806	newPgrp:newPgrp inDirectory:aDirectory
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3807	showWindow:showWindowBooleanOrNil
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3808
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3809	"Internal lowLevel entry for combined fork & exec for WIN32
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3810
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3811	If fork is false (chain a command):
23097 d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3812	execute the OS command specified by the argument, aCommandPath, with
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3813	arguments in argArray (no arguments, if nil).
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3814	If successful, this method does not return and smalltalk is gone.
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3815	If not successful, it does return.
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3816	Normal use is with forkForCommand.
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3817
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3818	If fork is true (subprocess command execution):
23097 d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3819	fork a child to do the above.
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3820	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	3821
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3822	fdArray contains the filedescriptors, to be used for the child (if fork is true).
23097 d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3823	fdArray[1] = 15 -> use fd 15 as stdin.
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3824	If an element of the array is set to nil, the corresponding filedescriptor
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3825	will be closed for the child.
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3826	fdArray[0] == StdIn for child
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3827	fdArray[1] == StdOut for child
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3828	fdArray[2] == StdErr for child
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3829
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3830	NOTE that in WIN32 the fds are HANDLES.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3831
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3832	If newPgrp is true, the subprocess will be established in a new process group.
23097 d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3833	The processgroup will be equal to id.
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3834	newPgrp is not used on WIN32 and VMS systems.
20364 190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	3835
190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	3836	showWindowOrBoolean may be:
23097 d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3837	true - a window is shown on start of the command
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3838	false - the command window is hidden
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3839	nil - the nCmdShown parameter of the commans's winmain function determins,
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3840	if a window is shown.
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3841	#default
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3842	- same as nil
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3843	"
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3844
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3845	\|commandLine dirPath rslt\|
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3846
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3847	argumentsOrCommandLine isString ifTrue:[
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3848	commandLine := argumentsOrCommandLine
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3849	] ifFalse:[
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3850	argumentsOrCommandLine isSequenceable ifTrue:[
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3851	commandLine := String streamContents:[:s\|
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3852	argumentsOrCommandLine
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3853	do:[:p \|self quoteCommandParameter: p on: s]
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3854	separatedBy:[ s space ]
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3855	].
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3856	].
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3857	].
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3858	aDirectory notNil ifTrue:[
23097 d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3859	dirPath := aDirectory asFilename asAbsoluteFilename osNameForDirectory.
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3860	(dirPath endsWith:':') ifTrue:[
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3861	dirPath := dirPath , '\'.
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3862	].
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3863	].
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3864
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3865	rslt := self
23097 d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3866	primExec:commandPath
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3867	commandLine:commandLine
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3868	environment:environment
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3869	fileDescriptors:fdArray
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3870	fork:doFork
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3871	newPgrp:newPgrp
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3872	inPath:dirPath
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3873	createFlags:nil
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3874	inheritHandles:true
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3875	showWindow:showWindowBooleanOrNil.
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3876
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3877	"/ 'created ' print. cmdLine print. ' -> ' print. rslt printCR.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3878	^ rslt
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3879
20677 e3fe2f476abb #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20591 diff changeset	3880	"Modified: / 31-01-1998 / 10:54:24 / md"
e3fe2f476abb #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20591 diff changeset	3881	"Modified: / 15-05-1999 / 18:07:51 / cg"
e3fe2f476abb #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20591 diff changeset	3882	"Modified (comment): / 18-10-2016 / 16:00:26 / cg"
23097 d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	3883	"Modified: / 11-01-2018 / 23:31:55 / jv"
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3884	!
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	3885
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3886	getStatusOfProcess:aProcessId
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3887	"wait for a process to terminate and fetch its exit status.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3888	This is required to avoid zombie processes."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3889
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3890	%{
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3891	DWORD endStatus;
14782 31a237b7cfda * empty log message * Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	3892	INT status = -1;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3893
7662 32a1185158f3 process handles Claus Gittinger <cg@exept.de> parents: 7645 diff changeset	3894	if (__isExternalAddressLike(aProcessId)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3895	HANDLE handle = _HANDLEVal(aProcessId);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3896	if (handle) {
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3897	#ifdef DO_WRAP_CALLS
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3898	do {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3899	__threadErrno = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3900	endStatus = (INT)STX_API_CALL2( "WaitForSingleObject", WaitForSingleObject, handle, INFINITE);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3901	} while ((endStatus < 0) && (__threadErrno == EINTR));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3902	#else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3903	endStatus = (INT)WaitForSingleObject(handle , INFINITE);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3904	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3905	if (endStatus != WAIT_FAILED) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3906	if (GetExitCodeProcess(handle,&endStatus)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3907	status = endStatus;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3908	#ifdef PROCESSDEBUGWIN32
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3909	if (flag_PROCESSDEBUGWIN32) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3910	console_fprintf(stderr, "getexitcode status = %d\n",status);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3911	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3912	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3913	if (flag_PROCESSDEBUGWIN32) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3914	console_fprintf(stderr, "getexitcode failed.\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3915	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3916	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3917	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3918	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3919	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	3920	RETURN ( __mkSmallInteger(status));
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3921	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3922	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3923	self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3924	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3925
23614 1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3926	pathOfCommand:aString
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3927	"find where aCommand's executable file is;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3928	return its full pathName if there is such a command, otherwise
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3929	return nil."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3930
23614 1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3931	\|path ext search rentry\|
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3932
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3933	(aString includes: Filename separator) ifTrue:[
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3934	"/ If `aString` contains path separator, it is either
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3935	"/ relative or absolute path. In that case:
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3936	"/ * first check whether there's file named `aString`.
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3937	"/ * second, if `aString` has no extension, try same name with
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3938	"/ all executable file extensions.
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3939	"/ If anything is found, return the absolute path.
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3940	path := aString asFilename.
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3941	ext := path suffix.
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3942	ext isEmptyOrNil ifTrue:[
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3943	self executableFileExtensions do:[:e \|
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3944	path := path withSuffix: e.
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3945	(path exists and:[ path isRegularFile ]) ifTrue:[
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3946	^ path asAbsoluteFilename pathName.
18524 7e73863917ff Fixed Win32OperatingSystem>>pathOfCommand: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18520 diff changeset	3947	].
23614 1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3948	].
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3949	] ifFalse:[
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3950	(self executableFileExtensions includes: ext) ifTrue:[
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3951	(path exists and:[ path isRegularFile ]) ifTrue:[
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3952	^ path asAbsoluteFilename pathName.
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3953	].
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3954	].
18524 7e73863917ff Fixed Win32OperatingSystem>>pathOfCommand: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18520 diff changeset	3955	].
23614 1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3956	] ifFalse:[
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3957	"/ If it does not contain path separator, then it's
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3958	"/ 'simple' command name that is to be looked up in PATH.
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3959
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3960	"/ First, construct the PATH.
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3961
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3962	"/ Start with current working directory..."
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3963	search := Array with: Filename currentDirectory.
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3964
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3965	"/ ...then add all directories in PATH environment variable...
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3966	search := search , (((self getEnvironment:'PATH') ? '') splitBy: $;).
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3967
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3968	"/ ...and finally get PATH from registry."
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3969	(rentry := self registryEntry key: 'HKEY_CURRENT_USER\Environment') notNil ifTrue:[
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3970	search := search , (((rentry valueNamed: 'PATH') ? '') splitBy: $;).
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3971	].
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3972
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3973	"/ Second, search each directory for given command:
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3974	search do:[:directoryName \|
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3975	\| directory \|
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3976
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3977	directory := directoryName asFilename.
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3978	(directory isAbsolute and:[ directory isDirectory ]) ifTrue:[
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3979	"/ If such directory exists, construct the program name
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3980	"/ as if it were in that `directory` and see if it is.
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3981
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3982	"/ This is a trick: we call this method recursively passing
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3983	"/ an ABSOLUTE path so it would fall into code in first part of
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3984	"/ this method. Note the ^ nil there...
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3985	path := self pathOfCommand: (directory pathName , Filename separator , aString).
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3986	"/ ...so if this method returns something, we found it and
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3987	"/ just return it.
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3988	path notNil ifTrue:[ ^ path ].
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3989	].
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3990	].
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3991	].
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3992
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3993	"/ If we reach this point, no such executable was found
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	3994	"/ along the path, so give up and return nil.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3995	^ nil
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3996
20559 2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	3997	"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	3998	OperatingSystem pathOfCommand:'bcc32'
8843 373303414c54 * empty log message * Claus Gittinger <cg@exept.de> parents: 8800 diff changeset	3999	OperatingSystem pathOfCommand:'diff'
23614 1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	4000	OperatingSystem pathOfCommand:'cvs'
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	4001	OperatingSystem pathOfCommand:'cvs.exe'
13954 3ecd17f19f84 changed: #pathOfCommand: Claus Gittinger <cg@exept.de> parents: 13790 diff changeset	4002	OperatingSystem pathOfCommand:'stx.exe'
3ecd17f19f84 changed: #pathOfCommand: Claus Gittinger <cg@exept.de> parents: 13790 diff changeset	4003	OperatingSystem pathOfCommand:'stx'
20559 2352d3ac7b76 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20553 diff changeset	4004	OperatingSystem pathOfCommand:'blaFaselQuall'
13954 3ecd17f19f84 changed: #pathOfCommand: Claus Gittinger <cg@exept.de> parents: 13790 diff changeset	4005	"
3ecd17f19f84 changed: #pathOfCommand: Claus Gittinger <cg@exept.de> parents: 13790 diff changeset	4006
13956 80a50d0484fb changed: #pathOfCommand: Claus Gittinger <cg@exept.de> parents: 13954 diff changeset	4007	"Modified: / 20-01-2012 / 13:32:55 / cg"
18524 7e73863917ff Fixed Win32OperatingSystem>>pathOfCommand: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18520 diff changeset	4008	"Modified: / 01-07-2015 / 06:04:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
23614 1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	4009	"Modified: / 18-01-2019 / 11:46:23 / jv"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4010	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4011
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4012	primExec:commandPath commandLine:commandLine environment:environmentOrNil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4013	fileDescriptors:fdArray fork:doFork newPgrp:newPgrp
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4014	inPath:dirName createFlags:flagsOrNil inheritHandles:inheritHandles
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4015	showWindow:showWindowBooleanOrNil
20364 190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	4016	"Internal lowLevel entry for combined fork & exec for WIN32
190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	4017
190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	4018	showWindowBooleanOrNil may be:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4019	true - a window is shown on start of the command
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4020	false - the command window is hidden
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4021	nil - the nCmdShown parameter of the commans's winmain function determins,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4022	if a window is shown.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4023	#default
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4024	- same as nil
20969 c6f6a1630c1c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20968 diff changeset	4025	"
c6f6a1630c1c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20968 diff changeset	4026
c6f6a1630c1c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20968 diff changeset	4027	\|handle commandPathUni16 commandLineUni16 dirNameUni16 envString16\|
7645 fd98d4cfa617 terminateProcess and closePid are now two separate operations. Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	4028
fd98d4cfa617 terminateProcess and closePid are now two separate operations. Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	4029	handle := Win32ProcessHandle new.
19651 59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	4030
19578 65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4031	commandPathUni16 := commandPath.
65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4032	commandLineUni16 := commandLine.
65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4033	dirNameUni16 := dirName.
65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4034
65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4035	commandPathUni16 notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4036	commandPathUni16 := commandPathUni16 asUnicode16String.
19578 65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4037	].
65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4038	commandLineUni16 notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4039	commandLineUni16 := commandLineUni16 asUnicode16String.
19578 65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4040	].
65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4041	dirNameUni16 notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4042	dirNameUni16 := dirNameUni16 asUnicode16String.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4043	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4044	environmentOrNil notNil ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4045	\|newEnv\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4046
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4047	"/ take my current environment; add the definitions given by the argument.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4048	newEnv := Dictionary new
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4049	declareAllFrom:(OperatingSystem getEnvironment);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4050	declareAllFrom:environmentOrNil;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4051	yourself.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4052
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4053	envString16 :=
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4054	Unicode16String streamContents:[:s \|
20975 62d2d6fef117 environment must be sorted Claus Gittinger <cg@exept.de> parents: 20973 diff changeset	4055	newEnv keysSorted do:[:k \|
62d2d6fef117 environment must be sorted Claus Gittinger <cg@exept.de> parents: 20973 diff changeset	4056	s nextPutAll:k; nextPutAll:'='; nextPutAll:(newEnv at:k).
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4057	s nextPut:(Character value:0).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4058	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4059	s nextPut:(Character value:0).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4060	].
20969 c6f6a1630c1c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20968 diff changeset	4061	].
c6f6a1630c1c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20968 diff changeset	4062
c6f6a1630c1c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20968 diff changeset	4063	%{ /* STACK: 32000 */
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4064
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	* if fork is false, chain to another command (not yet supported)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4067	* otherwise, spawn a subprocess and let it execute the command.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4068	* Currently, only the forking version is supported (who chains anyway ?)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4069	*/
19578 65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4070	int i, l; // i -> for iteration, l -> for length
65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4071
19651 59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	4072	/*
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	4073	* CreateProcess supports 32767 characters/bytes including all variables and values
19578 65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4074	* so take a good average for its arguments 4096
65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4075	* ATTENTION this value is also used hardcoded in the following code to check the length
65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4076	*/
65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4077	wchar_t cmdPathW[4096];
65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4078	wchar_t cmdLineW[4096];
19651 59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	4079	wchar_t dirNameW[4096];
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	4080
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	4081	/*
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	4082	* pass pointers to CreateProcess
19578 65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4083	* NULL pointers used to indicate no value
65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4084	* 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	4085	*/
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	4086	wchar_t *cmdPathWP = NULL;
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	4087	wchar_t *cmdLineWP = NULL;
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	4088	wchar_t *dirNameWP = NULL;
20969 c6f6a1630c1c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20968 diff changeset	4089	wchar_t *envWP = NULL;
19578 65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4090
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4091	DWORD fdwCreate = 0;
19578 65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4092	STARTUPINFOW lpsiStartInfo;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4093	PROCESS_INFORMATION lppiProcInfo;
13112 1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4094	SECURITY_ATTRIBUTES securityAttributes;
1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4095	SECURITY_DESCRIPTOR securityDescriptor;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4096
19578 65f1cf4136a7 #BUGFIX by sr sr parents: 19532 diff changeset	4097	if ((__isUnicode16String(commandPathUni16) \|\| (commandPathUni16 == nil)) && __isUnicode16String(commandLineUni16)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4098	HANDLE stdinHandle = NULL;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4099	HANDLE stdoutHandle = NULL;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4100	HANDLE stderrHandle = NULL;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4101	int mustClose_stdinHandle = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4102	int mustClose_stdoutHandle = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4103	int mustClose_stderrHandle = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4104
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4105	/*
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4106	* terminate the multi byte strings
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4107	*/
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4108	// #commandPathUni16
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4109	if (commandPathUni16 != nil) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4110	l = __unicode16StringSize(commandPathUni16);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4111	if (l >= 4096) { // >= need 1 space for terminator
20896 c88fbd0cb367 * empty log message * Claus Gittinger <cg@exept.de> parents: 20677 diff changeset	4112	# ifdef PROCESSDEBUGWIN32
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4113	if (flag_PROCESSDEBUGWIN32) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4114	console_fprintf(stderr, "argument #commandPathUni16 is to long\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4115	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4116	# endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4117	RETURN(nil);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4118	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4119	for (i = 0; i < l; i++) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4120	cmdPathW[i] = __unicode16StringVal(commandPathUni16)[i];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4121	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4122	cmdPathW[i] = 0; // set terminator
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4123	cmdPathWP = &cmdPathW[0];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4124	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4125
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4126	// commandLineUni16
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4127	l = __unicode16StringSize(commandLineUni16);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4128	if (l >= 4096) { // >= need 1 space for terminator
20896 c88fbd0cb367 * empty log message * Claus Gittinger <cg@exept.de> parents: 20677 diff changeset	4129	# ifdef PROCESSDEBUGWIN32
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4130	if (flag_PROCESSDEBUGWIN32) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4131	console_fprintf(stderr, "argument #commandLineUni16 is to long\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4132	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4133	# endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4134	RETURN(nil);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4135	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4136	for (i = 0; i < l; i++) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4137	cmdLineW[i] = __unicode16StringVal(commandLineUni16)[i];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4138	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4139	cmdLineW[i] = 0; // set terminator
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4140	cmdLineWP = &cmdLineW[0];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4141
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4142	// #dirNameUni16
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4143	if (__isUnicode16String(dirNameUni16)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4144	l = __unicode16StringSize(dirNameUni16);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4145	if (l >= 4096) { // >= need 1 space for terminator
20896 c88fbd0cb367 * empty log message * Claus Gittinger <cg@exept.de> parents: 20677 diff changeset	4146	# ifdef PROCESSDEBUGWIN32
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4147	if (flag_PROCESSDEBUGWIN32) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4148	console_fprintf(stderr, "argument #dirNameUni16 is to long\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4149	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4150	# endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4151	RETURN(nil);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4152	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4153	for (i = 0; i < l; i++) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4154	dirNameW[i] = __unicode16StringVal(dirNameUni16)[i];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4155	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4156	dirNameW[i] = 0; // set terminator
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4157	dirNameWP = &dirNameW[0];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4158	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4159
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4160	if (envString16 != nil) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4161	envWP = __unicode16StringVal(envString16);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4162	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4163
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4164	/*
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4165	* create descriptors as req'd
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4166	*/
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4167	memset(&securityAttributes, 0, sizeof(securityAttributes));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4168	securityAttributes.nLength = sizeof(securityAttributes);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4169	securityAttributes.bInheritHandle = (inheritHandles == true) ? TRUE : FALSE;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4170
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4171	InitializeSecurityDescriptor(&securityDescriptor, SECURITY_DESCRIPTOR_REVISION);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4172	SetSecurityDescriptorDacl(&securityDescriptor, -1, 0, 0);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4173
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4174	securityAttributes.lpSecurityDescriptor = &securityDescriptor;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4175
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4176	memset(&lpsiStartInfo, 0, sizeof(lpsiStartInfo));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4177	lpsiStartInfo.cb = sizeof(lpsiStartInfo);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4178	lpsiStartInfo.lpReserved = NULL;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4179	lpsiStartInfo.lpDesktop = NULL;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4180	lpsiStartInfo.lpTitle = NULL;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4181	lpsiStartInfo.dwX = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4182	lpsiStartInfo.dwY = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4183	lpsiStartInfo.dwXSize = 100;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4184	lpsiStartInfo.dwYSize = 100;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4185	lpsiStartInfo.dwXCountChars = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4186	lpsiStartInfo.dwYCountChars = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4187	lpsiStartInfo.dwFillAttribute = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4188	lpsiStartInfo.dwFlags = STARTF_USESTDHANDLES /\| STARTF_USEPOSITION/;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4189	if ((showWindowBooleanOrNil != nil) && (showWindowBooleanOrNil != @symbol(default))) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4190	lpsiStartInfo.dwFlags \|= STARTF_USESHOWWINDOW;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4191	lpsiStartInfo.wShowWindow = showWindowBooleanOrNil == true ? SW_SHOWNORMAL : SW_HIDE;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4192	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4193	lpsiStartInfo.cbReserved2 = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4194	lpsiStartInfo.lpReserved2 = NULL;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4195	lpsiStartInfo.hStdInput = NULL;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4196	lpsiStartInfo.hStdOutput = NULL;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4197	lpsiStartInfo.hStdError = NULL;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4198
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4199	/*
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4200	* set create process flags
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4201	* if the flags arg is nil, use common defaults;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4202	* if non-nil, it must be a positive integer containing the fdwCreate bits.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4203	*/
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4204	if (flagsOrNil != nil) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4205	fdwCreate = __longIntVal(flagsOrNil);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4206	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4207	fdwCreate = CREATE_NEW_CONSOLE; //\|IDLE_PRIORITY_CLASS; // DETACHED_PROCESS; // NORMAL_PRIORITY_CLASS ;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4208	if (newPgrp == true) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4209	fdwCreate \|= CREATE_NEW_PROCESS_GROUP;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4210	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4211	fdwCreate \|= CREATE_DEFAULT_ERROR_MODE;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4212	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4213
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4214	if (fdArray == nil) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4215	stdinHandle = (HANDLE) _get_osfhandle (0);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4216	stdoutHandle = (HANDLE) _get_osfhandle (1);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4217	stderrHandle = (HANDLE) _get_osfhandle (2);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4218	} else if (__isArrayLike(fdArray) && (__arraySize(fdArray) >= 3)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4219	if (__ArrayInstPtr(fdArray)->a_element[0] != nil) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4220	if (__isExternalAddressLike(__ArrayInstPtr(fdArray)->a_element[0])) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4221	stdinHandle = _HANDLEVal(__ArrayInstPtr(fdArray)->a_element[0]);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4222	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4223	stdinHandle = (HANDLE) _get_osfhandle (__intVal(__ArrayInstPtr(fdArray)->a_element[0]));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4224	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4225	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4226	if (__ArrayInstPtr(fdArray)->a_element[1] != nil) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4227	if (__isExternalAddressLike(__ArrayInstPtr(fdArray)->a_element[1])) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4228	stdoutHandle = _HANDLEVal(__ArrayInstPtr(fdArray)->a_element[1]);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4229	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4230	stdoutHandle = (HANDLE) _get_osfhandle (__intVal(__ArrayInstPtr(fdArray)->a_element[1]));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4231	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4232	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4233	if (__ArrayInstPtr(fdArray)->a_element[2] != nil) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4234	if (__isExternalAddressLike(__ArrayInstPtr(fdArray)->a_element[2])) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4235	stderrHandle = _HANDLEVal(__ArrayInstPtr(fdArray)->a_element[2]);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4236	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4237	stderrHandle = (HANDLE) _get_osfhandle (__intVal(__ArrayInstPtr(fdArray)->a_element[2]));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4238	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4239	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4240	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4241	console_fprintf(stderr, "Win32OS [warning]: bad fd arg in createProcess\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4242	}
13742 cfb6a76de348 version_CVS Claus Gittinger <cg@exept.de> parents: 13618 diff changeset	4243
15543 196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	4244	#if defined(PROCESSDEBUGWIN32)
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4245	if (flag_PROCESSDEBUGWIN32) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4246	console_fprintf(stderr, "stdin %x\n", stdinHandle);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4247	console_fprintf(stderr, "stdout %x\n", stdoutHandle);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4248	console_fprintf(stderr, "stderr %x\n", stderrHandle);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4249	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4250	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4251
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4252	{
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4253	HANDLE childHandle;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4254	int sameHandle = (stdoutHandle == stderrHandle);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4255
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4256	// these MUST be inheritable!
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4257	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	4258	#if 0
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4259	if (SetHandleInformation(stdinHandle, HANDLE_FLAG_INHERIT, HANDLE_FLAG_INHERIT)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4260	// good
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4261	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4262	console_fprintf(stderr, "Win32OS [warning]: SetHandleInformation failed in createProcess\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4263	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4264	#else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4265	if (DuplicateHandle(GetCurrentProcess(), stdinHandle, GetCurrentProcess(),
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4266	&childHandle, 0, TRUE, DUPLICATE_SAME_ACCESS)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4267	stdinHandle = childHandle;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4268	mustClose_stdinHandle = 1;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4269	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4270	console_fprintf(stderr, "Win32OS [warning]: duplicateHandle failed in createProcess\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4271	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4272	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4273	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4274	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	4275	#if 0
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4276	if (SetHandleInformation(stdoutHandle, HANDLE_FLAG_INHERIT, HANDLE_FLAG_INHERIT)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4277	// good
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4278	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4279	console_fprintf(stderr, "Win32OS [warning]: SetHandleInformation failed in createProcess\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4280	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4281	#else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4282	if (DuplicateHandle(GetCurrentProcess(), stdoutHandle, GetCurrentProcess(),
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4283	&childHandle, 0, TRUE, DUPLICATE_SAME_ACCESS)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4284	stdoutHandle = childHandle;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4285	mustClose_stdoutHandle = 1;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4286	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4287	console_fprintf(stderr, "Win32OS [warning]: duplicateHandle failed in createProcess\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4288	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4289	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4290	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4291	if (stderrHandle) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4292	if (sameHandle) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4293	stderrHandle = stdoutHandle;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4294	} else {
15543 196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	4295	#if 0
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4296	if (SetHandleInformation(stderrHandle, HANDLE_FLAG_INHERIT, HANDLE_FLAG_INHERIT)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4297	// good
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4298	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4299	console_fprintf(stderr, "Win32OS [warning]: SetHandleInformation failed in createProcess\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4300	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4301	#else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4302	if (DuplicateHandle(GetCurrentProcess(), stderrHandle, GetCurrentProcess(),
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4303	&childHandle, 0, TRUE, DUPLICATE_SAME_ACCESS)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4304	stderrHandle = childHandle;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4305	mustClose_stderrHandle = 1;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4306	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4307	console_fprintf(stderr, "Win32OS [warning]: duplicateHandle failed in createProcess\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4308	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4309	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4310	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4311	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4312	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4313	lpsiStartInfo.hStdInput = stdinHandle;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4314	lpsiStartInfo.hStdOutput = stdoutHandle;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4315	lpsiStartInfo.hStdError = stderrHandle;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4316
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4317	if (doFork == true) {
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4318	#ifdef PROCESSDEBUGWIN32
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4319	if (flag_PROCESSDEBUGWIN32) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4320	console_fprintf(stderr, "create process cmdPath:<%s> cmdLine:<%s> in <%s>\n", __stringVal(commandPath), __stringVal(commandLine), __stringVal(dirName));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4321	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4322	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4323	memset(&lppiProcInfo, 0, sizeof (lppiProcInfo));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4324
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4325	if (CreateProcessW( cmdPathWP,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4326	cmdLineWP,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4327	&securityAttributes, NULL /* &securityAttributes */,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4328	securityAttributes.bInheritHandle, /* inherit handles */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4329	fdwCreate \| CREATE_SUSPENDED /* resume after setting affinity */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4330	\| CREATE_UNICODE_ENVIRONMENT,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4331	envWP, /* env */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4332	dirNameWP,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4333	&lpsiStartInfo,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4334	&lppiProcInfo ))
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4335	{
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4336	DWORD_PTR processAffinityMask, systemAffinityMask;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4337
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4338	/*
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4339	* Process was created suspended, now set the affinity mask
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4340	* to any processor, and resume the processes main thread.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4341	* (librun/process.s limited the affinity to a single processor).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4342	*/
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4343	GetProcessAffinityMask(lppiProcInfo.hProcess, &processAffinityMask, &systemAffinityMask);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4344	SetProcessAffinityMask(lppiProcInfo.hProcess, systemAffinityMask);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4345	if ((fdwCreate & CREATE_SUSPENDED) == 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4346	ResumeThread(lppiProcInfo.hThread);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4347	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4348	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	4349
15547 088a34ccacb1 * empty log message * Claus Gittinger <cg@exept.de> parents: 15546 diff changeset	4350	#if 0
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4351	// only works with real console handles
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4352	{
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4353	// change the child's stdIn (console) mode
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4354	DWORD mode = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4355
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4356	if (! GetConsoleMode(stdinHandle, &mode)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4357	console_fprintf(stderr, "Win32OS [warning]: GetConsoleMode failed in createProcess\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4358	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4359	if (! SetConsoleMode(stdinHandle, mode & (~ENABLE_ECHO_INPUT))){
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4360	console_fprintf(stderr, "Win32OS [warning]: SetConsoleMode failed in createProcess\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4361	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4362	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4363	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4364	if (mustClose_stdinHandle) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4365	CloseHandle(stdinHandle);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4366	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4367	if (mustClose_stdoutHandle) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4368	CloseHandle(stdoutHandle);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4369	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4370	if (mustClose_stderrHandle) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4371	CloseHandle(stderrHandle);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4372	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4373	#ifdef PROCESSDEBUGWIN32
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4374	if (flag_PROCESSDEBUGWIN32) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4375	console_fprintf(stderr, "created process hProcess=%x pid=%d\n", lppiProcInfo.hProcess, lppiProcInfo.dwProcessId);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4376	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4377	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4378
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4379	__externalAddressVal(handle) = lppiProcInfo.hProcess;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4380	((struct __Win32OperatingSystem__Win32ProcessHandle_struct *)(handle))->pid = __mkSmallInteger(lppiProcInfo.dwProcessId);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4381	RETURN (handle);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4382	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4383	#ifdef PROCESSDEBUGWIN32
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4384	if (flag_PROCESSDEBUGWIN32) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4385	console_fprintf(stderr, "created process error %d\n", GetLastError());
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4386	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4387	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4388	RETURN (nil);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4389	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4390	; /* should never be called that way */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4391	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4392	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4393	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4394	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4395	path-argument not string
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4396	or argArray not an array/nil
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4397	or malloc failed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4398	or not supported by OS
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4399	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4400	^ self primitiveFailed
20677 e3fe2f476abb #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20591 diff changeset	4401
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4402	"Created: / 15-11-2016 / 19:39:49 / cg"
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4403	!
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4404
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	4405	shellExecute:hwndArg lpOperation:lpOperationArg lpFile:lpFileArg lpParameters:lpParametersArg lpDirectory:lpDirectoryArg nShowCmd:nShowCmd
13112 1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4406	"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	4407	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	4408	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	4409	lpDirectory: the pathname string of the directory used for the command,
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4410	or nil for the current directory."
13159 04ecf0207585 * empty log message * Claus Gittinger <cg@exept.de> parents: 13128 diff changeset	4411
04ecf0207585 * empty log message * Claus Gittinger <cg@exept.de> parents: 13128 diff changeset	4412	\|errorNumber handle\|
04ecf0207585 * empty log message * Claus Gittinger <cg@exept.de> parents: 13128 diff changeset	4413
04ecf0207585 * empty log message * Claus Gittinger <cg@exept.de> parents: 13128 diff changeset	4414	handle := Win32ProcessHandle new.
13112 1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4415
1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4416	%{
1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4417	SHELLEXECUTEINFO shExecInfo = {0};
1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4418	shExecInfo.cbSize = sizeof(shExecInfo);
1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4419
1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4420	if (__isSmallInteger(nShowCmd)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4421	shExecInfo.nShow = __intVal(nShowCmd);
13112 1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4422	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4423	if (nShowCmd == @symbol(SW_SHOW)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4424	shExecInfo.nShow = SW_SHOW;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4425	} else if (nShowCmd == @symbol(SW_SHOWNORMAL)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4426	shExecInfo.nShow = SW_SHOWNORMAL;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4427	} else if (nShowCmd == @symbol(SW_SHOWDEFAULT)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4428	shExecInfo.nShow = SW_SHOWDEFAULT;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4429	} else if (nShowCmd == @symbol(SW_SHOWMAXIMIZED)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4430	shExecInfo.nShow = SW_SHOWMAXIMIZED;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4431	} else if (nShowCmd == @symbol(SW_SHOWMINIMIZED)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4432	shExecInfo.nShow = SW_SHOWMINIMIZED;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4433	} else if (nShowCmd == @symbol(SW_SHOWMINNOACTIVE)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4434	shExecInfo.nShow = SW_SHOWMINNOACTIVE;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4435	} else if (nShowCmd == @symbol(SW_SHOWNA)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4436	shExecInfo.nShow = SW_SHOWNA;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4437	} else if (nShowCmd == @symbol(SW_SHOWNOACTIVATE)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4438	shExecInfo.nShow = SW_SHOWNOACTIVATE;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4439	} else if (nShowCmd == @symbol(SW_MAXIMIZE)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4440	shExecInfo.nShow = SW_MAXIMIZE;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4441	} else if (nShowCmd == @symbol(SW_RESTORE)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4442	shExecInfo.nShow = SW_RESTORE;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4443	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4444	goto badArgument;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4445	}
13112 1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4446	}
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	4447	if (((lpOperationArg == nil) \|\| __isStringLike(lpOperationArg))
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	4448	&& ((lpFileArg == nil) \|\| __isStringLike(lpFileArg))
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	4449	&& ((lpParametersArg == nil) \|\| __isStringLike(lpParametersArg))
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	4450	&& ((lpDirectoryArg == nil) \|\| __isStringLike(lpDirectoryArg))
13112 1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4451	) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4452	// hProcess member receives the process handle
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4453	shExecInfo.fMask = SEE_MASK_NOCLOSEPROCESS;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4454
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4455	shExecInfo.hwnd = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4456	shExecInfo.lpVerb = (lpOperationArg != nil) ? __stringVal(lpOperationArg) : NULL;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4457	shExecInfo.lpFile = (lpFileArg != nil) ? __stringVal(lpFileArg) : NULL;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4458	shExecInfo.lpParameters = (lpParametersArg != nil) ? __stringVal(lpParametersArg) : NULL;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4459	shExecInfo.lpDirectory = (lpDirectoryArg != nil) ? __stringVal(lpDirectoryArg) : NULL;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4460	if (hwndArg != nil) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4461	if (__isExternalAddressLike(hwndArg)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4462	shExecInfo.hwnd = _HANDLEVal(hwndArg);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4463	} else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4464	goto badArgument;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4465	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4466	if (ShellExecuteEx(&shExecInfo)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4467	if (shExecInfo.hProcess) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4468	DWORD_PTR processAffinityMask, systemAffinityMask;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4469	/*
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4470	* Set the affinity mask
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4471	* to any processor, and resume the processes main thread.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4472	* (librun/process.s limited the affinity to a single processor).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4473	*/
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4474	GetProcessAffinityMask(shExecInfo.hProcess, &processAffinityMask, &systemAffinityMask);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4475	SetProcessAffinityMask(shExecInfo.hProcess, systemAffinityMask);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4476
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4477	__externalAddressVal(handle) = shExecInfo.hProcess;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4478	RETURN (handle);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4479	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4480	RETURN (nil); /* OK */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4481	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4482	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4483	/* error */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4484	errorNumber = __mkSmallInteger(__WIN32_ERR(GetLastError()));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4485	}
13112 1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4486	}
1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4487	badArgument: ;
1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4488	%}.
1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4489	errorNumber isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4490	self primitiveFailed:'invalid argument(s)'.
13112 1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4491	] ifFalse:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4492	(OperatingSystem errorHolderForNumber:errorNumber)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4493	parameter:lpFileArg;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4494	reportError
13112 1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4495	].
1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4496
1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4497	"
1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4498	self
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4499	shellExecute:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4500	lpOperation:'open'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4501	lpFile:(Filename currentDirectory pathName)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4502	lpParameters:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4503	lpDirectory:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4504	nShowCmd:#SW_SHOWNORMAL
13112 1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4505	self
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4506	shellExecute:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4507	lpOperation:'explore'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4508	lpFile:(Filename currentDirectory pathName)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4509	lpParameters:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4510	lpDirectory:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4511	nShowCmd:#SW_SHOWNORMAL
13112 1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4512	"
1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4513	!
1e8a1756693d changed: Stefan Vogel <sv@exept.de> parents: 13108 diff changeset	4514
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	4515	startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	4516	errorTo:anExternalErrStream auxFrom:anAuxiliaryStream
7638 a211d1f10797 * empty log message * Michael Beyl <mb@exept.de> parents: 7535 diff changeset	4517	environment:anEvironmentDictionary inDirectory:dir
20930 793c81da8cb1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20897 diff changeset	4518	newPgrp:newPgrp showWindow:showWindowBooleanOrNil
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4519
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4520	"start executing the OS command as specified by the argument, aCommandString
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4521	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	4522	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	4523	- 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	4524	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	4525	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	4526	The command gets stdIn, stdOut and stdErr assigned from the arguments;
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4527	each may be nil.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4528
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4529	Return the Win32ProcessHandle if successful, nil otherwise.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4530
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4531	Use #monitorPid:action: for synchronization and exec status return,
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4532	or #killProcess: to stop it."
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4533
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4534	\|shellAndArgs nullStream in out err rslt\|
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4535
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4536	aCommandString isNil ifTrue:[^ nil].
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4537	shellAndArgs := self commandAndArgsForOSCommand:aCommandString.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4538
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4539	(in := anExternalInStream) isNil ifTrue:[
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4540	nullStream := Filename nullDevice readWriteStream.
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4541	in := nullStream.
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4542	].
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4543	(out := anExternalOutStream) isNil ifTrue:[
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4544	nullStream isNil ifTrue:[nullStream := Filename nullDevice writeStream].
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4545	out := nullStream.
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4546	].
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4547	(err := anExternalErrStream) isNil ifTrue:[
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4548	err := out
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4549	].
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4550
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4551	rslt := self
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4552	exec:(shellAndArgs at:1)
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4553	withArguments:(shellAndArgs at:2)
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4554	environment:anEvironmentDictionary
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4555	fileDescriptors:(Array with:in fileHandle
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4556	with:out fileHandle
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4557	with:err fileHandle
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4558	with:(anAuxiliaryStream notNil ifTrue:[anAuxiliaryStream fileHandle] ifFalse:[nil]))
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4559	fork:true
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4560	newPgrp:newPgrp
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4561	inDirectory:dir
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4562	showWindow:(showWindowBooleanOrNil ? (shellAndArgs at:3)).
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4563
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4564	nullStream notNil ifTrue:[
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4565	nullStream close.
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4566	].
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4567	^ rslt
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4568
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4569	"blocking at current prio (i.e. only higher prio threads execute):
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4570
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4571	OperatingSystem executeCommand:'dir > out'.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4572	OperatingSystem executeCommand:'tree /A' outputTo:Transcript.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4573	OperatingSystem executeCommand:#('c:\windows\system32\tree.com' '/A' '/F') outputTo:Transcript.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4574	OperatingSystem executeCommand:#('c:\windows\system32\where.exe' '/T' '*.dll') outputTo:Transcript.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4575	"
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4576
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4577	"non-blocking (lower prio threads continue):
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4578
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4579	\|in out err pid sema\|
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4580
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4581	in := 'out' asFilename readStream.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4582	out := 'out2' asFilename writeStream.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4583	err := 'err' asFilename writeStream.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4584
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4585	sema := Semaphore new.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4586	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	4587
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4588	The following will no longer work. monitorPid has disappeared
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4589
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4590	pid notNil ifTrue:[
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4591	Processor monitorPid:pid action:[:OSstatus \| sema signal ].
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4592	].
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4593	in close.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4594	out close.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4595	err close.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4596	sema wait.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4597	Transcript showCR:'finished'
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4598	"
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4599
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4600	"
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4601	\|pid sema\|
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4602
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4603	sema := Semaphore new.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4604
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4605	Processor
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4606	monitor:[
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4607	pid := OperatingSystem startProcess:'dir > out 2>err'
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4608	]
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4609	action:[:osStatus \| sema signal ].
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4610
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4611	sema wait.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4612	Transcript showCR:'finished'
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4613	"
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4614
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4615	"<<END
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4616	\|pid sema\|
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4617
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4618	sema := Semaphore new.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4619
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4620	Processor
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4621	monitor:[
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4622	pid := OperatingSystem startProcess:'(echo 1 & stx --eval "Delay waitForSeconds:100" & dir) >out' withCRs
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4623	]
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4624	action:[:osStatus \| sema signal ].
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4625
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4626	Delay waitForSeconds:5.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4627	OperatingSystem terminateProcessGroup:pid.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4628	Transcript showCR:'terminated'
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4629	END"
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4630
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4631	"<<END
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4632	\|pid sema\|
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4633
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4634	sema := Semaphore new.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4635
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4636	Processor
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4637	monitor:[
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4638	pid := OperatingSystem startProcess:{ 'C:\Users\cg\work\stx\projects\smalltalk\stx.com' . '--eval' . '"Delay waitForSeconds:100"' }
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4639	]
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4640	action:[:osStatus \| sema signal ].
20321 19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4641
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4642	Delay waitForSeconds:5.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4643	OperatingSystem terminateProcess:pid.
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4644	Transcript showCR:'terminated'
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4645	END"
19a908d0e4d4 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20312 diff changeset	4646
20930 793c81da8cb1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20897 diff changeset	4647	"Created: / 08-11-2016 / 21:23:17 / cg"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4648	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4649
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4650	!Win32OperatingSystem class methodsFor:'file access'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4651
7662 32a1185158f3 process handles Claus Gittinger <cg@exept.de> parents: 7645 diff changeset	4652	closeFd:anIntegerOrHandle
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4653	"low level close of a filedescriptor"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4654
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4655	%{
12686 27afd11a1acd changed: Stefan Vogel <sv@exept.de> parents: 12654 diff changeset	4656	if (__isSmallInteger(anIntegerOrHandle)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4657	close(__intVal(anIntegerOrHandle));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4658	RETURN(self);
12686 27afd11a1acd changed: Stefan Vogel <sv@exept.de> parents: 12654 diff changeset	4659	}
27afd11a1acd changed: Stefan Vogel <sv@exept.de> parents: 12654 diff changeset	4660	if (__isExternalAddressLike(anIntegerOrHandle)) {
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	4661	if (!CloseHandle( _HANDLEVal(anIntegerOrHandle))) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4662	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	4663	}
32a1185158f3 process handles Claus Gittinger <cg@exept.de> parents: 7645 diff changeset	4664	RETURN(self);
32a1185158f3 process handles Claus Gittinger <cg@exept.de> parents: 7645 diff changeset	4665	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4666	%}.
7662 32a1185158f3 process handles Claus Gittinger <cg@exept.de> parents: 7645 diff changeset	4667	^ self primitiveFailed.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4668	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4669
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4670	createDirectory:aPathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4671	"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	4672	path, or relative to the current directory.
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4673	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	4674	This is a low-level entry - use Filename protocol for compatibility."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4675
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4676	\|error\|
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4677
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4678	"/ if it already exists this is ok
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4679	(self isDirectory:aPathName) ifTrue:[^ nil].
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4680
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4681	%{
15543 196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	4682	SECURITY_ATTRIBUTES sa;
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4683	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	4684
196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	4685	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	4686	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	4687	// 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	4688	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	4689
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	4690	if (__isStringLike(aPathName)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4691	success = CreateDirectoryA(__stringVal(aPathName), &sa);
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4692	} else if (__isUnicode16String(aPathName)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4693	wchar_t _wPathName[MAXPATHLEN+1];
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4694
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4695	_makeWchar(aPathName, _wPathName, sizeof(_wPathName));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4696	success = CreateDirectoryW(_wPathName, &sa);
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4697	} else
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4698	goto err;
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4699
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4700	if (success == TRUE) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4701	RETURN (nil);
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4702	}
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4703
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4704	error = __mkSmallInteger(__WIN32_ERR(GetLastError()));
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4705
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4706	err:;
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4707	%}.
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4708
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4709	error notNil ifTrue:[
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4710	LastErrorNumber := error.
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4711	^ self errorHolderForNumber:error.
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4712	].
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4713
11617 0b0ea0b5235e unicode support for removeFile, removeDirectory, createFile and createDirectory Claus Gittinger <cg@exept.de> parents: 11609 diff changeset	4714	^ self primitiveFailed
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4715
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4716	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	4717	OperatingSystem createDirectory:'foo'
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4718	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4719
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4720	"Modified: 20.12.1995 / 11:24:13 / stefan"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4721	"Modified: 29.6.1996 / 14:06:54 / cg"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4722	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4723
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4724	createFileForReadAppend:pathName
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4725	^ self openFile:pathName attributes:#(#'GENERIC_READ' #'GENERIC_WRITE')
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4726	!
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4727
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4728	createFileForReadWrite:pathName
6297 7d0a04fb50be * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4729	^ self openFile:pathName attributes:#(#'GENERIC_READ' #'GENERIC_WRITE' #'CREATE_ALWAYS')
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4730	!
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4731
13224 751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	4732	createHardLinkFrom:oldPath to:newPath
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	4733	"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	4734	Return nil if successful, an OsErrorHolder if not."
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4735
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4736	(self executeCommand:('mklink/h "%1" "%2"' bindWith:newPath with:oldPath)) ifFalse:[
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4737	^ OSErrorHolder errorSymbol:'mklink/h failed' errorCategory:nil.
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4738	].
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4739	^ nil.
13224 751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	4740
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	4741	"Created: / 19-01-2011 / 08:42:11 / cg"
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	4742	!
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	4743
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	4744	createSymbolicLinkFrom:oldPath to:newPath
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	4745	"make a link from the file 'oldPath' to the file 'newPath'.
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	4746	The link will be a soft (symbolic) link.
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4747	Return nil if successful, an OsErrorHolder if not.
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4748
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4749	Note: mklink needs special permissions or Administrator rights."
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4750
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4751	\|dirFlag\|
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4752
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4753	dirFlag := ''.
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4754	(self isDirectory:oldPath) ifTrue:[
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4755	dirFlag := '/d'.
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4756	].
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4757
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4758	(self executeCommand:('mklink %3 "%1" "%2"' bindWith:newPath with:oldPath with:dirFlag)) ifFalse:[
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	4759	^ OSErrorHolder errorSymbol:'mklink failed' errorCategory:nil.
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4760	].
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	4761	^ nil.
13224 751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	4762
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	4763	"Created: / 19-01-2011 / 08:41:44 / cg"
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	4764	!
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	4765
9475 c57956a348bf printing support fm parents: 9431 diff changeset	4766	getLastError
c57956a348bf printing support fm parents: 9431 diff changeset	4767	%{
c57956a348bf printing support fm parents: 9431 diff changeset	4768	RETURN ( __mkSmallInteger( __WIN32_ERR(GetLastError()) ));
c57956a348bf printing support fm parents: 9431 diff changeset	4769	%}.
c57956a348bf printing support fm parents: 9431 diff changeset	4770
c57956a348bf printing support fm parents: 9431 diff changeset	4771	"Created: / 31-07-2006 / 12:40:39 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	4772	!
c57956a348bf printing support fm parents: 9431 diff changeset	4773
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	4774	getLinkTarget:aPathName
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	4775	"given a filename, which represents a link-file (.lnk),
10161 fd6b02ffb383 avoid recursion Claus Gittinger <cg@exept.de> parents: 10160 diff changeset	4776	return its resolved path, or nil"
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	4777
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	4778	\|resolvedPath\|
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	4779
11253 ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	4780	%{ /* STACK:100000 */
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	4781
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	4782	static IShellLink * ipShellLink = NULL;
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	4783	static IPersistFile * ipPersistFile = NULL;
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	4784
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	4785	HRESULT hres;
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	4786	WIN32_FIND_DATA wfd;
13778 8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	4787	WORD wsz[MAXPATHLEN];
8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	4788	char szGotPath[MAXPATHLEN];
11215 b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	4789
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	4790	if (! __isStringLike(aPathName)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4791	console_fprintf(stderr, "OperatingSystem [info]: invalid argument\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4792	goto error;
11253 ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	4793	}
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	4794
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	4795	if( ! coInitialized ) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4796	console_fprintf(stderr, "OperatingSystem [info]: com not initialized\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4797	goto error;
11193 a432bfa95db0 CoInitialize -> coInitializeEx(MULTITHREADED) Claus Gittinger <cg@exept.de> parents: 11135 diff changeset	4798	}
a432bfa95db0 CoInitialize -> coInitializeEx(MULTITHREADED) Claus Gittinger <cg@exept.de> parents: 11135 diff changeset	4799
11253 ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	4800	if ( ipShellLink == NULL ) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4801	hres = CoCreateInstance(&CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4802	&IID_IShellLink, (LPVOID *)&ipShellLink);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4803	if (! SUCCEEDED(hres)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4804	console_fprintf(stderr, "OperatingSystem [info]: CoCreateInstance Error - hres = %08x\n", hres);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4805	ipShellLink = NULL;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4806	goto error;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4807	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4808
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4809	hres = ipShellLink->lpVtbl->QueryInterface( ipShellLink, &IID_IPersistFile, (void **)&ipPersistFile );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4810	if (! SUCCEEDED(hres)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4811	console_fprintf(stderr, "OperatingSystem [info]: QueryInterface Error - hres = %08x\n", hres);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4812	ipShellLink->lpVtbl->Release(ipShellLink);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4813	ipShellLink = NULL;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4814	ipPersistFile = NULL;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4815	goto error;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4816	}
11253 ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	4817	}
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	4818
13778 8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	4819	MultiByteToWideChar(CP_ACP, 0, __stringVal(aPathName), -1, wsz, MAXPATHLEN);
11253 ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	4820
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	4821	hres = ipPersistFile->lpVtbl->Load(ipPersistFile, wsz, STGM_READ);
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	4822
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	4823	if (SUCCEEDED(hres)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4824	hres = ipShellLink->lpVtbl->GetPath(ipShellLink, szGotPath, MAXPATHLEN,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4825	(WIN32_FIND_DATA )&wfd, 0 / SLGP_SHORTPATH */ );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4826	if (SUCCEEDED(hres)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4827	resolvedPath = __MKSTRING(szGotPath);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4828	} else {
11253 ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	4829	#ifdef COM_DEBUG
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4830	console_fprintf(stderr, "OperatingSystem [info]: GetPath failed - hres = %08x\n", hres );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4831	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4832	}
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	4833	} else {
11253 ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	4834	#ifdef COM_DEBUG
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4835	console_fprintf(stderr, "OperatingSystem [info]: Load failed - hres = %08x\n", hres );
11253 ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	4836	#endif
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	4837	}
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	4838	/* ipPersistFile->lpVtbl->Release(ipPersistFile); */
ea6152cdf700 bugfix: #getLinkTarget: initialization of COM interface ca parents: 11247 diff changeset	4839
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	4840	error: ;
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	4841	%}.
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	4842	resolvedPath notNil ifTrue:[^ resolvedPath ].
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	4843
10373 92efacf8b050 getLinkTarget is now done lazyly. Claus Gittinger <cg@exept.de> parents: 10365 diff changeset	4844	"/ self primitiveFailed.
92efacf8b050 getLinkTarget is now done lazyly. Claus Gittinger <cg@exept.de> parents: 10365 diff changeset	4845	^ nil.
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	4846
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	4847	"
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	4848	OperatingSystem getLinkTarget:'C:\Dokumente und Einstellungen\cg\Favoriten\Incoming.lnk'
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	4849	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	4850	"
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	4851
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	4852	"Created: / 07-11-2006 / 10:52:44 / cg"
10373 92efacf8b050 getLinkTarget is now done lazyly. Claus Gittinger <cg@exept.de> parents: 10365 diff changeset	4853	"Modified: / 07-02-2007 / 10:37:48 / cg"
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	4854	!
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	4855
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4856	openFile:pathName attributes:attributeSpec
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4857	"non public internal helper.
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	4858	open a file, return an os specific fileHandle.
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4859	attributes is a collection of symbols specifying how the file is
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4860	to be opened."
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4861
6297 7d0a04fb50be * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4862	\|fileHandle errorNumber argumentError\|
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4863
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4864	fileHandle := Win32Handle new.
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4865
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4866	%{
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4867	HANDLE h;
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4868	char *name;
11617 0b0ea0b5235e unicode support for removeFile, removeDirectory, createFile and createDirectory Claus Gittinger <cg@exept.de> parents: 11609 diff changeset	4869	wchar_t _wPathName[MAXPATHLEN+1];
11810 24927b757d9b Fix for bad arguments Stefan Vogel <sv@exept.de> parents: 11804 diff changeset	4870	OBJ *ap;
24927b757d9b Fix for bad arguments Stefan Vogel <sv@exept.de> parents: 11804 diff changeset	4871	int numAttrib;
11617 0b0ea0b5235e unicode support for removeFile, removeDirectory, createFile and createDirectory Claus Gittinger <cg@exept.de> parents: 11609 diff changeset	4872	int i, l;
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4873	DWORD access, share, create, attr;
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4874
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	4875	if (__isStringLike(pathName)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4876	name = __stringVal(pathName);
11617 0b0ea0b5235e unicode support for removeFile, removeDirectory, createFile and createDirectory Claus Gittinger <cg@exept.de> parents: 11609 diff changeset	4877	} else if (__isUnicode16String(pathName)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4878	_makeWchar(pathName, _wPathName, sizeof(_wPathName));
11617 0b0ea0b5235e unicode support for removeFile, removeDirectory, createFile and createDirectory Claus Gittinger <cg@exept.de> parents: 11609 diff changeset	4879	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4880	fileHandle = nil;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4881	argumentError = @symbol(badPathName);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4882	goto badArgument;
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4883	}
11810 24927b757d9b Fix for bad arguments Stefan Vogel <sv@exept.de> parents: 11804 diff changeset	4884
8934 32a063645991 * empty log message * Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	4885	if (! __isArrayLike(attributeSpec)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4886	fileHandle = nil;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4887	argumentError = @symbol(badAttributeSpec);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4888	goto badArgument;
11617 0b0ea0b5235e unicode support for removeFile, removeDirectory, createFile and createDirectory Claus Gittinger <cg@exept.de> parents: 11609 diff changeset	4889	}
11810 24927b757d9b Fix for bad arguments Stefan Vogel <sv@exept.de> parents: 11804 diff changeset	4890	ap = __ArrayInstPtr(attributeSpec)->a_element;
24927b757d9b Fix for bad arguments Stefan Vogel <sv@exept.de> parents: 11804 diff changeset	4891	numAttrib = __arraySize(attributeSpec);
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4892
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4893	share = 0;
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4894	access = 0;
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4895	create = 0;
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4896	attr = 0;
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4897
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4898	for (i=0; i<numAttrib;i++) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4899	OBJ attrSym = ap[i];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4900
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4901	if (attrSym == @symbol(FILE_SHARE_READ)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4902	share \|= FILE_SHARE_READ;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4903	} else if (attrSym == @symbol(FILE_SHARE_WRITE)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4904	share \|= FILE_SHARE_WRITE;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4905
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4906	} else if (attrSym == @symbol(GENERIC_READ)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4907	access \|= GENERIC_READ;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4908	} else if (attrSym == @symbol(GENERIC_WRITE)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4909	access \|= GENERIC_WRITE;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4910
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4911	} else if (attrSym == @symbol(CREATE_NEW)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4912	create \|= CREATE_NEW;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4913	} else if (attrSym == @symbol(CREATE_ALWAYS)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4914	create \|= CREATE_ALWAYS;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4915	} else if (attrSym == @symbol(OPEN_EXISTING)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4916	create \|= OPEN_EXISTING;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4917	} else if (attrSym == @symbol(OPEN_ALWAYS)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4918	create \|= OPEN_ALWAYS;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4919	} else if (attrSym == @symbol(TRUNCATE_EXISTING)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4920	create \|= TRUNCATE_EXISTING;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4921
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4922	} else if (attrSym == @symbol(FILE_ATTRIBUTE_HIDDEN)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4923	attr \|= FILE_ATTRIBUTE_HIDDEN;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4924	} else if (attrSym == @symbol(FILE_ATTRIBUTE_READONLY)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4925	attr \|= FILE_ATTRIBUTE_READONLY;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4926	} else if (attrSym == @symbol(FILE_ATTRIBUTE_READONLY)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4927	attr \|= FILE_ATTRIBUTE_READONLY;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4928	} else if (attrSym == @symbol(FILE_FLAG_WRITE_THROUGH)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4929	attr \|= FILE_FLAG_WRITE_THROUGH;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4930	} else if (attrSym == @symbol(FILE_FLAG_SEQUENTIAL_SCAN)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4931	attr \|= FILE_FLAG_SEQUENTIAL_SCAN;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4932	} else if (attrSym == @symbol(FILE_FLAG_DELETE_ON_CLOSE)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4933	attr \|= FILE_FLAG_DELETE_ON_CLOSE;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4934	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4935	console_fprintf(stderr, "Win32OS [warning]: unsupported open mode\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4936	}
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4937	}
6297 7d0a04fb50be * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4938	if (create == 0) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4939	fileHandle = nil;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4940	argumentError = @symbol(missingCreateMode);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4941	goto badArgument;
6297 7d0a04fb50be * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4942	}
8792 6852892b27cd * empty log message * Claus Gittinger <cg@exept.de> parents: 8783 diff changeset	4943	#ifdef PROCESSDEBUGWIN32
20896 c88fbd0cb367 * empty log message * Claus Gittinger <cg@exept.de> parents: 20677 diff changeset	4944	if (flag_PROCESSDEBUGWIN32) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4945	console_fprintf(stderr, "name:<%s> access:%x share:%x create:%x attr:%x\n",
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4946	name, access, share, create, attr);
20896 c88fbd0cb367 * empty log message * Claus Gittinger <cg@exept.de> parents: 20677 diff changeset	4947	}
11617 0b0ea0b5235e unicode support for removeFile, removeDirectory, createFile and createDirectory Claus Gittinger <cg@exept.de> parents: 11609 diff changeset	4948	#endif
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	4949	if (__isStringLike(pathName)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4950	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	4951	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4952	h = CreateFileW(_wPathName, 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	4953	}
0b0ea0b5235e unicode support for removeFile, removeDirectory, createFile and createDirectory Claus Gittinger <cg@exept.de> parents: 11609 diff changeset	4954
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4955	if (h != INVALID_HANDLE_VALUE) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4956	__externalAddressVal(fileHandle) = (void *)h;
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4957	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4958	fileHandle = nil;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4959	errorNumber = __mkSmallInteger( __WIN32_ERR(GetLastError()) );
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4960	}
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4961
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4962	badArgument: ;
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4963	%}.
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4964	fileHandle notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4965	fileHandle registerForFinalization.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4966	^ fileHandle.
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4967	].
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4968	errorNumber isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4969	self error:'invalid argument(s): ', argumentError.
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4970	] ifFalse:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	4971	(self errorHolderForNumber:errorNumber) reportError
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4972	].
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4973	!
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4974
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4975	openFileForAppend:pathName
8412 cb1f92123250 Fix getting home directory if it is on a network share. Stefan Vogel <sv@exept.de> parents: 8360 diff changeset	4976	"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	4977
cb1f92123250 Fix getting home directory if it is on a network share. Stefan Vogel <sv@exept.de> parents: 8360 diff changeset	4978	^ self shouldImplement
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4979	!
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4980
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4981	openFileForRead:pathName
6297 7d0a04fb50be * empty log message * Claus Gittinger <cg@exept.de> parents: 6293 diff changeset	4982	^ self openFile:pathName attributes:#(#'GENERIC_READ' #'OPEN_EXISTING')
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4983	!
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4984
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4985	openFileForReadAppend:pathName
8412 cb1f92123250 Fix getting home directory if it is on a network share. Stefan Vogel <sv@exept.de> parents: 8360 diff changeset	4986	"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	4987
cb1f92123250 Fix getting home directory if it is on a network share. Stefan Vogel <sv@exept.de> parents: 8360 diff changeset	4988	^ self shouldImplement
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4989	!
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4990
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4991	openFileForReadWrite:pathName
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4992	^ self openFile:pathName attributes:#(#'GENERIC_READ' #'GENERIC_WRITE')
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4993	!
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4994
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4995	openFileForWrite:pathName
6304 c51a3d81ba5b * empty log message * Claus Gittinger <cg@exept.de> parents: 6297 diff changeset	4996	^ self openFile:pathName attributes:#(#'GENERIC_WRITE' #'OPEN_EXISTING')
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4997	!
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	4998
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	4999	recursiveCopyDirectory:sourcePathName to:destination
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5000	"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	5001	Return true if successful."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5002
18979 b07c5e5e2782 #BUGFIX Stefan Vogel <sv@exept.de> parents: 18964 diff changeset	5003	^ 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	5004	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5005
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5006	removeDirectory:fullPathName
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5007	"remove the directory named 'fullPathName'.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5008	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	5009	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	5010	This is a lowLevel entry - use Filename protocol for compatibility."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5011
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5012	\|error\|
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5013
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5014	%{
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5015	int success;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5016
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	5017	if (__isStringLike(fullPathName)) {
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5018	#ifdef DO_WRAP_CALLS
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5019	{
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5020	char _aPathName[MAXPATHLEN];
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5021
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5022	strncpy(_aPathName, __stringVal(fullPathName), MAXPATHLEN-1); _aPathName[MAXPATHLEN-1] = '\0';
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5023	do {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5024	// do not cast to INT - will loose sign bit then!
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5025	success = (int)STX_API_NOINT_CALL1( "RemoveDirectoryA", RemoveDirectoryA, _aPathName);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5026	} while ((success < 0) && (__threadErrno == EINTR));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5027	}
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5028	#else
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5029	success = RemoveDirectoryA((char *)__stringVal(fullPathName));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5030	if (!success) __threadErrno = __WIN32_ERR(GetLastError());
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5031	#endif
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	5032	} else if (__isUnicode16String(fullPathName)) {
11617 0b0ea0b5235e unicode support for removeFile, removeDirectory, createFile and createDirectory Claus Gittinger <cg@exept.de> parents: 11609 diff changeset	5033	#ifdef DO_WRAP_CALLS
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5034	{
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5035	wchar_t _wPathName[MAXPATHLEN+1];
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5036
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5037	_makeWchar(fullPathName, _wPathName, sizeof(_wPathName));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5038	do {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5039	// do not cast to INT - will loose sign bit then!
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5040	success = (int)STX_API_NOINT_CALL1( "RemoveDirectoryW", RemoveDirectoryW, _wPathName);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5041	} while ((success < 0) && (__threadErrno == EINTR));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5042	}
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5043	#else
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5044	success = RemoveDirectoryW((wchar_t *)__unicode16StringVal(fullPathName));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5045	if (!success) __threadErrno = __WIN32_ERR(GetLastError());
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5046	#endif
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5047	}
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5048
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5049	if (success == TRUE) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5050	RETURN (nil);
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5051	}
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5052
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5053	error = __mkSmallInteger(__threadErrno);
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5054	%}.
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5055
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5056	error notNil ifTrue:[
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5057	LastErrorNumber := error.
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5058	^ self errorHolderForNumber:error.
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5059	].
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5060
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5061	"/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5062	"/ either not a string argument,
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5063	"/ or not supported by OS
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5064	"/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5065	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5066
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5067	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5068	OperatingSystem createDirectory:'foo'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5069	OperatingSystem removeDirectory:'foo'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5070	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5071	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5072
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5073	removeFile:fullPathName
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5074	"remove the file named 'fullPathName'; return nil if successful, an OSErrorHolder on errror.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5075	This is a lowLevel entry - use Filename protocol for compatibility."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5076
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5077	\|error\|
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5078
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5079	%{
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5080	int success;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5081
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	5082	if (__isStringLike(fullPathName)) {
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5083	#ifdef DO_WRAP_CALLS
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5084	{
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5085	char _aPathName[MAXPATHLEN];
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5086
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5087	strncpy(_aPathName, __stringVal(fullPathName), MAXPATHLEN-1); _aPathName[MAXPATHLEN-1] = '\0';
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5088	do {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5089	// do not cast to INT - will loose sign bit then!
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5090	success = (int)STX_API_NOINT_CALL1( "DeleteFileA", DeleteFileA, _aPathName);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5091	} while ((success < 0) && (__threadErrno == EINTR));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5092	}
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5093	#else
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5094	success = DeleteFileA((char *)__stringVal(fullPathName));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5095	if (!success) __threadErrno = __WIN32_ERR(GetLastError());
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5096	#endif
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5097	} else if (__isUnicode16String(fullPathName)) {
11617 0b0ea0b5235e unicode support for removeFile, removeDirectory, createFile and createDirectory Claus Gittinger <cg@exept.de> parents: 11609 diff changeset	5098	#ifdef DO_WRAP_CALLS
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5099	{
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5100	wchar_t _wPathName[MAXPATHLEN+1];
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5101
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5102	_makeWchar(fullPathName, _wPathName, sizeof(_wPathName));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5103	do {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5104	// do not cast to INT - will loose sign bit then!
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5105	success = (int)(STX_API_NOINT_CALL1( "DeleteFileW", DeleteFileW, _wPathName));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5106	} while ((success < 0) && (__threadErrno == EINTR));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5107	}
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5108	#else
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5109	success = DeleteFileW((wchar_t *)__unicode16StringVal(fullPathName));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5110	if (!success) __threadErrno = __WIN32_ERR(GetLastError());
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5111	#endif
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5112	}
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5113
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5114	if (success == TRUE) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5115	RETURN (nil);
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5116	}
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5117
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5118	error = __mkSmallInteger(__threadErrno);
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5119	%}.
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5120
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5121	error notNil ifTrue:[
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5122	LastErrorNumber := error.
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5123	^ self errorHolderForNumber:error.
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5124	].
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5125
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5126	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5127	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5128
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5129	renameFile:oldPath to:newPath
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5130	"rename the file 'oldPath' to 'newPath'.
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5131	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	5132	correct for the OS used - therefore, this should not be called
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5133	directlt. Instead, use Filename protocol to rename; this cares for
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5134	any invalid names.
21049 e36caa17b4b7 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21043 diff changeset	5135	Returns nil if successful, an OsErrorHolder if not"
e36caa17b4b7 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21043 diff changeset	5136
e36caa17b4b7 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21043 diff changeset	5137	\|error\|
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5138
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5139	%{
21043 1c1cec4aba39 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20975 diff changeset	5140	int success;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5141
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	5142	if (__isStringLike(oldPath) && __isStringLike(newPath)) {
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5143	#ifdef DO_WRAP_CALLS
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5144	char _oldPath[MAXPATHLEN], _newPath[MAXPATHLEN];
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5145
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5146	strncpy(_oldPath, __stringVal(oldPath), MAXPATHLEN-1); _oldPath[MAXPATHLEN-1] = '\0';
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5147	strncpy(_newPath, __stringVal(newPath), MAXPATHLEN-1); _newPath[MAXPATHLEN-1] = '\0';
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5148
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5149	do {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5150	success = STX_API_NOINT_CALL2("MoveFileA", MoveFileA, _oldPath, _newPath);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5151	} while (success < 0 && __threadErrno == EINTR);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5152	#else
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5153	__BEGIN_INTERRUPTABLE__
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5154	do {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5155	success = MoveFileA((char ) __stringVal(oldPath), (char ) __stringVal(newPath));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5156	} while (success < 0 && __threadErrno == EINTR);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5157	__END_INTERRUPTABLE__
20389 1104e43dbe9c #DOCUMENTATION by stefan Stefan Vogel <sv@exept.de> parents: 20375 diff changeset	5158	#endif
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	5159	} else {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5160	wchar_t _oldPathW[MAXPATHLEN], _newPathW[MAXPATHLEN];
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5161
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5162	if (_makeWchar(oldPath, _oldPathW, sizeof(_oldPathW)) < 0
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5163	\|\| _makeWchar(newPath, _newPathW, sizeof(_newPathW)) < 0) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5164	goto err;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5165	}
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	5166	#ifdef DO_WRAP_CALLS
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5167	do {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5168	success = STX_API_NOINT_CALL2( "MoveFileW", MoveFileW, _oldPathW, _newPathW);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5169	} while (success < 0 && __threadErrno == EINTR);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5170	#else
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5171	__BEGIN_INTERRUPTABLE__
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5172	do {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5173	success = MoveFileW(_oldPathW, _newPathW);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5174	} while (success < 0 && __threadErrno == EINTR);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5175	__END_INTERRUPTABLE__
21043 1c1cec4aba39 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20975 diff changeset	5176	#endif
1c1cec4aba39 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20975 diff changeset	5177	}
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5178	if (success > 0) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5179	RETURN (nil);
21049 e36caa17b4b7 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21043 diff changeset	5180	}
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5181	error = __mkSmallInteger(__threadErrno);
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	5182
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	5183	err:;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5184	%}.
21049 e36caa17b4b7 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21043 diff changeset	5185
e36caa17b4b7 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21043 diff changeset	5186	error notNil ifTrue:[
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5187	LastErrorNumber := error.
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5188	^ self errorHolderForNumber:error.
21049 e36caa17b4b7 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21043 diff changeset	5189	].
e36caa17b4b7 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21043 diff changeset	5190
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5191	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5192
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5193	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5194	OperatingSystem renameFile:'foo' to:'bar'
21043 1c1cec4aba39 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20975 diff changeset	5195	OperatingSystem renameFile:'c:\windows' to:'c:\win'
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5196	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5197	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5198
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5199	truncateFile:aPathName to:newSize
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5200	"change a files size return true on success, false on failure.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5201	This may not be supported on all architectures.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5202
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5203	This is a low-level entry - use Filename protocol."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5204
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5205	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5206	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5207
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5208	!Win32OperatingSystem class methodsFor:'file access rights'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5209
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5210	accessMaskFor:aSymbol
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5211	"return the access bits mask for numbers as returned by
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5212	OperatingSystem>>accessModeOf:
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5213	and expected by OperatingSystem>>changeAccessModeOf:to:.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5214	Since these numbers are OS dependent, always use the mask
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5215	(never hardcode 8rxxx into your code)."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5216
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5217	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5218	/* posix systems should define these ... */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5219	# ifndef S_IRUSR
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5220	# define S_IRUSR 0400
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5221	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5222	# ifndef S_IWUSR
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5223	# define S_IWUSR 0200
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5224	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5225	# ifndef S_IXUSR
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5226	# define S_IXUSR 0100
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5227	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5228	# ifndef S_IRGRP
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5229	# define S_IRGRP 0040
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5230	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5231	# ifndef S_IWGRP
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5232	# define S_IWGRP 0020
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5233	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5234	# ifndef S_IXGRP
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5235	# define S_IXGRP 0010
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5236	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5237	# ifndef S_IROTH
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5238	# define S_IROTH 0004
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5239	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5240	# ifndef S_IWOTH
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5241	# define S_IWOTH 0002
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5242	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5243	# ifndef S_IXOTH
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5244	# define S_IXOTH 0001
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5245	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5246
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5247	if (aSymbol == @symbol(readUser)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5248	RETURN ( __mkSmallInteger(S_IRUSR) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5249	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5250	if (aSymbol == @symbol(writeUser)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5251	RETURN ( __mkSmallInteger(S_IWUSR) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5252	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5253	if (aSymbol == @symbol(executeUser)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5254	RETURN ( __mkSmallInteger(S_IXUSR) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5255	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5256	if (aSymbol == @symbol(readGroup)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5257	RETURN ( __mkSmallInteger(S_IRGRP) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5258	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5259	if (aSymbol == @symbol(writeGroup)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5260	RETURN ( __mkSmallInteger(S_IWGRP) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5261	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5262	if (aSymbol == @symbol(executeGroup)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5263	RETURN ( __mkSmallInteger(S_IXGRP) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5264	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5265	if (aSymbol == @symbol(readOthers)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5266	RETURN ( __mkSmallInteger(S_IROTH) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5267	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5268	if (aSymbol == @symbol(writeOthers)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5269	RETURN ( __mkSmallInteger(S_IWOTH) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5270	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5271	if (aSymbol == @symbol(executeOthers)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5272	RETURN ( __mkSmallInteger(S_IXOTH) );
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	5273	}
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	5274
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	5275	// 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	5276	// (but handle them for UNIX compatibility
1b41c869040a More file access mode definitions Stefan Vogel <sv@exept.de> parents: 10627 diff changeset	5277	if (aSymbol == @symbol(setUid)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5278	RETURN ( __mkSmallInteger(0) );
10664 1b41c869040a More file access mode definitions Stefan Vogel <sv@exept.de> parents: 10627 diff changeset	5279	}
1b41c869040a More file access mode definitions Stefan Vogel <sv@exept.de> parents: 10627 diff changeset	5280	if (aSymbol == @symbol(setGid)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5281	RETURN ( __mkSmallInteger(0) );
10664 1b41c869040a More file access mode definitions Stefan Vogel <sv@exept.de> parents: 10627 diff changeset	5282	}
1b41c869040a More file access mode definitions Stefan Vogel <sv@exept.de> parents: 10627 diff changeset	5283	if (aSymbol == @symbol(removeOnlyByOwner)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5284	RETURN ( __mkSmallInteger(0) );
10664 1b41c869040a More file access mode definitions Stefan Vogel <sv@exept.de> parents: 10627 diff changeset	5285	}
1b41c869040a More file access mode definitions Stefan Vogel <sv@exept.de> parents: 10627 diff changeset	5286
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5287	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5288	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5289
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5290	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5291	OperatingSystem accessMaskFor:#readUser
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5292	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5293	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5294
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5295	accessModeOf:aPathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5296	"return a number representing access rights rwxrwxrwx for owner,
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5297	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	5298	Notice that the returned number is OS dependent - use the
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5299	modeMasks as returned by OperatingSystem>>accessMaskFor:"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5300
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5301	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5302	this could have been implemented as:
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5303	(self infoOf:aPathName) at:#mode
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5304	but for huge directory searches the code below is faster
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
21073 488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5307	\|error\|
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5308
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5309	%{
10449 41456eed5b53 chmod def for WIN32/msvc Claus Gittinger <cg@exept.de> parents: 10448 diff changeset	5310	struct stat buf;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5311	int ret;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5312
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	5313	if (__isStringLike(aPathName)) {
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5314	#ifdef DO_WRAP_CALLS
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5315	char _aPathName[MAXPATHLEN];
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5316
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5317	strncpy(_aPathName, __stringVal(aPathName), MAXPATHLEN-1); _aPathName[MAXPATHLEN-1] = '\0';
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5318
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5319	do {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5320	__threadErrno = 0;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5321	// do not cast to INT - will loose sign bit then!
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5322	ret = STX_C_NOINT_CALL2( "_stat", _stat, _aPathName, &buf);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5323	} while ((ret < 0) && (__threadErrno == EINTR));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5324	#else
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5325	__BEGIN_INTERRUPTABLE__
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5326	do {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5327	__threadErrno = 0;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5328	ret = _stat( (char *)__stringVal(aPathName), &buf);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5329	} while ((ret < 0) && (__threadErrno == EINTR));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5330	__END_INTERRUPTABLE__
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5331	if (ret < 0) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5332	__threadErrno = __WIN32_ERR(GetLastError());
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5333	}
21073 488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5334	#endif
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	5335	} else if (__isUnicode16String(aPathName)) {
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	5336	#ifdef DO_WRAP_CALLS
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5337	char _wPathName[MAXPATHLEN];
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5338
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5339	_makeWchar(aPathName, _wPathName, sizeof(_wPathName));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5340
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5341	do {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5342	__threadErrno = 0;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5343	// do not cast to INT - will loose sign bit then!
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5344	ret = STX_C_NOINT_CALL2( "_wstat", _wstat, _wPathName, &buf);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5345	} while ((ret < 0) && (__threadErrno == EINTR));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5346	#else
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5347	__BEGIN_INTERRUPTABLE__
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5348	do {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5349	__threadErrno = 0;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5350	ret = _wstat((char *)__unicode16StringVal(aPathName), &buf);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5351	} while ((ret < 0) && (__threadErrno == EINTR));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5352	__END_INTERRUPTABLE__
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5353	if (ret < 0) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5354	__threadErrno = __WIN32_ERR(GetLastError());
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5355	}
21073 488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5356	#endif
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5357	} else
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5358	goto out;
21073 488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5359
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5360	if (ret >= 0) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5361	RETURN ( __mkSmallInteger(buf.st_mode & 0777) );
21073 488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5362	}
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5363	error = __mkSmallInteger(__threadErrno);
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5364	out:;
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5365	%}.
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5366
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5367	error notNil ifTrue:[
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5368	LastErrorNumber := error.
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5369	^ self errorHolderForNumber:error.
21073 488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5370	].
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5371
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5372	^ self primitiveFailed
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5373
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5374	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5375	(OperatingSystem accessModeOf:'/') printStringRadix:8
21073 488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5376	(OperatingSystem accessModeOf:'foo') printStringRadix:8
10449 41456eed5b53 chmod def for WIN32/msvc Claus Gittinger <cg@exept.de> parents: 10448 diff changeset	5377	(OperatingSystem accessModeOf:'Make.proto') printStringRadix:8
21073 488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5378	(OperatingSystem changeAccessModeOf:'foo' to:8r644)
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	5379	'Make.proto' asUnicode16String asFilename accessRights printStringRadix:8
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5380	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5381	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5382
15500 f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5383	accessModeOfFd:aFileDescriptor
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5384	"return a number representing access rights rwxrwxrwx for owner,
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5385	group and others. Return nil if such a file does not exist.
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5386	Notice that the returned number is OS dependent - use the
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5387	modeMasks as returned by OperatingSystem>>accessMaskFor:"
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5388
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5389	"
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5390	this could have been implemented as:
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5391	(self infoOf:aPathName) at:#mode
15500 f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5392	but for huge directory searches the code below is faster
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5393	"
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5394
21073 488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5395	\|error\|
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5396
15500 f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5397	%{
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5398	struct stat buf;
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5399	int ret;
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5400
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5401	if (__isSmallInteger(aFileDescriptor)) {
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5402	#ifdef DO_WRAP_CALLS
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5403	do {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5404	__threadErrno = 0;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5405	// do not cast to INT - will loose sign bit then!
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5406	ret = STX_C_NOINT_CALL2( "fstat", fstat, __smallIntegerVal(aFileDescriptor), &buf);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5407	} while ((ret < 0) && (__threadErrno == EINTR));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5408	#else
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5409	__BEGIN_INTERRUPTABLE__
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5410	do {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5411	__threadErrno = 0;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5412	// do not cast to INT - will loose sign bit then!
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5413	ret = fstat( __smallIntegerVal(aFileDescriptor), &buf);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5414	} while ((ret < 0) && (__threadErrno == EINTR));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5415	__END_INTERRUPTABLE__
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5416	if (ret < 0) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5417	__threadErrno = __WIN32_ERR(GetLastError());
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5418	}
21073 488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5419	#endif
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5420	} else
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5421	goto out;
21073 488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5422
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5423	if (ret >= 0) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5424	RETURN ( __mkSmallInteger(buf.st_mode & 0777) );
21073 488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5425	}
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5426	error = __mkSmallInteger(__threadErrno);
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5427	out:;
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5428	%}.
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5429
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5430	error notNil ifTrue:[
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5431	LastErrorNumber := error.
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5432	^ self errorHolderForNumber:error.
21073 488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5433	].
488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5434	^ self primitiveFailed
15500 f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5435
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5436	"
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5437	'c:\windows' asFilename readingFileDo:[:s\|
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5438	(OperatingSystem accessModeOfFd:s fileDescriptor) printStringRadix:8.
15500 f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5439	].
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5440	'Make.proto' asFilename readingFileDo:[:s\|
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5441	(OperatingSystem accessModeOfFd:s fileDescriptor) printStringRadix:8.
15500 f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5442	].
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5443	(OperatingSystem changeAccessModeOf:'Make.proto' to:8r644)
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5444	"
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5445	!
f30ab7ce37d2 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15472 diff changeset	5446
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5447	changeAccessModeOf:aPathName to:modeBits
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5448	"change the access rights of aPathName to the OS dependent modeBits.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5449	You should construct this mask using accessMaskFor, to be OS
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5450	independent. Return nil if changed,
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5451	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	5452
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5453	\|error\|
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5454
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5455	%{
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5456	int ret;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5457
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	5458	if (__isSmallInteger(modeBits)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5459	if (__isStringLike(aPathName)) {
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5460	#ifdef DO_WRAP_CALLS
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5461	int _chmod();
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5462	char _aPathName[MAXPATHLEN];
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5463
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5464	strncpy(_aPathName, __stringVal(aPathName), MAXPATHLEN-1); _aPathName[MAXPATHLEN-1] = '\0';
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5465	do {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5466	// do not cast to INT - will loose sign bit then!
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5467	ret = STX_C_NOINT_CALL2( "_chmod", _chmod, _aPathName, __intVal(modeBits));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5468	} while ((ret < 0) && (__threadErrno == EINTR));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5469	#else
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5470	__BEGIN_INTERRUPTABLE__
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5471	do {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5472	ret = _chmod((char *)__stringVal(aPathName), __intVal(modeBits));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5473	} while ((ret < 0) && (__threadErrno == EINTR));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5474	__END_INTERRUPTABLE__
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5475	#endif
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5476	} else if (__isUnicode16String(aPathName)) {
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5477	#ifdef DO_WRAP_CALLS
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5478	int _wchmod();
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5479	char _wPathName[MAXPATHLEN];
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5480
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5481	_makeWchar(aPathName, _wPathName, sizeof(_wPathName));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5482	do {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5483	// do not cast to INT - will loose sign bit then!
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5484	ret = STX_C_NOINT_CALL2( "_wchmod", _wchmod, _wPathName, __intVal(modeBits));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5485	} while ((ret < 0) && (__threadErrno == EINTR));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5486	#else
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5487	__BEGIN_INTERRUPTABLE__
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5488	do {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5489	ret = _chmod((wchar_t *)__unicode16StringVal(fullPathName), __intVal(modeBits));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5490	} while ((ret < 0) && (__threadErrno == EINTR));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5491	__END_INTERRUPTABLE__
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5492	#endif
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5493	} else
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5494	goto out;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5495
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5496	if (ret >= 0) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5497	RETURN (nil);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5498	}
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5499
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5500	error = __mkSmallInteger(__threadErrno);
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5501	}
21073 488bb6743b34 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21067 diff changeset	5502	out:;
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5503	%}.
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5504
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5505	error notNil ifTrue:[
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5506	LastErrorNumber := error.
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	5507	^ self errorHolderForNumber:error.
21063 c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5508	].
c8d889d18280 #QUALITY by stefan Stefan Vogel <sv@exept.de> parents: 21049 diff changeset	5509
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	5510	^ self primitiveFailed:#argumentError
10449 41456eed5b53 chmod def for WIN32/msvc Claus Gittinger <cg@exept.de> parents: 10448 diff changeset	5511
41456eed5b53 chmod def for WIN32/msvc Claus Gittinger <cg@exept.de> parents: 10448 diff changeset	5512	"
41456eed5b53 chmod def for WIN32/msvc Claus Gittinger <cg@exept.de> parents: 10448 diff changeset	5513	(OperatingSystem accessModeOf:'Make.proto') printStringRadix:8
41456eed5b53 chmod def for WIN32/msvc Claus Gittinger <cg@exept.de> parents: 10448 diff changeset	5514	(OperatingSystem changeAccessModeOf:'Make.proto' to:8r644)
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	5515	'Make.proto' asUnicode16String asFilename accessRights
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	5516	'Make.proto' asUnicode16String asFilename accessRights:8r644
10449 41456eed5b53 chmod def for WIN32/msvc Claus Gittinger <cg@exept.de> parents: 10448 diff changeset	5517	"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5518	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5519
10913 b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5520	!Win32OperatingSystem class methodsFor:'file dialogs'!
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5521
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5522	commDlgExtendedError
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5523
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5524	<apicall: ulong "CommDlgExtendedError" () module: "comdlg32.dll" >
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5525	^self primitiveFailed
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5526	!
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5527
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5528	getOpenFilename: openFilenameStructureExternalAddress
19651 59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	5529	"Opens a windows native file dialog without blocking stx
19416 90a164f523de #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 19369 diff changeset	5530	for an OpenFilenameStructure stored in an externalStructure"
10913 b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5531
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5532	\| rslt \|
15983 294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5533
10913 b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5534	%{ /* STACK: 32000*/
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5535
15983 294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5536	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	5537	int __rslt;
10913 b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5538
15983 294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5539	if (__isExternalAddressLike(openFilenameStructureExternalAddress)
16337 40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	5540	\|\| __isExternalBytesLike(openFilenameStructureExternalAddress)){
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5541	__address = __externalAddressVal(openFilenameStructureExternalAddress);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5542	__rslt = __STX_API_CALL1( "GetOpenFileNameA", (void *)GetOpenFileNameA, __address);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5543
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5544	if (__rslt == TRUE) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5545	rslt = true;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5546	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5547	rslt = false;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5548	}
15983 294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5549	}
294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5550	%}.
294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5551	rslt isNil ifTrue:[ self primitiveFailed ].
10913 b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5552	^ rslt
15983 294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5553
294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5554	"Modified (format): / 11-02-2014 / 21:18:02 / cg"
10913 b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5555	!
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5556
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5557	getSaveFilename: openFilenameStructureExternalAddress
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5558
19651 59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	5559	"Opens a windows native file dialog without blocking stx
19416 90a164f523de #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 19369 diff changeset	5560	for an OpenFilenameStructure stored in an externalStructure."
10913 b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5561
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5562	\| rslt \|
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5563
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5564	%{ /* STACK: 32000*/
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5565
15983 294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5566	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	5567	int __rslt;
10913 b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5568
15983 294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5569	if (__isExternalAddressLike(openFilenameStructureExternalAddress)
16337 40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	5570	\|\| __isExternalBytesLike(openFilenameStructureExternalAddress)){
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5571	__address = __externalAddressVal(openFilenameStructureExternalAddress);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5572	__rslt = __STX_API_CALL1( "GetSaveFileName", (void *)GetSaveFileName, __address);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5573
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5574	if (__rslt == TRUE) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5575	rslt = true;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5576	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5577	rslt = false;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5578	}
15983 294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5579	}
294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5580	%}.
294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5581	rslt isNil ifTrue:[ self primitiveFailed ].
10913 b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5582	^ rslt
15983 294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5583
294a6922be11 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15923 diff changeset	5584	"Modified: / 11-02-2014 / 21:18:20 / cg"
10913 b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5585	! !
b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	5586
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5587	!Win32OperatingSystem class methodsFor:'file queries'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5588
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5589	caseSensitiveFilenames
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5590	"return true, if the OS has caseSensitive file naming.
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5591	On MSDOS, this will return false;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5592	on a real OS, we return true."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5593
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5594	^ false
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5595	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5596
12969 999e457ed11e added: #clearHidden: sr parents: 12961 diff changeset	5597	clearHidden:aPathName
999e457ed11e added: #clearHidden: sr parents: 12961 diff changeset	5598	"set the hidden attribute; Return true if the operation succeeded"
999e457ed11e added: #clearHidden: sr parents: 12961 diff changeset	5599
999e457ed11e added: #clearHidden: sr parents: 12961 diff changeset	5600	\|attr\|
999e457ed11e added: #clearHidden: sr parents: 12961 diff changeset	5601
999e457ed11e added: #clearHidden: sr parents: 12961 diff changeset	5602	attr := self primGetFileAttributes:aPathName.
999e457ed11e added: #clearHidden: sr parents: 12961 diff changeset	5603	(attr bitTest:FILE_ATTRIBUTE_HIDDEN ) ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5604	^ self primSetFileAttributes:aPathName to:(attr bitClear:2).
12969 999e457ed11e added: #clearHidden: sr parents: 12961 diff changeset	5605	].
999e457ed11e added: #clearHidden: sr parents: 12961 diff changeset	5606	^ true
999e457ed11e added: #clearHidden: sr parents: 12961 diff changeset	5607
999e457ed11e added: #clearHidden: sr parents: 12961 diff changeset	5608	"Created: / 29-07-2010 / 11:31:55 / sr"
999e457ed11e added: #clearHidden: sr parents: 12961 diff changeset	5609	!
999e457ed11e added: #clearHidden: sr parents: 12961 diff changeset	5610
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5611	compressPath:pathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5612	"return the pathName compressed - that is, remove all ..-entries
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5613	and . entries. This does not always (in case of symbolic links)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5614	return the true pathName and is therefore used as a fallback
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5615	if realPath and popen failed."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5616
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5617	\|names n "{ Class: SmallInteger }" \|
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5618
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5619	names := pathName
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5620	asCollectionOfSubstringsSeparatedBy:self fileSeparator.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5621	names := names asOrderedCollection.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5622	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5623	cut off initial double-slashes
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5624	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5625	[names startsWith:#('' '')] whileTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5626	names removeFirst.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5627	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5628	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5629	cut off double-slashes at end
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5630	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5631	[names endsWith:#('')] whileTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5632	names removeLast.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5633	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5634	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5635	cut off current-dir at beginning
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5636	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5637	n := names size.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5638	[(n >= 2) and:[names startsWith:#('.')]] whileTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5639	names removeFirst.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5640	n := n - 1.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5641	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5642
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5643	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5644	cut off parent-dirs at end
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5645	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5646	[(n > 2)
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5647	and:[(names endsWith:#('..'))
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5648	and:[((names at:(n - 1)) startsWith:'.') not ]]] whileTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5649	names removeLast; removeLast.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5650	n := n - 2.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5651	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5652
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5653	^ names asStringWith:self fileSeparator
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5654	from:1
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5655	to:n
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5656	compressTabs:false final:nil
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5657
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5658	"
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5659	OperatingSystem compressPath:'.\..'
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5660	OperatingSystem compressPath:'\foo\bar\baz\..'
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5661	OperatingSystem compressPath:'foo\bar\baz\..'
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5662	OperatingSystem compressPath:'foo\bar\baz\..\'
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5663	OperatingSystem compressPath:'foo\bar\baz\..\\\'
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5664	OperatingSystem compressPath:'\\\foo\bar\baz\..\\\'
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5665	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5666
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5667	"Modified: 1.11.1996 / 20:13:48 / cg"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5668	!
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	fileSeparator
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5671	"return the character used to separate names in a path.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5672	This character differs for MSDOS and other systems,
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5673	(but those are currently not supported - so this is some
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5674	preparation for the future)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5675
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5676	^ $\
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5677	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5678
20548 ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	5679	getBinaryType:aPathName
20549 7dc2b7ee0584 * empty log message * Claus Gittinger <cg@exept.de> parents: 20548 diff changeset	5680	"determines whether a file is executable.
7dc2b7ee0584 * empty log message * Claus Gittinger <cg@exept.de> parents: 20548 diff changeset	5681	Returns nil if not, or some symbol describing the type of
7dc2b7ee0584 * empty log message * Claus Gittinger <cg@exept.de> parents: 20548 diff changeset	5682	binary otherwise."
7dc2b7ee0584 * empty log message * Claus Gittinger <cg@exept.de> parents: 20548 diff changeset	5683
20548 ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	5684	%{
20553 01eab04510d0 fix in getBinaryType Claus Gittinger <cg@exept.de> parents: 20549 diff changeset	5685	// the following is 'not-yet-known' in borland
01eab04510d0 fix in getBinaryType Claus Gittinger <cg@exept.de> parents: 20549 diff changeset	5686	#ifndef SCS_64BIT_BINARY
01eab04510d0 fix in getBinaryType Claus Gittinger <cg@exept.de> parents: 20549 diff changeset	5687	# define SCS_64BIT_BINARY 6
01eab04510d0 fix in getBinaryType Claus Gittinger <cg@exept.de> parents: 20549 diff changeset	5688	// SCS_32BIT_BINARY = 0, // A 32-bit Windows-based application
01eab04510d0 fix in getBinaryType Claus Gittinger <cg@exept.de> parents: 20549 diff changeset	5689	// SCS_64BIT_BINARY = 6, // A 64-bit Windows-based application.
23547 c69c97cec351 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 23107 diff changeset	5690	// SCS_DOS_BINARY = 1, // An MS-DOS - based application
20553 01eab04510d0 fix in getBinaryType Claus Gittinger <cg@exept.de> parents: 20549 diff changeset	5691	// SCS_OS216_BINARY = 5, // A 16-bit OS/2-based application
23547 c69c97cec351 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 23107 diff changeset	5692	// SCS_PIF_BINARY = 3, // A PIF file that executes an MS-DOS - based application
c69c97cec351 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 23107 diff changeset	5693	// SCS_POSIX_BINARY = 4, // A POSIX - based application
20553 01eab04510d0 fix in getBinaryType Claus Gittinger <cg@exept.de> parents: 20549 diff changeset	5694	// SCS_WOW_BINARY = 2 // A 16-bit Windows-based application
01eab04510d0 fix in getBinaryType Claus Gittinger <cg@exept.de> parents: 20549 diff changeset	5695	#endif
01eab04510d0 fix in getBinaryType Claus Gittinger <cg@exept.de> parents: 20549 diff changeset	5696
20548 ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	5697	BOOL ok;
ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	5698	DWORD binaryType;
ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	5699
ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	5700	if (__isStringLike(aPathName)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5701	ok = GetBinaryTypeA(__stringVal(aPathName), &binaryType);
20548 ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	5702	} else if (__isUnicode16String(aPathName)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5703	ok = GetBinaryTypeW(__unicode16StringVal(aPathName), &binaryType);
20548 ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	5704	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5705	goto badArgument;
20548 ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	5706	}
ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	5707
ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	5708	if (ok) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5709	OBJ typeSymbol = nil;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5710
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5711	switch (binaryType) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5712	case SCS_32BIT_BINARY:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5713	// A 32bit Windows-based application
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5714	typeSymbol = @symbol(BINARY_32BIT);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5715	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5716	case SCS_64BIT_BINARY:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5717	// A 64bit Windows-based application.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5718	typeSymbol = @symbol(BINARY_64BIT);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5719	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5720	case SCS_DOS_BINARY:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5721	// An MSDOS based application
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5722	typeSymbol = @symbol(BINARY_DOS);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5723	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5724	case SCS_OS216_BINARY:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5725	// A 16bit OS/2-based application
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5726	typeSymbol = @symbol(BINARY_OS2_16BIT);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5727	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5728	case SCS_PIF_BINARY:
23547 c69c97cec351 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 23107 diff changeset	5729	// A PIF file that executes an MS-DOS - based application
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5730	typeSymbol = @symbol(BINARY_PIF);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5731	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5732	case SCS_POSIX_BINARY:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5733	// A POSIX based application
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5734	typeSymbol = @symbol(BINARY_POSIX);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5735	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5736	case SCS_WOW_BINARY:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5737	// A 16-bit Windows-based application
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5738	typeSymbol = @symbol(BINARY_WOW16);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5739	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5740	default:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5741	typeSymbol = @symbol(other);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5742	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5743	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5744	RETURN (typeSymbol);
20549 7dc2b7ee0584 * empty log message * Claus Gittinger <cg@exept.de> parents: 20548 diff changeset	5745	}
7dc2b7ee0584 * empty log message * Claus Gittinger <cg@exept.de> parents: 20548 diff changeset	5746	RETURN (nil);
7dc2b7ee0584 * empty log message * Claus Gittinger <cg@exept.de> parents: 20548 diff changeset	5747
20548 ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	5748	badArgument: ;
ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	5749	%}.
ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	5750	self primitiveFailed
ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	5751	!
ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	5752
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	5753	getCurrentDirectory
14731 e287dc85f721 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14730 diff changeset	5754	"get the current directory"
e287dc85f721 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14730 diff changeset	5755
18962 29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	5756	%{ /* NOCONTEXT */
14731 e287dc85f721 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14730 diff changeset	5757	int ret;
e287dc85f721 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14730 diff changeset	5758	wchar_t _aPathName[MAXPATHLEN+1];
e287dc85f721 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14730 diff changeset	5759
e287dc85f721 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14730 diff changeset	5760	ret = GetCurrentDirectoryW(MAXPATHLEN, _aPathName);
e287dc85f721 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14730 diff changeset	5761	if (ret == 0) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5762	__threadErrno = __WIN32_ERR(GetLastError());
18962 29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	5763	}
18964 774cb1e6201e #BUGFIX Stefan Vogel <sv@exept.de> parents: 18962 diff changeset	5764	RETURN(__mkStringOrU16String_maxlen(_aPathName, MAXPATHLEN));
18962 29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	5765	%}.
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	5766
11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	5767	"
11291 1e7c06d9d939 * empty log message * Claus Gittinger <cg@exept.de> parents: 11289 diff changeset	5768	self getCurrentDirectory
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	5769	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	5770	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	5771
10014 6aba6d5620ad volumeName Claus Gittinger <cg@exept.de> parents: 9990 diff changeset	5772	getDiskInfoOf:volumeNameArg
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5773	"returns a dictionary filled with any of:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5774	freeBytes
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5775	totalBytes
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5776	and possibly additional (OS-specific) information"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5777
10014 6aba6d5620ad volumeName Claus Gittinger <cg@exept.de> parents: 9990 diff changeset	5778	\|volumeName info ok sectorsPerCluster bytesPerSector freeClusters totalClusters
9955 98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	5779	type freeBytesForUsersQuota freeBytes totalBytes \|
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5780
10014 6aba6d5620ad volumeName Claus Gittinger <cg@exept.de> parents: 9990 diff changeset	5781	volumeName := volumeNameArg.
6aba6d5620ad volumeName Claus Gittinger <cg@exept.de> parents: 9990 diff changeset	5782	(volumeName endsWith:$\) ifFalse:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5783	volumeName := volumeName , '\'
10014 6aba6d5620ad volumeName Claus Gittinger <cg@exept.de> parents: 9990 diff changeset	5784	].
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5785	%{
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	5786	typedef BOOL (WINAPI *P_GDFSE)(LPCTSTR, PULARGE_INTEGER,
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5787	PULARGE_INTEGER, PULARGE_INTEGER);
9955 98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	5788	P_GDFSE pGetDiskFreeSpaceEx = NULL;
98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	5789
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5790	DWORD __sectorsPerCluster, __bytesPerSector, __freeClusters, __totalClusters;
9955 98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	5791	BOOL fResult = 0;
98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	5792	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	5793
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	5794	if (__isStringLike(volumeName) \|\| __isSymbol(volumeName)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5795	/*
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5796	* Use GetDiskFreeSpaceEx if available; otherwise, use GetDiskFreeSpace.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5797	* Notice that GetDiskFreeSpace does not work correctly under win2k,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5798	* and GetDiskFreeSpaceEx is not avail. for all win versions (can microsoft ever do something right ?).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5799	*/
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5800	pGetDiskFreeSpaceEx = (P_GDFSE)GetProcAddress (
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5801	GetModuleHandle ("kernel32.dll"),
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5802	"GetDiskFreeSpaceExA");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5803	if (pGetDiskFreeSpaceEx) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5804	fResult = pGetDiskFreeSpaceEx (__stringVal(volumeName),
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5805	(PULARGE_INTEGER)&i64FreeBytesForUsersQuota,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5806	(PULARGE_INTEGER)&i64TotalBytes,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5807	(PULARGE_INTEGER)&i64FreeBytes);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5808	if (fResult) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5809	freeBytesForUsersQuota = __MKUINT64(&i64FreeBytesForUsersQuota);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5810	totalBytes = __MKUINT64(&i64TotalBytes);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5811	freeBytes = __MKUINT64(&i64FreeBytes);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5812	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5813	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5814	fResult = GetDiskFreeSpace(__stringVal(volumeName),
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5815	&__sectorsPerCluster,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5816	&__bytesPerSector,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5817	&__freeClusters,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5818	&__totalClusters);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5819	if (fResult) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5820	sectorsPerCluster = __MKUINT(__sectorsPerCluster);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5821	bytesPerSector = __MKUINT(__bytesPerSector);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5822	freeClusters = __MKUINT(__freeClusters);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5823	totalClusters = __MKUINT(__totalClusters);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5824	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5825	switch (GetDriveType(__stringVal(volumeName))) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5826	case DRIVE_REMOVABLE:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5827	type = @symbol(removable); break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5828	case DRIVE_FIXED:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5829	type = @symbol(fixed); break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5830	case DRIVE_REMOTE:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5831	type = @symbol(network); break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5832	case DRIVE_CDROM:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5833	type = @symbol(cdrom); break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5834	case DRIVE_RAMDISK:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5835	type = @symbol(ramdisk); break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5836	case DRIVE_UNKNOWN:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5837	default:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5838	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5839	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5840	if (fResult) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5841	ok = true;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5842	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5843	__threadErrno = __WIN32_ERR(GetLastError());
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5844	@global(LastErrorNumber) = __mkSmallInteger(__threadErrno);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5845	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5846	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5847	%}.
9955 98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	5848	ok == true ifFalse:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5849	self primitiveFailed.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5850	^ self
9955 98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	5851	].
98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	5852
98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	5853	info := IdentityDictionary new.
98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	5854	info at:#sectorsPerCluster put:sectorsPerCluster.
98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	5855	info at:#bytesPerSector put:bytesPerSector.
98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	5856	info at:#freeClusters put:freeClusters.
98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	5857	info at:#totalClusters put:totalClusters.
98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	5858
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	5859	info at:#freeBytes put:(freeBytes notNil
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5860	ifTrue:[freeBytes]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5861	ifFalse:[freeClusters * sectorsPerCluster * bytesPerSector]).
9955 98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	5862	info at:#totalBytes put:(totalBytes notNil
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5863	ifTrue:[totalBytes]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5864	ifFalse:[totalClusters * sectorsPerCluster * bytesPerSector]).
9955 98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	5865	info at:#freeBytesForUsersQuota put:freeBytesForUsersQuota.
98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	5866	type notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5867	info at:#type put:type
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5868	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5869	^ info
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5870
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5871	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5872	self getDiskInfoOf:'c:\'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5873	self getDiskInfoOf:'d:\'
9922 124793486a62 * empty log message * Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	5874	self getDiskInfoOf:'e:\'
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	5875	self getDiskInfoOf:'f:\'. OperatingSystem lastErrorString
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5876	"
9955 98ff193dba8b fix getDiskInfoOf: for win2k Claus Gittinger <cg@exept.de> parents: 9924 diff changeset	5877
10014 6aba6d5620ad volumeName Claus Gittinger <cg@exept.de> parents: 9990 diff changeset	5878	"Modified: / 26-09-2006 / 16:19:33 / cg"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5879	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5880
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5881	getDriveList
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5882	"return a list of volumes in the system.
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5883	On unix, no such thing like a volume exists
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	5884	- there, a syntetic list with root, home & current is returned.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5885	On MSDOS, a list of drive letters is (eventually) returned.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5886	On VMS, a list of volumes is (eventually) returned."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5887
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5888	\|list\|
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5889
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5890	list := OrderedCollection new.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5891	%{
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5892	/*
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5893	* add drive letters as strings to list ...
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5894	*/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5895	char buffer[1024];
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5896	char *cp;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5897
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5898	GetLogicalDriveStrings(1023, buffer);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5899	for (cp=buffer; *cp; ) {
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5900	__SSEND1(list, @symbol(add:), 0, __MKSTRING(cp));
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5901	cp += strlen(cp) + 1;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5902	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5903	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5904	^ list
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5905	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5906
11247 f4206a7664bb * empty log message * sr parents: 11246 diff changeset	5907	getDriveType:aPathName
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	5908	"returns:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5909	0 -> Unknown
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5910	1 -> Invalid
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5911	2 -> removable
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5912	3 -> fixed
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5913	4 -> remote
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5914	5 -> cdrom
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5915	6 -> ramdisk.
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	5916	This is a stupid interface - do not use."
11247 f4206a7664bb * empty log message * sr parents: 11246 diff changeset	5917
f4206a7664bb * empty log message * sr parents: 11246 diff changeset	5918	%{
f4206a7664bb * empty log message * sr parents: 11246 diff changeset	5919	int ret;
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	5920	wchar_t _aPathName[MAXPATHLEN];
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	5921
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	5922	if (_makeWchar(aPathName, _aPathName, sizeof(_aPathName)) > 0) {
11247 f4206a7664bb * empty log message * sr parents: 11246 diff changeset	5923	#ifdef DO_WRAP_CALLS
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5924	do {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5925	__threadErrno = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5926	// do not cast to INT - will loose sign bit then!
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5927	ret = (int)(STX_API_NOINT_CALL1( "GetDriveTypeW", GetDriveTypeW, _aPathName));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5928	} while ((ret < 0) && (__threadErrno == EINTR));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5929	#else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5930	ret = GetDriveTypeW(_aPathName);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5931	if (ret < 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5932	__threadErrno = __WIN32_ERR(GetLastError());
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5933	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5934	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5935	RETURN (__MKSMALLINT(ret));
11247 f4206a7664bb * empty log message * sr parents: 11246 diff changeset	5936	}
f4206a7664bb * empty log message * sr parents: 11246 diff changeset	5937	%}.
f4206a7664bb * empty log message * sr parents: 11246 diff changeset	5938	^ self primitiveFailed
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	5939
11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	5940	"
11291 1e7c06d9d939 * empty log message * Claus Gittinger <cg@exept.de> parents: 11289 diff changeset	5941	self getDriveType:'x:\'
1e7c06d9d939 * empty log message * Claus Gittinger <cg@exept.de> parents: 11289 diff changeset	5942	self getDriveType:'C:\'
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	5943	self getDriveType:'D:\'
11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	5944	"
11247 f4206a7664bb * empty log message * sr parents: 11246 diff changeset	5945	!
f4206a7664bb * empty log message * sr parents: 11246 diff changeset	5946
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5947	getFileVersionInfoOf:aPathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5948	"retrieves the versionData from an executable or dll.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5949	The returned value is either a byteArray, which should be
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5950	processed further with extractVersionValue (VerQueryValue),
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5951	or nil.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5952	This is a WIN32 specific entry, not for common usage."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5953	%{
9424 a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	5954	int sz;
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	5955	DWORD dummy;
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	5956
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	5957	if (__isStringLike(aPathName)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5958	sz = GetFileVersionInfoSizeA(__stringVal(aPathName), &dummy);
9424 a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	5959	} else if (__isUnicode16String(aPathName)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5960	sz = GetFileVersionInfoSizeW(__unicode16StringVal(aPathName), &dummy);
9424 a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	5961	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5962	goto badArgument;
9424 a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	5963	}
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	5964
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	5965	if (sz > 0) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5966	OBJ versionData;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5967
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5968	versionData = __BYTEARRAY_UNINITIALIZED_NEW_INT(sz);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5969	if (versionData == nil) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5970	RETURN (nil);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5971	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5972	if (GetFileVersionInfo(__stringVal(aPathName), 0, sz, __ByteArrayInstPtr(versionData)->ba_element) == FALSE) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5973	RETURN (nil);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5974	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5975	RETURN (versionData);
9424 a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	5976	}
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	5977	RETURN (nil);
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	5978	badArgument: ;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5979	%}.
9424 a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	5980	self primitiveFailed
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	5981
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	5982	"Modified: / 05-07-2006 / 16:56:06 / cg"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5983	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	5984
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	5985	getLongPathName:aPathName
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	5986	"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	5987
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	5988	%{
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	5989	int ret;
13778 8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	5990	wchar_t _aPathName[MAXPATHLEN+1];
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	5991
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	5992	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	5993	#ifdef DO_WRAP_CALLS
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5994	do {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5995	__threadErrno = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5996	// do not cast to INT - will loose sign bit then!
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5997	ret = (int)(STX_API_NOINT_CALL3( "GetLongPathNameW", GetLongPathNameW, _aPathName, _aPathName, MAXPATHLEN));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5998	} while ((ret == 0) && (__threadErrno == EINTR));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	5999	#else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6000	ret = GetLongPathNameW(_aPathName, _aPathName, MAXPATHLEN);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6001	if (ret == 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6002	__threadErrno = __WIN32_ERR(GetLastError());
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6003	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6004	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6005	RETURN (__mkStringOrU16String_maxlen(_aPathName, MAXPATHLEN));
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6006	}
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6007	%}.
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6008	^ self primitiveFailed
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6009
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6010	"
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6011	self getLongPathName:'x:\'
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	6012	self getLongPathName:'c:\Dokumente und Einstellungen'
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	6013	self getShortPathName:'c:\Dokumente und Einstellungen'
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6014	"
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6015	!
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6016
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6017	getNullDevice
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6018	"get the name of the null-device."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6019
8755 8e67c864b126 Fix #getNullDevice Stefan Vogel <sv@exept.de> parents: 8742 diff changeset	6020	^ 'nul:'
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6021	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6022
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	6023	getObjectFileInfoFor:aStringOrFilename
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	6024	"Return and info object for given executable or shared object
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	6025	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	6026	shared object.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	6027
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	6028	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	6029	least
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6030	#isFor32BitArchitecture
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6031	#isFor64BitArchitecture ... returns true, if the given object is for
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6032	32bit, 64bit architecture respectively
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	6033	"
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	6034	^ PECOFFFileHeader fromFile: aStringOrFilename
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	6035
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	6036	"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	6037	!
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	6038
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6039	getShortPathName:aPathName
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6040	"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	6041
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6042	%{
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6043	int ret;
13778 8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	6044	wchar_t _aPathName[MAXPATHLEN+1];
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6045
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6046	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	6047	#ifdef DO_WRAP_CALLS
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6048	do {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6049	__threadErrno = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6050	// do not cast to INT - will loose sign bit then!
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6051	ret = (int)(STX_API_NOINT_CALL3( "GetShortPathNameW", GetShortPathNameW, _aPathName, _aPathName, MAXPATHLEN));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6052	} while ((ret == 0) && (__threadErrno == EINTR));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6053	#else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6054	ret = GetShortPathNameW(_aPathName, _aPathName, MAXPATHLEN);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6055	if (ret == 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6056	__threadErrno = __WIN32_ERR(GetLastError());
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6057	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6058	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6059	RETURN (__mkStringOrU16String_maxlen(_aPathName, MAXPATHLEN));
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6060	}
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6061	%}.
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6062	^ self primitiveFailed
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6063
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6064	"
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6065	self getShortPathName:'x:\'
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	6066	self getShortPathName:'c:\Dokumente und Einstellungen'
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	6067	self getLongPathName:'c:\Dokumente und Einstellungen'
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6068	"
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6069	!
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6070
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6071	getVolumeInformation: rootPath
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6072	name: volumeNameBuffer
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6073	nameSize: volumeNameSize
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6074	serialNumber: serialNumber
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6075	maximumComponentLength: maximumComponentLength
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6076	fileSystemFlags: fileSystemFlags
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6077	fileSystemName: fileSystemName
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6078	fileSystemNameSize: fileSystemNameSize
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6079
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6080	<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	6081	^self primitiveFailed
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6082	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6083
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6084	infoOf:aPathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6085	"return some object filled with info for the file 'aPathName';
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6086	the info (for which corresponding access methods are understood by
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6087	the returned object) is:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6088	type - a symbol giving the files type
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6089	mode - numeric access mode
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6090	uid - owners user id
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6091	gid - owners group id
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6092	size - files size
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6093	id - files number (i.e. inode number)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6094	accessed - last access time (as Timestamp)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6095	modified - last modification time (as Timestamp)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6096	statusChanged - last status change time (as Timestamp)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6097	alternativeName - (windows only:) the MSDOS name of the file
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6098
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6099	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	6100	all of the information.
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	6101	Return nil if such a file does not exist.
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	6102	For symbolic links (if supported by the OS),
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6103	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	6104	use #linkInfoOf: to get info about the link itself.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6105	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6106
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6107	\|info target\|
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6108
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6109	info := self linkInfoOf:aPathName.
10164 2a98bef917b7 care for nil linkInfo ca parents: 10161 diff changeset	6110	(info notNil and:[info isSymbolicLink]) ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6111	target := info path.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6112	target notNil ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6113	^ self linkInfoOf:target.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6114	]
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6115	].
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6116	^ info
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6117
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6118	"
6377 0113dcb902c5 simulate :drive as a directory Claus Gittinger <cg@exept.de> parents: 6372 diff changeset	6119	OperatingSystem infoOf:'c:\windows'
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6120	OperatingSystem infoOf:'stx.exe'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6121	(OperatingSystem infoOf:'/') uid
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6122	(OperatingSystem infoOf:'/') accessed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6123	"
6377 0113dcb902c5 simulate :drive as a directory Claus Gittinger <cg@exept.de> parents: 6372 diff changeset	6124
10373 92efacf8b050 getLinkTarget is now done lazyly. Claus Gittinger <cg@exept.de> parents: 10365 diff changeset	6125	"Modified: / 07-02-2007 / 10:37:14 / cg"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6126	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6127
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6128	isDirectory:aPathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6129	"return true, if 'aPathName' is a valid directory path name.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6130	(i.e. exists and is a directory).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6131	This also returns true for symbolic links pointing to a directory;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6132	if you need to check for this, use #linkInfo:."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6133
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6134	%{
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6135	int ret;
11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6136
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	6137	if (__isStringLike(aPathName)) {
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6138	#ifdef DO_WRAP_CALLS
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6139	char _aPathName[MAXPATHLEN];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6140
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6141	strncpy(_aPathName, __stringVal(aPathName), MAXPATHLEN-1); _aPathName[MAXPATHLEN-1] = '\0';
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6142	do {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6143	__threadErrno = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6144	// do not cast to INT - will loose sign bit then!
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6145	ret = (int)(STX_API_NOINT_CALL1( "GetFileAttributesA", GetFileAttributesA, _aPathName));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6146	} while ((ret == -1) && (__threadErrno == EINTR));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6147	#else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6148	ret = GetFileAttributesA((char *) __stringVal(aPathName));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6149	if (ret == -1) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6150	__threadErrno = __WIN32_ERR(GetLastError());
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6151	}
12715 1ef13bfe9cbb changed:15 methods sr parents: 12686 diff changeset	6152	#endif
12730 d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	6153	} else if (__isUnicode16String(aPathName)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6154	wchar_t _wPathName[MAXPATHLEN+1];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6155
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6156	_makeWchar(aPathName, _wPathName, sizeof(_wPathName));
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6157	#ifdef DO_WRAP_CALLS
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6158	do {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6159	__threadErrno = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6160	// do not cast to INT - will loose sign bit then!
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6161	ret = (int)(STX_API_NOINT_CALL1( "GetFileAttributesW", GetFileAttributesW, _wPathName));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6162	} while ((ret == -1) && (__threadErrno == EINTR));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6163	#else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6164	ret = GetFileAttributesW(_wPathName);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6165	if (ret == -1) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6166	__threadErrno = __WIN32_ERR(GetLastError());
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6167	}
12715 1ef13bfe9cbb changed:15 methods sr parents: 12686 diff changeset	6168	#endif
12730 d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	6169	} else
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6170	goto err;
12730 d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	6171
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	6172	if (ret < 0) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6173	@global(LastErrorNumber) = __mkSmallInteger(__threadErrno);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6174	RETURN ( false );
12730 d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	6175	}
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	6176	RETURN ( (ret & FILE_ATTRIBUTE_DIRECTORY) ? true : false);
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	6177	err:;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6178	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6179	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6180
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6181	"an alternative implementation would be:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6182	^ (self infoOf:aPathName) type == #directory
11291 1e7c06d9d939 * empty log message * Claus Gittinger <cg@exept.de> parents: 11289 diff changeset	6183	"
1e7c06d9d939 * empty log message * Claus Gittinger <cg@exept.de> parents: 11289 diff changeset	6184	"
1e7c06d9d939 * empty log message * Claus Gittinger <cg@exept.de> parents: 11289 diff changeset	6185	self isDirectory:'.'
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6186	self isDirectory:'.' asUnicode16String
9424 a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6187	"
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6188
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6189	"Modified: / 05-07-2006 / 17:23:42 / cg"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6190	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6191
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6192	isExecutable:aPathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6193	"return true, if the given file is executable.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6194	For symbolic links, the pointed-to-file is checked."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6195
9424 a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6196	"/
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6197	"/ under windows, there is no executable attribute ...
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6198	"/ so, only check for the files existence here.
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6199	"/
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6200	^ self isValidPath:aPathName.
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6201
a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6202	"Modified: / 05-07-2006 / 17:23:19 / cg"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6203	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6204
10596 072effcc1e88 added #isHidden sr parents: 10585 diff changeset	6205	isHidden:aPathName
072effcc1e88 added #isHidden sr parents: 10585 diff changeset	6206	"return true, if the given file is hidden"
072effcc1e88 added #isHidden sr parents: 10585 diff changeset	6207
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6208	\|attr\|
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6209
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6210	attr := self primGetFileAttributes:aPathName.
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6211	attr notNil ifTrue:[^ attr bitTest: FILE_ATTRIBUTE_HIDDEN ].
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6212	^ false
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6213
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6214	"
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	6215	self isHidden:'.'
11291 1e7c06d9d939 * empty log message * Claus Gittinger <cg@exept.de> parents: 11289 diff changeset	6216	self isHidden:'.' asUnicode16String
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6217	"
10596 072effcc1e88 added #isHidden sr parents: 10585 diff changeset	6218	!
072effcc1e88 added #isHidden sr parents: 10585 diff changeset	6219
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6220	isReadable:aPathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6221	"return true, if the file/dir 'aPathName' is readable.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6222	For symbolic links, the pointed-to-file is checked."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6223
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6224	"under windows, all files are readable ...
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6225	so, only check for the files existence here"
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6226
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6227	^ (self primGetFileAttributes:aPathName) notNil.
9424 a90e99c554d4 preps for wchar filenames Claus Gittinger <cg@exept.de> parents: 9390 diff changeset	6228
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6229	"
11291 1e7c06d9d939 * empty log message * Claus Gittinger <cg@exept.de> parents: 11289 diff changeset	6230	self isReadable:'.'
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6231	self isReadable:'ughoiweuhiourw'
11291 1e7c06d9d939 * empty log message * Claus Gittinger <cg@exept.de> parents: 11289 diff changeset	6232	self isReadable:'.' asUnicode16String
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6233	"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6234	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6235
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6236	isTemporary:aPathName
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6237	"return true, if the given file is a temporary file"
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6238
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6239	\|attr\|
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6240
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6241	attr := self primGetFileAttributes:aPathName.
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6242	attr notNil ifTrue:[^ attr bitTest: FILE_ATTRIBUTE_TEMPORARY ].
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6243	^ false
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6244
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6245	"
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	6246	self isTemporary:'.'
1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	6247	self isTemporary:'.' asUnicode16String
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6248	"
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6249	!
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6250
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6251	isValidPath:aPathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6252	"return true, if 'aPathName' is a valid path name
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6253	(i.e. the file or directory exists)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6254
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6255	^ (self primGetFileAttributes:aPathName) notNil.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6256	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6257
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6258	isWritable:aPathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6259	"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	6260	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	6261
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	6262	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	6263	See http://support.microsoft.com/kb/326549.
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6264	So we always return true for directories."
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6265
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6266	\|attr\|
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6267
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6268	attr := self primGetFileAttributes:aPathName.
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6269	attr notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6270	^ (attr bitAnd: (FILE_ATTRIBUTE_DIRECTORY bitOr: FILE_ATTRIBUTE_READONLY ))
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6271	~~ FILE_ATTRIBUTE_READONLY
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6272	].
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6273	^ false
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6274
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6275	"
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	6276	self isWritable:'.'
1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	6277	self isWritable:'.' asUnicode16String
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6278	self isWritable:'' asUnicode16String
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	6279	"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6280	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6281
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6282	linkInfoOf:aPathName
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6283	"return some object filled with info for the file 'aPathName';
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6284	the info (for which corresponding access methods are understood by
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6285	the returned object) is:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6286	type - a symbol giving the files type
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6287	mode - numeric access mode
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6288	uid - owners user id
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6289	gid - owners group id
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6290	size - files size
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6291	id - files number (i.e. inode number)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6292	accessed - last access time (as Timestamp)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6293	modified - last modification time (as Timestamp)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6294	statusChanged - last status change time (as Timestamp)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6295	alternativeName - (windows only:) the MSDOS name of the file
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6296
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6297	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	6298	all of the information.
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6299	Return nil if such a file does not exist.
15252 621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	6300
621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	6301	Return the info about the link itself,
621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	6302	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	6303	in case of a symbolic link.
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6304	"
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6305
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6306	\|info type mode uid gid size id
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6307	atime mtime ctime
12821 56c56e8bee2a Raise TimeConversionError if appropriate. Stefan Vogel <sv@exept.de> parents: 12820 diff changeset	6308	aOsTime mOsTime cOsTime
11258 5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	6309	fileName alternativeName\|
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6310
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6311	%{
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6312	BOOL result;
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6313	int ret;
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6314	wchar_t alternativeFileNameBuffer[15];
13778 8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	6315	wchar_t fileNameBuffer[MAXPATHLEN+1];
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6316	int modeBits = 0;
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6317	WIN32_FILE_ATTRIBUTE_DATA fileAttributeData;
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6318	unsigned INT ino;
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6319	wchar_t _wPathName[MAXPATHLEN+1];
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6320
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6321	if (_makeWchar(aPathName, _wPathName, sizeof(_wPathName)) < 0)
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6322	goto badArgument;
11291 1e7c06d9d939 * empty log message * Claus Gittinger <cg@exept.de> parents: 11289 diff changeset	6323
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6324	#ifdef DO_WRAP_CALLS
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6325	{
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6326	do {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6327	__threadErrno = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6328	// do not cast to INT - will loose sign bit then!
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6329	result = (int)(STX_API_NOINT_CALL3( "GetFileAttributesExW", GetFileAttributesExW, _wPathName, GetFileExInfoStandard, &fileAttributeData));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6330	} while (!result && (__threadErrno == EINTR));
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6331	}
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6332	#else
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6333	result = GetFileAttributesExW(_wPathName, GetFileExInfoStandard, &fileAttributeData);
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6334	if (!result) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6335	__threadErrno = __WIN32_ERR(GetLastError());
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6336	}
11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6337	#endif
11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6338
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6339	if (!result) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6340	@global(LastErrorNumber) = __mkSmallInteger(__threadErrno);
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6341	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6342	id = __mkSmallInteger(0); /* could get it by opening ... */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6343	size = __MKLARGEINT64(1, fileAttributeData.nFileSizeLow, fileAttributeData.nFileSizeHigh);
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6344
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6345	// if (fileAttributeData.cFileName[0] != '\0') {
13778 8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	6346	// bcopy(fileAttributeData.cFileName, fileNameBuffer, MAXPATHLEN*sizeof(wchar_t));
8e34483d10dd MAXPATHLEN cleanup; Claus Gittinger <cg@exept.de> parents: 13742 diff changeset	6347	// fileNameBuffer[MAXPATHLEN] = '\0';
18964 774cb1e6201e #BUGFIX Stefan Vogel <sv@exept.de> parents: 18962 diff changeset	6348	// 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	6349	// }
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6350
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6351	// if (fileAttributeData.cAlternateFileName[0] != '\0') {
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	6352	// 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	6353	// alternativeFileNameBuffer[14] = '\0';
18964 774cb1e6201e #BUGFIX Stefan Vogel <sv@exept.de> parents: 18962 diff changeset	6354	// 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	6355	// }
11779 73c3f28d8960 Fix write access checking fpr directories in Windows. Stefan Vogel <sv@exept.de> parents: 11767 diff changeset	6356
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6357	/*
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6358	* simulate access bits
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6359	*/
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6360	if (fileAttributeData.dwFileAttributes & FILE_ATTRIBUTE_READONLY) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6361	modeBits = 0444;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6362	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6363	modeBits = 0666;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6364	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6365
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6366	if (fileAttributeData.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6367	type = @symbol(directory);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6368	modeBits = 0777; /* executable and WRITABLE - refer to comment in #isWritable: */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6369	} else if (fileAttributeData.dwFileAttributes & FILE_ATTRIBUTE_REPARSE_POINT) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6370	type = @symbol(symbolicLink);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6371	modeBits = 0777; /* even in UNIX symlinks have 0777 */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6372	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6373	type = @symbol(regular);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6374	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6375
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6376	mode = __mkSmallInteger(modeBits);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6377
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6378	cOsTime = FileTimeToOsTime1970(&fileAttributeData.ftCreationTime);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6379	aOsTime = FileTimeToOsTime1970(&fileAttributeData.ftLastAccessTime);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6380	mOsTime = FileTimeToOsTime1970(&fileAttributeData.ftLastWriteTime);
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6381	}
11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6382
11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6383	badArgument: ;
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6384	%}.
11811 530bb21f57f9 #linkInfoOf: Stefan Vogel <sv@exept.de> parents: 11810 diff changeset	6385
10161 fd6b02ffb383 avoid recursion Claus Gittinger <cg@exept.de> parents: 10160 diff changeset	6386	(aPathName endsWith:'.lnk') ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6387	type := #symbolicLink.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6388	"/ now done lazily in FileStatusInfo, when the path is accessed
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6389	"/ path := self getLinkTarget:aPathName.
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6390	].
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6391
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6392	mode isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6393	(self isDirectory:aPathName) ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6394	"/ the code above fails for root directories (these do not exist).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6395	"/ simulate here
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6396	mode := 8r777.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6397	type := #directory.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6398	uid := gid := 0.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6399	size := 0.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6400	id := 0.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6401	atime := mtime := ctime := Timestamp now.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6402	].
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6403	].
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6404	mode notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6405	atime isNil ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6406	"/ rebias to 1970 by subtracting the number of millis from 1.1.1601 to 1.1.1970
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6407	"/ aOsTime := aOsTime - self osTimeOf19700101. -- already done
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6408	atime := Timestamp new fromOSTime:aOsTime.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6409	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6410	mtime isNil ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6411	"/ rebias to 1970 by subtracting the number of millis from 1.1.1601 to 1.1.1970
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6412	"/ mOsTime := mOsTime - self osTimeOf19700101. -- already done
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6413	mtime := Timestamp new fromOSTime:mOsTime.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6414	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6415	ctime isNil ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6416	"/ rebias to 1970 by subtracting the number of millis from 1.1.1601 to 1.1.1970
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6417	"/ cOsTime := cOsTime - self osTimeOf19700101. -- already done
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6418	ctime := Timestamp new fromOSTime:cOsTime.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6419	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6420
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6421	info := FileStatusInfo
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6422	type:type mode:mode
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6423	uid:uid gid:gid
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6424	size:size
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6425	id:id
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6426	accessed:atime modified:mtime created:ctime
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6427	sourcePath:aPathName
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6428	fullName:fileName alternativeName:alternativeName.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6429	^ info
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6430	].
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6431	^ nil
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6432
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6433	"
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6434	OperatingSystem linkInfoOf:'c:\windows'
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	6435	OperatingSystem linkInfoOf:'stx.exe'
51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	6436	(OperatingSystem linkInfoOf:'/') uid
51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	6437	(OperatingSystem linkInfoOf:'/') accessed
11811 530bb21f57f9 #linkInfoOf: Stefan Vogel <sv@exept.de> parents: 11810 diff changeset	6438	OperatingSystem linkInfoOf:'C:\Dokumente und Einstellungen\stefan\Desktop\System.lnk'
10158 8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6439	"
8382920f9265 symbolic link targets Claus Gittinger <cg@exept.de> parents: 10098 diff changeset	6440
10373 92efacf8b050 getLinkTarget is now done lazyly. Claus Gittinger <cg@exept.de> parents: 10365 diff changeset	6441	"Modified: / 07-02-2007 / 10:30:14 / cg"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6442	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6443
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6444	mimeTypeForSuffix:aFileSuffix
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6445	"given a file suffix, return a corresponding mimeType.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6446	Here, the Registry is consulted.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6447	Returns nil if no mimeType for the given suffix is known."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6448
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	6449	^ RegistryEntry
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6450	stringValueFor:'Content Type'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6451	atKey:('HKEY_CLASSES_ROOT\.' , aFileSuffix)
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6452
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6453	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	6454	self mimeTypeForSuffix:'au'
9025 e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	6455	self mimeTypeForSuffix:'st'
e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	6456	self mimeTypeForSuffix:'dll'
9013 7e4f88f6c1a5 comments Claus Gittinger <cg@exept.de> parents: 8934 diff changeset	6457	"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6458	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6459
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6460	parentDirectoryName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6461	"return the name used to refer to parent directories.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6462	In MSDOS, Unix and other systems this is '..', but maybe different
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6463	for other systems.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6464	(but those are currently not supported - so this is some
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6465	preparation for the future)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6466
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6467	^ '..'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6468	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6469
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6470	pathNameOf:pathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6471	"return the pathName of the argument, aPathString,
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6472	- thats the full pathname of the directory, starting at '/'.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6473	This method needs the path to be valid
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6474	(i.e. all directories must exist, be readable and executable).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6475	Notice: if symbolic links are involved, the result may look different
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6476	from what you expect."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6477
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6478	\|p path\|
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6479
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6480	"some systems have a convenient function for this ..."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6481	path := self primPathNameOf:pathName.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6482
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6483	path isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6484	(self isValidPath:pathName) ifFalse:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6485	p := pathName.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6486	[(p size > 1)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6487	and:[p endsWith:(self fileSeparator)]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6488	] whileTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6489	p := p copyButLast:1.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6490	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6491	^ p
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6492	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6493
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6494	"/
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6495	"/ return the original - there is nothing else can we do
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6496	"/
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6497	path := self compressPath:pathName
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6498	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6499	^ path.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6500
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6501	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6502	OperatingSystem pathNameOf:'.'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6503	OperatingSystem pathNameOf:'../smalltalk/../smalltalk'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6504	OperatingSystem pathNameOf:'../../..'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6505	OperatingSystem pathNameOf:'..'
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	6506	OperatingSystem pathNameOf:'/tmp////'
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	6507	OperatingSystem pathNameOf:'/foo/bar'
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6508	OperatingSystem pathNameOf:'/foo/bar/'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6509	OperatingSystem pathNameOf:'/foo/bar//'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6510	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6511
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6512	"Modified: 29.11.1996 / 18:02:12 / stefan"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6513	"Modified: 10.1.1997 / 19:10:42 / cg"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6514	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6515
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6516	primGetFileAttributes:aPathName
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6517	"get the file-attributes"
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6518
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6519	\|errorNumber\|
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6520
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6521	%{
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6522	int ret;
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6523
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	6524	if (__isStringLike(aPathName)) {
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6525	#ifdef DO_WRAP_CALLS
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6526	char _aPathName[MAXPATHLEN];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6527
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6528	strncpy(_aPathName, __stringVal(aPathName), MAXPATHLEN-1); _aPathName[MAXPATHLEN-1] = '\0';
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6529	do {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6530	__threadErrno = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6531	// do not cast to INT - will loose sign bit then!
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6532	ret = (int)(STX_API_NOINT_CALL1( "GetFileAttributesA", GetFileAttributesA, _aPathName));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6533	} while ((ret < 0) && (__threadErrno == EINTR));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6534	#else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6535	ret = GetFileAttributesA((char *) __stringVal(aPathName));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6536	if (ret < 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6537	__threadErrno = __WIN32_ERR(GetLastError());
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6538	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6539	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6540	if (ret >= 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6541	RETURN ( __mkSmallInteger(ret) );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6542	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6543	__threadErrno = __WIN32_ERR(GetLastError());
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6544	RETURN (nil);
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6545	}
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6546
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6547	if (__isUnicode16String(aPathName)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6548	wchar_t _wPathName[MAXPATHLEN+1];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6549
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6550	_makeWchar(aPathName, _wPathName, sizeof(_wPathName));
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6551
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6552	#ifdef DO_WRAP_CALLS
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6553	do {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6554	__threadErrno = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6555	// do not cast to INT - will loose sign bit then!
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6556	ret = (int)(STX_API_NOINT_CALL1( "GetFileAttributesW", GetFileAttributesW, _wPathName));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6557	} while ((ret < 0) && (__threadErrno == EINTR));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6558	#else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6559	ret = GetFileAttributesW(_wPathName);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6560	if (ret < 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6561	__threadErrno = __WIN32_ERR(GetLastError());
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6562	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6563	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6564	if (ret >= 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6565	RETURN ( __mkSmallInteger(ret) );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6566	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6567	__threadErrno = __WIN32_ERR(GetLastError());
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6568	RETURN (nil);
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6569	}
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6570	%}.
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6571	(aPathName isString and:[aPathName isUnicode32String]) ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6572	"/ WIN32 only support 16 bit (wide) strings
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6573	^ self primGetFileAttributes:aPathName asUnicode16String
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6574	].
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6575
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6576	^ self primitiveFailed
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6577
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6578	"
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6579	self primGetFileAttributes:'.'
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6580	self primGetFileAttributes:'bc.mak'
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6581
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6582	self primGetFileAttributes:'.' asUnicodeString
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	6583	self primGetFileAttributes:'.' asUnicode32String
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	6584	self primGetFileAttributes:'bc.mak' asUnicodeString
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6585	"
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6586	!
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6587
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6588	primIdOf:aPathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6589	"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	6590
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6591	^ nil
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6592	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6593
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6594	primPathNameOf:aPathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6595	"return the pathName of the argument, aPathString,
15169 0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	6596	- thats the full pathname of the directory, starting at 'X:\'.
0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	6597	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	6598	Notice: if symbolic links are involved, the result may look different
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6599	from what you expect."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6600
15169 0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	6601	\|error\|
0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	6602
0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	6603	%{
9390 a0c059f2477c #primPathNameOf: -- allow symbol as arg (sv) ca parents: 9384 diff changeset	6604	if (__isStringLike(aPathName)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6605	char nameBuffer[MAXPATHLEN + 1];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6606	char nameBuffer2[MAXPATHLEN + 1];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6607	char *returnedName = NULL;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6608	int rslt;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6609
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6610	#ifdef DO_WRAP_CALLS
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6611	char _aPathName[MAXPATHLEN+1];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6612
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6613	strncpy(_aPathName, __stringVal(aPathName), MAXPATHLEN-1); _aPathName[MAXPATHLEN-1] = '\0';
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6614	do {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6615	__threadErrno = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6616	// do not cast to INT - will loose sign bit then!
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6617	rslt = (int)(STX_API_NOINT_CALL4( "GetFullPathNameA", GetFullPathNameA, _aPathName, MAXPATHLEN, nameBuffer, NULL));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6618	} while ((rslt < 0) && (__threadErrno == EINTR));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6619	#else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6620	rslt = GetFullPathNameA(__stringVal(aPathName), MAXPATHLEN, nameBuffer, NULL);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6621	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6622	returnedName = nameBuffer;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6623
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6624	if (rslt > 0) {
8652 793cc6e353bf * empty log message * Claus Gittinger <cg@exept.de> parents: 8651 diff changeset	6625	#ifdef DO_WRAP_CALLS
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6626	do {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6627	__threadErrno = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6628	// do not cast to INT - will loose sign bit then!
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6629	rslt = (int)(STX_API_NOINT_CALL3( "GetLongPathNameA", GetLongPathNameA, nameBuffer, nameBuffer2, MAXPATHLEN));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6630	} while ((rslt < 0) && (__threadErrno == EINTR));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6631	#else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6632	rslt = GetLongPathNameA(nameBuffer, nameBuffer2, MAXPATHLEN);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6633	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6634	returnedName = nameBuffer2;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6635	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6636	if (rslt > 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6637	RETURN ( __MKSTRING(returnedName) );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6638	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6639	__threadErrno = __WIN32_ERR(GetLastError());
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6640	RETURN (nil);
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6641	}
11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6642	if (__isUnicode16String(aPathName)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6643	wchar_t nameBuffer[MAXPATHLEN + 1];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6644	wchar_t nameBuffer2[MAXPATHLEN + 1];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6645	wchar_t *returnedName = NULL;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6646	int rslt;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6647	wchar_t _wPathName[MAXPATHLEN+1];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6648
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6649	_makeWchar(aPathName, _wPathName, sizeof(_wPathName));
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6650
11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6651	#ifdef DO_WRAP_CALLS
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6652	do {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6653	__threadErrno = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6654	rslt = (int)(STX_API_NOINT_CALL4( "GetFullPathNameW", GetFullPathNameW, _wPathName, MAXPATHLEN, nameBuffer, NULL));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6655	} while ((rslt < 0) && (__threadErrno == EINTR));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6656	#else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6657	rslt = GetFullPathNameW(_wPathName, MAXPATHLEN, nameBuffer, NULL);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6658	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6659
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6660	returnedName = nameBuffer;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6661
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6662	if (rslt > 0) {
15252 621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	6663
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6664	#ifdef DO_WRAP_CALLS
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6665	do {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6666	__threadErrno = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6667	rslt = (int)(STX_API_NOINT_CALL3( "GetLongPathNameW", GetLongPathNameW, nameBuffer, nameBuffer2, MAXPATHLEN));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6668	} while ((rslt < 0) && (__threadErrno == EINTR));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6669	#else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6670	rslt = GetLongPathNameW(nameBuffer, nameBuffer2, MAXPATHLEN);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6671	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6672	returnedName = nameBuffer2;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6673	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6674	if (rslt > 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6675	RETURN (__mkStringOrU16String_maxlen(returnedName, MAXPATHLEN));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6676	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6677	__threadErrno = __WIN32_ERR(GetLastError());
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6678	RETURN (nil);
15169 0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	6679	}
0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	6680	error = @symbol(argument); // argument is not a string or unicode16string
0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	6681	%}.
15252 621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	6682
15169 0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	6683	error notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6684	self primitiveFailed:error.
15169 0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	6685	].
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6686	^ nil
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6687
11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6688	"
11291 1e7c06d9d939 * empty log message * Claus Gittinger <cg@exept.de> parents: 11289 diff changeset	6689	self primPathNameOf:'.'
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6690	self primPathNameOf:'.' asUnicode16String
15169 0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	6691	self primPathNameOf:5555
11289 11c2bb7debc4 unicode filenames Claus Gittinger <cg@exept.de> parents: 11258 diff changeset	6692	"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6693	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6694
12616 7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	6695	primSetCurrentDirectoryA:pathName
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6696	<apicall: bool "SetCurrentDirectoryA" ( pointer ) module: "kernel32.dll" >
12616 7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	6697
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6698	self primitiveFailed.
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6699
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6700	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6701	self primSetCurrentDirectory:'C:\Dokumente und Einstellungen\User\Eigene Dateien\work5\stx\projects\smalltalk'.
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6702	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6703
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6704	"Created: / 27-07-2006 / 14:47:12 / fm"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6705	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6706
12616 7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	6707	primSetCurrentDirectoryW:pathName
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	6708	<apicall: bool "SetCurrentDirectoryW" ( pointer ) module: "kernel32.dll" >
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	6709
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	6710	self primitiveFailed.
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	6711	!
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	6712
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6713	primSetFileAttributes:aPathName to:anInteger
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6714	"set the file-attributes; return true if the set did happen"
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6715
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6716	\|errorNumber\|
10622 87a51cae9161 added #setHidden: and #setNormal: sr parents: 10615 diff changeset	6717
87a51cae9161 added #setHidden: and #setNormal: sr parents: 10615 diff changeset	6718	%{
87a51cae9161 added #setHidden: and #setNormal: sr parents: 10615 diff changeset	6719	int ret;
87a51cae9161 added #setHidden: and #setNormal: sr parents: 10615 diff changeset	6720
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	6721	if (__isSmallInteger(anInteger)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6722	if (__isStringLike(aPathName)) {
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6723	#ifdef DO_WRAP_CALLS
23101 cd0581d5639b Issue #197: fixed buffer overflow in `_makeWchar()` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23097 diff changeset	6724	char _aPathName[MAXPATHLEN+1];
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6725
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6726	strncpy(_aPathName, __stringVal(aPathName), MAXPATHLEN-1); _aPathName[MAXPATHLEN-1] = '\0';
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6727	do {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6728	__threadErrno = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6729	// do not cast to INT - will loose sign bit then!
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6730	ret = (int)(STX_API_NOINT_CALL2( "SetFileAttributesA", SetFileAttributesA, _aPathName, __intVal(anInteger)));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6731	} while ((ret < 0) && (__threadErrno == EINTR));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6732	#else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6733	ret = SetFileAttributesA((char *) __stringVal(aPathName), __intVal(anInteger));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6734	if (ret < 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6735	__threadErrno = __WIN32_ERR(GetLastError());
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6736	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6737	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6738	if (ret >= 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6739	RETURN ( true );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6740	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6741	__threadErrno = __WIN32_ERR(GetLastError());
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6742	RETURN (false);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6743	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6744
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6745	if (__isUnicode16String(aPathName)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6746	wchar_t _wPathName[MAXPATHLEN+1];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6747
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6748	_makeWchar(aPathName, _wPathName, sizeof(_wPathName));
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6749	#ifdef DO_WRAP_CALLS
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6750	do {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6751	__threadErrno = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6752	// do not cast to INT - will loose sign bit then!
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6753	ret = (int)(STX_API_NOINT_CALL2( "SetFileAttributesW", SetFileAttributesW, _wPathName, __intVal(anInteger)));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6754	} while ((ret < 0) && (__threadErrno == EINTR));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6755	#else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6756	ret = SetFileAttributesW(_wPathName, __intVal(anInteger));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6757	if (ret < 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6758	__threadErrno = __WIN32_ERR(GetLastError());
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6759	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6760	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6761	if (ret >= 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6762	RETURN ( true );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6763	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6764	__threadErrno = __WIN32_ERR(GetLastError());
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6765	RETURN (false);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6766	}
10622 87a51cae9161 added #setHidden: and #setNormal: sr parents: 10615 diff changeset	6767	}
87a51cae9161 added #setHidden: and #setNormal: sr parents: 10615 diff changeset	6768	%}.
87a51cae9161 added #setHidden: and #setNormal: sr parents: 10615 diff changeset	6769	^ self primitiveFailed
87a51cae9161 added #setHidden: and #setNormal: sr parents: 10615 diff changeset	6770	!
87a51cae9161 added #setHidden: and #setNormal: sr parents: 10615 diff changeset	6771
12616 7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	6772	setCurrentDirectory:pathName
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	6773	pathName bitsPerCharacter == 16 ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6774	self primSetCurrentDirectoryW:(pathName copyWith:(Character value:0))
12616 7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	6775	] ifFalse:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6776	self primSetCurrentDirectoryA:pathName
12616 7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	6777	].
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	6778
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	6779	"
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	6780	self getCurrentDirectory
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	6781	self setCurrentDirectory:'C:\Users\cg\work\stx\projects'
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	6782	self getCurrentDirectory
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	6783	self setCurrentDirectory:'C:\Users\cg\work\stx\projects\smalltalk'
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	6784	"
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	6785	!
7f052c21260e added: Claus Gittinger <cg@exept.de> parents: 12603 diff changeset	6786
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6787	setHidden:aPathName
12969 999e457ed11e added: #clearHidden: sr parents: 12961 diff changeset	6788	"set the hidden attribute. Return true if the operation succeeded"
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6789
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6790	\|attr\|
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6791
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6792	attr := self primGetFileAttributes:aPathName.
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6793	(attr bitTest:FILE_ATTRIBUTE_HIDDEN ) ifFalse:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6794	^ self primSetFileAttributes:aPathName to:(attr bitOr:2).
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6795	].
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6796	^ true "/ aready set
12969 999e457ed11e added: #clearHidden: sr parents: 12961 diff changeset	6797
999e457ed11e added: #clearHidden: sr parents: 12961 diff changeset	6798	"Modified: / 29-07-2010 / 11:32:26 / sr"
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6799	!
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6800
10622 87a51cae9161 added #setHidden: and #setNormal: sr parents: 10615 diff changeset	6801	setNormal:aPathName
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6802	" sets all file attributes to the normal state
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6803	e.g. set the hidden attribute to false (unhidden)"
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6804
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6805	\|attr\|
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6806
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6807	attr := self primGetFileAttributes:aPathName.
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6808	(attr bitTest:FILE_ATTRIBUTE_NORMAL ) ifFalse:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6809	^ self primSetFileAttributes:aPathName to:(attr bitOr:2).
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6810	].
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6811	^ true "/ aready set
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6812	!
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6813
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6814	setTemporary:aPathName
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6815	" set the temporary attribute of aPathName"
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6816
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6817	\|attr\|
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6818
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6819	attr := self primGetFileAttributes:aPathName.
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6820	(attr bitTest:FILE_ATTRIBUTE_TEMPORARY ) ifFalse:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6821	^ self primSetFileAttributes:aPathName to:(attr bitOr:2).
12387 d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6822	].
d88c55848b54 * empty log message * Claus Gittinger <cg@exept.de> parents: 12154 diff changeset	6823	^ true "/ aready set
10622 87a51cae9161 added #setHidden: and #setNormal: sr parents: 10615 diff changeset	6824	!
87a51cae9161 added #setHidden: and #setNormal: sr parents: 10615 diff changeset	6825
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6826	timeOfLastAccess:aPathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6827	"return the time, when the file was last accessed.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6828	For nonexistent files, nil is returned."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6829
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6830	"could be implemented as:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6831	(self infoOf:aPathName) accessed
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6832	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6833	\| i\|
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6834
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6835	i := self infoOf:aPathName.
6791 ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	6836	i notNil ifTrue:[^ i accessTime].
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6837	^ nil.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6838
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6839	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6840	OperatingSystem timeOfLastAccess:'/'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6841	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6842	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6843
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6844	timeOfLastChange:aPathName
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	6845	"return the time, when the file was last changed.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6846	For nonexistent files, nil is returned."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6847
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6848	"could be implemented as:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6849	(self infoOf:aPathName) modified
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6850	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6851
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6852	\| i\|
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6853
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6854	i := self infoOf:aPathName.
6791 ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	6855	i notNil ifTrue:[^ i modificationTime].
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6856	^ nil.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6857
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6858	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6859	OperatingSystem timeOfLastChange:'/'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6860	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6861	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6862
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6863	typeOf:aPathName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6864	"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	6865	nil is returned.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6866	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	6867
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6868	\|i\|
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6869
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6870	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6871	this could have been implemented as:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6872	(self infoOf:aPathName) type
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6873	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6874
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6875	i := self infoOf:aPathName.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6876	i notNil ifTrue:[^ i type].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6877	^ nil.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6878
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6879	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	6880	OperatingSystem typeOf:'/'
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	6881	OperatingSystem typeOf:'.'
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	6882	OperatingSystem typeOf:'Make.proto'
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	6883	OperatingSystem typeOf:'resources/motif.style'
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6884	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6885	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6886
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6887	volumeLabelOf: aFilenameOrString
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6888
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6889	"Answer the volume label of the disk containing aFilenameOrString."
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6890
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6891	\| volName \|
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6892
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6893	volName := String new: 255.
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6894	( self
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6895	getVolumeInformation: aFilenameOrString asFilename volume, '\'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6896	name: volName
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6897	nameSize: volName size
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6898	serialNumber: nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6899	maximumComponentLength: nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6900	fileSystemFlags: nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6901	fileSystemName: nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6902	fileSystemNameSize: 0 )
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6903	ifFalse: [
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6904	Transcript showCR:'GetVolumeInformation error'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6905	^ ''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6906	].
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6907	^ volName copyUpTo: Character null
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6908
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6909	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6910	self volumeLabelOf: 'C:\pepe.pep'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6911	self volumeLabelOf: 'C:'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6912	self volumeLabelOf: 'C:\\'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6913	self volumeLabelOf: 'C:\'
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6914
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6915	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6916	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	6917
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6918	volumeNameOf:aPathString
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6919	"return the volumeName of the argument, aPath
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6920	- thats the name of the volume where aPath is.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6921	Not all OperatingSystem support/use volumes; on unix,
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6922	this always returns an empty string."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6923
7102 415388639cdd changes claus penk parents: 7080 diff changeset	6924	aPathString size < 2 ifTrue:[^ ''].
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6925	(aPathString at:2) == $: ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6926	^ (aPathString at:1) asString.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6927	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6928	^ ''
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6929	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6930
9475 c57956a348bf printing support fm parents: 9431 diff changeset	6931	!Win32OperatingSystem class methodsFor:'help support'!
c57956a348bf printing support fm parents: 9431 diff changeset	6932
9988 0126451578fd * empty log message * Claus Gittinger <cg@exept.de> parents: 9955 diff changeset	6933	openDocumentationFilename: aFilenameOrString
12154 646c4171f0d2 added: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 11920 diff changeset	6934	<resource: #obsolete>
646c4171f0d2 added: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 11920 diff changeset	6935
646c4171f0d2 added: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 11920 diff changeset	6936	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	6937
9990 19a95e470d32 * empty log message * Claus Gittinger <cg@exept.de> parents: 9988 diff changeset	6938	"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	6939	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	6940	html documents, pdf documents etc."
19a95e470d32 * empty log message * Claus Gittinger <cg@exept.de> parents: 9988 diff changeset	6941
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	6942	Error
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6943	handle:[:ex \|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6944	Dialog warn:'Shell execution failed'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6945	] do:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6946	self openApplicationForDocument:aFilenameOrString operation:#open
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	6947	]
9988 0126451578fd * empty log message * Claus Gittinger <cg@exept.de> parents: 9955 diff changeset	6948
0126451578fd * empty log message * Claus Gittinger <cg@exept.de> parents: 9955 diff changeset	6949	"
0126451578fd * empty log message * Claus Gittinger <cg@exept.de> parents: 9955 diff changeset	6950	self openDocumentationFilename: 'C:\WINDOWS\Help\clipbrd.chm' asFilename
10364 43968474508b * empty log message * Claus Gittinger <cg@exept.de> parents: 10352 diff changeset	6951	self openDocumentationFilename: Filename currentDirectory
9988 0126451578fd * empty log message * Claus Gittinger <cg@exept.de> parents: 9955 diff changeset	6952	"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	6953
c57956a348bf printing support fm parents: 9431 diff changeset	6954	"Created: / 04-08-2006 / 18:04:52 / fm"
10364 43968474508b * empty log message * Claus Gittinger <cg@exept.de> parents: 10352 diff changeset	6955	"Modified: / 26-01-2007 / 14:05:44 / cg"
10160 2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6956	!
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6957
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6958	openHelpFile: helpFilename inContextID: contextID withOwner: anApplicationModel
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6959
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6960	\|ownerHandle macro\|
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6961
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6962	anApplicationModel notNil ifTrue:[ownerHandle := anApplicationModel window id].
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6963
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6964	contextID isNil ifTrue: [^self primWinHelp: ownerHandle helpFile: helpFilename command: 3 "HelpIndex" dwData: nil ].
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6965	contextID isInteger ifTrue: [^self primWinHelp: ownerHandle helpFile: helpFilename command: 1 "HelpContext" dwData: contextID ].
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6966
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6967	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	6968
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6969	macro := 'JumpId("', helpFilename asFilename baseName , '", "', contextID, '")'.
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6970	self primWinHelp: nil helpFile: helpFilename command: 258 "HelpCommand" dwData: macro
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6971
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6972
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6973	"
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6974	self openHelpFile: 'C:\vsw311\dapas.hlp' inContextID: 'IDH_ACI' withOwner: nil
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6975	"
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6976	!
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6977
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6978	primWinHelp: hWnd helpFile: aString command: anInteger dwData: anObject
10276 1e689abbfb18 #primWinHelp: helpFile: command: dwData: fm parents: 10274 diff changeset	6979	<apicall: bool "WinHelpA" ( handle lpstr int32 lpstr ) module: "user32.dll" >
10160 2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6980	self primitiveFailed.
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6981
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	6982	"
10160 2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6983	anInteger
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6984	- 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	6985	- 3 HelpIndex to open in the help index
10160 2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6986	- 258 HelpCommand execute a macro string
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6987	"
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6988
2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6989	"
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	6990	self primWinHelp: nil helpFile: 'C:\vsw311\dapas.hlp' command: 3 dwData: nil
10160 2fe3c748e688 open help file in contextID fm parents: 10159 diff changeset	6991	"
10276 1e689abbfb18 #primWinHelp: helpFile: command: dwData: fm parents: 10274 diff changeset	6992
1e689abbfb18 #primWinHelp: helpFile: command: dwData: fm parents: 10274 diff changeset	6993	"Modified: / 19-12-2006 / 11:48:15 / User"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	6994	! !
c57956a348bf printing support fm parents: 9431 diff changeset	6995
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6996	!Win32OperatingSystem class methodsFor:'interrupts & signals'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6997
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6998	blockingTest
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	6999	"this is a test method;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7000	For testing double CTRL-C in blocking primitives"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7001
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7002	%{
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7003	while(1) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7004	console_printf("blocking...");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7005	Sleep(50);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7006	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7007	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7008	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	7009	OperatingSystem blockingTest
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7010	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7011	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7012
7852 5e0c389a8164 * empty log message * ca parents: 7850 diff changeset	7013	blockingTest2
5e0c389a8164 * empty log message * ca parents: 7850 diff changeset	7014	"this is a test method;
12730 d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7015	For testing single CTRL-C in blocking primitives"
7852 5e0c389a8164 * empty log message * ca parents: 7850 diff changeset	7016
5e0c389a8164 * empty log message * ca parents: 7850 diff changeset	7017	%{
5e0c389a8164 * empty log message * ca parents: 7850 diff changeset	7018	while(1) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7019	console_printf("blocking...");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7020	STX_API_CALL1("Sleep", Sleep, 50);
7852 5e0c389a8164 * empty log message * ca parents: 7850 diff changeset	7021	}
5e0c389a8164 * empty log message * ca parents: 7850 diff changeset	7022	%}.
5e0c389a8164 * empty log message * ca parents: 7850 diff changeset	7023	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	7024	OperatingSystem blockingTest2
7852 5e0c389a8164 * empty log message * ca parents: 7850 diff changeset	7025	"
5e0c389a8164 * empty log message * ca parents: 7850 diff changeset	7026	!
5e0c389a8164 * empty log message * ca parents: 7850 diff changeset	7027
12730 d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7028	blockingTest3
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7029	"this is a test method;
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7030	For testing single CTRL-C in non-interruptable blocking primitives.
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7031	This one should continue after typing continue in the debugger"
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7032
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7033	%{
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7034	int ret;
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7035
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7036	do {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7037	// do not cast to INT - will loose sign bit then!
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7038	ret = (int)(STX_API_NOINT_CALL1("Sleep", Sleep, 60000));
12730 d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7039	} while (ret < 0 && __threadErrno == EINTR);
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7040	%}.
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7041	"
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7042	OperatingSystem blockingTest3
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7043	"
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7044	!
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7045
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7046	blockingTest4
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7047	"this is a test method;
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7048	For testing single CTRL-C in non-interruptable blocking primitives.
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7049	This one start a new sleep after typing continue in the debugger"
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7050
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7051	%{
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7052	int ret;
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7053
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7054	do {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7055	// do not cast to INT - will loose sign bit then!
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7056	ret = STX_API_CALL1("Sleep", Sleep, 60000);
12730 d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7057	} while (ret < 0 && __threadErrno == EINTR);
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7058	%}.
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7059	"
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7060	OperatingSystem blockingTest4
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7061	"
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7062	!
d8d1242066ec added: Stefan Vogel <sv@exept.de> parents: 12715 diff changeset	7063
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7064	defaultSignal:signalNumber
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7065	"revert to the default action on arrival of a (Unix-)signal.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7066	Dont confuse Unix signals with smalltalk signals.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7067	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	7068	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	7069	default for SIGQUIT (^ \) is to dump core.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7070	Also, NOTICE that signal numbers are not portable between unix
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7071	systems - use OperatingSystem sigXXX to get the numeric value for
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7072	a signal."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7073
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7074	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7075
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7076	if (__isSmallInteger(signalNumber)) {
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7077	#ifdef SIG_DFL
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7078	signal(__intVal(signalNumber), SIG_DFL);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7079	RETURN (self);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7080	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7081	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7082	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7083	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7084	this error is triggered on non-integer argument
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7085	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7086	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7087
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7088	"you better save a snapshot image before trying this ..."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7089	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7090	'if you hit ^C now, Smalltalk will exit immediately' printNewline.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7091	OperatingSystem defaultSignal:(OperatingSystem sigINT).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7092	1 to:1000000 do:[:i\| ].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7093	OperatingSystem enableSignal:(OperatingSystem sigINT).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7094	'normal ^C handling again.' printNewline
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7095	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7096	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7097
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7098	disableIOInterruptsOn:fd
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7099	"turn off IO interrupts for a filedescriptor"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7100
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7101	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7102	this error is triggered on non-integer argument
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7103	or if the OS does not support IO interrupts.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7104	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7105	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7106	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7107
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7108	disableSignal:signalNumber
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7109	"disable (Unix-) signal processing for signalNumber.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7110	Dont confuse Unix signals with smalltalk signals.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7111	WARNING: for some signals, it is no good idea to disable
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7112	them; for example, disabling the SIGINT signal turns off ^C
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7113	handling.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7114	Also, NOTICE that signal numbers are not portable between unix
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7115	systems - use OperatingSystem sigXXX to get the numeric value for
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7116	a signal.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7117	Use only for fully debugged stand alone applications."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7118
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7119	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7120
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7121	if (__isSmallInteger(signalNumber)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7122	int sigNo = __intVal(signalNumber);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7123
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7124	if (sigNo == 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7125	RETURN (self);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7126	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7127	#ifdef SIG_IGN
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7128	signal(sigNo, SIG_IGN);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7129	RETURN (self);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7130	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7131	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7132	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7133	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7134	this error is triggered on non-integer argument
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7135	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7136	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7137
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7138	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7139	'now, ^C is totally ignored ...' printNewline.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7140	OperatingSystem disableSignal:(OperatingSystem sigINT).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7141	1 to:1000000 do:[:i\| ].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7142	OperatingSystem enableSignal:(OperatingSystem sigINT).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7143	'^C handled again.' printNewline
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7144	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7145	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7146
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7147	disableTimer
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7148	"disable timer interrupts.
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	7149	WARNING:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7150	the system will not operate correctly with timer interrupts
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7151	disabled, because no scheduling or timeouts are possible."
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7152
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7153	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7154
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7155	extern void __win32ClearTimer();
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7156
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7157	__win32ClearTimer();
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7158	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7159	^ true
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7160	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7161
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7162	enableChildSignalInterrupts
16337 40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	7163	"childSignal interrupts are not supported in windows"
40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	7164
40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	7165	^ self
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7166	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7167
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7168	enableIOInterruptsOn:fd
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7169	"turn on IO interrupts for a filedescriptor"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7170
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7171	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7172	this error is triggered on non-integer argument
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7173	or if the system does not support SIGIO
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7174	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7175	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7176	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7177
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7178	enableSignal:signalNumber
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7179	"enable (Unix-)signal processing for signalNumber.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7180	Dont confuse Unix signals with smalltalk signals.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7181	The signal will be delivered to one of the standard handlers
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7182	(SIGINT, SIGQUIT, etc) or to a general handler, which
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7183	sends #signalInterrupt:.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7184
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7185	NOTICE that signal numbers are not portable between unix
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7186	systems - use OperatingSystem sigXXX to get the numeric value for
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7187	a signal."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7188
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7189	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7190
11669 db58374346b3 Define (and handle) the HUP and PWR signals Stefan Vogel <sv@exept.de> parents: 11623 diff changeset	7191	# define SIG_LIMIT 30
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7192
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7193	#if defined(SIGPOLL) && !defined(SIGIO)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7194	# define SIGIO SIGPOLL
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7195	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7196
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7197	#ifdef SIGCHLD
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7198	# define CHILD_SIGNAL SIGCHLD
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7199	#else
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7200	# ifdef SIGCLD
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7201	# define CHILD_SIGNAL SIGCLD
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7202	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7203	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7204
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7205	int sigNr;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7206
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7207	#if defined(SIGINT) \|\| defined(SIGQUIT)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7208	# ifndef __signalUserInterrupt
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7209	extern void __signalUserInterrupt(SIGHANDLER_ARG);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7210	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7211	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7212
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7213	#ifdef SIGFPE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7214	# ifndef __signalFpExceptionInterrupt
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7215	extern void __signalFpExceptionInterrupt(SIGHANDLER_ARG);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7216	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7217	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7218
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7219	#ifdef SIGIO
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7220	# ifndef __signalIoInterrupt
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7221	extern void __signalIoInterrupt(SIGHANDLER_ARG);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7222	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7223	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7224
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7225	#ifdef CHILD_SIGNAL
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7226	# ifndef __signalChildInterrupt
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7227	extern void __signalChildInterrupt(SIGHANDLER_ARG);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7228	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7229	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7230
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7231	#ifdef SIGPIPE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7232	# ifndef __signalPIPEInterrupt
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7233	extern void __signalPIPEInterrupt(SIGHANDLER_ARG);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7234	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7235	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7236
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7237	#ifdef SIGBUS
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7238	# ifndef __signalBUSInterrupt
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7239	extern void __signalBUSInterrupt(SIGHANDLER_ARG);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7240	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7241	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7242
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7243	#ifdef SIGSEGV
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7244	# ifndef __signalSEGVInterrupt
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7245	extern void __signalSEGVInterrupt(SIGHANDLER_ARG);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7246	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7247	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7248
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7249	#if defined(SIGILL) \|\| defined(SIGEMT)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7250	# ifndef __signalTrapInterrupt
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7251	extern void __signalTrapInterrupt(SIGHANDLER_ARG);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7252	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7253	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7254
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7255	#ifdef SIGALRM
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7256	# ifndef WIN32
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7257	# ifndef __signalTimerInterrupt
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7258	extern void __signalTimerInterrupt(SIGHANDLER_ARG);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7259	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7260	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7261	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7262
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7263	#ifndef __signalInterrupt
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7264	extern void __signalInterrupt(SIGHANDLER_ARG);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7265	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7266	void (*handler)(SIGHANDLER_ARG);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7267
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7268	if (__isSmallInteger(signalNumber)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7269	&& ((sigNr = __intVal(signalNumber)) >= 0)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7270	#ifdef SIG_LIMIT
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7271	&& (sigNr <= SIG_LIMIT)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7272	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7273	) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7274	/*
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7275	* standard signals are forced into standard handlers
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7276	* - all others go into general signalInterrupt
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7277	*/
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7278	#if defined(SIGPOLL) && defined(SIGIO)
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7279	if (sigNr == SIGPOLL)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7280	sigNr = SIGIO;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7281	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7282	switch (sigNr) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7283	case 0:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7284	/* enabling a non-supported signal */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7285	RETURN (self);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7286
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7287	#ifdef SIGBREAK
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7288	case SIGBREAK:
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7289	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7290	#ifdef SIGINT
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7291	case SIGINT:
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7292	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7293	#ifdef SIGQUIT
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7294	case SIGQUIT:
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7295	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7296	#ifdef SIGNALDEBUGWIN32
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7297	console_printf("ConsoleSignal %d\n",sigNr);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7298	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7299	SetConsoleCtrlHandler((PHANDLER_ROUTINE)__signalUserInterruptWIN32,TRUE);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7300	RETURN (self);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7301	#ifdef SIGFPE
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7302	case SIGFPE:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7303	handler = __signalFpExceptionInterrupt;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7304	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7305	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7306
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7307	#ifdef SIGPIPE
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7308	case SIGPIPE:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7309	handler = __signalPIPEInterrupt;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7310	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7311	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7312	#ifdef SIGBUS
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7313	case SIGBUS:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7314	handler = __signalBUSInterrupt;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7315	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7316	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7317	#ifdef SIGSEGV
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7318	case SIGSEGV:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7319	handler = __signalSEGVInterrupt;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7320	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7321	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7322	#ifdef SIGILL
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7323	case SIGILL:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7324	handler = __signalTrapInterrupt;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7325	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7326	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7327	#ifdef SIGEMT
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7328	case SIGEMT:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7329	handler = __signalTrapInterrupt;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7330	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7331	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7332	#ifdef SIGIO
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7333	case SIGIO:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7334	handler = __signalIoInterrupt;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7335	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7336	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7337
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7338	#ifdef CHILD_SIGNAL
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7339	case CHILD_SIGNAL:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7340	handler = __signalChildInterrupt;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7341	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7342	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7343
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7344	default:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7345	handler = __signalInterrupt;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7346	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7347	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7348
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7349	{
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7350	#ifdef HAS_SIGACTION
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7351	struct sigaction act;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7352
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7353	/*
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7354	* Do not add SA_RESTART here. A signal can cause a
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7355	* thread switch, another thread can do a garbage collect
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7356	* and restarted system calls may write into old
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7357	* (collected) addresses.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7358	*/
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7359
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7360	act.sa_flags = SA_SIGINFO; /* <- if you add more, remember dummys at the top */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7361	sigemptyset(&act.sa_mask);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7362	act.sa_handler = handler;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7363	sigaction(sigNr, &act, 0);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7364	#else
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7365	# ifdef HAS_SIGVEC
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7366	struct sigvec vec;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7367
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7368	vec.sv_flags = SV_INTERRUPT;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7369	sigemptyset(&vec.sv_mask);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7370	vec.sv_handler = handler;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7371	sigvec(sigNr, &vec, NULL);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7372	# else
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7373	# ifdef WIN32
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7374	# ifdef SIGNALDEBUGWIN32
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7375	console_printf("signal %d can't change handler\n",sigNr);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7376	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7377	# else
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7378	(void) signal(sigNr, handler);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7379	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7380	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7381	#endif
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7382	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7383
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7384	/*
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7385	* maybe, we should Return the old enable-status
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7386	* as boolean here ...
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7387	*/
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7388	RETURN (self);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7389	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7390	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7391
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7392	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7393	this error is triggered on non-integer argument, or
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7394	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	7395	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7396	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7397	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7398
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7399	enableTimer:milliSeconds
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7400	"setup for a timerInterrupt, to be signalled after some (real) time."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7401
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7402	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7403	extern void __win32SetTimer();
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7404
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7405	if (__isSmallInteger(milliSeconds)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7406	__win32SetTimer( __intVal(milliSeconds) );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7407	RETURN (true);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7408	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7409	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7410	^ false
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7411	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7412
6535 f6b834cb8c62 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6378 diff changeset	7413	isFatalSignal:aNumber
f6b834cb8c62 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6378 diff changeset	7414	"return true if a signal with number aNumber is a fatal signal,
f6b834cb8c62 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6378 diff changeset	7415	i.e. some severe internal error occured"
f6b834cb8c62 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6378 diff changeset	7416
f6b834cb8c62 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6378 diff changeset	7417	^ (aNumber == self sigSEGV)
f6b834cb8c62 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6378 diff changeset	7418	or:[aNumber == self sigILL
f6b834cb8c62 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6378 diff changeset	7419	or:[aNumber == self sigBUS]]
f6b834cb8c62 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6378 diff changeset	7420	!
f6b834cb8c62 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6378 diff changeset	7421
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7422	killProcess:processId
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7423	"kill a process.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7424	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	7425
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7426	WARNING: in order to avoid zombie processes (on unix),
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7427	you have to fetch the processes exitstatus with
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7428	OperatingSystem>>getStatusOfProcess:aProcessId."
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7429
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7430	self terminateProcess:processId
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7431	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7432
19174 803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7433	killProcessGroup:processGroupId
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7434	"kill a process group.
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7435	The process(es) terminate immediately and has no chance to perform any cleanup actions.
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7436
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7437	WARNING: in order to avoid zombie processes (on unix),
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7438	you have to fetch the processes exitstatus with
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7439	OperatingSystem>>getStatusOfProcess:aProcessId."
19174 803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7440
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7441	self terminateProcessGroup:processGroupId
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7442	!
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7443
18414 7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7444	microsecondSleep:micros
18543 fef08f652ef8 * empty log message * Claus Gittinger <cg@exept.de> parents: 18414 diff changeset	7445	"cease ANY action for some time.
18414 7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7446	This suspends the whole smalltalk (unix/windows-) process for some time.
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7447	Not really useful since not even low-prio processes and interrupt
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7448	handling will run during the sleep.
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7449	Use either OperatingSystem>>millisecondDelay: (which makes all
18543 fef08f652ef8 * empty log message * Claus Gittinger <cg@exept.de> parents: 18414 diff changeset	7450	threads sleep, but handles interrupts) or use a Delay
18414 7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7451	(which makes only the calling thread sleep)."
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7452
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7453	\|uLow uHigh\|
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7454
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7455	uLow := micros // 1000000.
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7456	uHigh := micros \\ 1000000.
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7457	%{
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7458	struct timeval tv;
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7459	fd_set dummy;
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7460	int success;
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7461
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7462	SOCKET s = socket(PF_INET, SOCK_STREAM, IPPROTO_TCP);
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7463	FD_ZERO(&dummy);
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7464	FD_SET(s, &dummy);
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7465	tv.tv_sec = __intVal(uLow);
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7466	tv.tv_usec = __intVal(uHigh);
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7467	success = (0 == select(0, 0, 0, &dummy, &tv));
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7468	closesocket(s);
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7469	RETURN (success ? true : false);
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7470	%}
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7471
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7472	"
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7473	Timestamp now printCR.
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7474	OperatingSystem microsecondSleep:100.
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7475	Timestamp now printCR.
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7476	"
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7477
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7478	"Created: / 28-05-2015 / 14:14:53 / gg"
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7479	!
7a9f549dc84e class: Win32OperatingSystem sr parents: 17632 diff changeset	7480
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7481	sendSignal:signalNumber to:processId
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7482	"send a unix signal to some process (maybe myself).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7483	Returns false if any error occurred, true otherwise.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7484
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7485	Do not confuse UNIX signals with Smalltalk-Signals.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7486
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7487	WARNING: in order to avoid zombie processes (on unix),
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7488	you may have to fetch the processes exitstatus with
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7489	OperatingSystem>>getStatusOfProcess:aProcessId
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7490	if the signal terminates that process."
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7491
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7492	"/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7493	"/ either invalid argument (non-integers)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7494	"/ or not supported by OS
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7495	"/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7496	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7497	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7498
19174 803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7499	sendSignal:signalNumber to:processId toGroup:toGroupBoolean toAll:toAllBoolean
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7500	"send a unix signal to some process (maybe myself).
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7501	Returns false if any error occurred, true otherwise.
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7502
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7503	Do not confuse UNIX signals with Smalltalk-Signals.
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7504
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7505	WARNING: in order to avoid zombie processes (on unix),
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7506	you may have to fetch the processes exitstatus with
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7507	OperatingSystem>>getStatusOfProcess:aProcessId
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7508	if the signal terminates that process."
19174 803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7509
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7510	"/
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7511	"/ either invalid argument (non-integers)
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7512	"/ or not supported by OS
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7513	"/
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7514	^ self primitiveFailed
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7515	!
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7516
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7517	terminateProcess:processHandleOrPid
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7518	"terminate a process.
19174 803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7519
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7520	ATTENTION WIN32:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7521	Under unix, we have terminateProcess, which does a soft
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7522	terminate (giving the process a chance to cleanup) and
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7523	killProcess, which does a hard terminate.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7524	Under WIN32, both (currently) use the TerminateProcess
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7525	function, which unconditionally causes a process to exit.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7526	I.e. under WIN32, the process has no chance to perform cleanup.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7527	Use it only in extreme circumstances. The state of
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7528	global data maintained by dynamic-link libraries (DLLs)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7529	may be compromised if TerminateProcess is used.
19174 803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7530
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7531	TODO: send a WM_QUIT instead, to allow for proper shutdown."
7065 f4c4e4b2ffa1 checkin from browser penk parents: 7062 diff changeset	7532
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7533	self terminateProcess:processHandleOrPid exitCode:0
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7534	!
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7535
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7536	terminateProcess:processHandleOrPid exitCode:exitCode
7065 f4c4e4b2ffa1 checkin from browser penk parents: 7062 diff changeset	7537	"terminate a process.
19174 803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7538
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7539	ATTENTION WIN32:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7540	Under unix, we have terminateProcess, which does a soft
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7541	terminate (giving the process a chance to cleanup) and
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7542	killProcess, which does a hard terminate.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7543	Under WIN32, both (currently) use the TerminateProcess
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7544	function, which unconditionally causes a process to exit.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7545	I.e. under WIN32, the process has no chance to perform cleanup.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7546	Use it only in extreme circumstances. The state of
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7547	global data maintained by dynamic-link libraries (DLLs)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7548	may be compromised if TerminateProcess is used.
19174 803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7549
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7550	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	7551
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	7552	%{
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7553	if (__isExternalAddressLike(processHandleOrPid) ) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7554	HANDLE hProcess = _HANDLEVal(processHandleOrPid);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7555
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7556	if (hProcess != 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7557	TerminateProcess( hProcess, __intVal(exitCode) );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7558	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7559	RETURN( true );
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7560	} else if( __isSmallInteger(processHandleOrPid) ) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7561	HANDLE hProcess = OpenProcess(PROCESS_TERMINATE, 0, __smallIntegerVal(processHandleOrPid));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7562
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7563	if( hProcess != 0 ) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7564	TerminateProcess( hProcess, __intVal(exitCode) );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7565	CloseHandle(hProcess);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7566	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7567	RETURN( true );
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7568	}
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7569	%}.
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7570	self primitiveFailed:#invalidParameter.
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7571
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7572
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7573	"Modified: / 28.12.1995 / 15:05:37 / stefan"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7574	"Modified: / 27.1.1998 / 20:05:47 / cg"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7575	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7576
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7577	terminateProcessGroup:processGroupHandleOrPid
19174 803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7578	"terminate a process group (that is all subprocesses of a process).
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7579
803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7580	ATTENTION WIN32:
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7581	Under unix, we have terminateProcess, which does a soft
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7582	terminate (giving the process a chance to cleanup) and
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7583	killProcess, which does a hard terminate.
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7584	Under WIN32, both (currently) use the TerminateProcess
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7585	function, which unconditionally causes a process to exit.
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7586	I.e. under WIN32, the process has no chance to perform cleanup.
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7587	Use it only in extreme circumstances. The state of
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7588	global data maintained by dynamic-link libraries (DLLs)
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7589	may be compromised if TerminateProcess is used.
19174 803569fe8891 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19020 diff changeset	7590	TODO: send a WM_QUIT instead, to allow for proper shutdown."
14832 b010cb2aa396 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14783 diff changeset	7591
b010cb2aa396 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14783 diff changeset	7592	\| pid list groupsToTerminate anyMore \|
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7593
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7594	list := self getAllProcesses.
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7595	list size == 0 ifTrue:[^ self ].
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7596
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7597	processGroupHandleOrPid isInteger ifTrue:[
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7598	pid := processGroupHandleOrPid
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7599	] ifFalse:[
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7600	pid := processGroupHandleOrPid pid.
14832 b010cb2aa396 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14783 diff changeset	7601	].
b010cb2aa396 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14783 diff changeset	7602	groupsToTerminate := Set with:pid.
b010cb2aa396 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14783 diff changeset	7603	list := list asSet.
b010cb2aa396 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14783 diff changeset	7604
b010cb2aa396 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14783 diff changeset	7605	"/ Transcript show:'terminate group '; showCR:pid.
b010cb2aa396 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14783 diff changeset	7606	anyMore := true.
b010cb2aa396 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14783 diff changeset	7607	[anyMore] whileTrue:[
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7608	anyMore := false.
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7609	list doWithExit:[:anOSProcess :exit \|
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7610	\|pid\|
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7611
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7612	(groupsToTerminate includes:anOSProcess parentPid) ifTrue:[
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7613	pid := anOSProcess pid.
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7614	groupsToTerminate add:pid.
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7615	"/ Transcript show:'terminate '; showCR:pid.
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7616	self terminateProcess:pid.
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7617	list remove:anOSProcess.
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7618	anyMore := true.
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7619	"/ need to restart: we have removed an element inside the loop
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7620	exit value:nil
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7621	].
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7622	].
14832 b010cb2aa396 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14783 diff changeset	7623	].
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7624	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7625
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7626	!Win32OperatingSystem class methodsFor:'ipc support'!
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	makePipe
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7629	"make a pipe, return array with two filedescriptors on success,
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7630	nil on failure.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7631	This is a lowLevel entry, not for public use.
12686 27afd11a1acd changed: Stefan Vogel <sv@exept.de> parents: 12654 diff changeset	7632	See NonPositionableExternalStream>>makePipe for a more user-friendly, public interface."
27afd11a1acd changed: Stefan Vogel <sv@exept.de> parents: 12654 diff changeset	7633
27afd11a1acd changed: Stefan Vogel <sv@exept.de> parents: 12654 diff changeset	7634	\|fd1 fd2 error\|
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	7635
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	7636	%{
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7637	HANDLE pipeRead = (HANDLE)0;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7638	HANDLE pipeWrite = (HANDLE)0;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7639
8667 c5b62518d233 changed security attributes - does not make a difference penk parents: 8659 diff changeset	7640	SECURITY_ATTRIBUTES sa;
c5b62518d233 changed security attributes - does not make a difference penk parents: 8659 diff changeset	7641
c5b62518d233 changed security attributes - does not make a difference penk parents: 8659 diff changeset	7642	ZeroMemory(&sa, sizeof(SECURITY_ATTRIBUTES));
c5b62518d233 changed security attributes - does not make a difference penk parents: 8659 diff changeset	7643	sa.nLength = sizeof(SECURITY_ATTRIBUTES);
c5b62518d233 changed security attributes - does not make a difference penk parents: 8659 diff changeset	7644	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	7645	// 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	7646	sa.bInheritHandle = FALSE;
8667 c5b62518d233 changed security attributes - does not make a difference penk parents: 8659 diff changeset	7647
c5b62518d233 changed security attributes - does not make a difference penk parents: 8659 diff changeset	7648	if( ! CreatePipe( &pipeRead, &pipeWrite, &sa, 0 ) ) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7649	@global(LastErrorNumber) = error = __mkSmallInteger( __WIN32_ERR(GetLastError()) );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7650	goto out;
12686 27afd11a1acd changed: Stefan Vogel <sv@exept.de> parents: 12654 diff changeset	7651	}
27afd11a1acd changed: Stefan Vogel <sv@exept.de> parents: 12654 diff changeset	7652
27afd11a1acd changed: Stefan Vogel <sv@exept.de> parents: 12654 diff changeset	7653	#if 1
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7654	fd1 = __MKEXTERNALADDRESS(pipeRead);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7655	fd2 = __MKEXTERNALADDRESS(pipeWrite);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7656	#else
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	* make fileDescriptors from handles
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7659	*/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7660	# ifdef PROCESSDEBUGWIN32
20896 c88fbd0cb367 * empty log message * Claus Gittinger <cg@exept.de> parents: 20677 diff changeset	7661	if (flag_PROCESSDEBUGWIN32) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7662	console_printf("piperead %x\n",pipeRead);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7663	console_printf("pipewrite %x\n",pipeWrite);
20896 c88fbd0cb367 * empty log message * Claus Gittinger <cg@exept.de> parents: 20677 diff changeset	7664	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7665	# endif
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	7666	fd1 = __mkSmallInteger(_open_osfhandle(pipeRead, O_BINARY));
3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	7667	fd2 = __mkSmallInteger(_open_osfhandle(pipeWrite, O_BINARY));
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7668	#endif
12686 27afd11a1acd changed: Stefan Vogel <sv@exept.de> parents: 12654 diff changeset	7669	out:;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7670	%}.
10627 bef737d1b8a7 care for -1 fd returned by CreatePipe Claus Gittinger <cg@exept.de> parents: 10622 diff changeset	7671	(fd1 notNil and:[fd2 notNil]) ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7672	(fd1 ~~ -1 and:[fd2 ~~ -1]) ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7673	^ Array with:fd1 with:fd2.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7674	].
12686 27afd11a1acd changed: Stefan Vogel <sv@exept.de> parents: 12654 diff changeset	7675	].
27afd11a1acd changed: Stefan Vogel <sv@exept.de> parents: 12654 diff changeset	7676
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7677	^ nil
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7678	! !
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	!Win32OperatingSystem class methodsFor:'misc'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7681
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7682	closePid:pid
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7683	"free pid resource"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7684	%{
7662 32a1185158f3 process handles Claus Gittinger <cg@exept.de> parents: 7645 diff changeset	7685	if (__isExternalAddressLike(pid) ) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7686	HANDLE __pid = _HANDLEVal(pid);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7687
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7688	if (__pid != 0) {
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7689	#ifdef PROCESSDEBUGWIN32
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7690	if (flag_PROCESSDEBUGWIN32) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7691	console_printf("Close ProcessHandle %x\n", __pid);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7692	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7693	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7694	CloseHandle(__pid);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7695	_SETHANDLEVal(pid, 0);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7696	}
5133 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	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7699	^ true.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7700
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7701	"Created: 28.1.1998 / 14:23:04 / md"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	7702	"Modified: 28.1.1998 / 14:27:18 / md"
9264 2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	7703	!
2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	7704
10720 4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	7705	duplicateHandle:aHandle to:targetProcessHandle
14520 cc5f9141dded changed: #duplicateHandle:to: anwild parents: 14519 diff changeset	7706	\|hMe spaceForTargetHandle rslt addr\|
cc5f9141dded changed: #duplicateHandle:to: anwild parents: 14519 diff changeset	7707
cc5f9141dded changed: #duplicateHandle:to: anwild parents: 14519 diff changeset	7708	spaceForTargetHandle := ExternalLong unprotectedNew.
10720 4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	7709	hMe := self getCurrentProcess.
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	7710	rslt := self
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7711	primDuplicateHandle_hSourcProcessHandle:hMe
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7712	hSourceHandle:aHandle
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7713	hTargetProcesshandle:targetProcessHandle ? hMe
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7714	lpTargetHandle:spaceForTargetHandle
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7715	dwDesiredAccess:0
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7716	bInheritHandle:false
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7717	dwOptions:2 "DUPLICATE_SAME_ACCESS".
10720 4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	7718
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	7719	rslt ifFalse:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7720	spaceForTargetHandle free.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7721	self primitiveFailed:self primGetLastError.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7722	^ nil
14520 cc5f9141dded changed: #duplicateHandle:to: anwild parents: 14519 diff changeset	7723	].
cc5f9141dded changed: #duplicateHandle:to: anwild parents: 14519 diff changeset	7724
cc5f9141dded changed: #duplicateHandle:to: anwild parents: 14519 diff changeset	7725	addr := spaceForTargetHandle value.
cc5f9141dded changed: #duplicateHandle:to: anwild parents: 14519 diff changeset	7726	spaceForTargetHandle free.
cc5f9141dded changed: #duplicateHandle:to: anwild parents: 14519 diff changeset	7727	^ ExternalAddress newAddress:addr.
10720 4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	7728
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	7729	"Created: / 18-09-2007 / 16:34:25 / cg"
14520 cc5f9141dded changed: #duplicateHandle:to: anwild parents: 14519 diff changeset	7730	"Modified: / 21-11-2012 / 12:14:06 / anwild"
10720 4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	7731	!
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	7732
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7733	getAllProcesses
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7734	"answer a sequence of OSProcess, all processes running in system"
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7735
15546 d1d19176babd some stuff with inheriting handles Claus Gittinger <cg@exept.de> parents: 15544 diff changeset	7736	\|list st_perProc f\|
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7737
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7738	list := OrderedCollection new.
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7739
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7740	%{
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7741	#ifdef TLHELP32_H_INCLUDE
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7742
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7743	HANDLE hProcessSnap;
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7744	PROCESSENTRY32 pe32;
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7745	hProcessSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7746
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7747	if( hProcessSnap != INVALID_HANDLE_VALUE ) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7748	pe32.dwSize = sizeof(PROCESSENTRY32);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7749	Process32First( hProcessSnap, & pe32 );
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7750
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7751	do {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7752	st_perProc = __SSEND0(@global(Win32OperatingSystem::OSProcessDescriptor), @symbol(new), 0);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7753	f = __MKSTRING(pe32.szExeFile);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7754	__SSEND1(st_perProc, @symbol(commandLine:), 0, f );
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7755	__SSEND1(st_perProc, @symbol(pid:), 0, __mkSmallInteger(pe32.th32ProcessID) );
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7756	__SSEND1(st_perProc, @symbol(parentPid:), 0, __mkSmallInteger(pe32.th32ParentProcessID) );
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7757
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7758	__SSEND1(list, @symbol(add:), 0, st_perProc );
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7759	}
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7760	while(Process32Next(hProcessSnap,&pe32));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	7761	CloseHandle( hProcessSnap );
13128 35def02e40f4 CloseHandle added in: getAllProcesses Michael Beyl <mb@exept.de> parents: 13114 diff changeset	7762	}
35def02e40f4 CloseHandle added in: getAllProcesses Michael Beyl <mb@exept.de> parents: 13114 diff changeset	7763
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7764	#endif /* TLHELP32_H_INCLUDE */
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7765
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7766	%}.
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7767	^ list
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7768	!
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	7769
10720 4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	7770	getCurrentProcess
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	7771	<apicall: handle "GetCurrentProcess" ( ) module: "kernel32.dll" >
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	7772
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	7773	"
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	7774	self getCurrentProcess
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	7775	"
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	7776
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	7777	"Created: / 18-09-2007 / 16:32:22 / cg"
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	7778	!
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	7779
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	7780	getPrivateProfileString:appNameString key:keyNameString default:defaultString fileName:fileName
9475 c57956a348bf printing support fm parents: 9431 diff changeset	7781	^ self
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7782	getProfileString:appNameString key:keyNameString default:defaultString
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7783	fileName:fileName private:true
9475 c57956a348bf printing support fm parents: 9431 diff changeset	7784
c57956a348bf printing support fm parents: 9431 diff changeset	7785	"Modified: / 27-07-2006 / 11:57:03 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	7786	!
c57956a348bf printing support fm parents: 9431 diff changeset	7787
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	7788	getProfileString:appNameString key:keyNameString default:defaultString
9264 2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	7789	%{
2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	7790	char *__appNameString = NULL;
2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	7791	char *__keyNameString = NULL;
2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	7792	char *__defaultString = NULL;
2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	7793	char *__returnedString = NULL;
9475 c57956a348bf printing support fm parents: 9431 diff changeset	7794	char quickBuffer[1024];
c57956a348bf printing support fm parents: 9431 diff changeset	7795	char *usedBuffer = quickBuffer;
c57956a348bf printing support fm parents: 9431 diff changeset	7796	int bufferSize = sizeof(quickBuffer);
9264 2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	7797	int nChars;
9475 c57956a348bf printing support fm parents: 9431 diff changeset	7798	OBJ retVal;
9264 2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	7799
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	7800	if (__isStringLike(appNameString)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7801	__appNameString = __stringVal(appNameString);
9264 2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	7802	} else if (appNameString != nil)
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7803	goto primitiveFail;
9264 2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	7804
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	7805	if (__isStringLike(keyNameString)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7806	__keyNameString = __stringVal(keyNameString);
9264 2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	7807	} else if (keyNameString != nil)
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7808	goto primitiveFail;
9264 2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	7809
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	7810	if (__isStringLike(defaultString)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7811	__defaultString = __stringVal(defaultString);
9264 2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	7812	} else if (defaultString != nil)
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7813	goto primitiveFail;
9264 2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	7814
9475 c57956a348bf printing support fm parents: 9431 diff changeset	7815	do {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7816	nChars = GetProfileString(__appNameString, __keyNameString, __defaultString, usedBuffer, bufferSize);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7817	if (nChars >= 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7818	if (nChars != bufferSize-1) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7819	retVal = __MKSTRING_L(usedBuffer, nChars);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7820	if (usedBuffer != quickBuffer) free(usedBuffer);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7821	RETURN (retVal);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7822	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7823
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7824	{
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7825	/* use a bigger buffer */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7826	char *newBuffer;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7827	int newBufferSize = bufferSize * 2;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7828
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7829	newBuffer = (char *)malloc( newBufferSize );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7830	if (usedBuffer != quickBuffer) free(usedBuffer);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7831	usedBuffer = newBuffer;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7832	bufferSize = newBufferSize;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7833	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7834	}
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	7835
9475 c57956a348bf printing support fm parents: 9431 diff changeset	7836	} while (nChars > 0);
c57956a348bf printing support fm parents: 9431 diff changeset	7837	RETURN (nil);
9264 2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	7838	primitiveFail: ;
2ad8f83a31ac +getPrivateprofileStrings Claus Gittinger <cg@exept.de> parents: 9257 diff changeset	7839	%}.
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	7840	^ self primitiveFailed
9475 c57956a348bf printing support fm parents: 9431 diff changeset	7841
c57956a348bf printing support fm parents: 9431 diff changeset	7842	"Created: / 27-07-2006 / 11:54:59 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	7843	!
c57956a348bf printing support fm parents: 9431 diff changeset	7844
c57956a348bf printing support fm parents: 9431 diff changeset	7845	getProfileString:appNameString key:keyNameString default:defaultString fileName:fileName private:private
c57956a348bf printing support fm parents: 9431 diff changeset	7846	%{
c57956a348bf printing support fm parents: 9431 diff changeset	7847	char *__appNameString = NULL;
c57956a348bf printing support fm parents: 9431 diff changeset	7848	char *__keyNameString = NULL;
c57956a348bf printing support fm parents: 9431 diff changeset	7849	char *__defaultString = NULL;
c57956a348bf printing support fm parents: 9431 diff changeset	7850	char *__returnedString = NULL;
c57956a348bf printing support fm parents: 9431 diff changeset	7851	char *__fileName = NULL;
c57956a348bf printing support fm parents: 9431 diff changeset	7852	char quickBuffer[1024];
c57956a348bf printing support fm parents: 9431 diff changeset	7853	char *usedBuffer = quickBuffer;
c57956a348bf printing support fm parents: 9431 diff changeset	7854	int bufferSize = sizeof(quickBuffer);
c57956a348bf printing support fm parents: 9431 diff changeset	7855	int nChars;
c57956a348bf printing support fm parents: 9431 diff changeset	7856	OBJ retVal;
c57956a348bf printing support fm parents: 9431 diff changeset	7857
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	7858	if (__isStringLike(appNameString)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7859	__appNameString = __stringVal(appNameString);
9475 c57956a348bf printing support fm parents: 9431 diff changeset	7860	} else if (appNameString != nil)
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7861	goto primitiveFail;
9475 c57956a348bf printing support fm parents: 9431 diff changeset	7862
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	7863	if (__isStringLike(keyNameString)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7864	__keyNameString = __stringVal(keyNameString);
9475 c57956a348bf printing support fm parents: 9431 diff changeset	7865	} else if (keyNameString != nil)
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7866	goto primitiveFail;
9475 c57956a348bf printing support fm parents: 9431 diff changeset	7867
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	7868	if (__isStringLike(defaultString)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7869	__defaultString = __stringVal(defaultString);
9475 c57956a348bf printing support fm parents: 9431 diff changeset	7870	} else if (defaultString != nil)
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7871	goto primitiveFail;
9475 c57956a348bf printing support fm parents: 9431 diff changeset	7872
c57956a348bf printing support fm parents: 9431 diff changeset	7873	if (private == true) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7874	if (! __isStringLike(fileName)) goto primitiveFail;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7875	__fileName = __stringVal(fileName);
9475 c57956a348bf printing support fm parents: 9431 diff changeset	7876	}
c57956a348bf printing support fm parents: 9431 diff changeset	7877
c57956a348bf printing support fm parents: 9431 diff changeset	7878	do {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7879	if (private == true) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7880	nChars = GetPrivateProfileString(__appNameString, __keyNameString, __defaultString, usedBuffer, bufferSize, __fileName);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7881	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7882	nChars = GetProfileString(__appNameString, __keyNameString, __defaultString, usedBuffer, bufferSize);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7883	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7884	if (nChars >= 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7885	if (nChars != bufferSize-1) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7886	retVal = __MKSTRING_L(usedBuffer, nChars);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7887	if (usedBuffer != quickBuffer) free(usedBuffer);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7888	RETURN (retVal);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7889	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7890
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7891	{
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7892	/* use a bigger buffer */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7893	char *newBuffer;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7894	int newBufferSize = bufferSize * 2;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7895
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7896	newBuffer = (char *)malloc( newBufferSize );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7897	if (usedBuffer != quickBuffer) free(usedBuffer);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7898	usedBuffer = newBuffer;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7899	bufferSize = newBufferSize;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7900	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7901	}
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	7902
9475 c57956a348bf printing support fm parents: 9431 diff changeset	7903	} while (nChars > 0);
c57956a348bf printing support fm parents: 9431 diff changeset	7904	RETURN (nil);
c57956a348bf printing support fm parents: 9431 diff changeset	7905	primitiveFail: ;
c57956a348bf printing support fm parents: 9431 diff changeset	7906	%}.
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	7907	^ self primitiveFailed
9475 c57956a348bf printing support fm parents: 9431 diff changeset	7908
c57956a348bf printing support fm parents: 9431 diff changeset	7909	"Created: / 27-07-2006 / 11:55:25 / fm"
10274 a90d2c9d04b0 writePrivateProfileString fm parents: 10180 diff changeset	7910	!
a90d2c9d04b0 writePrivateProfileString fm parents: 10180 diff changeset	7911
10615 349ffa5ea6d1 +hInstance Claus Gittinger <cg@exept.de> parents: 10596 diff changeset	7912	hInstance
349ffa5ea6d1 +hInstance Claus Gittinger <cg@exept.de> parents: 10596 diff changeset	7913	"very Win32 specific: get the HINSTANCE of the executable"
349ffa5ea6d1 +hInstance Claus Gittinger <cg@exept.de> parents: 10596 diff changeset	7914
349ffa5ea6d1 +hInstance Claus Gittinger <cg@exept.de> parents: 10596 diff changeset	7915	%{
349ffa5ea6d1 +hInstance Claus Gittinger <cg@exept.de> parents: 10596 diff changeset	7916	extern void *__getHInstance();
349ffa5ea6d1 +hInstance Claus Gittinger <cg@exept.de> parents: 10596 diff changeset	7917
349ffa5ea6d1 +hInstance Claus Gittinger <cg@exept.de> parents: 10596 diff changeset	7918	RETURN (__MKEXTERNALADDRESS(__getHInstance()));
20283 6054b4897eed * empty log message * Claus Gittinger <cg@exept.de> parents: 20282 diff changeset	7919	%}.
10615 349ffa5ea6d1 +hInstance Claus Gittinger <cg@exept.de> parents: 10596 diff changeset	7920
349ffa5ea6d1 +hInstance Claus Gittinger <cg@exept.de> parents: 10596 diff changeset	7921	"
349ffa5ea6d1 +hInstance Claus Gittinger <cg@exept.de> parents: 10596 diff changeset	7922	Win32OperatingSystem hInstance
349ffa5ea6d1 +hInstance Claus Gittinger <cg@exept.de> parents: 10596 diff changeset	7923	"
349ffa5ea6d1 +hInstance Claus Gittinger <cg@exept.de> parents: 10596 diff changeset	7924	!
349ffa5ea6d1 +hInstance Claus Gittinger <cg@exept.de> parents: 10596 diff changeset	7925
16279 1addd0eeec26 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15983 diff changeset	7926	isValidHandle:anExternalAddress
1addd0eeec26 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15983 diff changeset	7927	\|newHandle\|
1addd0eeec26 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15983 diff changeset	7928
1addd0eeec26 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15983 diff changeset	7929	newHandle := self duplicateHandle:anExternalAddress to:nil.
1addd0eeec26 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15983 diff changeset	7930	newHandle isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7931	^ false.
16279 1addd0eeec26 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15983 diff changeset	7932	].
1addd0eeec26 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15983 diff changeset	7933	"/ self closeHandle:newHandle.
1addd0eeec26 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15983 diff changeset	7934	^ true.
1addd0eeec26 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15983 diff changeset	7935	!
1addd0eeec26 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15983 diff changeset	7936
11767 057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7937	playSound:fileName
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7938	self playSound:fileName mode:1
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7939
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7940	"/#define SND_SYNC 0x0000 /* play synchronously (default) */
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7941	"/#define SND_ASYNC 0x0001 /* play asynchronously */
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7942	"/#define SND_NODEFAULT 0x0002 /* silence (!!default) if sound not found */
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7943	"/#define SND_LOOP 0x0008 /* loop the sound until next sndPlaySound */
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7944	"/#define SND_NOSTOP 0x0010 /* don't stop any currently playing sound */
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7945
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7946	"
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7947	self
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7948	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	7949	"
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7950
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7951	"Created: / 06-11-2007 / 00:46:57 / cg"
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7952	!
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7953
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7954	playSound:fileName mode:modeInteger
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7955	<apicall: void "sndPlaySoundA" ( lpstr uint32) module: "winmm.dll" >
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	7956	^ self primitiveFailed.
11767 057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7957
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7958	"/#define SND_SYNC 0x0000 /* play synchronously (default) */
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7959	"/#define SND_ASYNC 0x0001 /* play asynchronously */
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7960	"/#define SND_NODEFAULT 0x0002 /* silence (!!default) if sound not found */
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7961	"/#define SND_LOOP 0x0008 /* loop the sound until next sndPlaySound */
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7962	"/#define SND_NOSTOP 0x0010 /* don't stop any currently playing sound */
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7963
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7964	"
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7965	self
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7966	playSound:'C:\Dokumente und Einstellungen\cg\work\exept\expecco\resources\sounds\start.wav'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	7967	mode:1
11767 057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7968	"
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7969
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7970	"Modified: / 06-11-2007 / 00:46:27 / cg"
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7971	!
057b2c8eba6f category change Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	7972
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	7973	primCloseHandle: handle
34770cbaf50c mutex functions fm parents: 11034 diff changeset	7974
34770cbaf50c mutex functions fm parents: 11034 diff changeset	7975	<apicall: ulongReturn "CloseHandle" ( handle ) module: "kernel32.dll" >
34770cbaf50c mutex functions fm parents: 11034 diff changeset	7976	!
34770cbaf50c mutex functions fm parents: 11034 diff changeset	7977
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	7978	primDuplicateHandle_hSourcProcessHandle:hSourceProcess
10720 4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	7979	hSourceHandle:hSourceHandle
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	7980	hTargetProcesshandle:hTargetProcessHandle
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	7981	lpTargetHandle:lpTargetHandle
10720 4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	7982	dwDesiredAccess:desiredAccess
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	7983	bInheritHandle:bInheritHandle
10720 4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	7984	dwOptions:dwOptions
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	7985
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	7986	<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	7987	^ self primitiveFailed.
10720 4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	7988
4bb896884092 added duplicateHandle (must be tested) Claus Gittinger <cg@exept.de> parents: 10719 diff changeset	7989	"Created: / 18-09-2007 / 16:31:23 / cg"
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	7990	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	7991
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	7992	primGetLastError
20275 e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	7993	"get the last error code"
15339 c701f431b3f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 15338 diff changeset	7994	%{ /* NOCONTEXT */
20591 e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	7995	DWORD e = GetLastError();
15339 c701f431b3f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 15338 diff changeset	7996	RETURN(__MKUINT(e));
c701f431b3f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 15338 diff changeset	7997	%}.
c701f431b3f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 15338 diff changeset	7998
c701f431b3f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 15338 diff changeset	7999	"/ <apicall: dword "GetLastError" () module: "kernel32.dll" >
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8000
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8001	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8002	self primGetLastError
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8003	"
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8004	!
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8005
15338 419fe7273142 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15302 diff changeset	8006	primSetLastError: i
20275 e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	8007	"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	8008
15339 c701f431b3f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 15338 diff changeset	8009	%{ /* NOCONTEXT */
15338 419fe7273142 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15302 diff changeset	8010	if (__isSmallInteger(i)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8011	SetLastError(__intVal(i));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8012	RETURN(self);
15338 419fe7273142 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15302 diff changeset	8013	}
419fe7273142 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15302 diff changeset	8014	%}.
419fe7273142 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15302 diff changeset	8015	"/ <apicall: void "SetLastError" (dword) module: "kernel32.dll" >
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8016	^ self primitiveFailed.
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8017
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8018	"
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8019	self primSetLastError: 0
11089 a6f47ff0561a mutex fix fm parents: 11088 diff changeset	8020	"
a6f47ff0561a mutex fix fm parents: 11088 diff changeset	8021	!
a6f47ff0561a mutex fix fm parents: 11088 diff changeset	8022
20275 e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	8023	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	8024	%{ /* NOCONTEXT */
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	8025	if (__isString(appName)
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	8026	&& __isString(keyName)
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	8027	&& __isString(profString)
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	8028	&& __isString(fnString)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8029	BOOL ret;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8030
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8031	ret = WritePrivateProfileStringA(__stringVal(appName), __stringVal(keyName), __stringVal(profString), __stringVal(fnString));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8032	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	8033	}
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	8034	%}.
e3c9c5a28f9c ffi -> inline C (mingw does not (at present) support ffi Claus Gittinger <cg@exept.de> parents: 20246 diff changeset	8035
20276 7a9a31afafe3 * empty log message * Claus Gittinger <cg@exept.de> parents: 20275 diff changeset	8036	"/ <apicall: bool "WritePrivateProfileStringA" ( lpstr lpstr lpstr lpstr ) module: "Kernel32.dll" >
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8037	^ self primitiveFailed
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	8038
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	8039	"Created: / 18-12-2006 / 13:01:41 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	8040	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	8041
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8042	writePrivateProfileString:appName keyName:keyName profileString:profString fileName:aString
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8043
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8044	^self primWritePrivateProfileString:appName keyName:keyName profileString:profString fileName:aString
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	8045
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	8046	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	8047	\|profileStringToWrite recoveredProfileString\|
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	8048	profileStringToWrite := 'c:\vsw311'.
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8049	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	8050	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	8051	self assert: (profileStringToWrite = recoveredProfileString).
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	8052	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	8053
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	8054	"Modified: / 18-12-2006 / 13:20:20 / User"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8055	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8056
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8057	!Win32OperatingSystem class methodsFor:'mutex'!
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8058
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8059	createMutexNamed: name
11091 b64647b51eca mutex fix fm parents: 11090 diff changeset	8060	"Returns an array with the handle and the lastErrorCode"
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8061
11089 a6f47ff0561a mutex fix fm parents: 11088 diff changeset	8062	\|handle lastErrorCode\|
a6f47ff0561a mutex fix fm parents: 11088 diff changeset	8063
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8064	self primSetLastError:0.
11092 a05bd545f00d mutex fix fm parents: 11091 diff changeset	8065	self primGetLastError.
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8066	handle := self primCreateMutex:nil initialOwner:true name:name.
11089 a6f47ff0561a mutex fix fm parents: 11088 diff changeset	8067	lastErrorCode := self primGetLastError.
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8068	"/ lastErrorCode printCR.
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8069	"/ 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	8070	"/ lastErrorCode == 183 "ERROR_ALREADY_EXISTS" ifTrue:[Transcript showCR: 'Mutex already exists (GetLastError = ERROR_ALREADY_EXISTS)'.].
11342 3a99bfdee484 changed #createMutexNamed: fm parents: 11291 diff changeset	8071	^ Array with: handle with: lastErrorCode
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8072
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8073	"
20591 e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	8074	\|arr\|
e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	8075	arr := self createMutexNamed: '8906f5e0-54ed-11dd-9da4-001558137da0'.
e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	8076	self releaseMutex: arr first.
e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	8077
12986 bd31df28e32a changed: #createMutexNamed: Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	8078	self releaseMutexNamed: '8906f5e0-54ed-11dd-9da4-001558137da0'
bd31df28e32a changed: #createMutexNamed: Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	8079	"
bd31df28e32a changed: #createMutexNamed: Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	8080
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8081	"Modified: / 03-08-2010 / 16:57:36 / cg"
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8082	!
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8083
11086 4c10b9d1ce49 mutex fix fm parents: 11085 diff changeset	8084	existsMutexNamed: name
11091 b64647b51eca mutex fix fm parents: 11090 diff changeset	8085	\|handle lastErrorCode handleAndLastErrorCode\|
b64647b51eca mutex fix fm parents: 11090 diff changeset	8086
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8087	handleAndLastErrorCode := self createMutexNamed:name.
11091 b64647b51eca mutex fix fm parents: 11090 diff changeset	8088	handle := handleAndLastErrorCode first.
b64647b51eca mutex fix fm parents: 11090 diff changeset	8089	lastErrorCode := handleAndLastErrorCode second.
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8090	"/ self assert: lastErrorCode == 0.
11215 b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	8091	^ handle isNil
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8092	or:[lastErrorCode == 183 "ERROR_ALREADY_EXISTS"
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8093	or:[ lastErrorCode == 5 "ERROR_ACCESS_DENIED"]]
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8094
8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8095	"Modified: / 03-08-2010 / 16:59:41 / cg"
11086 4c10b9d1ce49 mutex fix fm parents: 11085 diff changeset	8096	!
4c10b9d1ce49 mutex fix fm parents: 11085 diff changeset	8097
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8098	openMutexNamed: name
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8099	"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	8100	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	8101	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	8102
11088 31c6b3e16450 mutex fix3 fm parents: 11087 diff changeset	8103	\|handle \|
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8104
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8105	handle := self primOpenMutex:nil initialOwner:true name:name.
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8106	"/ lastErrorCode := self primGetLastError.
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8107	"/ 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	8108	"/ lastErrorCode = 5 ifTrue:[Transcript showCR: 'Mutex not accessable (GetLastError = ERROR_ACCESS_DENIED)'.].
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8109	^ handle
11215 b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	8110
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8111	"
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8112	self openMutexNamed: '8906f5e0-54ed-11dd-9da4-001558137da0'
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8113	"
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8114
8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8115	"Modified: / 03-08-2010 / 16:59:37 / cg"
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8116	!
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8117
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8118	primCreateMutex:lpSecurityDescriptor initialOwner:bInitialOwner name:lpName
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8119	"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	8120	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	8121	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	8122
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8123	\|handle\|
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8124
20591 e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	8125	handle := Win32MutexHandle new.
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8126	%{
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8127	if (__isString(lpName)
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8128	&& ((bInitialOwner == true) \|\| (bInitialOwner == false))) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8129	void *c_descr = NULL;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8130	char *c_name;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8131	HANDLE c_handle;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8132
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8133	c_name = __stringVal(lpName);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8134
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8135	if (lpSecurityDescriptor != nil) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8136	if (__isExternalAddressLike(lpSecurityDescriptor)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8137	\|\| __isExternalBytesLike(lpSecurityDescriptor) ) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8138	c_descr = __externalAddressVal(lpSecurityDescriptor);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8139	} else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8140	goto badArg;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8141	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8142	c_handle = CreateMutexA(c_descr, bInitialOwner == true, c_name);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8143	if (c_handle == NULL) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8144	RETURN(nil);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8145	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8146	__externalAddressVal(handle) = c_handle;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8147	RETURN(handle);
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8148	}
20280 6b5fa81e1c86 * empty log message * Claus Gittinger <cg@exept.de> parents: 20279 diff changeset	8149	badArg: ;
20283 6054b4897eed * empty log message * Claus Gittinger <cg@exept.de> parents: 20282 diff changeset	8150	%}.
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8151	"/ <apicall: handle "CreateMutexA" (lpstr bool lpstr) module: "kernel32.dll" >
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8152	^ self primitiveFailed
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8153
8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8154	"Modified: / 03-08-2010 / 16:59:26 / cg"
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8155	!
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8156
20284 d18a4fe6b86a #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20283 diff changeset	8157	primOpenMutex:dwDesiredAccess initialOwner:bInitialOwner name:lpName
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8158	"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	8159	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	8160	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	8161
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8162	\|handle\|
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8163
20591 e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	8164	handle := Win32MutexHandle new.
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8165	%{
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8166	if (__isString(lpName)
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8167	&& ((bInitialOwner == true) \|\| (bInitialOwner == false))) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8168	DWORD c_dwDesiredAccess = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8169	char *c_name;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8170	BOOL c_initialOwner = (bInitialOwner == true);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8171	HANDLE c_handle;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8172
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8173	c_name = __stringVal(lpName);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8174
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8175	if (dwDesiredAccess != nil) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8176	if (! __isSmallInteger(dwDesiredAccess)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8177	goto badArg;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8178	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8179	c_dwDesiredAccess = __intVal(dwDesiredAccess);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8180	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8181	c_handle = OpenMutexA(c_dwDesiredAccess, c_initialOwner, c_name);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8182	if (c_handle == NULL) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8183	RETURN(nil);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8184	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8185	__externalAddressVal(handle) = c_handle;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8186	RETURN(handle);
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8187	}
20280 6b5fa81e1c86 * empty log message * Claus Gittinger <cg@exept.de> parents: 20279 diff changeset	8188	badArg: ;
20283 6054b4897eed * empty log message * Claus Gittinger <cg@exept.de> parents: 20282 diff changeset	8189	%}.
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8190	"/ <apicall: handle "OpenMutexA" (lpstr bool lpstr) module: "kernel32.dll" >
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8191	^ self primitiveFailed
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8192
8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8193	"Modified: / 03-08-2010 / 16:59:11 / cg"
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8194	!
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8195
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8196	primReleaseMutex:hMutex
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8197	"If the function succeeds, the return value is nonzero.
8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8198	If the function fails, the return value is zero."
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8199	%{
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8200	if (__isExternalAddressLike(hMutex)
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8201	\|\| __isExternalBytesLike(hMutex) ) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8202	HANDLE _handle = _HANDLEVal(hMutex);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8203	BOOL _ret;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8204
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8205	_ret = ReleaseMutex(_handle);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8206	RETURN(_ret == 0 ? false : true);
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8207	}
20283 6054b4897eed * empty log message * Claus Gittinger <cg@exept.de> parents: 20282 diff changeset	8208	%}.
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8209	"/ <apicall: bool "ReleaseMutex" (handle) module: "kernel32.dll" >
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8210	^ self primitiveFailed
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8211
8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8212	"Modified: / 03-08-2010 / 16:59:55 / cg"
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8213	!
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8214
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8215	primWaitForSingleObject:handle milliseconds:dwMilliseconds
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8216	"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	8217	If the function fails, the return value is WAIT_FAILED ((DWORD)0xFFFFFFFF)."
11091 b64647b51eca mutex fix fm parents: 11090 diff changeset	8218
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8219	%{
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8220	if (__isExternalAddressLike(handle)
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8221	\|\| __isExternalBytesLike(handle) ) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8222	HANDLE _handle = _HANDLEVal(handle);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8223
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8224	if (__isSmallInteger(dwMilliseconds)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8225	DWORD _millis = __intVal(dwMilliseconds);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8226	DWORD _ret;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8227
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8228	_ret = ReleaseMutex(_handle);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8229	RETURN( __mkSmallInteger(_ret));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8230	}
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8231	}
20283 6054b4897eed * empty log message * Claus Gittinger <cg@exept.de> parents: 20282 diff changeset	8232	%}.
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8233	"/ <apicall: dword "WaitForSingleObject" (handle dword) module: "kernel32.dll" >
c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	8234	^ self primitiveFailed
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8235
8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8236	"Modified: / 03-08-2010 / 17:00:02 / cg"
11091 b64647b51eca mutex fix fm parents: 11090 diff changeset	8237	!
b64647b51eca mutex fix fm parents: 11090 diff changeset	8238
11215 b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	8239	releaseMutex: hMutex
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8240	"Returns true if the Mutex was released. Otherwise, returns false."
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8241
11085 ff0e28fd7027 changed #primReleaseMutex: fm parents: 11084 diff changeset	8242	\| released\|
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8243
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8244	hMutex isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8245	Transcript showCR: 'hMutex is nil - cannot release'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8246	^ false
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8247	].
11085 ff0e28fd7027 changed #primReleaseMutex: fm parents: 11084 diff changeset	8248	released := self primReleaseMutex: hMutex.
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8249	released ifFalse:[Transcript showCR: 'Release Mutex failed'.].
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8250	^ released
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8251
8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8252	"Modified: / 03-08-2010 / 17:00:05 / cg"
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8253	!
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8254
11215 b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	8255	releaseMutexNamed: name
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8256	"Returns true if the Mutex was released. Otherwise, returns false."
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8257
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8258	\| hMutex \|
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8259
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8260	hMutex := self openMutexNamed: name.
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8261	hMutex isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8262	Transcript showCR: 'Cannot release Mutex named: "', name printString,'"'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8263	^ false
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8264	].
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8265	^ self releaseMutex: hMutex.
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8266
8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8267	"Modified: / 03-08-2010 / 16:58:25 / cg"
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8268	!
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8269
11215 b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	8270	waitForSingleObject: handle
11091 b64647b51eca mutex fix fm parents: 11090 diff changeset	8271	\|result\|
b64647b51eca mutex fix fm parents: 11090 diff changeset	8272
11092 a05bd545f00d mutex fix fm parents: 11091 diff changeset	8273	result := self primWaitForSingleObject: handle milliseconds: 500.
11091 b64647b51eca mutex fix fm parents: 11090 diff changeset	8274	^ result
12987 8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8275
8adc5406f7cb comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 12986 diff changeset	8276	"Modified: / 03-08-2010 / 17:00:10 / cg"
11084 34770cbaf50c mutex functions fm parents: 11034 diff changeset	8277	! !
34770cbaf50c mutex functions fm parents: 11034 diff changeset	8278
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	8279	!Win32OperatingSystem class methodsFor:'network resources'!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	8280
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	8281	networkResourceAccessor
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	8282	"answer the Win32NetworkResourceHandle or nil if not supported"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	8283
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	8284	^ Win32NetworkResourceHandle
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	8285	! !
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	8286
19499 ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8287	!Win32OperatingSystem class methodsFor:'notifications'!
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8288
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8289	createChangeNotificationHandleFor:aDirectoryPathName flags:changeFlags
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8290	\|handle\|
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8291
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8292	handle := Win32ChangeNotificationHandle new.
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8293	%{
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8294	if (__isString(aDirectoryPathName)
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8295	&& __isSmallInteger(changeFlags)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8296	char *__dirName = __stringVal(aDirectoryPathName);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8297	INT __flags = __intVal(changeFlags);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8298	HANDLE __changeHandle;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8299
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8300	__changeHandle = FindFirstChangeNotification(__dirName, FALSE, __flags);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8301	if (__changeHandle == INVALID_HANDLE_VALUE) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8302	console_printf("failed to create handle\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8303	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8304	__externalAddressVal(handle) = __changeHandle;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8305	RETURN (handle);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8306	}
19499 ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8307	}
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8308	%}.
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8309	self primitiveFailed
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8310
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8311	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8312	\|h\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8313
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8314	[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8315	h := OperatingSystem createChangeNotificationHandleFor:'.'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8316	flags:(FILE_NOTIFY_CHANGE_FILE_NAME \|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8317	FILE_NOTIFY_CHANGE_DIR_NAME \|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8318	FILE_NOTIFY_CHANGE_ATTRIBUTES \|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8319	FILE_NOTIFY_CHANGE_SIZE \|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8320	FILE_NOTIFY_CHANGE_LAST_WRITE).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8321	Transcript showCR:'waiting...'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8322	OperatingSystem waitForSingleObject:h withTimeout:1000.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8323	Transcript showCR:'got a change...'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8324	h close.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8325	] fork.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8326	Delay waitForSeconds:0.25.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8327	Transcript showCR:'changing...'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8328	'./bla' asFilename contents:'hello'.
19499 ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8329
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8330	"
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8331	! !
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	8332
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8333	!Win32OperatingSystem class methodsFor:'os queries'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8334
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8335	executableFileExtensions
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8336	"return a collection of extensions for executable program files.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8337	Only req'd for msdos like systems ..."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8338
23614 1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8339	\| pathext \|
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8340
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8341	PathExtensions isNil ifTrue:[
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8342	"/ First, initialize to some (safe) default in case
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8343	"/ PATHEXT is not available.
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8344	"/
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8345	"/ Note: maybe we should also add .ps1 these days.
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8346	PathExtensions := #('com' 'exe' 'bat' 'cmd').
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8347
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8348	"/ If PATHEXT environment is available, use all extensions
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8349	"/ in that one but make sure defaults aboce are there
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8350	"/ in case of malformed PATHEXT.
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8351
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8352	pathext := self getEnvironment:'PATHEXT'.
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8353	pathext notNil ifTrue:[
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8354	pathext := pathext asLowercase.
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8355	(pathext splitBy: $;) do:[:dotext \|
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8356	\| ext \|
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8357
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8358	ext := dotext copyFrom: 2.
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8359	(PathExtensions includes: ext) ifFalse:[
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8360	PathExtensions := PathExtensions copyWith: ext.
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8361	].
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8362	].
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8363	].
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8364	].
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8365	^ PathExtensions
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8366
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8367	"
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8368	OperatingSystem executableFileExtensions
1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8369	"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8370
13618 9af72c855037 Fixes for #canExecuteCommand: vrany parents: 13616 diff changeset	8371	"Created: / 02-05-1997 / 11:42:29 / cg"
23614 1c6f89bd0de6 Win32: fix `Win32OperatingSystem class >> pathOfCommand:` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23613 diff changeset	8372	"Modified: / 18-01-2019 / 11:06:55 / jv"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8373	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8374
20245 0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	8375	expandEnvironmentStrings:aString
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	8376	"expand the environmentStrings (e.g. %ProgramFiles%) in aString"
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	8377
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	8378	\|count resultString resultCount\|
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	8379
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	8380	count := aString size + 128.
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	8381	[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8382	aString isWideString ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8383	resultString := Unicode16String new:count.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8384	resultCount := self primExpandEnvironmentStringsW:aString into:resultString size:count.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8385	] ifFalse:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8386	resultString := String new:count.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8387	resultCount := self primExpandEnvironmentStringsA:aString into:resultString size:count.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8388	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8389	resultCount <= count ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8390	true
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8391	] ifFalse:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8392	"resultString was too small. resultCount is the required buffer size"
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8393	count := resultCount.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8394	false
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8395	].
20245 0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	8396	] whileFalse.
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	8397	^ resultString copyTo:resultCount-1.
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	8398
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	8399
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	8400	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8401	self expandEnvironmentStrings:'%ProgramFiles%\test\x'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8402	self expandEnvironmentStrings:'%ProgramFiles%\test\x' asUnicode16String
20245 0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	8403	"
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	8404	!
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	8405
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8406	getDomainName
12961 f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	8407	"return the DNS domain this host is in.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8408	Notice:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8409	not all systems support this; on some, 'unknown' is returned."
12961 f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	8410
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	8411	\|domainName idx hostName k\|
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8412
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8413	DomainName notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8414	^ DomainName
12961 f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	8415	].
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	8416
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	8417	"/ sometimes, we can extract the domainName from the hostName ...
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	8418	hostName := self getHostName.
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	8419	hostName notEmptyOrNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8420	idx := hostName indexOf:$..
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8421	idx ~~ 0 ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8422	domainName := hostName copyFrom:idx+1.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8423	]
12961 f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	8424	].
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	8425
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	8426	domainName isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8427	domainName := self getEnvironment:'DOMAIN'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8428	domainName isNil ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8429	domainName := self getEnvironment:'DOMAINNAME'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8430	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8431
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8432	domainName isNil ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8433	"/ ok, search the registry ...
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8434	"/ under NT and later, it is found there ...
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8435	k := RegistryEntry key:'HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8436	k notNil ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8437	domainName := k valueNamed:'Domain'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8438	k close.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8439	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8440	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8441
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8442	domainName isNil ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8443	^ 'unknown'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8444	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8445	DomainName := domainName. "cache only, if it is fixed"
12961 f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	8446	].
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	8447	^ domainName
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8448
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8449	"
8659 d8f5821a6d6d * empty log message * penk parents: 8656 diff changeset	8450	DomainName := nil.
d8f5821a6d6d * empty log message * penk parents: 8656 diff changeset	8451	OperatingSystem getDomainName
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	8452	OperatingSystem getHostName
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8453	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8454
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8455	"Modified: 26.4.1996 / 10:04:54 / stefan"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8456	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8457
20966 283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8458	getEnvironment
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8459	"get all environment variables as a dictionary of key-value associations.
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8460	You will find a few strange name-keys starting wth a $=.
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8461	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	8462	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	8463	be preserved when forking off new programs.
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8464	Read: 'What are these strange =C: environment variables?'
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8465	(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	8466
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8467	\|strings assocString envDict\|
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8468
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8469	strings := OrderedCollection new:128.
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8470	%{
20966 283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8471	LPWSTR lpvEnv;
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8472
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8473	lpvEnv = GetEnvironmentStringsW();
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8474	if (lpvEnv != NULL) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8475	static struct inlineCache add = _ILC1;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8476	LPWSTR cp = lpvEnv;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8477
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8478	while (*cp) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8479	assocString = __MKU16STRING(cp);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8480	(*add.ilc_func)(strings, @symbol(add:), nil, &add, assocString);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8481	cp += wcslen(cp) + 1;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8482	}
20966 283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8483	}
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8484	%}.
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8485
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8486	envDict := Dictionary new.
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8487	strings do:[:each \|
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8488	\|idx key value\|
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8489
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8490	idx := each indexOf:$= startingAt:2.
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8491	self assert:(idx ~~ 0).
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8492	key := each copyTo:idx-1.
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8493	value := each copyFrom:idx+1.
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8494	envDict at:key put:value.
20966 283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8495	].
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8496	^ envDict
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8497
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8498	"
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8499	OperatingSystem getEnvironment
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8500	"
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8501
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8502	"Created: / 15-11-2016 / 16:10:12 / cg"
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8503	!
283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8504
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8505	getEnvironment:aStringOrSymbol
20966 283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8506	"get the whole environment as a dictionary"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8507
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8508	%{ /* NOCONTEXT */
19284 a8e9068d61bf * empty log message * Claus Gittinger <cg@exept.de> parents: 19282 diff changeset	8509	# define ENV_BUFSIZE 2048
a8e9068d61bf * empty log message * Claus Gittinger <cg@exept.de> parents: 19282 diff changeset	8510	WCHAR _varName[ENV_BUFSIZE];
a8e9068d61bf * empty log message * Claus Gittinger <cg@exept.de> parents: 19282 diff changeset	8511	WCHAR buff[ENV_BUFSIZE];
18962 29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	8512	int nNeeded;
29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	8513	OBJ ret = nil;
29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	8514	int i, l;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8515
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	8516	if (__isStringLike(aStringOrSymbol)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8517	l = __stringSize(aStringOrSymbol);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8518	if (l > ENV_BUFSIZE-1)
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8519	goto badArgument;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8520	for (i=0; i<l; i++) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8521	_varName[i] = __stringVal(aStringOrSymbol)[i];
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8522	}
18962 29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	8523	} else if (__isUnicode16String(aStringOrSymbol)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8524	l = __unicode16StringSize(aStringOrSymbol);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8525	if (l > ENV_BUFSIZE-1)
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8526	goto badArgument;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8527	for (i=0; i<l; i++) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8528	_varName[i] = __unicode16StringVal(aStringOrSymbol)[i];
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8529	}
19285 da9a76755850 * empty log message * Claus Gittinger <cg@exept.de> parents: 19284 diff changeset	8530	} else {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8531	goto badArgument;
19285 da9a76755850 * empty log message * Claus Gittinger <cg@exept.de> parents: 19284 diff changeset	8532	}
18962 29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	8533	_varName[l] = 0;
29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	8534
19284 a8e9068d61bf * empty log message * Claus Gittinger <cg@exept.de> parents: 19282 diff changeset	8535	nNeeded = GetEnvironmentVariableW(_varName, buff, ENV_BUFSIZE);
18962 29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	8536	if (nNeeded > sizeof(buff)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8537	WCHAR *buff2;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8538
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8539	buff2 = (char )malloc(nNeeded sizeof(WCHAR));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8540	GetEnvironmentVariableW(_varName, buff2, nNeeded);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8541	ret = __mkStringOrU16String_maxlen(buff2, nNeeded);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8542	free(buff2);
18962 29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	8543	} else if (nNeeded > 0) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8544	ret = __mkStringOrU16String_maxlen(buff, nNeeded);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8545	// console_printf("getenv() -> %"_lx_"\n", (INT)ret);
18962 29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	8546	}
29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	8547	RETURN (ret);
29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	8548
29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	8549	badArgument:;
20283 6054b4897eed * empty log message * Claus Gittinger <cg@exept.de> parents: 20282 diff changeset	8550	%}.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8551	^ nil
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8552
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8553	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8554	OperatingSystem getEnvironment:'PATH'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8555	"
10294 f9fd95f04653 * empty log message * Claus Gittinger <cg@exept.de> parents: 10287 diff changeset	8556
20966 283c240f38d1 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20930 diff changeset	8557	"Modified: / 15-11-2016 / 16:10:27 / cg"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8558	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8559
8659 d8f5821a6d6d * empty log message * penk parents: 8656 diff changeset	8560	getHostName
12961 f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	8561	"return the hostname we are running on
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	8562	- if possible, the fully qualified host name."
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	8563
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	8564	\|hostName\|
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	8565
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	8566	%{ /* STACK: 2048 */
14782 31a237b7cfda * empty log message * Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	8567	#if defined(__MINGW32__)
31a237b7cfda * empty log message * Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	8568	char bufferA[512];
14783 93bf8545cbd5 * empty log message * Claus Gittinger <cg@exept.de> parents: 14782 diff changeset	8569	DWORD buffSize = sizeof(bufferA);
14782 31a237b7cfda * empty log message * Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	8570	#else
14083 eace28be0149 changed: #getHostName Stefan Vogel <sv@exept.de> parents: 13956 diff changeset	8571	WCHAR buffer[512];
14087 6b3dea4f8fc9 changed: #getHostName Stefan Vogel <sv@exept.de> parents: 14083 diff changeset	8572	DWORD buffSize = sizeof(buffer)/sizeof(buffer[0]);
14783 93bf8545cbd5 * empty log message * Claus Gittinger <cg@exept.de> parents: 14782 diff changeset	8573	#endif
12961 f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	8574
14083 eace28be0149 changed: #getHostName Stefan Vogel <sv@exept.de> parents: 13956 diff changeset	8575	// Note: GetComputerNameExA can fail in certain locales!
14782 31a237b7cfda * empty log message * Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	8576	#if defined(__MINGW32__)
31a237b7cfda * empty log message * Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	8577	if (GetComputerNameA(bufferA, &buffSize) == TRUE) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8578	RETURN(__MKSTRING_L(bufferA, buffSize));
14756 d81b09ba6b83 compilability Claus Gittinger <cg@exept.de> parents: 14746 diff changeset	8579	}
d81b09ba6b83 compilability Claus Gittinger <cg@exept.de> parents: 14746 diff changeset	8580	#else
14083 eace28be0149 changed: #getHostName Stefan Vogel <sv@exept.de> parents: 13956 diff changeset	8581	if (GetComputerNameExW(ComputerNameDnsFullyQualified, buffer, &buffSize) == TRUE) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8582	RETURN(__mkStringOrU16String_maxlen(buffer, buffSize));
18962 29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	8583	}
29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	8584	#endif
29c5db48dd57 #FEATURE Stefan Vogel <sv@exept.de> parents: 18954 diff changeset	8585	%}.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8586
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8587	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8588	OperatingSystem getHostName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8589	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8590	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8591
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8592	getLocaleInfo
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8593	"return a dictionary filled with values from the locale information;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8594	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	8595	Possible fields are:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8596	decimalPoint <String>
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8597	thousandsSep <String>
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8598	internationalCurrencySymbol <String>
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8599	currencySymbol <String>
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8600	monetaryDecimalPoint <String>
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8601	monetaryThousandsSeparator <String>
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8602	positiveSign <String>
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8603	negativeSign <String>
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8604	internationalFractionalDigits <Integer>
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8605	fractionalDigits <Integer>
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8606	positiveSignPrecedesCurrencySymbol <Boolean>
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8607	negativeSignPrecedesCurrencySymbol <Boolean>
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8608	positiveSignSeparatedBySpaceFromCurrencySymbol <Boolean>
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8609	negativeSignSeparatedBySpaceFromCurrencySymbol <Boolean>
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8610	positiveSignPosition <Symbol>
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8611	one of: #parenthesesAround,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8612	#signPrecedes,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8613	#signSuceeds,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8614	#signPrecedesCurrencySymbol,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8615	#signSuceedsCurrencySymbol
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8616
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8617	negativeSignPosition <like above>
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8618
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8619	it is up to the application to deal with undefined values.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8620
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8621	Notice, that (for now), the system does not use this information;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8622	it should be used by applications as required.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8623	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8624
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8625	\|info val\|
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8626
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8627	LocaleInfo notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8628	"/ return the internal info; useful on systems which do not
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8629	"/ support this.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8630	^ LocaleInfo
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8631	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8632
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8633	info := IdentityDictionary new.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8634	%{
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8635	char decimalPoint; / something like "." (US) or "," (german) */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8636	char thousandsSep; / something like "," (US) or "." (german) */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8637	char intCurrencySymbol; / international currency symbol; something like "USD " "DM " */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8638	char currencySymbol; / local currency symbol; something like "USD " "DM " */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8639	char monDecimalPoint; / money: decimal point */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8640	char monThousandsSep; / money: thousands sep */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8641	char *positiveSign;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8642	char *negativeSign;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8643	int intFractDigits; /* money: international digits after decPoint */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8644	int fractDigits; /* money: local digits after decPoint */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8645	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	8646	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	8647	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	8648	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	8649	int csPosSignPosition; /* money: 0: ()'s around the value & currency symbol */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8650	int csNegSignPosition; /* 1: sign precedes the value & currency symbol */
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8651	/* 2: sign succeeds the value & currency symbol */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8652	/* 3: sign immediately precedes the currency symbol */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8653	/* 4: sign immediately suceeds the currency symbol */
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8654
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8655	#if defined(HAS_LOCALECONV)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8656	struct lconv *conf;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8657
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8658	conf = localeconv();
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8659	if (conf) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8660	decimalPoint = conf->decimal_point;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8661	thousandsSep = conf->thousands_sep;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8662	intCurrencySymbol = conf->int_curr_symbol;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8663	currencySymbol = conf->currency_symbol;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8664	monDecimalPoint = conf->mon_decimal_point;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8665	monThousandsSep = conf->mon_thousands_sep;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8666	positiveSign = conf->positive_sign;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8667	negativeSign = conf->negative_sign;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8668	intFractDigits = conf->int_frac_digits;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8669	fractDigits = conf->frac_digits;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8670	csPosPrecedes = conf->p_cs_precedes;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8671	csNegPrecedes = conf->n_cs_precedes;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8672	csPosSepBySpace = conf->p_sep_by_space;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8673	csNegSepBySpace = conf->n_sep_by_space;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8674	csPosSignPosition = conf->p_sign_posn;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8675	csNegSignPosition = conf->n_sign_posn;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8676	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8677	#else
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8678	decimalPoint = (char *)0;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8679	thousandsSep = (char *)0;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8680	intCurrencySymbol = (char *)0;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8681	currencySymbol = (char *)0;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8682	monDecimalPoint = (char *)0;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8683	monThousandsSep = (char *)0;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8684	positiveSign = (char *)0;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8685	negativeSign =(char *)0;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8686	intFractDigits = -1;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8687	fractDigits = -1;
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	8688	csPosPrecedes = -1;
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	8689	csNegPrecedes = -1;
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	8690	csPosSepBySpace = -1;
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	8691	csNegSepBySpace = -1;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8692	csPosSignPosition = -1;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8693	csNegSignPosition = -1;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8694	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8695	if (decimalPoint) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8696	val = __MKSTRING(decimalPoint);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8697	__AT_PUT_(info, @symbol(decimalPoint), val);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8698	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8699	if (thousandsSep) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8700	val = __MKSTRING(thousandsSep);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8701	__AT_PUT_(info, @symbol(thousandsSeparator), val);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8702	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8703	if (intCurrencySymbol) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8704	val = __MKSTRING(intCurrencySymbol);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8705	__AT_PUT_(info, @symbol(internationCurrencySymbol), val);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8706	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8707	if (currencySymbol) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8708	val = __MKSTRING(currencySymbol);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8709	__AT_PUT_(info, @symbol(currencySymbol), val);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8710	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8711	if (monDecimalPoint) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8712	val = __MKSTRING(monDecimalPoint);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8713	__AT_PUT_(info, @symbol(monetaryDecimalPoint), val);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8714	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8715	if (monThousandsSep) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8716	val = __MKSTRING(monThousandsSep);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8717	__AT_PUT_(info, @symbol(monetaryThousandsSeparator), val);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8718	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8719	if (positiveSign) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8720	val = __MKSTRING(positiveSign);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8721	__AT_PUT_(info, @symbol(positiveSign), val);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8722	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8723	if (negativeSign) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8724	val = __MKSTRING(negativeSign);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8725	__AT_PUT_(info, @symbol(negativeSign), val);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8726	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8727	if (intFractDigits >= 0) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8728	__AT_PUT_(info, @symbol(internationalFractionalDigits), __mkSmallInteger(intFractDigits));
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8729	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8730	if (fractDigits >= 0) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8731	__AT_PUT_(info, @symbol(fractionalDigits), __mkSmallInteger(fractDigits));
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8732	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8733	if (csPosPrecedes >= 0) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8734	if (csPosPrecedes == 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8735	val = false;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8736	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8737	val = true;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8738	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8739	__AT_PUT_(info, @symbol(positiveSignPrecedesCurrencySymbol), val );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8740	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8741	if (csNegPrecedes >= 0) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8742	if (csNegPrecedes == 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8743	val = false;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8744	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8745	val = true;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8746	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8747	__AT_PUT_(info, @symbol(negativeSignPrecedesCurrencySymbol), val );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8748	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8749	if (csPosSepBySpace >= 0) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8750	if (csPosSepBySpace == 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8751	val = false;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8752	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8753	val = true;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8754	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8755	__AT_PUT_(info, @symbol(positiveSignSeparatedBySpaceFromCurrencySymbol), val);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8756	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8757	if (csNegSepBySpace >= 0) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8758	if (csNegSepBySpace == 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8759	val = false;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8760	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8761	val = true;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8762	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8763	__AT_PUT_(info, @symbol(negativeSignSeparatedBySpaceFromCurrencySymbol), val);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8764	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8765	switch (csPosSignPosition) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8766	case 0:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8767	val = @symbol(parenthesesAround);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8768	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8769
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8770	case 1:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8771	val = @symbol(signPrecedes);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8772	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8773
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8774	case 2:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8775	val = @symbol(signSuceeds);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8776	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8777
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8778	case 3:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8779	val = @symbol(signPrecedesCurrencySymbol);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8780	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8781
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8782	case 4:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8783	val = @symbol(signSuceedsCurrencySymbol);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8784	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8785
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8786	default:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8787	val = nil;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8788	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8789	if (val != nil) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8790	__AT_PUT_(info, @symbol(positiveSignPosition), val);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8791	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8792
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8793	switch (csNegSignPosition) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8794	case 0:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8795	val = @symbol(parenthesesAround);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8796	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8797
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8798	case 1:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8799	val = @symbol(signPrecedes);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8800	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8801
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8802	case 2:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8803	val = @symbol(signSuceeds);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8804	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8805
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8806	case 3:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8807	val = @symbol(signPrecedesCurrencySymbol);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8808	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8809
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8810	case 4:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8811	val = @symbol(signSuceedsCurrencySymbol);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8812	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8813
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8814	default:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8815	val = nil;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8816	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8817	if (val != nil) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8818	__AT_PUT_(info, @symbol(negativeSignPosition), val);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8819	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8820	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8821	^ info
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8822
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8823	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8824	OperatingSystem getLocaleInfo
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8825	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8826
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8827	"Created: 23.12.1995 / 14:19:20 / cg"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8828	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	8829
15506 f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8830	getNetworkAddresses
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8831	"return a dictionary filled with
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8832	key -> name of interface
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8833	value -> the network adsress (as SocketAddress)
15506 f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8834	for each interface
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8835	"
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8836
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8837	\|info nAdapters rawData entry
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8838	name description macAddress ipAddress ipAddressMask\|
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8839
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8840	rawData := Array new:100.
15506 f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8841	%{
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8842	/*
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8843	* temporary undef String to avoid a #define-conflict
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8844	* between ST/X's String and Windows String typedef
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8845	*/
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8846	# undef String
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8847	# undef Context
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8848
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8849	IP_ADAPTER_INFO AdapterInfo[99];
15506 f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8850	DWORD dwBufLen = sizeof(AdapterInfo);
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8851	DWORD dwStatus;
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8852
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8853	dwStatus = GetAdaptersInfo(
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8854	AdapterInfo, // [out] buffer to receive data
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8855	&dwBufLen); // [in] size of receive data buffer
15506 f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8856	if (dwStatus == ERROR_SUCCESS) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8857	PIP_ADAPTER_INFO pAdapterInfo = AdapterInfo;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8858	unsigned char *bP;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8859	int nA = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8860
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8861	bP = __byteArrayVal(rawData);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8862	do {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8863	name = __MKSTRING(pAdapterInfo->AdapterName);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8864	description = __MKSTRING(pAdapterInfo->Description);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8865	macAddress = __MKBYTEARRAY(pAdapterInfo->Address, 6);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8866	ipAddress = __MKSTRING(pAdapterInfo->IpAddressList.IpAddress.String);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8867	ipAddressMask = __MKSTRING(pAdapterInfo->IpAddressList.IpMask.String);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8868	entry = __ARRAY_NEW_INT(5);
15506 f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8869
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8870	/*
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8871	* back to ST/X's String definition
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8872	*/
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8873	# ifdef __DEF_String
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8874	# define String __DEF_String
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8875	# endif
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8876	# ifdef __DEF_String
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8877	# define Context __DEF_Context
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8878	# endif
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8879	__ArrayInstPtr(entry)->a_element[0] = name; __STORE(entry, name);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8880	__ArrayInstPtr(entry)->a_element[1] = description; __STORE(entry, description);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8881	__ArrayInstPtr(entry)->a_element[2] = macAddress; __STORE(entry, macAddress);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8882	__ArrayInstPtr(entry)->a_element[3] = ipAddress; __STORE(entry, ipAddress);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8883	__ArrayInstPtr(entry)->a_element[4] = ipAddressMask; __STORE(entry, ipAddressMask);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8884
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8885	__ArrayInstPtr(rawData)->a_element[nA] = entry; __STORE(rawData, entry);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8886	nA++;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8887	pAdapterInfo = pAdapterInfo->Next;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8888	} while(pAdapterInfo);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8889	nAdapters = __mkSmallInteger(nA);
15506 f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8890	}
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8891	%}.
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8892	"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	8893	info := OrderedDictionary new:nAdapters ? 0.
15506 f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8894	nAdapters notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8895	1 to:nAdapters do:[:i \|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8896	\|entry name description macAddr ipAddr\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8897
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8898	entry := rawData at:i.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8899	name := entry at:1.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8900	"/ description := entry at:2.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8901	ipAddr := entry at:4.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8902	ipAddr := IPSocketAddress addressString:ipAddr.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8903	"take the first name"
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8904	(ipAddr hostAddress contains:[:b\| b ~~ 0]) ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8905	info at:name ifAbsentPut:ipAddr.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8906	]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8907	].
15506 f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8908	].
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8909	^ info
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8910
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8911	"
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8912	OperatingSystem getNetworkAddresses
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8913	"
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8914	!
f54a4e5da9ce class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15500 diff changeset	8915
7287 b10efc6c9407 Fix spelling (getNetworkMACAddresses) Stefan Vogel <sv@exept.de> parents: 7199 diff changeset	8916	getNetworkMACAddresses
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	8917	"return a dictionary filled with
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8918	key -> name of interface
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8919	value -> the MAC adress (as ByteArray)
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	8920	for each interface
6542 ecfe70e462fe * empty log message * Claus Gittinger <cg@exept.de> parents: 6535 diff changeset	8921	"
ecfe70e462fe * empty log message * Claus Gittinger <cg@exept.de> parents: 6535 diff changeset	8922
7840 a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	8923	\|info nAdapters rawData entry
a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	8924	name description macAddress ipAddress ipAddressMask\|
a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	8925
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8926	rawData := Array new:100.
6542 ecfe70e462fe * empty log message * Claus Gittinger <cg@exept.de> parents: 6535 diff changeset	8927	%{
8319 2d179dc8dc3f Fix #getNetworkMACAdress for XP/2k Claus Gittinger <cg@exept.de> parents: 8270 diff changeset	8928	/*
2d179dc8dc3f Fix #getNetworkMACAdress for XP/2k Claus Gittinger <cg@exept.de> parents: 8270 diff changeset	8929	* temporary undef String to avoid a #define-conflict
2d179dc8dc3f Fix #getNetworkMACAdress for XP/2k Claus Gittinger <cg@exept.de> parents: 8270 diff changeset	8930	* between ST/X's String and Windows String typedef
2d179dc8dc3f Fix #getNetworkMACAdress for XP/2k Claus Gittinger <cg@exept.de> parents: 8270 diff changeset	8931	*/
8650 bc8e2cdcb777 processGroup termiantion (leftover child processes) Claus Gittinger <cg@exept.de> parents: 8642 diff changeset	8932	# undef String
bc8e2cdcb777 processGroup termiantion (leftover child processes) Claus Gittinger <cg@exept.de> parents: 8642 diff changeset	8933	# undef Context
8319 2d179dc8dc3f Fix #getNetworkMACAdress for XP/2k Claus Gittinger <cg@exept.de> parents: 8270 diff changeset	8934
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	8935	IP_ADAPTER_INFO AdapterInfo[99];
6542 ecfe70e462fe * empty log message * Claus Gittinger <cg@exept.de> parents: 6535 diff changeset	8936	DWORD dwBufLen = sizeof(AdapterInfo);
ecfe70e462fe * empty log message * Claus Gittinger <cg@exept.de> parents: 6535 diff changeset	8937	DWORD dwStatus;
15169 0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	8938
0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	8939	dwStatus = GetAdaptersInfo(
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8940	AdapterInfo, // [out] buffer to receive data
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8941	&dwBufLen); // [in] size of receive data buffer
15169 0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	8942	if (dwStatus == ERROR_SUCCESS) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8943	PIP_ADAPTER_INFO pAdapterInfo = AdapterInfo;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8944	unsigned char *bP;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8945	int nA = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8946
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8947	bP = __byteArrayVal(rawData);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8948	do {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8949	name = __MKSTRING(pAdapterInfo->AdapterName);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8950	description = __MKSTRING(pAdapterInfo->Description);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8951	macAddress = __MKBYTEARRAY(pAdapterInfo->Address, 6);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8952	ipAddress = __MKSTRING(pAdapterInfo->IpAddressList.IpAddress.String);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8953	ipAddressMask = __MKSTRING(pAdapterInfo->IpAddressList.IpMask.String);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8954	entry = __ARRAY_NEW_INT(5);
15252 621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	8955
7840 a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	8956	/*
a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	8957	* back to ST/X's String definition
a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	8958	*/
8650 bc8e2cdcb777 processGroup termiantion (leftover child processes) Claus Gittinger <cg@exept.de> parents: 8642 diff changeset	8959	# ifdef __DEF_String
bc8e2cdcb777 processGroup termiantion (leftover child processes) Claus Gittinger <cg@exept.de> parents: 8642 diff changeset	8960	# define String __DEF_String
bc8e2cdcb777 processGroup termiantion (leftover child processes) Claus Gittinger <cg@exept.de> parents: 8642 diff changeset	8961	# endif
bc8e2cdcb777 processGroup termiantion (leftover child processes) Claus Gittinger <cg@exept.de> parents: 8642 diff changeset	8962	# ifdef __DEF_String
bc8e2cdcb777 processGroup termiantion (leftover child processes) Claus Gittinger <cg@exept.de> parents: 8642 diff changeset	8963	# define Context __DEF_Context
bc8e2cdcb777 processGroup termiantion (leftover child processes) Claus Gittinger <cg@exept.de> parents: 8642 diff changeset	8964	# endif
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8965	__ArrayInstPtr(entry)->a_element[0] = name; __STORE(entry, name);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8966	__ArrayInstPtr(entry)->a_element[1] = description; __STORE(entry, description);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8967	__ArrayInstPtr(entry)->a_element[2] = macAddress; __STORE(entry, macAddress);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8968	__ArrayInstPtr(entry)->a_element[3] = ipAddress; __STORE(entry, ipAddress);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8969	__ArrayInstPtr(entry)->a_element[4] = ipAddressMask; __STORE(entry, ipAddressMask);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8970
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8971	__ArrayInstPtr(rawData)->a_element[nA] = entry; __STORE(rawData, entry);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8972	nA++;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8973	pAdapterInfo = pAdapterInfo->Next;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8974	} while(pAdapterInfo);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8975	nAdapters = __mkSmallInteger(nA);
15169 0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	8976	}
0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	8977	%}.
0cf7770d6e58 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15076 diff changeset	8978	"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	8979	info := OrderedDictionary new:nAdapters ? 0.
8642 dd598b080b6a * empty log message * Claus Gittinger <cg@exept.de> parents: 8640 diff changeset	8980	nAdapters notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8981	1 to:nAdapters do:[:i \|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8982	\|entry name description macAddr ipAddr\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8983
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8984	entry := rawData at:i.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8985	name := entry at:1.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8986	"/ description := entry at:2.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8987	macAddr := entry at:3.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8988	"/ ipAddr := entry at:4.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8989	info at:name put:macAddr.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	8990	].
7840 a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	8991	].
a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	8992	^ info
a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	8993
a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	8994	"
a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	8995	OperatingSystem getNetworkMACAddresses
a57bac3c9c68 getNetworkMacAddress ca parents: 7825 diff changeset	8996	"
6542 ecfe70e462fe * empty log message * Claus Gittinger <cg@exept.de> parents: 6535 diff changeset	8997	!
ecfe70e462fe * empty log message * Claus Gittinger <cg@exept.de> parents: 6535 diff changeset	8998
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	8999	getNumberOfProcessors
12649 7d8aad540a9b changed comment: #getNumberOfProcessors Stefan Vogel <sv@exept.de> parents: 12638 diff changeset	9000	"answer the number of physical processors in the system"
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	9001
20283 6054b4897eed * empty log message * Claus Gittinger <cg@exept.de> parents: 20282 diff changeset	9002	%{
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9003	SYSTEM_INFO sInfo;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9004	GetSystemInfo(&sInfo);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9005
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9006	return __mkSmallInteger(sInfo.dwNumberOfProcessors);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9007	%}.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9008
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9009	"
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9010	self getNumberOfProcessors
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	9011	"
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	9012	!
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	9013
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9014	getProcessId
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9015	"return the (unix-)processId"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9016
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9017	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9018
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9019	int pid = 0;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9020
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9021	pid = GetCurrentProcessId() & 0x3FFFFFFF;
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	9022	RETURN ( __mkSmallInteger(pid) );
20283 6054b4897eed * empty log message * Claus Gittinger <cg@exept.de> parents: 20282 diff changeset	9023	%}.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9024	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9025	OperatingSystem getProcessId
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9026	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9027	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9028
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9029	getSystemID
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9030	"if supported by the OS, return the systemID;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9031	a unique per machine identification.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9032	WARNING:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9033	not all systems support this; on some, 'unknown' is returned."
20312 04fab301a9fd #BUGFIX by sr sr parents: 20310 diff changeset	9034
04fab301a9fd #BUGFIX by sr sr parents: 20310 diff changeset	9035	\|regKey systemId\|
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9036
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9037	%{ /* NO_CONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9038	#if defined(HAS_GETHOSTID)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9039	int runningId;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9040	OBJ arr;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9041
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9042	runningId = gethostid();
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9043	arr = __BYTEARRAY_UNINITIALIZED_NEW_INT(4);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9044	(int )(__ByteArrayInstPtr(arr)->ba_element) = runningId;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9045	RETURN (arr);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9046	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9047	#if defined(HAS_SYSINFO) && defined(SI_HW_SERIAL)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9048	{
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9049	char buffer[128];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9050
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9051	buffer[0] = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9052	if (sysinfo(SI_HW_SERIAL, buffer, sizeof(buffer))) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9053	buffer[127] = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9054	if (strlen(buffer) > 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9055	RETURN(__MKSTRING(buffer));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9056	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9057	}
20548 ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	9058	}
ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	9059	#endif
ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	9060	%}.
ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	9061
ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	9062	regKey := self registryEntry
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9063	key:'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion'.
20312 04fab301a9fd #BUGFIX by sr sr parents: 20310 diff changeset	9064
04fab301a9fd #BUGFIX by sr sr parents: 20310 diff changeset	9065	regKey notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9066	systemId := regKey valueNamed:'ProductId'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9067	systemId isNil ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9068	regKey := self registryEntry
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9069	key:'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9070	flags:#KEY_WOW64_64KEY createIfAbsent:false.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9071	systemId := regKey valueNamed:'ProductId'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9072	].
20548 ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	9073	].
ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	9074
20312 04fab301a9fd #BUGFIX by sr sr parents: 20310 diff changeset	9075	^ systemId ? 'unknown'
04fab301a9fd #BUGFIX by sr sr parents: 20310 diff changeset	9076
04fab301a9fd #BUGFIX by sr sr parents: 20310 diff changeset	9077	"
20548 ff307884ed24 added getBinaryFileType Claus Gittinger <cg@exept.de> parents: 20536 diff changeset	9078	OperatingSystem getSystemID
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9079	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9080	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9081
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9082	getSystemInfo
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9083	"return info on the system weare running on.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9084	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	9085	otherwise, some simulated info is returned.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9086
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9087	WARNING:
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9088	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	9089	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	9090	OS, for example, linux returns 'ix86', while WIN32 returns 'x86'.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9091
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9092	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	9093	information.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9094	(in case of system/version specific OS errors, conditional workarounds and patches
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9095	may be based upon this info).
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9096	Your application should NOT depend upon this in any way.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9097
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9098	The returned info may (or may not) contain:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9099	#system -> some operating system identification (irix, Linux, nt, win32s ...)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9100	#version -> OS version (some os version identification)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9101	#release -> OS release (3.5, 1.2.1 ...)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9102	#node -> some host identification (hostname)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9103	#domain -> domain name (hosts domain)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9104	#machine -> type of machine (i586, mips ...)
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9105
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9106	win32:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9107	#physicalRam -> total amount of physical memory
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9108	#freeRam -> amount of free memory
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9109	#swapSize -> size of swapSpace (page file)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9110	#freeSwap -> free bytes in swapSpace
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9111	#virtualRam -> total amount of virtual memory
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9112	#freeVirtual -> amount of free virtual memory
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9113	#memoryLoad -> percentage of memory usage (useless)
10746 6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	9114	"
6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	9115
6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	9116	\|sys node rel ver minorVer majorVer mach dom info arch
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9117	physicalRam freeRam swapSize freeSwap
7860 d08a47772aa1 * empty log message * ca parents: 7852 diff changeset	9118	virtualRam freeVirtual memoryLoad numberOfCPUs\|
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9119
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9120	%{ /* STACK: 4096 */
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	char vsnBuffer[32];
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9123	char *s;
6740 809af7f7f2b9 getSystemInfo: knows about XP Claus Gittinger <cg@exept.de> parents: 6726 diff changeset	9124	int winVer, verMinor, verMajor;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9125	DWORD vsn;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9126	SYSTEM_INFO sysInfo;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9127	MEMORYSTATUS memStatus;
8416 77f3289fc2c7 Use snprintf for security (paranoia) Stefan Vogel <sv@exept.de> parents: 8412 diff changeset	9128	int len;
5133 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	vsn = GetVersion();
6740 809af7f7f2b9 getSystemInfo: knows about XP Claus Gittinger <cg@exept.de> parents: 6726 diff changeset	9131	winVer = LOWORD(vsn);
809af7f7f2b9 getSystemInfo: knows about XP Claus Gittinger <cg@exept.de> parents: 6726 diff changeset	9132	verMinor = HIBYTE(winVer);
809af7f7f2b9 getSystemInfo: knows about XP Claus Gittinger <cg@exept.de> parents: 6726 diff changeset	9133	verMajor = LOBYTE(winVer);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9134
10746 6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	9135	minorVer = __mkSmallInteger(verMinor);
6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	9136	majorVer = __mkSmallInteger(verMajor);
6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	9137
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9138	if (HIWORD(vsn) & 0x8000) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9139	sys = @symbol(win95);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9140	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9141	if ((verMajor > 5)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9142	\|\| ((verMajor == 5) && (verMinor >= 1))) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9143	sys = @symbol(xp);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9144	if (verMajor >= 6) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9145	sys = @symbol(vista);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9146	if (verMinor >= 1) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9147	sys = @symbol(win7);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9148	if (verMinor >= 2) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9149	sys = @symbol(win8);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9150	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9151	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9152	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9153	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9154	sys = @symbol(nt);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9155	}
12961 f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	9156	}
8416 77f3289fc2c7 Use snprintf for security (paranoia) Stefan Vogel <sv@exept.de> parents: 8412 diff changeset	9157	len = snprintf(vsnBuffer, sizeof(vsnBuffer), "%d.%d", verMajor, verMinor);
77f3289fc2c7 Use snprintf for security (paranoia) Stefan Vogel <sv@exept.de> parents: 8412 diff changeset	9158	rel = __MKSTRING_L(vsnBuffer, len);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9159
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9160	GetSystemInfo(&sysInfo);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9161	memStatus.dwLength = sizeof(memStatus);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9162	GlobalMemoryStatus(&memStatus);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9163
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9164	memoryLoad = __MKUINT(memStatus.dwMemoryLoad);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9165	physicalRam = __MKUINT(memStatus.dwTotalPhys);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9166	freeRam = __MKUINT(memStatus.dwAvailPhys);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9167	swapSize = __MKUINT(memStatus.dwTotalPageFile);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9168	freeSwap = __MKUINT(memStatus.dwAvailPageFile);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9169	virtualRam = __MKUINT(memStatus.dwTotalVirtual);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9170	freeVirtual = __MKUINT(memStatus.dwAvailVirtual);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9171
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9172	#if defined(__BORLANDC__) && (__BORLANDC__ <= 1339)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9173	/* BorlandC3 ... */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9174	switch (sysInfo.u.s.wProcessorArchitecture)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9175	#else
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9176	/* MSC, BorlandC4 ... */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9177	switch (sysInfo.wProcessorArchitecture)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9178	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9179	{
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9180	#ifdef PROCESSOR_ARCHITECTURE_INTEL
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9181	case PROCESSOR_ARCHITECTURE_INTEL:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9182	arch = @symbol(intel);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9183	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9184	#endif
13534 a788fd375ed1 * empty log message * Claus Gittinger <cg@exept.de> parents: 13533 diff changeset	9185	#ifdef PROCESSOR_ARCHITECTURE_AMD64
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9186	case PROCESSOR_ARCHITECTURE_AMD64:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9187	arch = @symbol(x64);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9188	break;
13534 a788fd375ed1 * empty log message * Claus Gittinger <cg@exept.de> parents: 13533 diff changeset	9189	#endif
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9190	#ifdef PROCESSOR_ARCHITECTURE_MIPS
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9191	case PROCESSOR_ARCHITECTURE_MIPS:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9192	arch = @symbol(mips);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9193	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9194	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9195	#ifdef PROCESSOR_ARCHITECTURE_ALPHA
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9196	case PROCESSOR_ARCHITECTURE_ALPHA:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9197	arch = @symbol(alpha);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9198	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9199	#endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9200	#ifdef PROCESSOR_ARCHITECTURE_ALPHA64
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9201	case PROCESSOR_ARCHITECTURE_ALPHA64:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9202	arch = @symbol(alpha64);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9203	break;
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9204	#endif
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9205	#ifdef PROCESSOR_ARCHITECTURE_PPC
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9206	case PROCESSOR_ARCHITECTURE_PPC:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9207	arch = @symbol(ppc);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9208	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9209	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9210	#ifdef PROCESSOR_ARCHITECTURE_ARM
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9211	case PROCESSOR_ARCHITECTURE_ARM:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9212	arch = @symbol(arm);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9213	break;
8642 dd598b080b6a * empty log message * Claus Gittinger <cg@exept.de> parents: 8640 diff changeset	9214	#endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9215	#ifdef PROCESSOR_ARCHITECTURE_SHX
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9216	case PROCESSOR_ARCHITECTURE_SHX:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9217	arch = @symbol(shx);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9218	break;
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9219	#endif
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9220	#ifdef PROCESSOR_ARCHITECTURE_IA64
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9221	case PROCESSOR_ARCHITECTURE_IA64:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9222	arch = @symbol(ia64);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9223	break;
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9224	#endif
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9225	#ifdef PROCESSOR_ARCHITECTURE_MSIL
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9226	case PROCESSOR_ARCHITECTURE_MSIL:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9227	arch = @symbol(msil);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9228	break;
14746 c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9229	#endif
c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9230	#ifdef PROCESSOR_ARCHITECTURE_IA32_ON_WIN64
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9231	case PROCESSOR_ARCHITECTURE_IA32_ON_WIN64:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9232	arch = @symbol(ia32_on_win64);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9233	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9234	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9235	default:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9236	arch = @symbol(unknown);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9237	break;
12961 f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	9238	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9239
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9240	switch (sysInfo.dwProcessorType) {
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9241	#ifdef PROCESSOR_INTEL_386
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9242	case PROCESSOR_INTEL_386:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9243	mach = @symbol(i386);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9244	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9245	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9246	#ifdef PROCESSOR_INTEL_486
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9247	case PROCESSOR_INTEL_486:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9248	mach = @symbol(i486);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9249	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9250	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9251	#ifdef PROCESSOR_INTEL_PENTIUM
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9252	case PROCESSOR_INTEL_PENTIUM:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9253	mach = @symbol(i586);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9254	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9255	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9256	#ifdef PROCESSOR_INTEL_860
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9257	case PROCESSOR_INTEL_860:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9258	mach = @symbol(i860);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9259	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9260	#endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9261	#ifdef PROCESSOR_INTEL_IA64
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9262	case PROCESSOR_INTEL_IA64:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9263	mach = @symbol(ia64);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9264	break;
14746 c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9265	#endif
c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9266	#ifdef PROCESSOR_AMD_X8664
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9267	case PROCESSOR_AMD_X8664:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9268	mach = @symbol(x86_64);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9269	break;
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9270	#endif
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9271	#ifdef PROCESSOR_MIPS_R2000
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9272	case PROCESSOR_MIPS_R2000:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9273	mach = @symbol(r2000);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9274	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9275	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9276	#ifdef PROCESSOR_MIPS_R3000
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9277	case PROCESSOR_MIPS_R3000:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9278	mach = @symbol(r3000);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9279	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9280	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9281	#ifdef PROCESSOR_MIPS_R4000
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9282	case PROCESSOR_MIPS_R4000:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9283	mach = @symbol(r4000);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9284	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9285	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9286	#ifdef PROCESSOR_ALPHA_21064
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9287	case PROCESSOR_ALPHA_21064:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9288	mach = @symbol(alpha21064);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9289	break;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9290	#endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9291	#ifdef PROCESSOR_ARM720
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9292	case PROCESSOR_ARM720:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9293	mach = @symbol(arm720);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9294	break;
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9295	#endif
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9296	#ifdef PROCESSOR_ARM820
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9297	case PROCESSOR_ARM820:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9298	mach = @symbol(arm820);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9299	break;
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9300	#endif
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9301	#ifdef PROCESSOR_ARM920
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9302	case PROCESSOR_ARM920:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9303	mach = @symbol(arm920);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9304	break;
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9305	#endif
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9306	#ifdef PROCESSOR_ARM_7TDMI
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9307	case PROCESSOR_ARM_7TDMI:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9308	mach = @symbol(arm70001);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9309	break;
14746 c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9310	#endif
c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9311	#ifdef PROCESSOR_STRONGARM
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9312	case PROCESSOR_STRONGARM:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9313	mach = @symbol(strongarm);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9314	break;
8642 dd598b080b6a * empty log message * Claus Gittinger <cg@exept.de> parents: 8640 diff changeset	9315	#endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9316	#ifdef PROCESSOR_PPC_601
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9317	case PROCESSOR_PPC_601:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9318	mach = @symbol(ppc601);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9319	break;
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9320	#endif
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9321	#ifdef PROCESSOR_PPC_603
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9322	case PROCESSOR_PPC_603:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9323	mach = @symbol(ppc603);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9324	break;
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9325	#endif
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9326	#ifdef PROCESSOR_PPC_604
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9327	case PROCESSOR_PPC_604:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9328	mach = @symbol(ppc604);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9329	break;
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9330	#endif
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8889 diff changeset	9331	#ifdef PROCESSOR_PPC_620
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9332	case PROCESSOR_PPC_620:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9333	mach = @symbol(ppc620);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9334	break;
14746 c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9335	#endif
c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9336	#ifdef PROCESSOR_HITACHI_SH3
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9337	case PROCESSOR_HITACHI_SH3:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9338	mach = @symbol(sh3);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9339	break;
14746 c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9340	#endif
c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9341	#ifdef PROCESSOR_HITACHI_SH3E
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9342	case PROCESSOR_HITACHI_SH3E:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9343	mach = @symbol(sh3e);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9344	break;
14746 c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9345	#endif
c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9346	#ifdef PROCESSOR_HITACHI_SH4
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9347	case PROCESSOR_HITACHI_SH4:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9348	mach = @symbol(sh4);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9349	break;
14746 c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9350	#endif
c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9351	#ifdef PROCESSOR_MOTOROLA_821
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9352	case PROCESSOR_MOTOROLA_821:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9353	mach = @symbol(mc821);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9354	break;
14746 c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9355	#endif
c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9356	#ifdef PROCESSOR_SHx_SH3
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9357	case PROCESSOR_SHx_SH3:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9358	mach = @symbol(shx_sh3);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9359	break;
14746 c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9360	#endif
c7cb8262eb49 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14740 diff changeset	9361	#ifdef PROCESSOR_SHx_SH4
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9362	case PROCESSOR_SHx_SH4:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9363	mach = @symbol(shx_sh4);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9364	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9365	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9366
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9367	default:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9368	sprintf(vsnBuffer, "%d", sysInfo.dwProcessorType);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9369	mach = __MKSTRING(vsnBuffer);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9370	break;
12961 f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	9371	}
7860 d08a47772aa1 * empty log message * ca parents: 7852 diff changeset	9372
d08a47772aa1 * empty log message * ca parents: 7852 diff changeset	9373	numberOfCPUs = __MKUINT(sysInfo.dwNumberOfProcessors);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9374	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9375	node isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9376	node := self getHostName.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9377	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9378	dom isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9379	dom := self getDomainName.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9380	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9381
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9382	info := IdentityDictionary new.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9383	info at:#system put:sys.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9384	info at:#node put:node.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9385	rel notNil ifTrue:[info at:#release put:rel].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9386	ver notNil ifTrue:[info at:#version put:ver].
10746 6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	9387	majorVer notNil ifTrue:[info at:#majorVersion put:majorVer].
6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	9388	minorVer notNil ifTrue:[info at:#minorVersion put:minorVer].
7860 d08a47772aa1 * empty log message * ca parents: 7852 diff changeset	9389	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	9390	arch notNil ifTrue:[info at:#architecture put:arch].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9391	dom notNil ifTrue:[info at:#domain put:dom].
7860 d08a47772aa1 * empty log message * ca parents: 7852 diff changeset	9392	numberOfCPUs notNil ifTrue:[info at:#numberOfCPUs put:numberOfCPUs].
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9393
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9394	info at:#memoryLoad put:memoryLoad.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9395	info at:#physicalRam put:physicalRam.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9396	info at:#freeRam put:freeRam.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9397	info at:#swapSize put:swapSize.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9398	info at:#freeSwap put:freeSwap.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9399	info at:#virtualRam put:virtualRam.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9400	info at:#freeVirtual put:freeVirtual.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9401
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9402	info at:#osType put:(self getOSType).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9403	^ info
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9404
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9405	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9406	OperatingSystem getSystemInfo
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9407	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9408	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9409
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9410	getSystemType
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9411	"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	9412	This is almost the same as getOSType, but the returned string
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9413	is slightly different for some systems (i.e. iris vs. irix).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9414	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	9415	here ...
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9416	(except for slight differences between next/mach and other machs)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9417
12961 f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	9418	^ #win32
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9419
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9420	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9421	OperatingSystem getSystemType
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9422	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9423	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9424
12837 6bc60c34c98d added: #getThreadId Claus Gittinger <cg@exept.de> parents: 12828 diff changeset	9425	getThreadId
6bc60c34c98d added: #getThreadId Claus Gittinger <cg@exept.de> parents: 12828 diff changeset	9426	"return the (windows-) threadId"
6bc60c34c98d added: #getThreadId Claus Gittinger <cg@exept.de> parents: 12828 diff changeset	9427
6bc60c34c98d added: #getThreadId Claus Gittinger <cg@exept.de> parents: 12828 diff changeset	9428	%{ /* NOCONTEXT */
6bc60c34c98d added: #getThreadId Claus Gittinger <cg@exept.de> parents: 12828 diff changeset	9429
6bc60c34c98d added: #getThreadId Claus Gittinger <cg@exept.de> parents: 12828 diff changeset	9430	int pid = 0;
6bc60c34c98d added: #getThreadId Claus Gittinger <cg@exept.de> parents: 12828 diff changeset	9431
6bc60c34c98d added: #getThreadId Claus Gittinger <cg@exept.de> parents: 12828 diff changeset	9432	pid = GetCurrentThreadId() & 0x3FFFFFFF;
6bc60c34c98d added: #getThreadId Claus Gittinger <cg@exept.de> parents: 12828 diff changeset	9433	RETURN ( __mkSmallInteger(pid) );
20283 6054b4897eed * empty log message * Claus Gittinger <cg@exept.de> parents: 20282 diff changeset	9434	%}.
12837 6bc60c34c98d added: #getThreadId Claus Gittinger <cg@exept.de> parents: 12828 diff changeset	9435	"
6bc60c34c98d added: #getThreadId Claus Gittinger <cg@exept.de> parents: 12828 diff changeset	9436	OperatingSystem getThreadId
6bc60c34c98d added: #getThreadId Claus Gittinger <cg@exept.de> parents: 12828 diff changeset	9437	"
6bc60c34c98d added: #getThreadId Claus Gittinger <cg@exept.de> parents: 12828 diff changeset	9438	!
6bc60c34c98d added: #getThreadId Claus Gittinger <cg@exept.de> parents: 12828 diff changeset	9439
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9440	getWindowsDirectory
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9441	"internal interface - only for Windows based systems.
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	9442	Return the windows directory
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9443	(which - depending on the system - may be \WINNT, \WINDOWS or whatever)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9444	On non-windows systems, nil is returned."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9445
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	9446	%{
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	9447	wchar_t buffer[MAXPATHLEN+1];
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	9448
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	9449	if (GetWindowsDirectoryW(buffer, MAXPATHLEN)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9450	RETURN (__mkStringOrU16String_maxlen(buffer, MAXPATHLEN));
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9451	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9452	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9453	^ nil
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9454
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9455	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9456	OperatingSystem getWindowsDirectory
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9457	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9458	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9459
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9460	getWindowsSystemDirectory
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9461	"internal interface - only for Windows based systems.
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	9462	Return the windows system directory
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	9463	(which - depending on the system - may be \WINNT\SYSTEM32,
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9464	\WINDOWS\SYSTEM or whatever)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9465	On non-windows systems, nil is returned."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9466
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	9467	%{
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	9468	wchar_t buffer[MAXPATHLEN+1];
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	9469
871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	9470	if (GetSystemDirectoryW(buffer, MAXPATHLEN)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9471	RETURN (__mkStringOrU16String_maxlen(buffer, MAXPATHLEN));
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9472	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9473	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9474	^ nil
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9475
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9476	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9477	OperatingSystem getWindowsSystemDirectory
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9478	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9479	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9480
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9481	hasConsole
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9482	"return true, if there is some kind of console available
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9483	(i.e. for proper stdIn, stdOut and stdErr handling).
23547 c69c97cec351 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 23107 diff changeset	9484	This only returns false when running under windows, and
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9485	the system is running as a pure windows application.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9486	If false, the miniDebugger is useless and not used."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9487
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9488	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9489	extern int __getNoConsoleFlag();
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9490
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9491	RETURN ( __getNoConsoleFlag() ? false : true);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9492	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9493	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9494
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9495	isMSDOSlike
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	9496	"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	9497	(in contrast to unix-like or vms-like).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9498	This returns true for any of msdos, win32s, win95,
14444 a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9499	winNT, winXP, Vista, Win7, win8 and os/2."
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9500
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9501	^ true
14444 a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9502
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9503	"Modified (comment): / 27-10-2012 / 14:00:52 / cg"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9504	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9505
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9506	isMSWINDOWSNTlike
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9507	"This returns true if running in a Windows-NT system."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9508
16367 e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	9509	^ true.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9510	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9511
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9512	isMSWINDOWSlike
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9513	"return true, if running on a MS-Windows like system.
14444 a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9514	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	9515
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9516	^ true
14444 a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9517
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9518	"Modified (comment): / 27-10-2012 / 14:01:30 / cg"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9519	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9520
13315 a3c7e11d325d comment/format in: Stefan Vogel <sv@exept.de> parents: 13284 diff changeset	9521	isProcessIdPresent:processHandleOrPid
a3c7e11d325d comment/format in: Stefan Vogel <sv@exept.de> parents: 13284 diff changeset	9522	"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	9523	Raise an error, if an exception occures"
7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	9524
7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	9525	\|error\|
7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	9526
7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	9527	%{
17117 4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	9528	HANDLE processHandle, processHandleToClose = 0;
12638 7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	9529	int err;
17117 4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	9530	DWORD exitCode;
12638 7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	9531
13315 a3c7e11d325d comment/format in: Stefan Vogel <sv@exept.de> parents: 13284 diff changeset	9532	if (__isExternalAddressLike(processHandleOrPid) ) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9533	processHandle = _HANDLEVal(processHandleOrPid);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9534	if (processHandle == 0) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9535	RETURN(false);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9536	// error = @symbol(invalidParameter);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9537	// goto out;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9538	}
13315 a3c7e11d325d comment/format in: Stefan Vogel <sv@exept.de> parents: 13284 diff changeset	9539	} else if( __isSmallInteger(processHandleOrPid) ) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9540	// assume, that synchronize needs less privilege...
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9541	processHandle = processHandleToClose = OpenProcess(SYNCHRONIZE, FALSE, __smallIntegerVal(processHandleOrPid));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9542	if (!processHandle) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9543	goto checkError;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9544	}
17117 4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	9545	} else {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9546	error = @symbol(invalidParameter);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9547	goto out;
17117 4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	9548	}
4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	9549
4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	9550	/* check if the handle still refers to a running process */
4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	9551	if (GetExitCodeProcess(processHandle, &exitCode) != 0) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9552	if (processHandleToClose != 0)
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9553	CloseHandle(processHandleToClose);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9554	if (exitCode == STILL_ACTIVE) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9555	RETURN(true);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9556	} else {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9557	RETURN(false);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9558	}
20968 d67d3d5eec60 #BUGFIX by Maren matilk parents: 20966 diff changeset	9559	} else if (processHandleToClose != 0) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9560	CloseHandle(processHandleToClose);
17117 4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	9561	}
13315 a3c7e11d325d comment/format in: Stefan Vogel <sv@exept.de> parents: 13284 diff changeset	9562
a3c7e11d325d comment/format in: Stefan Vogel <sv@exept.de> parents: 13284 diff changeset	9563	checkError:
17117 4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	9564	err = GetLastError();
4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	9565	// we do not have access to the process (so pid does exist ;-))
4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	9566	if (err == ERROR_ACCESS_DENIED) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9567	RETURN(true);
17117 4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	9568	}
4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	9569	// pid does not exist
4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	9570	if (err == ERROR_INVALID_PARAMETER) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9571	RETURN(false);
17117 4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	9572	}
4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	9573
4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	9574	// any other error - raise signal
4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	9575	__threadErrno = __WIN32_ERR(err);
4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	9576	error = __mkSmallInteger(__threadErrno);
4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	9577	out:;
12638 7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	9578	%}.
7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	9579
7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	9580	self primitiveFailed:error.
7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	9581
7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	9582	"
7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	9583	self isProcessIdPresent:(self getProcessId)
17117 4a6ee105223e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17042 diff changeset	9584	self isProcessIdPresent:10196
12638 7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	9585	self isProcessIdPresent:512
7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	9586	self isProcessIdPresent:'abc'
7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	9587	"
7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	9588	!
7ae61be6c180 added: Stefan Vogel <sv@exept.de> parents: 12632 diff changeset	9589
10746 6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	9590	isVistaLike
14444 a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9591	"return true, if running on a Vista (or newer) like system.
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9592	(also true for server 2008)"
10746 6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	9593
6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	9594	^ (self getSystemInfo at:#majorVersion) >= 6
6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	9595
6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	9596	"
6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	9597	self isVistaLike
6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	9598	"
14444 a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9599
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9600	"Modified (comment): / 27-10-2012 / 13:59:53 / cg"
10746 6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	9601	!
6a8bf3c28a7d +isVistaLike Claus Gittinger <cg@exept.de> parents: 10741 diff changeset	9602
19335 2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	9603	isWin10Like
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	9604	"return true, if running on a Windows10 (or newer) like system.
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	9605	(also true for server 2016)"
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	9606
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	9607	\|sysInfo major\|
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	9608
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	9609	sysInfo := self getSystemInfo.
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	9610	major := sysInfo at:#majorVersion.
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	9611
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	9612	^ (major >= 10)
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	9613
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	9614	"
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	9615	self isWin10Like
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	9616	"
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	9617	!
2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	9618
12961 f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	9619	isWin7Like
14444 a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9620	"return true, if running on a Windows7 (or newer) like system."
12961 f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	9621
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	9622	\|sysInfo major\|
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	9623
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	9624	sysInfo := self getSystemInfo.
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	9625	major := sysInfo at:#majorVersion.
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	9626
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	9627	^ (major == 6 and:[(sysInfo at:#minorVersion) >= 1])
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	9628	or:[major > 6]
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	9629
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	9630	"
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	9631	self isWin7Like
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	9632	"
14444 a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9633
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9634	"Modified (comment): / 27-10-2012 / 13:59:14 / cg"
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9635	!
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9636
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9637	isWin8Like
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9638	"return true, if running on a Windows8 (or newer) like system.
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9639	(also true for server 2012)"
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9640
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9641	\|sysInfo major\|
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9642
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9643	sysInfo := self getSystemInfo.
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9644	major := sysInfo at:#majorVersion.
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9645
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9646	^ (major == 6 and:[(sysInfo at:#minorVersion) >= 2])
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9647	or:[major > 6]
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9648
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9649	"
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9650	self isWin8Like
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9651	"
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9652
a883e08d2399 added: #isWin8Like Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	9653	"Created: / 27-10-2012 / 13:59:03 / cg"
12961 f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	9654	!
f476234e681d added: #isWin7Like Stefan Vogel <sv@exept.de> parents: 12934 diff changeset	9655
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9656	maxFileNameLength
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9657	"return the max number of characters in a filename.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9658	CAVEAT:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9659	Actually, the following is somewhat wrong - some systems
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9660	support different sizes, depending on the volume.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9661	We return a somewhat conservative number here.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9662	Another entry, to query for volume specific max
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9663	will be added in the future."
5133 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	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9666
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9667	/*
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9668	* TODO: newer systems provide a query function for this ... use it
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	/*
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9671	* mhmh - depends on the filesystem type
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9672	*/
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	9673	RETURN ( __mkSmallInteger(MAXFILELEN) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9674	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9675	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	9676	OperatingSystem maxFileNameLength
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9677	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9678	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9679
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9680	maxPathLength
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9681	"return the max number of characters in a pathName."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9682
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9683	%{ /* NOCONTEXT */
8912 3d1947a79cf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	9684	RETURN ( __mkSmallInteger(MAXPATHLEN) );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9685	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9686	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	9687	OperatingSystem maxPathLength
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9688	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9689	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9690
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	9691	osName
13533 82dc48a9a6ae changed: #osName Claus Gittinger <cg@exept.de> parents: 13341 diff changeset	9692	\|osVersion\|
82dc48a9a6ae changed: #osName Claus Gittinger <cg@exept.de> parents: 13341 diff changeset	9693
82dc48a9a6ae changed: #osName Claus Gittinger <cg@exept.de> parents: 13341 diff changeset	9694	osVersion := OperatingSystem osVersion.
13128 35def02e40f4 CloseHandle added in: getAllProcesses Michael Beyl <mb@exept.de> parents: 13114 diff changeset	9695	^ 'Windows ',
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9696	(#('2000' 'XP' 'Server2003' 'VISTA' '7' '8' '8.1' '10')
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9697	at: (#('5.0' '5.1' '5.2' '6.0' '6.1' '6.2' '6.3' '10.0') indexOf:osVersion)
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	9698	ifAbsent:osVersion).
13742 cfb6a76de348 version_CVS Claus Gittinger <cg@exept.de> parents: 13618 diff changeset	9699
cfb6a76de348 version_CVS Claus Gittinger <cg@exept.de> parents: 13618 diff changeset	9700	"
cfb6a76de348 version_CVS Claus Gittinger <cg@exept.de> parents: 13618 diff changeset	9701	self osName
13533 82dc48a9a6ae changed: #osName Claus Gittinger <cg@exept.de> parents: 13341 diff changeset	9702	"
82dc48a9a6ae changed: #osName Claus Gittinger <cg@exept.de> parents: 13341 diff changeset	9703
82dc48a9a6ae changed: #osName Claus Gittinger <cg@exept.de> parents: 13341 diff changeset	9704	"Modified (comment): / 30-07-2011 / 17:00:50 / cg"
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	9705	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	9706
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	9707	osVersion
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	9708
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	9709	^OperatingSystem getSystemInfo at:#release
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	9710
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	9711	"Created: / 19-01-2007 / 13:15:47 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	9712	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	9713
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9714	pathSeparator
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9715	"return the character which separates items in the PATH variable"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9716
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9717	^ $;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9718
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9719	"Created: 2.5.1997 / 11:36:47 / cg"
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9722	platformName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9723	"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	9724	This returns #unix for all unix derivatives,
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9725	#os2, #win32, #vms or #mac for the others.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9726	I.e. it is much less specific than getOSType or getSystemType."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9727
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9728	^ #win32
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9729
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9730	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9731	OperatingSystem platformName
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9734	"Modified: 20.6.1997 / 17:37:26 / cg"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9735	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9736
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	9737	randomBytesInto:bufferOrInteger
12827 c50946e5abe3 comment/format in: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12825 diff changeset	9738	"If bufferOrInteger is a String or a ByteArray,
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9739	fill a given buffer with random bytes from the RtlGenRandom function
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9740	and nswer the buffer.
12827 c50946e5abe3 comment/format in: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12825 diff changeset	9741
c50946e5abe3 comment/format in: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12825 diff changeset	9742	If bufferOrInteger is a SmallInteger,
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9743	return this many bytes (max 4) as a SmallInteger.
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	9744
1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	9745	Return nil on error (and raise PrimitiveFailure).
12827 c50946e5abe3 comment/format in: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12825 diff changeset	9746
c50946e5abe3 comment/format in: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12825 diff changeset	9747	NOTE: This is a private interface, please use RandomGenerator!!"
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	9748
12773 0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	9749	%{
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	9750	// BOOLEAN RtlGenRandom(
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	9751	// __out PVOID RandomBuffer,
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	9752	// __in ULONG RandomBufferLength
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	9753	// );
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	9754	static BOOL (__stdcall *P_RtlGenRandom)(PVOID , ULONG) = 0;
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	9755	unsigned char *__buffer;
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	9756	int __bufferSize;
12825 5e8dc3aef362 added: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12821 diff changeset	9757	int __useLocalBuffer = 0;
5e8dc3aef362 added: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12821 diff changeset	9758	unsigned int __localBuffer = 0;
5e8dc3aef362 added: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12821 diff changeset	9759
5e8dc3aef362 added: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12821 diff changeset	9760	if (__isSmallInteger(bufferOrInteger)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9761	__useLocalBuffer = 1;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9762	__buffer = (unsigned char *)&__localBuffer;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9763	__bufferSize = __smallIntegerVal(bufferOrInteger);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9764	if (__bufferSize > sizeof(INT))
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9765	__bufferSize = sizeof(INT);
12825 5e8dc3aef362 added: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12821 diff changeset	9766	} else if (__isString(bufferOrInteger)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9767	__buffer = __stringVal(bufferOrInteger);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9768	__bufferSize = __stringSize(bufferOrInteger);
12825 5e8dc3aef362 added: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12821 diff changeset	9769	} else if (__isByteArray(bufferOrInteger)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9770	__buffer = __byteArrayVal(bufferOrInteger);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9771	__bufferSize = __byteArraySize(bufferOrInteger);
12773 0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	9772	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9773	goto error;
12773 0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	9774	}
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	9775
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	9776	if (P_RtlGenRandom == 0) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9777	HINSTANCE hAdvapi32 = LoadLibrary("advapi32.dll");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9778	// console_printf("hAdvapi32: %x\n", hAdvapi32);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9779	if (hAdvapi32) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9780	P_RtlGenRandom = (BOOL (__stdcall *)(PVOID , ULONG))
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9781	GetProcAddress(hAdvapi32, "SystemFunction036");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9782	// console_printf("P_RtlGenRandom: %x\n", P_RtlGenRandom);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9783	if (P_RtlGenRandom == 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9784	goto error;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9785	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9786	}
12773 0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	9787	}
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	9788	if ((*P_RtlGenRandom)(__buffer, __bufferSize)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9789	if (__useLocalBuffer) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9790	RETURN(__mkSmallInteger(__localBuffer & _MAX_INT));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9791	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9792	RETURN (bufferOrInteger);
12773 0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	9793	}
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	9794	error: ;
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	9795	%}.
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	9796	self primitiveFailed.
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	9797	^ nil
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	9798
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	9799	"
12825 5e8dc3aef362 added: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12821 diff changeset	9800	self randomBytesInto:(ByteArray new:4)
5e8dc3aef362 added: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12821 diff changeset	9801	self randomBytesInto:4
5e8dc3aef362 added: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12821 diff changeset	9802	self randomBytesInto:1
12773 0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	9803	"
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	9804	!
0924f835772c added: #primRtlGenRandomInto: Claus Gittinger <cg@exept.de> parents: 12730 diff changeset	9805
12603 70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	9806	setEnvironment:aStringOrSymbol to:newValueString
70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	9807	"set an environment variable"
70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	9808
70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	9809	%{ /* NOCONTEXT */
70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	9810	char *env;
70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	9811
70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	9812	if (__isStringLike(aStringOrSymbol)
70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	9813	&& __isStringLike(newValueString) ) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9814	if (SetEnvironmentVariable(__stringVal(aStringOrSymbol), __stringVal(newValueString)) != 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9815	RETURN(self);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	9816	}
12603 70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	9817	}
70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	9818	%}.
70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	9819	self primitiveFailed
70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	9820
70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	9821	"
12907 1995938e4768 add getAllProcesses and fix terminateProcessGroup: ca parents: 12838 diff changeset	9822	OperatingSystem getEnvironment:'PATH'
12603 70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	9823	OperatingSystem setEnvironment:'PATH' to:('c:\cygwin\bin;' , (OperatingSystem getEnvironment:'PATH'))
70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	9824	"
70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	9825	!
70b6928c6365 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12489 diff changeset	9826
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9827	setLocaleInfo:anInfoDictionary
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9828	"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	9829	(internal in ST/X only - the OS's settings remain unaffected)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9830	See description of fields in #getLocaleInfo.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9831
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9832	Notice, that (for now), the system does not use this information;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9833	it should be used by applications as required."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9834
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9835	LocaleInfo := anInfoDictionary
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9836
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9837	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9838	\|d\|
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9839
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9840	d := IdentityDictionary new.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9841	d at:#decimalPoint put:'.' .
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9842	d at:#thousandsSeparator put:',' .
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9843	d at:#currencySymbol put:'USD' .
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9844	d at:#monetaryDecimalPoint put:'.' .
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9845	d at:#monetaryThousandsSeparator put:'.' .
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9846	d at:#fractionalDigits put:2 .
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9847	d at:#positiveSign put:'+' .
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9848	d at:#negativeSign put:'-' .
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9849	d at:#positiveSignPrecedesCurrencySymbol put:true .
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9850	d at:#negativeSignPrecedesCurrencySymbol put:false .
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9851	OperatingSystem setLocaleInfo:d
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9852	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9853	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9854
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9855	supportsChildInterrupts
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9856	"return true, if the OS supports childProcess termination signalling
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9857	through interrupts (i.e. SIGCHILD)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9858
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9859	%{ /* NOCONTEXT */
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	9860	#if defined(SIGCHLD) \|\| defined(SIGCLD)
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9861	RETURN (true);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9862	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9863	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9864	^ false
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9865
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9866	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	9867	OperatingSystem supportsChildInterrupts
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9868	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9869	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9870
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9871	supportsFileOwnerGroups
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9872	"return true, if the OS's file system supports file
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9873	group ownership - all OS's except windows do"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9874
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9875	^ false
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9876
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9877	"Created: / 10.9.1998 / 17:57:03 / cg"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9878	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9879
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9880	supportsFileOwners
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9881	"return true, if the OS's file system supports file
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9882	ownership - all OS's except windows do"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9883
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9884	^ false
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9885
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9886	"Created: / 10.9.1998 / 17:55:16 / cg"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9887	"Modified: / 10.9.1998 / 17:57:11 / cg"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9888	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9889
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9890	supportsIOInterrupts
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	9891	"return true, if the OS supports IO availability interrupts
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9892	(i.e. SIGPOLL/SIGIO).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9893
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9894	Currently, this mechanism does not work on all
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9895	systems ...
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9896	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9897
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9898	^ false
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9899
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9900	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	9901	OperatingSystem supportsIOInterrupts
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9902	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9903	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9904
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9905	supportsNonBlockingIO
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9906	"return true, if the OS supports nonblocking IO."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9907
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9908	^ false
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9909
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9910	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	9911	OperatingSystem supportsNonBlockingIO
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9912	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9913	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9914
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9915	supportsSelect
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9916	"return true, if the OS supports selecting on multiple
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9917	filedescriptors via select.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9918	If false is returned, ProcessorScheduler will poll in 50ms
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9919	intervals for I/O becoming ready."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9920
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9921	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9922
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9923	# if defined(WIN32S)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9924	RETURN (false);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9925	# endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9926	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9927	^ true
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9928
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9929	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9930	OperatingSystem supportsSelect
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9931	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9932	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9933
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9934	supportsSelectOnPipes
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9935	"return true, if the OS supports selecting on pipe
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9936	filedescriptors via select.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9937	If false is returned, ProcessorScheduler will poll in 50ms
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9938	intervals for I/O becoming ready."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9939
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9940	^ false
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	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	9943	OperatingSystem supportsSelectOnPipes
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9946	"Modified: / 14.12.1999 / 19:41:03 / cg"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9947	"Created: / 14.12.1999 / 19:43:13 / cg"
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9950	supportsSelectOnSockets
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9951	"return true, if the OS supports selecting on socket
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9952	filedescriptors via select.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9953	If false is returned, ProcessorScheduler will poll in 50ms
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9954	intervals for I/O becoming ready."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9955
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9956	^ false
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9957
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9958	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	9959	OperatingSystem supportsSelectOnSockets
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9960	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9961
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9962	"Modified: / 14.12.1999 / 19:41:03 / cg"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9963	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9964
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9965	supportsVolumes
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9966	"return true, if the OS supports disk volumes.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9967	False is returned for UNIX, true for MSDOS and VMS"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9968
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9969	^ true
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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9972	!Win32OperatingSystem class methodsFor:'path queries'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	9973
5144 607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	9974	defaultPackagePath
20082 ea1059c10bba Issue #94: Cleaned up Win32OperatingSystem>>defaultPackagePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20080 diff changeset	9975	\|packagePath key value \|
ea1059c10bba Issue #94: Cleaned up Win32OperatingSystem>>defaultPackagePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20080 diff changeset	9976
ea1059c10bba Issue #94: Cleaned up Win32OperatingSystem>>defaultPackagePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20080 diff changeset	9977	packagePath := super defaultPackagePath.
ea1059c10bba Issue #94: Cleaned up Win32OperatingSystem>>defaultPackagePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20080 diff changeset	9978
ea1059c10bba Issue #94: Cleaned up Win32OperatingSystem>>defaultPackagePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20080 diff changeset	9979	"/ For backward compatibility, also add package path specified
ea1059c10bba Issue #94: Cleaned up Win32OperatingSystem>>defaultPackagePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20080 diff changeset	9980	"/ in registry. DO NOT USE, this will wanish.
ea1059c10bba Issue #94: Cleaned up Win32OperatingSystem>>defaultPackagePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20080 diff changeset	9981	key := RegistryEntry key:'HKEY_LOCAL_MACHINE\SOFTWARE\eXept\Smalltalk/X\' , Smalltalk versionString.
ea1059c10bba Issue #94: Cleaned up Win32OperatingSystem>>defaultPackagePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20080 diff changeset	9982	key notNil ifTrue:[
ea1059c10bba Issue #94: Cleaned up Win32OperatingSystem>>defaultPackagePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20080 diff changeset	9983	value := key valueNamed:'PackageDirPath'.
ea1059c10bba Issue #94: Cleaned up Win32OperatingSystem>>defaultPackagePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20080 diff changeset	9984	].
ea1059c10bba Issue #94: Cleaned up Win32OperatingSystem>>defaultPackagePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20080 diff changeset	9985	value notNil ifTrue:[
ea1059c10bba Issue #94: Cleaned up Win32OperatingSystem>>defaultPackagePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20080 diff changeset	9986	\| directories \|
ea1059c10bba Issue #94: Cleaned up Win32OperatingSystem>>defaultPackagePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20080 diff changeset	9987
ea1059c10bba Issue #94: Cleaned up Win32OperatingSystem>>defaultPackagePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20080 diff changeset	9988	directories := value asCollectionOfSubstringsSeparatedBy:self pathSeparator.
ea1059c10bba Issue #94: Cleaned up Win32OperatingSystem>>defaultPackagePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20080 diff changeset	9989	directories reverseDo:[:each\|
ea1059c10bba Issue #94: Cleaned up Win32OperatingSystem>>defaultPackagePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20080 diff changeset	9990	(packagePath includes:each) ifFalse:[
ea1059c10bba Issue #94: Cleaned up Win32OperatingSystem>>defaultPackagePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20080 diff changeset	9991	packagePath addFirst:each.
ea1059c10bba Issue #94: Cleaned up Win32OperatingSystem>>defaultPackagePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20080 diff changeset	9992	].
ea1059c10bba Issue #94: Cleaned up Win32OperatingSystem>>defaultPackagePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20080 diff changeset	9993	].
ea1059c10bba Issue #94: Cleaned up Win32OperatingSystem>>defaultPackagePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20080 diff changeset	9994	].
ea1059c10bba Issue #94: Cleaned up Win32OperatingSystem>>defaultPackagePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20080 diff changeset	9995	^ packagePath
5144 607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	9996
607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	9997	"
607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	9998	self defaultPackagePath
607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	9999	"
607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10000
20082 ea1059c10bba Issue #94: Cleaned up Win32OperatingSystem>>defaultPackagePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20080 diff changeset	10001	"Created: / 24-12-1999 / 00:10:41 / cg"
ea1059c10bba Issue #94: Cleaned up Win32OperatingSystem>>defaultPackagePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20080 diff changeset	10002	"Modified (comment): / 04-07-2016 / 23:35:06 / jv"
5144 607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10003	!
607e6fe053b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5142 diff changeset	10004
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10005	defaultSystemPath
9021 6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	10006	\|sysPath libDirPath\|
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10007
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10008	sysPath := super defaultSystemPath.
9014 f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 9013 diff changeset	10009
5136 faa3c9f42b8b checkin from browser Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	10010	libDirPath := self stxLibDirPath.
faa3c9f42b8b checkin from browser Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	10011	libDirPath notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10012	"/ and also add the libDirPath from the registry ...
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10013	(sysPath includes:libDirPath) ifFalse:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10014	sysPath add:libDirPath
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10015	].
9021 6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	10016	].
13341 69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10017	"/ #(
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10018	"/ '\programs\eXept\smalltalk'
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10019	"/ '\programme\eXept\smalltalk'
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10020	"/ '\programs\smalltalk'
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10021	"/ '\programme\smalltalk'
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10022	"/ '\smalltalk'
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10023	"/ ) do:[:dir \|
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10024	"/ \|vsnDir\|
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10025	"/
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10026	"/ (dir asFilename isDirectory) ifTrue:[
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10027	"/ vsnDir := dir , '\' , Smalltalk versionString.
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10028	"/ (vsnDir asFilename isDirectory) ifTrue:[
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10029	"/ (sysPath includes:vsnDir) ifFalse:[
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10030	"/ sysPath add:vsnDir.
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10031	"/ ]
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10032	"/ ].
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10033	"/ (sysPath includes:dir) ifFalse:[
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10034	"/ sysPath add:dir.
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10035	"/ ].
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10036	"/ ]
69f0a940013d SystemPath: no longer. Only leads to trouble. Claus Gittinger <cg@exept.de> parents: 13324 diff changeset	10037	"/ ].
9021 6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	10038
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10039	^ sysPath
5136 faa3c9f42b8b checkin from browser Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	10040
5147 305aa6d3926a checkin from browser Claus Gittinger <cg@exept.de> parents: 5144 diff changeset	10041	"Modified: / 24.12.1999 / 00:29:18 / cg"
5133 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
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10044	stxBinDirPath
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10045	"ask the registry for the binary directory"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10046
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10047	\|k p\|
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	k := RegistryEntry key:'HKEY_LOCAL_MACHINE\SOFTWARE\eXept\Smalltalk/X\' , Smalltalk versionString.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10050	k notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10051	p := k valueNamed:'BinDir'.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10052	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10053	^ p
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10054
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10055	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	10056	OperatingSystem stxBinDirPath
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10057	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10058	!
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	stxLibDirPath
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10061	"ask the registry for the lib directory"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10062
9025 e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	10063	(Array
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10064	with:('HKEY_LOCAL_MACHINE\SOFTWARE\eXept\Smalltalk/X\' , Smalltalk versionString)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10065	with:('HKEY_LOCAL_MACHINE\SOFTWARE\eXept\Smalltalk/X'))
9021 6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	10066	do:[:eachKeyToTry \|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10067	\|k p\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10068
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10069	k := RegistryEntry key:eachKeyToTry.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10070	k notNil ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10071	p := k valueNamed:'LibDir'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10072	k closeKey.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10073	^ p
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10074	].
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10075	].
9021 6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	10076	^ nil
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10077
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10078	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10079	OperatingSystem stxLibDirPath
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	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10082
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10083	!Win32OperatingSystem class methodsFor:'printing support'!
c57956a348bf printing support fm parents: 9431 diff changeset	10084
c57956a348bf printing support fm parents: 9431 diff changeset	10085	abortDoc: deviceContext
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10086	^ self primAbortDoc:deviceContext
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10087
c57956a348bf printing support fm parents: 9431 diff changeset	10088	"Created: / 02-08-2006 / 12:52:12 / fm"
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10089	"Modified: / 04-10-2006 / 11:34:37 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10090	!
c57956a348bf printing support fm parents: 9431 diff changeset	10091
c57956a348bf printing support fm parents: 9431 diff changeset	10092	closePrinter:handle
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10093	self primClosePrinter:handle
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10094
c57956a348bf printing support fm parents: 9431 diff changeset	10095	"Created: / 28-07-2006 / 17:55:59 / fm"
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10096	"Modified: / 04-10-2006 / 11:34:34 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10097	!
c57956a348bf printing support fm parents: 9431 diff changeset	10098
c57956a348bf printing support fm parents: 9431 diff changeset	10099	createPrinterDC:driverName device:deviceName output:outputMedium initData:driverData
c57956a348bf printing support fm parents: 9431 diff changeset	10100	\|h\|
c57956a348bf printing support fm parents: 9431 diff changeset	10101
c57956a348bf printing support fm parents: 9431 diff changeset	10102	h := self primCreatePrinterDC:driverName device:deviceName output:outputMedium initData:driverData.
10529 09bf29a7405a createPrinterDC with normal handle fm parents: 10511 diff changeset	10103	"/ h notNil ifTrue:[
09bf29a7405a createPrinterDC with normal handle fm parents: 10511 diff changeset	10104	"/ ^ (Win32Handle newAddress:h address) registerForFinalization
09bf29a7405a createPrinterDC with normal handle fm parents: 10511 diff changeset	10105	"/ ].
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10106	^ h
c57956a348bf printing support fm parents: 9431 diff changeset	10107
c57956a348bf printing support fm parents: 9431 diff changeset	10108	"
c57956a348bf printing support fm parents: 9431 diff changeset	10109	\|p hPrinter driverNm mediumNm deviceNm driverData hDC\|
c57956a348bf printing support fm parents: 9431 diff changeset	10110
c57956a348bf printing support fm parents: 9431 diff changeset	10111	p := self getPrinters first.
c57956a348bf printing support fm parents: 9431 diff changeset	10112	driverNm := p attributes at:#driverName.
c57956a348bf printing support fm parents: 9431 diff changeset	10113	mediumNm := p attributes at:#medium.
c57956a348bf printing support fm parents: 9431 diff changeset	10114	deviceNm := p printerName.
c57956a348bf printing support fm parents: 9431 diff changeset	10115
c57956a348bf printing support fm parents: 9431 diff changeset	10116	hPrinter := self openPrinter:deviceNm.
c57956a348bf printing support fm parents: 9431 diff changeset	10117	driverData := self getDocumentProperties:nil hPrinter:hPrinter pDeviceName:deviceNm.
c57956a348bf printing support fm parents: 9431 diff changeset	10118	self primClosePrinter:hPrinter.
c57956a348bf printing support fm parents: 9431 diff changeset	10119
c57956a348bf printing support fm parents: 9431 diff changeset	10120	hDC := self createPrinterDC:driverNm device:deviceNm output:mediumNm initData:driverData.
c57956a348bf printing support fm parents: 9431 diff changeset	10121	"
c57956a348bf printing support fm parents: 9431 diff changeset	10122
c57956a348bf printing support fm parents: 9431 diff changeset	10123	"Created: / 27-07-2006 / 16:22:34 / fm"
10511 7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	10124	"Modified: / 16-04-2007 / 13:09:16 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10125	!
c57956a348bf printing support fm parents: 9431 diff changeset	10126
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	10127	deletePrinterDC: hwndArg
10529 09bf29a7405a createPrinterDC with normal handle fm parents: 10511 diff changeset	10128	\|return\|
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	10129	return := self primDeletePrinterDC:hwndArg .
10529 09bf29a7405a createPrinterDC with normal handle fm parents: 10511 diff changeset	10130	^return
09bf29a7405a createPrinterDC with normal handle fm parents: 10511 diff changeset	10131
09bf29a7405a createPrinterDC with normal handle fm parents: 10511 diff changeset	10132	"Created: / 27-07-2006 / 16:22:34 / fm"
09bf29a7405a createPrinterDC with normal handle fm parents: 10511 diff changeset	10133	!
09bf29a7405a createPrinterDC with normal handle fm parents: 10511 diff changeset	10134
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10135	documentPropertiesDialogFor:hwndOrNil hPrinter:hPrinter pDeviceName:deviceName devModeInput:pDevModeInputOrNil
c57956a348bf printing support fm parents: 9431 diff changeset	10136	\|nBytesNeeded hPrinter rslt devModeOutput\|
c57956a348bf printing support fm parents: 9431 diff changeset	10137
c57956a348bf printing support fm parents: 9431 diff changeset	10138	"
c57956a348bf printing support fm parents: 9431 diff changeset	10139	#define DM_UPDATE 1
c57956a348bf printing support fm parents: 9431 diff changeset	10140	#define DM_COPY 2
c57956a348bf printing support fm parents: 9431 diff changeset	10141	#define DM_PROMPT 4
c57956a348bf printing support fm parents: 9431 diff changeset	10142	#define DM_MODIFY 8
c57956a348bf printing support fm parents: 9431 diff changeset	10143
c57956a348bf printing support fm parents: 9431 diff changeset	10144	#define DM_IN_BUFFER DM_MODIFY
c57956a348bf printing support fm parents: 9431 diff changeset	10145	#define DM_IN_PROMPT DM_PROMPT
c57956a348bf printing support fm parents: 9431 diff changeset	10146	#define DM_OUT_BUFFER DM_COPY
c57956a348bf printing support fm parents: 9431 diff changeset	10147	#define DM_OUT_DEFAULT DM_UPDATE
c57956a348bf printing support fm parents: 9431 diff changeset	10148	"
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	10149	nBytesNeeded := self
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10150	primDocumentProperties:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10151	hPrinter:hPrinter
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10152	pDeviceName: deviceName
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10153	pDevModeOutput:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10154	pDevModeInput:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10155	fMode:0.
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	10156
51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	10157	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	10158
51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	10159	rslt := self
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10160	primDocumentProperties:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10161	hPrinter:hPrinter
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10162	pDeviceName: deviceName
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10163	pDevModeOutput:devModeOutput
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10164	pDevModeInput:pDevModeInputOrNil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10165	fMode:4+2.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10166
c57956a348bf printing support fm parents: 9431 diff changeset	10167	^ devModeOutput
c57956a348bf printing support fm parents: 9431 diff changeset	10168
c57956a348bf printing support fm parents: 9431 diff changeset	10169	"
c57956a348bf printing support fm parents: 9431 diff changeset	10170	\|h\|
c57956a348bf printing support fm parents: 9431 diff changeset	10171
c57956a348bf printing support fm parents: 9431 diff changeset	10172	h := self openPrinter:'\\http://exept.exept.de:631\lj4'.
c57956a348bf printing support fm parents: 9431 diff changeset	10173	self documentPropertiesDialogFor:nil hPrinter:h pDeviceName:'\\http://exept.exept.de:631\lj4' devModeInput:nil
c57956a348bf printing support fm parents: 9431 diff changeset	10174	"
c57956a348bf printing support fm parents: 9431 diff changeset	10175
c57956a348bf printing support fm parents: 9431 diff changeset	10176	"Created: / 27-07-2006 / 15:39:21 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	10177	!
c57956a348bf printing support fm parents: 9431 diff changeset	10178
c57956a348bf printing support fm parents: 9431 diff changeset	10179	endDoc: deviceContext
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10180	^ self primEndDoc:deviceContext
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10181
c57956a348bf printing support fm parents: 9431 diff changeset	10182	"Created: / 27-07-2006 / 19:46:19 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	10183	"Modified: / 28-07-2006 / 19:23:03 / fm"
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10184	"Modified: / 04-10-2006 / 11:35:01 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10185	!
c57956a348bf printing support fm parents: 9431 diff changeset	10186
c57956a348bf printing support fm parents: 9431 diff changeset	10187	endPage: deviceContext
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10188	^ self primEndPage:deviceContext
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10189
c57956a348bf printing support fm parents: 9431 diff changeset	10190	"Created: / 27-07-2006 / 19:45:28 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	10191	"Modified: / 28-07-2006 / 18:49:40 / fm"
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10192	"Modified: / 04-10-2006 / 11:35:06 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10193	!
c57956a348bf printing support fm parents: 9431 diff changeset	10194
c57956a348bf printing support fm parents: 9431 diff changeset	10195	getDefaultPrinterName
c57956a348bf printing support fm parents: 9431 diff changeset	10196	"returns the default printer name"
c57956a348bf printing support fm parents: 9431 diff changeset	10197
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10198	^ (self getProfileString:'windows' key:'device' default:'')
d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10199
d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10200	"
d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10201	OperatingSystem getDefaultPrinterName
d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10202	"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10203
c57956a348bf printing support fm parents: 9431 diff changeset	10204	"Created: / 02-08-2006 / 17:25:34 / fm"
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10205	"Modified: / 04-10-2006 / 11:35:18 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10206	!
c57956a348bf printing support fm parents: 9431 diff changeset	10207
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	10208	getDeviceCaps:hwndArg index: index
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	10209	^ self primGetDeviceCaps:hwndArg index: index
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10210
c57956a348bf printing support fm parents: 9431 diff changeset	10211	"Created: / 28-07-2006 / 17:45:27 / fm"
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10212	"Modified: / 04-10-2006 / 11:35:29 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10213	!
c57956a348bf printing support fm parents: 9431 diff changeset	10214
c57956a348bf printing support fm parents: 9431 diff changeset	10215	getDocumentProperties:hwndOrNil hPrinter:hPrinter pDeviceName:deviceName
c57956a348bf printing support fm parents: 9431 diff changeset	10216	\|nBytesNeeded rslt devModeOutput\|
c57956a348bf printing support fm parents: 9431 diff changeset	10217
c57956a348bf printing support fm parents: 9431 diff changeset	10218	"
c57956a348bf printing support fm parents: 9431 diff changeset	10219	#define DM_UPDATE 1
c57956a348bf printing support fm parents: 9431 diff changeset	10220	#define DM_COPY 2
c57956a348bf printing support fm parents: 9431 diff changeset	10221	#define DM_PROMPT 4
c57956a348bf printing support fm parents: 9431 diff changeset	10222	#define DM_MODIFY 8
c57956a348bf printing support fm parents: 9431 diff changeset	10223
c57956a348bf printing support fm parents: 9431 diff changeset	10224	#define DM_IN_BUFFER DM_MODIFY
c57956a348bf printing support fm parents: 9431 diff changeset	10225	#define DM_IN_PROMPT DM_PROMPT
c57956a348bf printing support fm parents: 9431 diff changeset	10226	#define DM_OUT_BUFFER DM_COPY
c57956a348bf printing support fm parents: 9431 diff changeset	10227	#define DM_OUT_DEFAULT DM_UPDATE
c57956a348bf printing support fm parents: 9431 diff changeset	10228	"
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	10229	nBytesNeeded := self
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10230	primDocumentProperties:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10231	hPrinter:hPrinter
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10232	pDeviceName: deviceName
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10233	pDevModeOutput:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10234	pDevModeInput:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10235	fMode:0.
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10236
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10237	nBytesNeeded < 0 ifTrue:[^nil].
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	10238	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	10239
51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	10240	rslt := self
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10241	primDocumentProperties:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10242	hPrinter:hPrinter
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10243	pDeviceName: deviceName
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10244	pDevModeOutput:devModeOutput
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10245	pDevModeInput:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10246	fMode:2.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10247
c57956a348bf printing support fm parents: 9431 diff changeset	10248	^ devModeOutput
c57956a348bf printing support fm parents: 9431 diff changeset	10249
c57956a348bf printing support fm parents: 9431 diff changeset	10250	"
c57956a348bf printing support fm parents: 9431 diff changeset	10251	\|h\|
c57956a348bf printing support fm parents: 9431 diff changeset	10252
c57956a348bf printing support fm parents: 9431 diff changeset	10253	h := self openPrinter:'\\http://exept.exept.de:631\lj4'.
c57956a348bf printing support fm parents: 9431 diff changeset	10254	self getDocumentProperties:nil hPrinter:h pDeviceName:'\\http://exept.exept.de:631\lj4'
c57956a348bf printing support fm parents: 9431 diff changeset	10255	"
c57956a348bf printing support fm parents: 9431 diff changeset	10256
c57956a348bf printing support fm parents: 9431 diff changeset	10257	"Created: / 27-07-2006 / 15:38:03 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	10258	"Modified: / 31-07-2006 / 13:02:02 / fm"
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10259	"Modified: / 04-10-2006 / 11:35:39 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10260	!
c57956a348bf printing support fm parents: 9431 diff changeset	10261
c57956a348bf printing support fm parents: 9431 diff changeset	10262	getPrinterInfo2: printerName
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10263	\|hPrinter rslt informationBuffer bytesNeeded sizeBytesArray\|
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10264
c57956a348bf printing support fm parents: 9431 diff changeset	10265	hPrinter := self openPrinter: printerName .
c57956a348bf printing support fm parents: 9431 diff changeset	10266	sizeBytesArray := ByteArray new:4.
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	10267
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	10268	bytesNeeded := self
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10269	primGetPrinter:hPrinter
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10270	level:2
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10271	informationBuffer: nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10272	bufferSize: 0
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10273	bufferNeededSize:sizeBytesArray.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10274	bytesNeeded := sizeBytesArray longAt:1.
c57956a348bf printing support fm parents: 9431 diff changeset	10275	informationBuffer := PrinterInfo2Structure new: bytesNeeded.
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	10276	rslt := self
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10277	primGetPrinter:hPrinter
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10278	level:2
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10279	informationBuffer:informationBuffer
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10280	bufferSize: bytesNeeded
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10281	bufferNeededSize:sizeBytesArray.
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	10282	self closePrinter: printerName.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10283	^informationBuffer
c57956a348bf printing support fm parents: 9431 diff changeset	10284
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10285	"
d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10286	OperatingSystem getPrinterInfo2:(OperatingSystem getDefaultPrinterName)
d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10287	"
d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10288
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10289	"Created: / 01-08-2006 / 13:47:19 / fm"
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10290	"Modified: / 04-10-2006 / 11:36:41 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10291	!
c57956a348bf printing support fm parents: 9431 diff changeset	10292
c57956a348bf printing support fm parents: 9431 diff changeset	10293	getPrinters
c57956a348bf printing support fm parents: 9431 diff changeset	10294	"return a collection of PrinterInfos"
c57956a348bf printing support fm parents: 9431 diff changeset	10295
c57956a348bf printing support fm parents: 9431 diff changeset	10296	\|printerNames collectedInfo\|
c57956a348bf printing support fm parents: 9431 diff changeset	10297
c57956a348bf printing support fm parents: 9431 diff changeset	10298	printerNames := self getPrintersNames.
c57956a348bf printing support fm parents: 9431 diff changeset	10299	collectedInfo := OrderedCollection new.
c57956a348bf printing support fm parents: 9431 diff changeset	10300	printerNames do:[:eachName \|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10301	\|fn vol attributes nm deviceInfo infoFields driverName\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10302
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10303	attributes := Dictionary new.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10304
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10305	fn := eachName asFilename.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10306	vol := fn volume.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10307	vol notEmptyOrNil ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10308	(vol startsWith:'\\') ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10309	"/ a remote printer
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10310	attributes at:#isRemotePrinter put:true.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10311	attributes at:#remotePrinterName put:(fn baseName).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10312	attributes at:#remotePrinterHost put:(fn directoryName copyFrom:3).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10313	] ifFalse:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10314	"/ some other printer
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10315	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10316	] ifFalse:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10317	"/ some other printer
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10318	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10319
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10320	deviceInfo := self getProfileString:'PrinterPorts' key:eachName default:''.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10321	"gives us smething like 'winspool,Ne00:,15,45',
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10322	which is: driverName, deviceName, ? , ?"
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10323
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10324	infoFields := deviceInfo asCollectionOfSubstringsSeparatedBy:$,.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10325	driverName := infoFields at:1.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10326	2 to: infoFields size by:3 do:[:i \|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10327	\|medium longName\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10328
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10329	medium := infoFields at:i.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10330	longName := eachName ,',' , driverName , ',' , medium.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10331	attributes at:#driverName put:driverName.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10332	attributes at:#longName put:longName.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10333	attributes at:#medium put:medium.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10334
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10335	collectedInfo add:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10336	(AbstractOperatingSystem::PrinterInfo new
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10337	printerName:eachName
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10338	attributes:attributes;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10339	setDocumentProperties;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10340	yourself)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10341	].
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10342	].
c57956a348bf printing support fm parents: 9431 diff changeset	10343	^ collectedInfo
c57956a348bf printing support fm parents: 9431 diff changeset	10344
c57956a348bf printing support fm parents: 9431 diff changeset	10345	"
c57956a348bf printing support fm parents: 9431 diff changeset	10346	OperatingSystem getPrinters
c57956a348bf printing support fm parents: 9431 diff changeset	10347	"
c57956a348bf printing support fm parents: 9431 diff changeset	10348
c57956a348bf printing support fm parents: 9431 diff changeset	10349	"Created: / 27-07-2006 / 12:18:11 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	10350	"Modified: / 31-07-2006 / 13:06:04 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	10351	!
c57956a348bf printing support fm parents: 9431 diff changeset	10352
c57956a348bf printing support fm parents: 9431 diff changeset	10353	getPrintersNames
c57956a348bf printing support fm parents: 9431 diff changeset	10354	"return a collection of Printer names"
c57956a348bf printing support fm parents: 9431 diff changeset	10355
c57956a348bf printing support fm parents: 9431 diff changeset	10356	\|printerNames\|
c57956a348bf printing support fm parents: 9431 diff changeset	10357
c57956a348bf printing support fm parents: 9431 diff changeset	10358	printerNames := (self getProfileString:'PrinterPorts' key:nil default:'')
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10359	asCollectionOfSubstringsSeparatedBy:(Character value:0).
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10360	printerNames := printerNames reject:[:nm \| nm isEmpty].
c57956a348bf printing support fm parents: 9431 diff changeset	10361	^printerNames
c57956a348bf printing support fm parents: 9431 diff changeset	10362
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10363	"
d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10364	OperatingSystem getPrintersNames
d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10365	"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10366
c57956a348bf printing support fm parents: 9431 diff changeset	10367	"Created: / 27-07-2006 / 17:55:46 / fm"
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10368	"Modified: / 04-10-2006 / 11:37:41 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10369	!
c57956a348bf printing support fm parents: 9431 diff changeset	10370
c57956a348bf printing support fm parents: 9431 diff changeset	10371	getTextExtentPoint: handle string: lpString size: pSize
11085 ff0e28fd7027 changed #primReleaseMutex: fm parents: 11084 diff changeset	10372
ff0e28fd7027 changed #primReleaseMutex: fm parents: 11084 diff changeset	10373	^self primGetTextExtentPoint: handle string: lpString count: lpString size size: pSize
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10374
c57956a348bf printing support fm parents: 9431 diff changeset	10375	"Created: / 03-08-2006 / 11:17:17 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	10376	!
c57956a348bf printing support fm parents: 9431 diff changeset	10377
c57956a348bf printing support fm parents: 9431 diff changeset	10378	getTextMetrics: deviceContext lpMetrics: textMetrics
c57956a348bf printing support fm parents: 9431 diff changeset	10379
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10380	^self primGetTextMetrics: deviceContext lpMetrics: textMetrics
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10381
c57956a348bf printing support fm parents: 9431 diff changeset	10382	"Created: / 02-08-2006 / 16:07:07 / fm"
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10383	"Modified: / 04-10-2006 / 11:37:49 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10384	!
c57956a348bf printing support fm parents: 9431 diff changeset	10385
c57956a348bf printing support fm parents: 9431 diff changeset	10386	openPrinter:name
c57956a348bf printing support fm parents: 9431 diff changeset	10387	\|h hh rslt\|
c57956a348bf printing support fm parents: 9431 diff changeset	10388
19346 8863a07310e9 #OTHER Claus Gittinger <cg@exept.de> parents: 19339 diff changeset	10389	hh := ByteArray new:(ExternalAddress pointerSize).
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10390	rslt := self primOpenPrinter:name handleHolder:hh ignored:nil.
c57956a348bf printing support fm parents: 9431 diff changeset	10391	rslt ifFalse:[^ nil].
c57956a348bf printing support fm parents: 9431 diff changeset	10392
c57956a348bf printing support fm parents: 9431 diff changeset	10393	h := Win32PrinterHandle new setAddressFromBytes:hh.
c57956a348bf printing support fm parents: 9431 diff changeset	10394	h registerForFinalization.
c57956a348bf printing support fm parents: 9431 diff changeset	10395	^ h
c57956a348bf printing support fm parents: 9431 diff changeset	10396
c57956a348bf printing support fm parents: 9431 diff changeset	10397	"
c57956a348bf printing support fm parents: 9431 diff changeset	10398	self openPrinter:'\\http://exept.exept.de:631\lj4'
c57956a348bf printing support fm parents: 9431 diff changeset	10399	"
c57956a348bf printing support fm parents: 9431 diff changeset	10400
c57956a348bf printing support fm parents: 9431 diff changeset	10401	"Created: / 27-07-2006 / 14:40:41 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	10402	!
c57956a348bf printing support fm parents: 9431 diff changeset	10403
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	10404	primAbortDoc:hwndArg
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10405	<apicall: int32 "AbortDoc" (handle) module: "gdi32.dll" >
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	10406	self primitiveFailed.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10407
c57956a348bf printing support fm parents: 9431 diff changeset	10408	"Created: / 02-08-2006 / 12:52:32 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	10409	!
c57956a348bf printing support fm parents: 9431 diff changeset	10410
c57956a348bf printing support fm parents: 9431 diff changeset	10411	primClosePrinter:handle
c57956a348bf printing support fm parents: 9431 diff changeset	10412	<apicall: bool "ClosePrinter" ( handle ) module: "winspool.drv" >
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	10413	self primitiveFailed.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10414
c57956a348bf printing support fm parents: 9431 diff changeset	10415	"
c57956a348bf printing support fm parents: 9431 diff changeset	10416	\|h hh rslt\|
c57956a348bf printing support fm parents: 9431 diff changeset	10417
c57956a348bf printing support fm parents: 9431 diff changeset	10418	hh := ByteArray new:4.
c57956a348bf printing support fm parents: 9431 diff changeset	10419	rslt := self primOpenPrinter:'\\http://exept.exept.de:631\lj4' handleHolder:hh ignored: nil.
c57956a348bf printing support fm parents: 9431 diff changeset	10420	h := Win32PrinterHandle new setAddressFromBytes:hh.
c57956a348bf printing support fm parents: 9431 diff changeset	10421	self primClosePrinter: h.
c57956a348bf printing support fm parents: 9431 diff changeset	10422	"
c57956a348bf printing support fm parents: 9431 diff changeset	10423
c57956a348bf printing support fm parents: 9431 diff changeset	10424	"Created: / 27-07-2006 / 14:47:12 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	10425	!
c57956a348bf printing support fm parents: 9431 diff changeset	10426
c57956a348bf printing support fm parents: 9431 diff changeset	10427	primCreatePrinterDC:driverName device:deviceName output:outputMedium initData:driverData
10529 09bf29a7405a createPrinterDC with normal handle fm parents: 10511 diff changeset	10428	<apicall: handle "CreateDCA" ( pointer pointer pointer pointer ) module: "gdi32.dll" >
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	10429	self primitiveFailed.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10430
c57956a348bf printing support fm parents: 9431 diff changeset	10431	"Modified: / 27-07-2006 / 16:26:25 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	10432	!
c57956a348bf printing support fm parents: 9431 diff changeset	10433
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	10434	primDeletePrinterDC: hwndArg
10529 09bf29a7405a createPrinterDC with normal handle fm parents: 10511 diff changeset	10435	<apicall: bool "DeleteDC" ( handle ) module: "gdi32.dll" >
09bf29a7405a createPrinterDC with normal handle fm parents: 10511 diff changeset	10436	self primitiveFailed.
09bf29a7405a createPrinterDC with normal handle fm parents: 10511 diff changeset	10437	!
09bf29a7405a createPrinterDC with normal handle fm parents: 10511 diff changeset	10438
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10439	primDocumentProperties:hwndOrNil hPrinter:hPrinter pDeviceName:deviceName pDevModeOutput:pDevModeOutput pDevModeInput:pDevModeInput fMode:fMode
c57956a348bf printing support fm parents: 9431 diff changeset	10440	<apicall: int32 "DocumentPropertiesA" ( handle handle lpstr pointer pointer uint32) module: "winspool.drv" >
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	10441	self primitiveFailed.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10442
c57956a348bf printing support fm parents: 9431 diff changeset	10443	"
c57956a348bf printing support fm parents: 9431 diff changeset	10444	\|hPrinter rslt\|
c57956a348bf printing support fm parents: 9431 diff changeset	10445
c57956a348bf printing support fm parents: 9431 diff changeset	10446	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	10447	rslt := self
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10448	primDocumentProperties:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10449	hPrinter:hPrinter
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10450	pDeviceName: '\\http://exept.exept.de:631\lj4'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10451	pDevModeOutput:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10452	pDevModeInput:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10453	fMode:0.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10454
c57956a348bf printing support fm parents: 9431 diff changeset	10455	self halt.
c57956a348bf printing support fm parents: 9431 diff changeset	10456	"
c57956a348bf printing support fm parents: 9431 diff changeset	10457
c57956a348bf printing support fm parents: 9431 diff changeset	10458	"Created: / 27-07-2006 / 15:02:14 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	10459	!
c57956a348bf printing support fm parents: 9431 diff changeset	10460
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	10461	primEndDoc:hwndArg
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10462	<apicall: int32 "EndDoc" (handle) module: "gdi32.dll" >
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	10463	self primitiveFailed.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10464
c57956a348bf printing support fm parents: 9431 diff changeset	10465	"
c57956a348bf printing support fm parents: 9431 diff changeset	10466	\|hPrinter rslt\|
c57956a348bf printing support fm parents: 9431 diff changeset	10467
c57956a348bf printing support fm parents: 9431 diff changeset	10468	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	10469	rslt := self
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10470	primDocumentProperties:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10471	hPrinter:hPrinter
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10472	pDeviceName: '\\http://exept.exept.de:631\lj4'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10473	pDevModeOutput:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10474	pDevModeInput:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10475	fMode:0.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10476
c57956a348bf printing support fm parents: 9431 diff changeset	10477	self halt.
c57956a348bf printing support fm parents: 9431 diff changeset	10478	"
c57956a348bf printing support fm parents: 9431 diff changeset	10479
c57956a348bf printing support fm parents: 9431 diff changeset	10480	"Created: / 27-07-2006 / 19:31:31 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	10481	!
c57956a348bf printing support fm parents: 9431 diff changeset	10482
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	10483	primEndPage:hwndArg
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10484	<apicall: int32 "EndPage" (handle) module: "gdi32.dll" >
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	10485	self primitiveFailed.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10486
c57956a348bf printing support fm parents: 9431 diff changeset	10487	"
c57956a348bf printing support fm parents: 9431 diff changeset	10488	\|hPrinter rslt\|
c57956a348bf printing support fm parents: 9431 diff changeset	10489
c57956a348bf printing support fm parents: 9431 diff changeset	10490	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	10491	rslt := self
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10492	primDocumentProperties:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10493	hPrinter:hPrinter
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10494	pDeviceName: '\\http://exept.exept.de:631\lj4'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10495	pDevModeOutput:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10496	pDevModeInput:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10497	fMode:0.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10498
c57956a348bf printing support fm parents: 9431 diff changeset	10499	self halt.
c57956a348bf printing support fm parents: 9431 diff changeset	10500	"
c57956a348bf printing support fm parents: 9431 diff changeset	10501
c57956a348bf printing support fm parents: 9431 diff changeset	10502	"Created: / 27-07-2006 / 19:30:50 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	10503	!
c57956a348bf printing support fm parents: 9431 diff changeset	10504
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	10505	primGetDeviceCaps:hwndArg index: index
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10506	"Returns driver specific information about the device"
d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10507
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10508	<apicall: int32 "GetDeviceCaps" (handle int32) module: "gdi32.dll" >
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	10509	self primitiveFailed.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10510
c57956a348bf printing support fm parents: 9431 diff changeset	10511	"Modified: / 01-08-2006 / 16:13:05 / fm"
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10512	"Modified: / 04-10-2006 / 11:38:06 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10513	!
c57956a348bf printing support fm parents: 9431 diff changeset	10514
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	10515	primGetPrinter:hwndArg level:index informationBuffer:informationBuffer bufferSize:bufferSize bufferNeededSize:bufferNeededSize
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10516	<apicall: bool "GetPrinterA" (handle dword pointer dword pointer) module: "winspool.drv" >
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	10517	self primitiveFailed.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10518
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	10519	"
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	10520	\|hPrinter rslt printerName informationBuffer bytesNeeded sizeBytesArray ok\|
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10521	printerName := '\\http://exept.exept.de:631\lj4'.
c57956a348bf printing support fm parents: 9431 diff changeset	10522	hPrinter := self openPrinter: printerName .
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	10523
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10524	sizeBytesArray := ByteArray new:4.
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	10525	ok := self
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10526	primGetPrinter:hPrinter
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10527	level:2
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10528	informationBuffer: nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10529	bufferSize: 0
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10530	bufferNeededSize:sizeBytesArray.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10531	bytesNeeded := sizeBytesArray longAt:1.
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	10532
b9c80492105b * empty log message * fm parents: 9475 diff changeset	10533	informationBuffer := PrinterInfo2Structure new: bytesNeeded.
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	10534	rslt := self
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10535	primGetPrinter:hPrinter
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10536	level:2
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10537	informationBuffer:informationBuffer
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10538	bufferSize: bytesNeeded
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10539	bufferNeededSize:sizeBytesArray.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10540	self assert: rslt.
c57956a348bf printing support fm parents: 9431 diff changeset	10541	informationBuffer inspect.
c57956a348bf printing support fm parents: 9431 diff changeset	10542	self closePrinter: printerName.
c57956a348bf printing support fm parents: 9431 diff changeset	10543	"
c57956a348bf printing support fm parents: 9431 diff changeset	10544
c57956a348bf printing support fm parents: 9431 diff changeset	10545	"Modified: / 01-08-2006 / 12:39:26 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	10546	!
c57956a348bf printing support fm parents: 9431 diff changeset	10547
11085 ff0e28fd7027 changed #primReleaseMutex: fm parents: 11084 diff changeset	10548	primGetTextExtentPoint: handle string: lpString count: nCount size: pSize
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10549	<apicall: bool "GetTextExtentPointA" (handle pointer int32 pointer) module: "gdi32.dll" >
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	10550	self primitiveFailed.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10551
c57956a348bf printing support fm parents: 9431 diff changeset	10552	"Created: / 03-08-2006 / 11:06:23 / fm"
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10553	"Modified: / 04-10-2006 / 11:38:21 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10554	!
c57956a348bf printing support fm parents: 9431 diff changeset	10555
c57956a348bf printing support fm parents: 9431 diff changeset	10556	primGetTextMetrics: deviceContext lpMetrics: textMetrics
c57956a348bf printing support fm parents: 9431 diff changeset	10557	<apicall: bool "GetTextMetricsA" (handle pointer) module: "gdi32.dll" >
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	10558	self primitiveFailed.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10559
c57956a348bf printing support fm parents: 9431 diff changeset	10560	"Modified: / 02-08-2006 / 16:17:51 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	10561	!
c57956a348bf printing support fm parents: 9431 diff changeset	10562
c57956a348bf printing support fm parents: 9431 diff changeset	10563	primOpenPrinter:name handleHolder:handleHolder ignored: ignored
c57956a348bf printing support fm parents: 9431 diff changeset	10564	<apicall: bool "OpenPrinterA" ( lpstr lpstr lpstr ) module: "winspool.drv" >
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	10565	self primitiveFailed.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10566
c57956a348bf printing support fm parents: 9431 diff changeset	10567	"
c57956a348bf printing support fm parents: 9431 diff changeset	10568	\|h hh rslt\|
c57956a348bf printing support fm parents: 9431 diff changeset	10569
c57956a348bf printing support fm parents: 9431 diff changeset	10570	hh := ByteArray new:4.
c57956a348bf printing support fm parents: 9431 diff changeset	10571	rslt := self primOpenPrinter:'\\http://exept.exept.de:631\lj4' handleHolder:hh ignored: nil.
c57956a348bf printing support fm parents: 9431 diff changeset	10572	h := Win32Handle new setAddressFromBytes:hh.
c57956a348bf printing support fm parents: 9431 diff changeset	10573	self halt.
c57956a348bf printing support fm parents: 9431 diff changeset	10574	"
c57956a348bf printing support fm parents: 9431 diff changeset	10575
c57956a348bf printing support fm parents: 9431 diff changeset	10576	"Created: / 27-07-2006 / 14:39:35 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	10577	!
c57956a348bf printing support fm parents: 9431 diff changeset	10578
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	10579	primSetTextAlign:handle with:fMode
10180 41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	10580	<apicall: bool "SetTextAlign" (handle int16) module: "gdi32.dll" >
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	10581	"SetTextAlign"
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	10582	"gdi32.dll"
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	10583
10180 41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	10584	self primitiveFailed.
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	10585	!
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	10586
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	10587	primSetViewportOrgEx: h x: x y: y oldOrigin: oldOrigin
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	10588
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	10589	<apicall: bool "SetViewportOrgEx" (handle int16 int16 pointer) module: "gdi32.dll" >
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	10590	self primitiveFailed.
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	10591	!
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	10592
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	10593	primStartDoc:hwndArg docInfo: aDocInfo
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10594	"Returns a jobId"
c57956a348bf printing support fm parents: 9431 diff changeset	10595	<apicall: int32 "StartDocA" (handle pointer) module: "gdi32.dll" >
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	10596	self primitiveFailed.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10597
c57956a348bf printing support fm parents: 9431 diff changeset	10598	"Modified: / 31-07-2006 / 11:47:10 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	10599	!
c57956a348bf printing support fm parents: 9431 diff changeset	10600
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	10601	primStartPage:hwndArg
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10602	<apicall: int32 "StartPage" (handle) module: "gdi32.dll" >
9484 b9c80492105b * empty log message * fm parents: 9475 diff changeset	10603	self primitiveFailed.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10604
c57956a348bf printing support fm parents: 9431 diff changeset	10605	"Created: / 27-07-2006 / 19:02:12 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	10606	"Modified: / 31-07-2006 / 11:47:06 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	10607	!
c57956a348bf printing support fm parents: 9431 diff changeset	10608
10180 41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	10609	setTextAlign: fMode to: handle
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	10610
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	10611	self primSetTextAlign: handle with: fMode
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	10612	!
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	10613
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	10614	setViewportOrg: h x: x y: y oldOrigin: oldOrigin
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	10615
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	10616	self primSetViewportOrgEx: h x: x y: y oldOrigin: oldOrigin
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	10617	!
41e99d88d4bc * empty log message * fm parents: 10164 diff changeset	10618
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10619	startDoc: deviceContext docInfo: docInfoStruct
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10620	^self primStartDoc:deviceContext docInfo: docInfoStruct
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10621
c57956a348bf printing support fm parents: 9431 diff changeset	10622	"Created: / 27-07-2006 / 19:42:39 / fm"
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10623	"Modified: / 04-10-2006 / 11:38:30 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10624	!
c57956a348bf printing support fm parents: 9431 diff changeset	10625
c57956a348bf printing support fm parents: 9431 diff changeset	10626	startPage: deviceContext
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10627	^self primStartPage:deviceContext
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10628
c57956a348bf printing support fm parents: 9431 diff changeset	10629	"Created: / 27-07-2006 / 19:43:56 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	10630	"Modified: / 28-07-2006 / 18:48:58 / fm"
10026 d47b931f54fe * empty log message * Claus Gittinger <cg@exept.de> parents: 10014 diff changeset	10631	"Modified: / 04-10-2006 / 11:38:34 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	10632	! !
c57956a348bf printing support fm parents: 9431 diff changeset	10633
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10634	!Win32OperatingSystem class methodsFor:'private'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10635
7777 d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10636	mapLanguage:aWindowsLanguageString
9013 7e4f88f6c1a5 comments Claus Gittinger <cg@exept.de> parents: 8934 diff changeset	10637	"map a windows language string to ISO languageCode_languageTerritory format"
7777 d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10638
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10639	\|windowsLanguageString\|
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10640
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10641	windowsLanguageString := aWindowsLanguageString asUppercase.
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10642
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10643	#('DEU' 'de_DE'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10644	'DES' 'de_CH'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10645	'DEA' 'de_AT'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10646	'DAN' 'da_DA'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10647	'ENA' 'en_AU'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10648	'ENC' 'en_CA'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10649	'ENG' 'en_GB'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10650	'ENI' 'en_IR'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10651	'ENU' 'en_US'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10652	'ENZ' 'en_NZ'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10653	'FRA' 'fr_FR'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10654	'FRB' 'fr_BE'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10655	'FRC' 'fr_CA'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10656	'FRS' 'fr_CH'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10657	'ITA' 'it_IT'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10658	'ITS' 'it_CH'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10659	'ESM' 'es_MX'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10660	'ESN' 'es_ES'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10661	'ESP' 'es' "Castillian"
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10662	'NLB' 'nl_BE'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10663	'NLD' 'nl_NL'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10664	'CSY' 'cs_CS'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10665	'ELL' 'el_EL'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10666	'NON' 'no_NO'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10667	'NOR' 'no_NO'
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10668	) pairWiseDo:[:key :mappedValue\|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10669	key = windowsLanguageString ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10670	^ mappedValue
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10671	]
7777 d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10672	].
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10673
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10674	"no mapping"
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10675	^ windowsLanguageString.
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10676
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10677	"
9025 e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	10678	self mapLanguage:'DEU'
7777 d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10679	"
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10680	!
d40ef40238d1 Language stuff Stefan Vogel <sv@exept.de> parents: 7775 diff changeset	10681
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10682	osProcessStatusClass
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10683	^ OSProcessStatus
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	"Created: / 12.6.1998 / 16:30:43 / cg"
20245 0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	10686	!
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	10687
20286 3ce013a218c7 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20285 diff changeset	10688	primExpandEnvironmentStringsA:inString into:outString size:outBufferSize
3ce013a218c7 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20285 diff changeset	10689	%{
3ce013a218c7 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20285 diff changeset	10690	if (__isString(inString)
3ce013a218c7 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20285 diff changeset	10691	&& __isString(outString)
3ce013a218c7 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20285 diff changeset	10692	&& __isSmallInteger(outBufferSize)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10693	unsigned long c_outBufferSize = __intVal(outBufferSize);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10694
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10695	if (__stringSize(outString) <= c_outBufferSize) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10696	unsigned long c_ret;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10697
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10698	c_ret = ExpandEnvironmentStringsA(__stringVal(inString), __stringVal(outString), c_outBufferSize);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10699	RETURN( __mkSmallInteger(c_ret) );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10700	}
20286 3ce013a218c7 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20285 diff changeset	10701	}
3ce013a218c7 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20285 diff changeset	10702	%}.
3ce013a218c7 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20285 diff changeset	10703	"/ <apicall: ulongReturn "ExpandEnvironmentStringsA" (pointer pointer ulong) module: "kernel32.dll" >
20245 0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	10704	^self primitiveFailed
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	10705
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	10706	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10707	self primExpandEnvironmentStringsA:'%ProgramFiles%\test\x' into:(String new:256) inspect size:256
20245 0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	10708	"
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	10709	!
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	10710
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	10711	primExpandEnvironmentStringsW:inString into:outString size:outBuffer
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	10712
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	10713	<apicall: ulongReturn "ExpandEnvironmentStringsW" (pointer pointer ulong) module: "kernel32.dll" >
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	10714	^self primitiveFailed
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	10715
0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	10716	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10717	self primExpandEnvironmentStringsW:'%ProgramFiles%\test\x' asUnicodeString into:(Unicode16String new:256) inspect size:256
20245 0ea9c9caba33 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20174 diff changeset	10718	"
23097 d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10719	!
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10720
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10721	quoteCommandParameter: parameter on: stream
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10722	"Quotes the parameter as neccesary on Windows"
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10723
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10724	"/ Adapted version of ArgvQuote,
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10725	"/ see http://blogs.msdn.com/b/twistylittlepassagesallalike/archive/2011/04/23/everyone-quotes-arguments-the-wrong-way.aspx
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10726
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10727	\| parameterS \|
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10728
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10729	stream nextPut: $".
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10730	parameterS := parameter readStream.
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10731	[ parameterS atEnd ] whileFalse:[
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10732	\| numBackSlashes \|
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10733
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10734	numBackSlashes := 0.
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10735
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10736	[ parameterS atEnd not and:[ parameterS peek == $\ ] ] whileTrue:[
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10737	numBackSlashes := numBackSlashes + 1.
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10738	parameterS next.
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10739	].
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10740	parameterS atEnd ifTrue:[
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10741	"/ Escape all backslashes, but let the terminating
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10742	"/ double quotation mark we add below be interpreted
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10743	"/ as a metacharacter.
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10744	stream next: numBackSlashes * 2 put: $\
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10745	] ifFalse:[
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10746	parameterS peek == $" ifTrue:[
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10747	"/ Escape all backslashes and the following
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10748	"/ double quotation mark.
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10749	stream next: numBackSlashes * 2 put: $\.
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10750	stream nextPut: $\.
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10751	stream nextPut: $".
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10752	] ifFalse:[
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10753	"/ Backslashes aren't special here.
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10754	stream next: numBackSlashes put: $\.
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10755	stream nextPut: parameterS peek.
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10756	].
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10757	parameterS next.
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10758	].
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10759	].
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10760	stream nextPut: $".
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10761
d619cf99365a Win32: Unified interface of `Win32OperatingSystem` and `UnixOperatingSystem` w.r.t. executing external programs Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23091 diff changeset	10762	"Created: / 11-01-2018 / 23:24:07 / jv"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10763	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	10764
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10765	!Win32OperatingSystem class methodsFor:'regional settings'!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10766
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10767	country
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10768	"Answer the current system value for country."
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10769
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10770	^self queryNationalProfileString: 'iCountry' default: 0
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10771
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10772	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10773	self country
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10774	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10775
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10776	"Modified: / 22-12-2006 / 16:45:32 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10777	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10778
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10779	countryName
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10780	"Answer the current system value for country name."
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10781
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10782	^self queryNationalProfileString: 'sCountry' default: 'Deutschland'
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10783
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10784	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10785	self countryName
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10786	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10787
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10788	"Modified: / 22-12-2006 / 16:45:32 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10789	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10790
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10791	dateFormat
13324 ca08328dd255 changed: #dateFormat Claus Gittinger <cg@exept.de> parents: 13315 diff changeset	10792	"Answer the current system value for date format.
ca08328dd255 changed: #dateFormat Claus Gittinger <cg@exept.de> parents: 13315 diff changeset	10793	Answer DfMDY = Month-Day-Year
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10794	DfDMY = Day-Month-Year
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10795	DfYMD = Year-Month-Day."
13324 ca08328dd255 changed: #dateFormat Claus Gittinger <cg@exept.de> parents: 13315 diff changeset	10796
ca08328dd255 changed: #dateFormat Claus Gittinger <cg@exept.de> parents: 13315 diff changeset	10797	\|separatorString code\|
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10798
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10799	separatorString := self dateSeparator.
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10800
13324 ca08328dd255 changed: #dateFormat Claus Gittinger <cg@exept.de> parents: 13315 diff changeset	10801	code := self dateFormatCode.
ca08328dd255 changed: #dateFormat Claus Gittinger <cg@exept.de> parents: 13315 diff changeset	10802	code = 0 ifTrue:[ ^ '%(mon)', separatorString, '%(day)', separatorString, '%(year)' ].
ca08328dd255 changed: #dateFormat Claus Gittinger <cg@exept.de> parents: 13315 diff changeset	10803	code = 1 ifTrue:[ ^ '%(day)', separatorString, '%(mon)', separatorString, '%(year)' ].
ca08328dd255 changed: #dateFormat Claus Gittinger <cg@exept.de> parents: 13315 diff changeset	10804	code = 2 ifTrue:[ ^ '%(year)', separatorString, '%(mon)', separatorString, '%(day)' ].
ca08328dd255 changed: #dateFormat Claus Gittinger <cg@exept.de> parents: 13315 diff changeset	10805
ca08328dd255 changed: #dateFormat Claus Gittinger <cg@exept.de> parents: 13315 diff changeset	10806	^ '%(day)', separatorString, '%(mon)', separatorString, '%(year)'
ca08328dd255 changed: #dateFormat Claus Gittinger <cg@exept.de> parents: 13315 diff changeset	10807
ca08328dd255 changed: #dateFormat Claus Gittinger <cg@exept.de> parents: 13315 diff changeset	10808	"
ca08328dd255 changed: #dateFormat Claus Gittinger <cg@exept.de> parents: 13315 diff changeset	10809	self dateFormat
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10810	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10811
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10812	"Modified: / 22-12-2006 / 16:43:30 / User"
13324 ca08328dd255 changed: #dateFormat Claus Gittinger <cg@exept.de> parents: 13315 diff changeset	10813	"Modified: / 28-03-2011 / 17:10:01 / cg"
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10814	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10815
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10816	dateFormatCode
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10817	"Answer the current system value for date format.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10818	Answer DfMDY = Month-Day-Year = 0
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10819	DfDMY = Day-Month-Year = 1
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10820	DfYMD = Year-Month-Day = 2"
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10821
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10822	^self queryNationalProfileInt: 'iDate' default: 0
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10823
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10824	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10825	self dateFormatCode
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10826	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10827
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10828	"Modified: / 22-12-2006 / 16:45:53 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10829	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10830
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10831	dateSeparator
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10832	"Answer the current system value for date separator."
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10833
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10834	^self queryNationalProfileString: 'sDate' default: '/'
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10835
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10836	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10837	self dateSeparator
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10838	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10839
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10840	"Modified: / 22-12-2006 / 16:45:32 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10841	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10842
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10843	decimalSeparator
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10844	"Answer the current system value for decimal separator."
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10845
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10846	^self queryNationalProfileString: 'sDecimal' default: '.'
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10847
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10848	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10849	self decimalSeparator
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10850	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10851
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10852	"Created: / 22-12-2006 / 16:45:11 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10853	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10854
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10855	isDateFormatDMY
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10856	"Answer the current system value for date format.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10857	Answer DfMDY = Month-Day-Year
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10858	DfDMY = Day-Month-Year
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10859	DfYMD = Year-Month-Day."
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10860
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10861	^self dateFormatCode = 1
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10862
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10863	"Created: / 18-01-2007 / 14:56:23 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10864	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10865
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10866	isDateFormatMDY
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10867	"Answer the current system value for date format.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10868	Answer DfMDY = Month-Day-Year
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10869	DfDMY = Day-Month-Year
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10870	DfYMD = Year-Month-Day."
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10871
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10872	^self dateFormatCode = 0
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10873
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10874	"Created: / 18-01-2007 / 14:56:07 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10875	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10876
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10877	isDateFormatYMD
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10878	"Answer the current system value for date format.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10879	Answer DfMDY = Month-Day-Year
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10880	DfDMY = Day-Month-Year
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10881	DfYMD = Year-Month-Day."
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10882
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10883	^self dateFormatCode = 2
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10884
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10885	"Created: / 18-01-2007 / 14:56:30 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10886	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10887
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10888	isTimeFormat12Hour
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10889	"Answer whether the current system time format is 12-hour."
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10890
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10891	^self timeFormat = 0
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10892
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10893	"Created: / 22-12-2006 / 16:48:17 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10894	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10895
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10896	primGetProfileInt: appName keyName: keyName default: anInt
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10897
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10898	<apicall: uint32 "GetProfileIntA" ( lpstr lpstr uint32) module: "kernel32.dll" >
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10899	^self primitiveFailed
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10900
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10901	"Created: / 22-12-2006 / 16:17:18 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10902	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10903
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10904	primGetProfileString: appName keyName: keyName default: defaultStr returnedString: retStr size: anInt
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10905
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10906	<apicall: uint32 "GetProfileStringA" ( lpstr lpstr lpstr lpstr uint32) module: "kernel32.dll" >
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10907	^self primitiveFailed
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10908
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10909	"Created: / 22-12-2006 / 16:20:23 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10910	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10911
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10912	queryNationalProfileInt: aKeyName default: defaultValue
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10913
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10914	\| answer \|
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10915	answer := self primGetProfileInt: 'Intl'
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10916	keyName: aKeyName
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10917	default: -1 asUnsigned32.
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10918	^answer = -1 asUnsigned32
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10919	ifTrue: [ defaultValue ]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10920	ifFalse: [ answer ]
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10921
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10922	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10923	self queryNationalProfileInt: 'iDate' default: 0
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10924	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10925
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10926	"Modified: / 22-12-2006 / 16:23:05 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10927	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10928
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10929	queryNationalProfileString: aKeyName default: defaultValue
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10930	"Answer the string value of key aKeyName in
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10931	the [Intl] application section of the WIN.INI profile file.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10932	Answer defaultValue if aKeyName cannot be found."
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10933	\| extString result \|
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10934	extString := String new: 80.
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10935	result := self primGetProfileString: 'Intl'
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10936	keyName: aKeyName
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10937	default: ''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10938	returnedString: extString
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10939	size: extString size.
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10940	^result > 0
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10941	ifTrue: [extString copyFrom: 1 to: result]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10942	ifFalse: [ defaultValue ]
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10943
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10944	"Created: / 22-12-2006 / 16:13:01 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10945	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10946
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10947	thousandsSeparator
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10948	"Answer the current system value
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10949	for the thousands separator."
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10950
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10951	^self queryNationalProfileString: 'sThousand' default: ','
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10952
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10953	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10954	self thousandsSeparator
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10955	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10956
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10957	"Created: / 22-12-2006 / 16:46:50 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10958	!
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10959
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10960	timeFormat
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10961	"Answer the current system value for time format."
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10962
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10963	^self queryNationalProfileInt: 'iTime' default: 0
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10964
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10965	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10966	self timeFormat
10968 f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10967	"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10968
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10969	"Created: / 22-12-2006 / 16:48:27 / User"
f9da8a9c476c dapasx extensions moved to class fm parents: 10913 diff changeset	10970	! !
10913 b9a2c48a0043 * empty log message * fm parents: 10792 diff changeset	10971
9093 cba833917516 * empty log message * Claus Gittinger <cg@exept.de> parents: 9092 diff changeset	10972	!Win32OperatingSystem class methodsFor:'registry support'!
9013 7e4f88f6c1a5 comments Claus Gittinger <cg@exept.de> parents: 8934 diff changeset	10973
7e4f88f6c1a5 comments Claus Gittinger <cg@exept.de> parents: 8934 diff changeset	10974	registryEntry
7e4f88f6c1a5 comments Claus Gittinger <cg@exept.de> parents: 8934 diff changeset	10975	"provide access to the registryEntry class"
7e4f88f6c1a5 comments Claus Gittinger <cg@exept.de> parents: 8934 diff changeset	10976
7e4f88f6c1a5 comments Claus Gittinger <cg@exept.de> parents: 8934 diff changeset	10977	^ RegistryEntry
7e4f88f6c1a5 comments Claus Gittinger <cg@exept.de> parents: 8934 diff changeset	10978	! !
7e4f88f6c1a5 comments Claus Gittinger <cg@exept.de> parents: 8934 diff changeset	10979
9088 6ae1b16f69a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 9083 diff changeset	10980	!Win32OperatingSystem class methodsFor:'serial port support'!
6ae1b16f69a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 9083 diff changeset	10981
6ae1b16f69a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 9083 diff changeset	10982	serialPortAccessor
9093 cba833917516 * empty log message * Claus Gittinger <cg@exept.de> parents: 9092 diff changeset	10983	"provide access to the serial port class"
cba833917516 * empty log message * Claus Gittinger <cg@exept.de> parents: 9092 diff changeset	10984
9088 6ae1b16f69a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 9083 diff changeset	10985	^ Win32SerialPortHandle
6ae1b16f69a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 9083 diff changeset	10986	! !
6ae1b16f69a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 9083 diff changeset	10987
9115 65f7004dae93 WIn32Shell and IUnknown stuff Claus Gittinger <cg@exept.de> parents: 9113 diff changeset	10988	!Win32OperatingSystem class methodsFor:'shell operations'!
65f7004dae93 WIn32Shell and IUnknown stuff Claus Gittinger <cg@exept.de> parents: 9113 diff changeset	10989
20364 190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	10990	openApplicationForDocument:fileOrUrl operation:operationSymbol mimeType:mimeType inDirectory:directoryStringOrFilenameOrNil
13108 1bfda4fe09e0 category of: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 12987 diff changeset	10991	"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	10992	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	10993	html documents, pdf documents etc.
1bfda4fe09e0 category of: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 12987 diff changeset	10994	operationSymbol is one of:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10995	open
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10996	edit
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10997	explore
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	10998	print
20364 190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	10999	"
190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	11000
190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	11001	\|handle directoryName\|
190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	11002
190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	11003	"nil directory is the current directory"
190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	11004	directoryStringOrFilenameOrNil notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11005	directoryName := directoryStringOrFilenameOrNil asFilename pathName.
20364 190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	11006	].
190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	11007
190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	11008	handle := self
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11009	shellExecute:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11010	lpOperation:operationSymbol
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11011	lpFile:fileOrUrl asString
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11012	lpParameters:nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11013	lpDirectory:directoryName
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11014	nShowCmd:#SW_SHOWNORMAL.
20364 190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	11015
190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	11016	handle notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11017	handle close.
20364 190857959db0 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20326 diff changeset	11018	].
15472 2eb14b1eaf06 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15464 diff changeset	11019
13108 1bfda4fe09e0 category of: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 12987 diff changeset	11020
1bfda4fe09e0 category of: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 12987 diff changeset	11021	"
1bfda4fe09e0 category of: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 12987 diff changeset	11022	self openApplicationForDocument: Filename currentDirectory operation:#open
15472 2eb14b1eaf06 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15464 diff changeset	11023	self openApplicationForDocument: 'C:\' operation:#open
13108 1bfda4fe09e0 category of: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 12987 diff changeset	11024	self openApplicationForDocument: '..\..\doc\books\ArtOfSmalltalk\artMissing186187Fix1.pdf' asFilename operation:#open
15472 2eb14b1eaf06 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15464 diff changeset	11025	self openApplicationForDocument: 'http://www.exept.de' asFilename operation:#open
13108 1bfda4fe09e0 category of: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 12987 diff changeset	11026
1bfda4fe09e0 category of: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 12987 diff changeset	11027	self openApplicationForDocument: 'C:\WINDOWS\Help\clipbrd.chm' asFilename operation:#open
1bfda4fe09e0 category of: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 12987 diff changeset	11028	"
1bfda4fe09e0 category of: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 12987 diff changeset	11029
1bfda4fe09e0 category of: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 12987 diff changeset	11030	"Created: / 04-08-2006 / 18:04:52 / fm"
13284 d3828897bd5b comment/format in: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 13224 diff changeset	11031	"Modified: / 05-02-2011 / 16:25:31 / cg"
13223 6255f420ba70 x Claus Gittinger <cg@exept.de> parents: 13197 diff changeset	11032	! !
6255f420ba70 x Claus Gittinger <cg@exept.de> parents: 13197 diff changeset	11033
9093 cba833917516 * empty log message * Claus Gittinger <cg@exept.de> parents: 9092 diff changeset	11034	!Win32OperatingSystem class methodsFor:'socket support'!
8270 df0083a70225 temporary kludge for SOcketAccessor/SocketHandle ca parents: 8265 diff changeset	11035
df0083a70225 temporary kludge for SOcketAccessor/SocketHandle ca parents: 8265 diff changeset	11036	socketAccessor
9093 cba833917516 * empty log message * Claus Gittinger <cg@exept.de> parents: 9092 diff changeset	11037	"provide access to the socket handle class"
cba833917516 * empty log message * Claus Gittinger <cg@exept.de> parents: 9092 diff changeset	11038
8740 bb4a76c88cca temporary kludge: added dummy SocketHandle for Unix compat. Claus Gittinger <cg@exept.de> parents: 8667 diff changeset	11039	^ Win32SocketHandle
8270 df0083a70225 temporary kludge for SOcketAccessor/SocketHandle ca parents: 8265 diff changeset	11040	! !
df0083a70225 temporary kludge for SOcketAccessor/SocketHandle ca parents: 8265 diff changeset	11041
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11042	!Win32OperatingSystem class methodsFor:'system management'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11043
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11044	exitWindows
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11045	"do not use - may be removed without notice"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11046
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11047	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	11048	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11049
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11050	exitWindows:how confirm:confirmationMessageOrNil
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11051	"this method is temporary -
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11052	since my windows system menu crashes so often
7850 087b4ca01736 comment & unneeded method removed ca parents: 7841 diff changeset	11053	(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	11054	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	11055
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11056	confirmationMessageOrNil notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11057	(Dialog confirm:confirmationMessageOrNil) ifFalse:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11058	^ false
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11059	].
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11060	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11061	%{
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11062	int flag;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11063
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11064	if (how == @symbol(shutdown)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11065	flag = EWX_SHUTDOWN;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11066	} else if (how == @symbol(reboot)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11067	flag = EWX_REBOOT;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11068	} else if (how == @symbol(logoff)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11069	flag = EWX_LOGOFF;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11070	} else if (how == @symbol(forceShutdown)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11071	flag = EWX_SHUTDOWN \| EWX_FORCE;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11072	} else if (how == @symbol(forceReboot)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11073	flag = EWX_REBOOT \| EWX_FORCE;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11074	} else if (how == @symbol(forceLogoff)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11075	flag = EWX_LOGOFF \| EWX_FORCE;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11076	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11077	RETURN (false);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11078	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11079	RETURN ((ExitWindowsEx(flag, 0) == TRUE) ? true : false);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11080	%}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11081	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11082
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11083	!Win32OperatingSystem class methodsFor:'time and date'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11084
17006 d6ec5e448ac5 timestamp changes Claus Gittinger <cg@exept.de> parents: 17004 diff changeset	11085	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	11086	"return the OS-dependent time for the given time and day.
17006 d6ec5e448ac5 timestamp changes Claus Gittinger <cg@exept.de> parents: 17004 diff changeset	11087	The arguments are assumed to be in localtime including
d6ec5e448ac5 timestamp changes Claus Gittinger <cg@exept.de> parents: 17004 diff changeset	11088	any daylight saving adjustings."
8640 dc4023c8650c * empty log message * Claus Gittinger <cg@exept.de> parents: 8476 diff changeset	11089
17009 fe717d5312a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 17007 diff changeset	11090	\|osTime\|
fe717d5312a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 17007 diff changeset	11091
8640 dc4023c8650c * empty log message * Claus Gittinger <cg@exept.de> parents: 8476 diff changeset	11092	%{
dc4023c8650c * empty log message * Claus Gittinger <cg@exept.de> parents: 8476 diff changeset	11093	if (__bothSmallInteger(y, m)
dc4023c8650c * empty log message * Claus Gittinger <cg@exept.de> parents: 8476 diff changeset	11094	&& __bothSmallInteger(d, h)
12934 bc516945ce4d changed: Claus Gittinger <cg@exept.de> parents: 12908 diff changeset	11095	&& __bothSmallInteger(min, s)
bc516945ce4d changed: Claus Gittinger <cg@exept.de> parents: 12908 diff changeset	11096	&& __isSmallInteger(millis)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11097	SYSTEMTIME sysTime;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11098	FILETIME fileTime;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11099
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11100	sysTime.wHour = __intVal(h);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11101	sysTime.wMinute = __intVal(min);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11102	sysTime.wSecond = __intVal(s);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11103	sysTime.wMilliseconds = __intVal(millis);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11104
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11105	sysTime.wYear = __intVal(y);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11106	sysTime.wMonth = __intVal(m);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11107	sysTime.wDay = __intVal(d);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11108
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11109	if (sysTime.wYear < 1602) goto outOfRange; // not 1601 - so we don't have to care for timezone
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11110	if (sysTime.wYear > 9999) goto outOfRange;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11111
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11112	if (utcBoolean != true) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11113	// adjust for local time
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11114
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11115	// TzSpecificLocalTimeToSystemTime() is not supported in Win2000
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11116	// - but we do not support Win2k any longer as of 2014
17006 d6ec5e448ac5 timestamp changes Claus Gittinger <cg@exept.de> parents: 17004 diff changeset	11117	#ifdef __BORLANDC__
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11118	{
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11119	typedef BOOL (WINAPI *P_TzSpecificLocalTimeToSystemTime)(LPTIME_ZONE_INFORMATION, LPSYSTEMTIME, LPSYSTEMTIME);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11120	static P_TzSpecificLocalTimeToSystemTime pTzSpecificLocalTimeToSystemTime;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11121
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11122	if (pTzSpecificLocalTimeToSystemTime == NULL) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11123	pTzSpecificLocalTimeToSystemTime =
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11124	(P_TzSpecificLocalTimeToSystemTime)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11125	GetProcAddress ( GetModuleHandle ("kernel32.dll"),
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11126	"TzSpecificLocalTimeToSystemTime");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11127	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11128	if (!pTzSpecificLocalTimeToSystemTime(0, &sysTime, &sysTime))
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11129	goto error;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11130	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11131	#else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11132	if (!TzSpecificLocalTimeToSystemTime(0, &sysTime, &sysTime))
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11133	goto error;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11134	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11135	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11136
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11137	if (! SystemTimeToFileTime(&sysTime, &fileTime))
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11138	goto error;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11139
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11140	osTime = FileTimeToOsTime1970(&fileTime);
9384 5c5dd48a9fdd Fix localTime / utcTime conversion Stefan Vogel <sv@exept.de> parents: 9381 diff changeset	11141	}
17006 d6ec5e448ac5 timestamp changes Claus Gittinger <cg@exept.de> parents: 17004 diff changeset	11142	outOfRange: ;
d6ec5e448ac5 timestamp changes Claus Gittinger <cg@exept.de> parents: 17004 diff changeset	11143	error: ;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11144	%}.
17009 fe717d5312a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 17007 diff changeset	11145	osTime notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11146	"/ rebias to 1970 by subtracting the number of millis from 1.1.1601 to 1.1.1970
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11147	"/ ^ osTime - self osTimeOf19700101. -- already done
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11148	^ osTime
17009 fe717d5312a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 17007 diff changeset	11149	].
fe717d5312a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 17007 diff changeset	11150
12821 56c56e8bee2a Raise TimeConversionError if appropriate. Stefan Vogel <sv@exept.de> parents: 12820 diff changeset	11151	"Error, some invalid date ot time"
56c56e8bee2a Raise TimeConversionError if appropriate. Stefan Vogel <sv@exept.de> parents: 12820 diff changeset	11152	^ TimeConversionError raiseRequest
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11153
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11154	"
12820 bb674e2ebc2a changed: Stefan Vogel <sv@exept.de> parents: 12818 diff changeset	11155	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	11156	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	11157	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	11158	"
12934 bc516945ce4d changed: Claus Gittinger <cg@exept.de> parents: 12908 diff changeset	11159
bc516945ce4d changed: Claus Gittinger <cg@exept.de> parents: 12908 diff changeset	11160	"Modified: / 07-07-2010 / 16:56:56 / cg"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11161	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11162
17007 48b4d45626c9 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 17006 diff changeset	11163	epochEndOSTime
48b4d45626c9 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 17006 diff changeset	11164	"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	11165	(in milliseconds since the Unix epoch, 1.1.1970) is."
755edabcbe67 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19653 diff changeset	11166
755edabcbe67 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19653 diff changeset	11167	"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	11168	to 16r7FFFFFFFFFFFFFFF."
19666 755edabcbe67 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19653 diff changeset	11169	"/ ^ (16r7FFFFFFFFFFFFFFF // 10000) - self osTimeOf19700101
755edabcbe67 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19653 diff changeset	11170
755edabcbe67 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19653 diff changeset	11171	"/ 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	11172	^ (SmallInteger maxVal * 2 + 1) * 1000
17007 48b4d45626c9 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 17006 diff changeset	11173	!
48b4d45626c9 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 17006 diff changeset	11174
48b4d45626c9 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 17006 diff changeset	11175	epochStartOSTime
48b4d45626c9 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 17006 diff changeset	11176	"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	11177	(in milliseconds since the Unix epoch, 1.1.1970) is."
755edabcbe67 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19653 diff changeset	11178
755edabcbe67 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19653 diff changeset	11179	"Windows epoch starts at 1.1.1601."
755edabcbe67 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19653 diff changeset	11180	"/ ^ self osTimeOf19700101 negated
755edabcbe67 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19653 diff changeset	11181
755edabcbe67 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19653 diff changeset	11182	"/ 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	11183	^ 0
17007 48b4d45626c9 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 17006 diff changeset	11184	!
48b4d45626c9 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 17006 diff changeset	11185
11746 da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11186	getMicrosecondTime
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11187	"This returns a microsecond timer value.
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11188	The returned value is a 64bit value
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11189	(which is the number of microseconds since the system's boot time -
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11190	but you should not depend on that because it is system specific.
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11191	Only use for relative delta-times."
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11192
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11193	%{ /* NOCONTEXT */
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11194	static int frequencyKnown = 0;
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11195	static LONGLONG ticksPerSecond;
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11196	static LONGLONG divisor;
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11197	LONGLONG tick; // A point in time
11920 4d2ef58645de compilable with VC9.0 Claus Gittinger <cg@exept.de> parents: 11842 diff changeset	11198	LONGLONG micros;
11746 da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11199
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11200	if (! frequencyKnown) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11201	// get the high resolution counter's accuracy
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11202	QueryPerformanceFrequency(&ticksPerSecond);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11203	frequencyKnown = 1;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11204	divisor = ticksPerSecond / (LONGLONG)1000000;
11746 da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11205	}
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11206
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11207	// what time is it?
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11208	QueryPerformanceCounter(&tick);
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11209
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11210	micros = tick / divisor;
12821 56c56e8bee2a Raise TimeConversionError if appropriate. Stefan Vogel <sv@exept.de> parents: 12820 diff changeset	11211	RETURN ( __MKLARGEINT64(1, (micros & 0xFFFFFFFF), (micros >> 32)) );
11746 da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11212	%}
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11213	"
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11214	\|t1 t2 dT\|
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11215
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11216	t1 := self getMicrosecondTime.
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11217	Delay waitForSeconds:1.
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11218	t2 := self getMicrosecondTime.
11920 4d2ef58645de compilable with VC9.0 Claus Gittinger <cg@exept.de> parents: 11842 diff changeset	11219	dT := t2 - t1
11746 da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11220	"
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11221	"
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11222	\|t1 t2 dT\|
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11223
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11224	t1 := self getMillisecondTime.
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11225	Delay waitForSeconds:1.
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11226	t2 := self getMillisecondTime.
11920 4d2ef58645de compilable with VC9.0 Claus Gittinger <cg@exept.de> parents: 11842 diff changeset	11227	dT := t2 - t1
11746 da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11228	"
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11229	!
da465966ff92 +getMicroSecondTime Claus Gittinger <cg@exept.de> parents: 11669 diff changeset	11230
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11231	getMillisecondTime
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	11232	"This returns the millisecond timers value.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11233	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	11234	LargeInteger arithmetic when doing timeouts and delays.
11920 4d2ef58645de compilable with VC9.0 Claus Gittinger <cg@exept.de> parents: 11842 diff changeset	11235	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	11236	this can only be used for short relative time deltas.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11237	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	11238
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11239	BAD DESIGN:
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	11240	This should be changed to return some instance of RelativeTime,
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	11241	and these computations moved there.
11800 bfd3073ef9d2 #getMillisecondTime - comment Stefan Vogel <sv@exept.de> parents: 11779 diff changeset	11242
bfd3073ef9d2 #getMillisecondTime - comment Stefan Vogel <sv@exept.de> parents: 11779 diff changeset	11243	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	11244	interface. For compatibility with ST-80, use Time millisecondClockValue.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11245	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11246
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11247	%{ /* NOCONTEXT */
21104 b7b94965c192 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21103 diff changeset	11248	#if POINTERSIZE == 8
b7b94965c192 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21103 diff changeset	11249	RETURN ( __mkSmallInteger(GetTickCount64() & (_MAX_INT >> 1)) );
b7b94965c192 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21103 diff changeset	11250	#else
21103 22b82f63fead #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21098 diff changeset	11251	RETURN ( __mkSmallInteger(GetTickCount() & (_MAX_INT >> 1)) );
21104 b7b94965c192 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21103 diff changeset	11252	#endif
b7b94965c192 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21103 diff changeset	11253	%}
b7b94965c192 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21103 diff changeset	11254
b7b94965c192 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21103 diff changeset	11255	"
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	11256	self getMillisecondTime
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	11257
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	11258	\|t1 t2\|
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	11259	t1 := self getMillisecondTime.
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	11260	Delay waitForSeconds:1.
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	11261	t2 := self getMillisecondTime.
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	11262	t2 - t1.
21104 b7b94965c192 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21103 diff changeset	11263	"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11264	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11265
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11266	getOSTime
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11267	"This returns the OS time.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11268	The base of the returned value is not consistent across
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11269	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	11270	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	11271	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	11272	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	11273
9a1173183b4c * empty log message * Claus Gittinger <cg@exept.de> parents: 16474 diff changeset	11274	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	11275	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	11276	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	11277
17009 fe717d5312a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 17007 diff changeset	11278	\|osTime\|
fe717d5312a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 17007 diff changeset	11279
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11280	%{
12817 33771eb7d88b Fix daylight saving time computations by converting from broken libc Stefan Vogel <sv@exept.de> parents: 12815 diff changeset	11281	FILETIME fileTime;
33771eb7d88b Fix daylight saving time computations by converting from broken libc Stefan Vogel <sv@exept.de> parents: 12815 diff changeset	11282
33771eb7d88b Fix daylight saving time computations by converting from broken libc Stefan Vogel <sv@exept.de> parents: 12815 diff changeset	11283	GetSystemTimeAsFileTime(&fileTime);
19651 59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	11284	osTime = FileTimeToOsTime1970(&fileTime);
17009 fe717d5312a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 17007 diff changeset	11285	%}.
fe717d5312a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 17007 diff changeset	11286	"/ 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	11287	"/ ^ osTime - self osTimeOf19700101 -- already done.
59a06f7e5116 avoid largeinteger arithmetic in osTime handling Claus Gittinger <cg@exept.de> parents: 19578 diff changeset	11288	^ osTime
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11289
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11290	"
12817 33771eb7d88b Fix daylight saving time computations by converting from broken libc Stefan Vogel <sv@exept.de> parents: 12815 diff changeset	11291	OperatingSystem getOSTime.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11292	Delay waitForSeconds:0.2.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11293	OperatingSystem getOSTime printCR.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11294	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11295	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11296
11842 43bb5d8495e0 timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11833 diff changeset	11297	getTimezoneInformation
43bb5d8495e0 timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11833 diff changeset	11298	"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	11299	AbstractOperatingSystem::TimeZoneInformation for details"
43bb5d8495e0 timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11833 diff changeset	11300
17169 fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	11301	^ self getTimezoneInformationForYear:nil.
17286 a7170033e17f directory access ca parents: 17169 diff changeset	11302
11842 43bb5d8495e0 timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11833 diff changeset	11303	"
43bb5d8495e0 timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11833 diff changeset	11304	self getTimezoneInformation
43bb5d8495e0 timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11833 diff changeset	11305	"
43bb5d8495e0 timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11833 diff changeset	11306	!
43bb5d8495e0 timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11833 diff changeset	11307
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11308	getTimezoneInformationForYear:anIntegerOrNil
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11309	"get information about the OS's timezone setting. See documentation in
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11310	AbstractOperatingSystem::TimeZoneInformation for details"
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11311
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11312	\|error bias standardName
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11313	standardDate_y standardDate_m standardDate_d standardDate_wd
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11314	standardDate_h standardDate_min standardDate_s
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11315	standardBias
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11316	daylightName
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11317	daylightDate_y daylightDate_m daylightDate_d daylightDate_wd
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11318	daylightDate_h daylightDate_min daylightDate_s
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11319	daylightBias info\|
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11320
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11321	%{
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11322	TIME_ZONE_INFORMATION tzInfo;
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11323	DWORD retVal;
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11324	WCHAR nm[33];
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11325
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11326	if (anIntegerOrNil == nil) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11327	retVal = GetTimeZoneInformation(&tzInfo);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11328	switch (retVal) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11329	case TIME_ZONE_ID_STANDARD:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11330	case TIME_ZONE_ID_DAYLIGHT:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11331	case TIME_ZONE_ID_UNKNOWN:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11332	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11333
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11334	default:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11335	case TIME_ZONE_ID_INVALID:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11336	error = __mkSmallInteger(__WIN32_ERR(GetLastError()));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11337	goto out;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11338	}
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11339	} else if (__isSmallInteger(anIntegerOrNil)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11340	int year = __intVal(anIntegerOrNil);
18520 a8e93cc8d476 Dirty hack for MINGW64 problem introduced by f65d5cb6d1d3 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18513 diff changeset	11341	#if defined(__BORLANDC__) \|\| (defined(__MINGW32__) && !defined(__MINGW64__))
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11342	{
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11343	typedef BOOL (WINAPI *P_GetTimeZoneInformationForYear)(
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11344	USHORT,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11345	LPTIME_ZONE_INFORMATION, // - should be, but is not defined: PDYNAMIC_TIME_ZONE_INFORMATION,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11346	LPTIME_ZONE_INFORMATION);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11347	static P_GetTimeZoneInformationForYear pGetTimeZoneInformationForYear;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11348	static int haveTriedToGet_P_GetTimeZoneInformationForYear = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11349
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11350	if (! haveTriedToGet_P_GetTimeZoneInformationForYear) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11351	pGetTimeZoneInformationForYear =
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11352	(P_GetTimeZoneInformationForYear)GetProcAddress(GetModuleHandle("kernel32.dll"), "GetTimeZoneInformationForYear");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11353	haveTriedToGet_P_GetTimeZoneInformationForYear = 1;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11354	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11355	if (pGetTimeZoneInformationForYear == NULL) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11356	error = __mkSmallInteger(@symbol(primitiveFailed));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11357	goto out;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11358	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11359	if (!pGetTimeZoneInformationForYear(year, NULL, &tzInfo)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11360	error = __mkSmallInteger(__WIN32_ERR(GetLastError()));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11361	goto out;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11362	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11363	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11364	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11365	#else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11366	if (!GetTimeZoneInformationForYear(year, NULL, &tzInfo)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11367	error = __mkSmallInteger(__WIN32_ERR(GetLastError()));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11368	goto out;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11369	}
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11370	#endif
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11371	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11372	error = @symbol(badArgument);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11373	goto out;
17006 d6ec5e448ac5 timestamp changes Claus Gittinger <cg@exept.de> parents: 17004 diff changeset	11374	}
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11375
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11376	bias = __mkSmallInteger(tzInfo.Bias);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11377	memmove(nm, tzInfo.StandardName, 32*sizeof(WCHAR));
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11378	nm[32] = 0;
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	11379	standardName = __mkStringOrU16String_maxlen(nm, sizeof(nm));
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11380	standardDate_y = __mkSmallInteger(tzInfo.StandardDate.wYear);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11381	standardDate_m = __mkSmallInteger(tzInfo.StandardDate.wMonth);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11382	standardDate_d = __mkSmallInteger(tzInfo.StandardDate.wDay);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11383	standardDate_wd = __mkSmallInteger(tzInfo.StandardDate.wDayOfWeek);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11384	standardDate_h = __mkSmallInteger(tzInfo.StandardDate.wHour);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11385	standardDate_min = __mkSmallInteger(tzInfo.StandardDate.wMinute);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11386	standardDate_s = __mkSmallInteger(tzInfo.StandardDate.wSecond);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11387	standardBias = __mkSmallInteger(tzInfo.StandardBias);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11388	memmove(nm, tzInfo.DaylightName, 32*sizeof(WCHAR));
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11389	nm[32] = 0;
20434 871e7bff3dda #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20389 diff changeset	11390	daylightName = __mkStringOrU16String_maxlen(nm, sizeof(nm));
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11391	daylightDate_y = __mkSmallInteger(tzInfo.DaylightDate.wYear);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11392	daylightDate_m = __mkSmallInteger(tzInfo.DaylightDate.wMonth);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11393	daylightDate_d = __mkSmallInteger(tzInfo.DaylightDate.wDay);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11394	daylightDate_wd = __mkSmallInteger(tzInfo.DaylightDate.wDayOfWeek);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11395	daylightDate_h = __mkSmallInteger(tzInfo.DaylightDate.wHour);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11396	daylightDate_min = __mkSmallInteger(tzInfo.DaylightDate.wMinute);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11397	daylightDate_s = __mkSmallInteger(tzInfo.DaylightDate.wSecond);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11398	daylightBias = __mkSmallInteger(tzInfo.DaylightBias);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11399
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11400	out:;
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11401	%}.
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11402	error notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11403	self primitiveFailed:error.
17169 fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	11404	].
fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	11405
fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	11406	info := self timeZoneInfoClass new.
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11407	info
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11408	bias:bias
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11409	name:standardName standardBias:standardBias
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11410	daylightName:daylightName daylightBias:daylightBias.
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11411
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11412	standardDate_m ~~ 0 ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11413	info standardYear:standardDate_y standardMonth:standardDate_m standardDay:standardDate_d
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11414	standardWeekDay:standardDate_wd standardHour:standardDate_h standardMinute:standardDate_min.
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11415	].
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11416	daylightDate_m ~~ 0 ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11417	info daylightYear:daylightDate_y daylightMonth:daylightDate_m daylightDay:daylightDate_d
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11418	daylightWeekDay:daylightDate_wd daylightHour:daylightDate_h daylightMinute:daylightDate_min.
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11419	].
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11420
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11421	^ info
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11422
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11423	"
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11424	self getTimezoneInformationForYear:2014
17169 fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	11425	self getTimezoneInformationForYear:2015
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11426	self getTimezoneInformationForYear:1977
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11427	self getTimezoneInformationForYear:nil
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11428	"
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11429	!
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11430
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11431	osTimeOf19700101
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11432	"the number of millis from 1.1.1601 to 1.1.1970"
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11433
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11434	^ 11644473600000
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11435
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11436	"
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11437	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	11438	"
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11439	!
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11440
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11441	sleep:numberOfSeconds
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11442	"{ Pragma: +optSpace }"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11443
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11444	"cease ANY action for some time. This suspends the whole smalltalk
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11445	(unix-) process for some time.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11446	Not really useful since not even low-prio processes and interrupt
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11447	handling will run during the sleep.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11448	Use either OperatingSystem>>millisecondDelay: (which makes all
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11449	threads sleep, but handles interrupts) or use a Delay (which makes
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11450	only the calling thread sleep)."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11451
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11452	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11453
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11454	if (__isSmallInteger(numberOfSeconds)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11455	sleep(__intVal(numberOfSeconds));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11456	RETURN ( self );
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11457	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11458	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11459	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11460	argument not integer
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11461	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11462	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11463
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11464	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11465	OperatingSystem sleep:2
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11466	"
7638 a211d1f10797 * empty log message * Michael Beyl <mb@exept.de> parents: 7535 diff changeset	11467	!
a211d1f10797 * empty log message * Michael Beyl <mb@exept.de> parents: 7535 diff changeset	11468
17042 f381b63198e1 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 17023 diff changeset	11469	timeInfoFromSeconds:osSeconds milliseconds:osMilliSeconds localTime:isLocalTime
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11470	"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	11471	An internal helper"
a211d1f10797 * empty log message * Michael Beyl <mb@exept.de> parents: 7535 diff changeset	11472
17169 fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	11473	\|year month day hour minute second millis utcOffset isDst
fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	11474	dst yDay weekDay info reason tLow tHigh t error \|
17009 fe717d5312a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 17007 diff changeset	11475
19653 ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	11476	t := (osSeconds * 1000) + osMilliSeconds "+ self osTimeOf19700101 -- done in C".
17009 fe717d5312a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 17007 diff changeset	11477	tLow := (t bitAnd:16rFFFFFFFF).
fe717d5312a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 17007 diff changeset	11478	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	11479
33771eb7d88b Fix daylight saving time computations by converting from broken libc Stefan Vogel <sv@exept.de> parents: 12815 diff changeset	11480	%{
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11481	FILETIME fileTime;
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11482	SYSTEMTIME sysTime, *sysTimePtr;
17169 fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	11483	INT _utcOffset, _stdUtcOffset;
7638 a211d1f10797 * empty log message * Michael Beyl <mb@exept.de> parents: 7535 diff changeset	11484
8889 934feccecfb3 timezone stuff fixed Claus Gittinger <cg@exept.de> parents: 8881 diff changeset	11485	/* try cache */
934feccecfb3 timezone stuff fixed Claus Gittinger <cg@exept.de> parents: 8881 diff changeset	11486	{
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11487	OBJ lastOsTimeLow, lastOsTimeHi, lastTimeInfo;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11488
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11489	lastOsTimeLow = @global(LastOsTimeLow);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11490	lastOsTimeHi = @global(LastOsTimeHi);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11491	if (__isInteger(lastOsTimeLow)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11492	&& (__unsignedLongIntVal(lastOsTimeLow) == __unsignedLongIntVal(tLow))
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11493	&& lastOsTimeHi
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11494	&& (__unsignedLongIntVal(lastOsTimeHi) == __unsignedLongIntVal(tHigh))
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11495	&& (@global(LastTimeInfoIsLocal) == isLocalTime)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11496	) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11497	lastTimeInfo = @global(LastTimeInfo);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11498	if (lastTimeInfo != nil) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11499	RETURN (lastTimeInfo);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11500	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11501	}
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11502	}
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11503
19653 ad5ce2d82380 more rebiasing of times Claus Gittinger <cg@exept.de> parents: 19651 diff changeset	11504	if (!OsTime1970ToFileTime(tLow, tHigh, &fileTime))
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11505	goto out;
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11506	if (!FileTimeToSystemTime(&fileTime, &sysTime))
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11507	goto out;
16948 45832ec999e2 method name cleanup Claus Gittinger <cg@exept.de> parents: 16947 diff changeset	11508
17169 fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	11509	if (isLocalTime == false) { // easy: UTC time
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11510	sysTimePtr = &sysTime;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11511	utcOffset = __mkSmallInteger(0);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11512	isDst = false;
17169 fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	11513	} else { // local time: have to convert and find out about DST
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11514	TIME_ZONE_INFORMATION tzInfo;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11515	LONGLONG longTime;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11516	SYSTEMTIME localSysTime;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11517	FILETIME localFileTime;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11518
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11519	sysTimePtr = &localSysTime;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11520
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11521	if (!SystemTimeToTzSpecificLocalTime(NULL, &sysTime, &localSysTime))
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11522	goto out;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11523	if (!SystemTimeToFileTime(&localSysTime, &localFileTime))
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11524	goto out;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11525
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11526	// all the rest is computing the UTC offset and whether DST applies
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11527	longTime = ((LONGLONG)fileTime.dwHighDateTime << 32) + fileTime.dwLowDateTime;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11528	longTime -= ((LONGLONG)localFileTime.dwHighDateTime << 32) + localFileTime.dwLowDateTime;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11529
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11530	// utcOffset is the difference from UTC to local time including possible DST
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11531	_utcOffset = longTime / 10000000;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11532	utcOffset = __mkSmallInteger(_utcOffset);
17169 fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	11533
18520 a8e93cc8d476 Dirty hack for MINGW64 problem introduced by f65d5cb6d1d3 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18513 diff changeset	11534	# if defined(__BORLANDC__) \|\| (defined(__MINGW32__) && !defined(__MINGW64__))
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11535	{
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11536	typedef BOOL (WINAPI *P_GetTimeZoneInformationForYear)(
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11537	USHORT,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11538	LPTIME_ZONE_INFORMATION, // - should be, but is not defined: PDYNAMIC_TIME_ZONE_INFORMATION,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11539	LPTIME_ZONE_INFORMATION);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11540	static P_GetTimeZoneInformationForYear pGetTimeZoneInformationForYear;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11541	static int haveTriedToGet_P_GetTimeZoneInformationForYear = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11542
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11543	if (! haveTriedToGet_P_GetTimeZoneInformationForYear) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11544	pGetTimeZoneInformationForYear =
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11545	(P_GetTimeZoneInformationForYear)GetProcAddress(GetModuleHandle("kernel32.dll"), "GetTimeZoneInformationForYear");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11546	haveTriedToGet_P_GetTimeZoneInformationForYear = 1;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11547	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11548	if (pGetTimeZoneInformationForYear == NULL) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11549	// ignore this error and fall back to GetTimeZoneInformation()
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11550	reason = @symbol(NoGetTimeZoneInformationForYear);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11551	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11552	if (pGetTimeZoneInformationForYear(localSysTime.wYear, NULL, &tzInfo)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11553	_stdUtcOffset = (tzInfo.Bias + tzInfo.StandardBias) * 60;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11554	isDst = (_stdUtcOffset != _utcOffset) ? true : false;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11555	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11556	// ignore this error and fall back to GetTimeZoneInformation()
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11557	reason = @symbol(GetTimeZoneInformationForYearFailed);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11558	error = __mkSmallInteger(__WIN32_ERR(GetLastError()));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11559	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11560	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11561	}
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11562	# else
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11563	if (GetTimeZoneInformationForYear(localSysTime.wYear, NULL, &tzInfo)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11564	_stdUtcOffset = (tzInfo.Bias + tzInfo.StandardBias) * 60;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11565	isDst = (_stdUtcOffset != _utcOffset) ? true : false;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11566	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11567	// ignore this error and fall back to GetTimeZoneInformation()
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11568	reason = @symbol(GetTimeZoneInformationForYearFailed);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11569	error = __mkSmallInteger(__WIN32_ERR(GetLastError()));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11570	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11571	# endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11572	// this code is a fallback for WIN XP
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11573	if (isDst == nil) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11574	DWORD retVal = GetTimeZoneInformation(&tzInfo);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11575	switch (retVal) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11576	case TIME_ZONE_ID_STANDARD:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11577	case TIME_ZONE_ID_DAYLIGHT:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11578	case TIME_ZONE_ID_UNKNOWN:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11579	// nonDstOffset is the difference from UTC to local time without DST
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11580	_stdUtcOffset = (tzInfo.Bias + tzInfo.StandardBias) * 60;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11581	isDst = (_stdUtcOffset != _utcOffset) ? true : false;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11582	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11583
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11584	// these are errors, which may occur, if the
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11585	// Windows OS has not been setupm correctly.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11586	// We ignore these errors here, but we don't know if DST applies.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11587	// Assume that there is no DST.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11588	default:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11589	case TIME_ZONE_ID_INVALID:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11590	isDst = false;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11591	reason = @symbol(TIME_ZONE_ID_INVALID);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11592	error = __mkSmallInteger(__WIN32_ERR(GetLastError()));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11593	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11594	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11595	} // End WINXP backward compatibility
17169 fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	11596	}
fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	11597
fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	11598	hour = __mkSmallInteger(sysTimePtr->wHour);
fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	11599	minute = __mkSmallInteger(sysTimePtr->wMinute);
fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	11600	second = __mkSmallInteger(sysTimePtr->wSecond);
17004 504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11601
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11602	year = __mkSmallInteger(sysTimePtr->wYear);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11603	month = __mkSmallInteger(sysTimePtr->wMonth);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11604	day = __mkSmallInteger(sysTimePtr->wDay);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11605
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11606	millis = __mkSmallInteger(sysTimePtr->wMilliseconds);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11607
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11608	weekDay = __mkSmallInteger(sysTimePtr->wDayOfWeek == 0 ? 7 : sysTimePtr->wDayOfWeek);
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11609	out:;
7638 a211d1f10797 * empty log message * Michael Beyl <mb@exept.de> parents: 7535 diff changeset	11610	%}.
17169 fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	11611	"/ '--> REASON: ' errorPrint. reason errorPrintCR. '--> ERROR: ' errorPrint. error errorPrintCR.
fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	11612
12817 33771eb7d88b Fix daylight saving time computations by converting from broken libc Stefan Vogel <sv@exept.de> parents: 12815 diff changeset	11613	year isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11614	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	11615	].
51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	11616
7638 a211d1f10797 * empty log message * Michael Beyl <mb@exept.de> parents: 7535 diff changeset	11617	info := self timeInfoClass new.
a211d1f10797 * empty log message * Michael Beyl <mb@exept.de> parents: 7535 diff changeset	11618	info
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11619	year:year
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11620	month:month
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11621	day:day
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11622	hours:hour
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11623	minutes:minute
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11624	seconds:second
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11625	milliseconds:millis
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11626	utcOffset:utcOffset
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11627	dst:isDst
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11628	dayInYear:yDay
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11629	dayInWeek:weekDay.
9025 e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	11630
e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	11631	LastTimeInfo := info.
16948 45832ec999e2 method name cleanup Claus Gittinger <cg@exept.de> parents: 16947 diff changeset	11632	LastOsTimeLow := tLow.
45832ec999e2 method name cleanup Claus Gittinger <cg@exept.de> parents: 16947 diff changeset	11633	LastOsTimeHi := tHigh.
9025 e9fff455ecfb * empty log message * Claus Gittinger <cg@exept.de> parents: 9021 diff changeset	11634	LastTimeInfoIsLocal := isLocalTime.
8889 934feccecfb3 timezone stuff fixed Claus Gittinger <cg@exept.de> parents: 8881 diff changeset	11635
7638 a211d1f10797 * empty log message * Michael Beyl <mb@exept.de> parents: 7535 diff changeset	11636	^ info
a211d1f10797 * empty log message * Michael Beyl <mb@exept.de> parents: 7535 diff changeset	11637
a211d1f10797 * empty log message * Michael Beyl <mb@exept.de> parents: 7535 diff changeset	11638	"
17169 fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	11639	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	11640
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11641	DST in MEZ in 1994:
17169 fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	11642	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	11643
504c08a32877 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16951 diff changeset	11644	no DST in MEZ in 1970:
17169 fee0dd6ff671 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17117 diff changeset	11645	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	11646	"
9431 cae760dd7d80 oops: localtime and gmtime could return a NULL-ptr. Claus Gittinger <cg@exept.de> parents: 9424 diff changeset	11647
cae760dd7d80 oops: localtime and gmtime could return a NULL-ptr. Claus Gittinger <cg@exept.de> parents: 9424 diff changeset	11648	"Modified: / 06-07-2006 / 18:18:56 / cg"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11649	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11650
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11651	!Win32OperatingSystem class methodsFor:'users & groups'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11652
12970 89cd540547d1 get appData directory sr parents: 12969 diff changeset	11653	getApplicationDataDirectoryFor:appName
89cd540547d1 get appData directory sr parents: 12969 diff changeset	11654	"return the directory, where user-and-application-specific private files are to be
89cd540547d1 get appData directory sr parents: 12969 diff changeset	11655	located (ini-files, preferences etc.).
89cd540547d1 get appData directory sr parents: 12969 diff changeset	11656	Under windows, something like 'C:\Users\Administrator\AppData\Roaming\<appName>'
89cd540547d1 get appData directory sr parents: 12969 diff changeset	11657	is returned, here, the fallback ~/.<appName> is returned.
89cd540547d1 get appData directory sr parents: 12969 diff changeset	11658	Notice that only the name is returned; the directory is not guaranteed to exist."
89cd540547d1 get appData directory sr parents: 12969 diff changeset	11659
89cd540547d1 get appData directory sr parents: 12969 diff changeset	11660	"{ Pragma: +optSpace }"
89cd540547d1 get appData directory sr parents: 12969 diff changeset	11661
89cd540547d1 get appData directory sr parents: 12969 diff changeset	11662	\|appDataDirFromEnv appDataDirFromRegistry\|
89cd540547d1 get appData directory sr parents: 12969 diff changeset	11663
89cd540547d1 get appData directory sr parents: 12969 diff changeset	11664	appDataDirFromEnv := self getEnvironment:'APPDATA'.
89cd540547d1 get appData directory sr parents: 12969 diff changeset	11665	appDataDirFromEnv notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11666	^ appDataDirFromEnv , '\' , appName
13128 35def02e40f4 CloseHandle added in: getAllProcesses Michael Beyl <mb@exept.de> parents: 13114 diff changeset	11667	].
35def02e40f4 CloseHandle added in: getAllProcesses Michael Beyl <mb@exept.de> parents: 13114 diff changeset	11668	appDataDirFromRegistry :=
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11669	(self registryEntry key:'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders')
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11670	valueNamed:'AppData'.
12970 89cd540547d1 get appData directory sr parents: 12969 diff changeset	11671	appDataDirFromRegistry notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11672	^ appDataDirFromRegistry , '\' , appName
12970 89cd540547d1 get appData directory sr parents: 12969 diff changeset	11673	].
89cd540547d1 get appData directory sr parents: 12969 diff changeset	11674	^ super getApplicationDataDirectoryFor:appName
89cd540547d1 get appData directory sr parents: 12969 diff changeset	11675
89cd540547d1 get appData directory sr parents: 12969 diff changeset	11676	"
13128 35def02e40f4 CloseHandle added in: getAllProcesses Michael Beyl <mb@exept.de> parents: 13114 diff changeset	11677	OperatingSystem getApplicationDataDirectoryFor:'expecco'
12970 89cd540547d1 get appData directory sr parents: 12969 diff changeset	11678	"
89cd540547d1 get appData directory sr parents: 12969 diff changeset	11679
89cd540547d1 get appData directory sr parents: 12969 diff changeset	11680	"Created: / 29-07-2010 / 12:13:12 / sr"
89cd540547d1 get appData directory sr parents: 12969 diff changeset	11681	!
89cd540547d1 get appData directory sr parents: 12969 diff changeset	11682
10541 70872ea8cdb9 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10529 diff changeset	11683	getDesktopDirectory
11761 94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11684	"return the name of the users desktop directory (i.e. yours)."
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11685
10541 70872ea8cdb9 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10529 diff changeset	11686	"{ Pragma: +optSpace }"
70872ea8cdb9 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10529 diff changeset	11687
10543 442329e05841 * empty log message * Claus Gittinger <cg@exept.de> parents: 10542 diff changeset	11688	\|dir path\|
10541 70872ea8cdb9 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10529 diff changeset	11689
11920 4d2ef58645de compilable with VC9.0 Claus Gittinger <cg@exept.de> parents: 11842 diff changeset	11690	path := (self registryEntry
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11691	key:'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders')
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11692	valueNamed:'Desktop'.
11920 4d2ef58645de compilable with VC9.0 Claus Gittinger <cg@exept.de> parents: 11842 diff changeset	11693
4d2ef58645de compilable with VC9.0 Claus Gittinger <cg@exept.de> parents: 11842 diff changeset	11694	path isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11695	"Fallback"
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11696	dir := self getHomeDirectory.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11697	dir isNil ifTrue:[ ^ nil ].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11698
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11699	path := dir , '\Desktop'.
11761 94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11700	].
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11701
10627 bef737d1b8a7 care for -1 fd returned by CreatePipe Claus Gittinger <cg@exept.de> parents: 10622 diff changeset	11702	(self isValidPath:path) ifFalse:[ ^ nil ].
10541 70872ea8cdb9 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10529 diff changeset	11703	^ path
70872ea8cdb9 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10529 diff changeset	11704
70872ea8cdb9 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10529 diff changeset	11705	"
70872ea8cdb9 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10529 diff changeset	11706	OperatingSystem getDesktopDirectory
70872ea8cdb9 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10529 diff changeset	11707	"
70872ea8cdb9 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10529 diff changeset	11708
70872ea8cdb9 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10529 diff changeset	11709	"Created: / 16-05-2007 / 13:23:43 / cg"
70872ea8cdb9 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10529 diff changeset	11710	!
70872ea8cdb9 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10529 diff changeset	11711
11761 94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11712	getDocumentsDirectory
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11713	"return the name of the users 'Documents' directory."
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11714
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11715	"{ Pragma: +optSpace }"
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11716
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11717	\|dir\|
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11718
11920 4d2ef58645de compilable with VC9.0 Claus Gittinger <cg@exept.de> parents: 11842 diff changeset	11719	dir := (self registryEntry
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11720	key:'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders')
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11721	valueNamed:'Personal'.
11761 94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11722
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11723	dir isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11724	dir := self getHomeDirectory.
11761 94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11725	].
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11726
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11727	^ dir.
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11728
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11729	"
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11730	OperatingSystem getDocumentsDirectory
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11731	"
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11732	!
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11733
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11734	getEffectiveGroupID
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11735	"{ Pragma: +optSpace }"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11736
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11737	"return the current users (thats you) effective numeric group id.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11738	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	11739	as a setuid program (of which you should think about twice)."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11740
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11741	^ self getGroupID
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11742
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11743	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11744	OperatingSystem getEffectiveGroupID
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11745	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11746	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11747
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11748	getEffectiveUserID
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11749	"{ Pragma: +optSpace }"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11750
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11751	"return the current users (thats you) effective numeric user id.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11752	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	11753	as a setuid program (of which you should think about twice)."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11754
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11755	^ self getUserID
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11756
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11757	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11758	OperatingSystem getEffectiveUserID
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11759	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11760	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11761
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11762	getFullUserNameFromID:userID
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11763	"{ Pragma: +optSpace }"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11764
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11765	"return a string with the users full name - if available.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11766	If not, return the login name as a fallBack."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11767
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11768	\|info gecos\|
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11769
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11770	info := self userInfoOf:userID.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11771	(info notNil
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11772	and:[info includesKey:#gecos]) ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11773	gecos := info at:#gecos.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11774	(gecos includes:$,) ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11775	^ gecos copyTo:(gecos indexOf:$,) - 1
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11776	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11777	^ gecos
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11778	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11779	^ self getUserNameFromID:userID
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11780
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11781	"
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	11782	OperatingSystem getFullUserNameFromID:0
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	11783	OperatingSystem getFullUserNameFromID:(OperatingSystem getUserID)
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	11784
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	11785	OperatingSystem getUserNameFromID:(OperatingSystem getUserID)
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11786	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11787
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11788	"Modified: 15.7.1996 / 12:44:21 / cg"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11789	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11790
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11791	getGroupID
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11792	"{ Pragma: +optSpace }"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11793
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11794	"return the current users (thats you) numeric group id"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11795
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11796	^ 1 "just a dummy for systems which do not have groupIDs"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11797
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11798	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11799	OperatingSystem getGroupID
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11800	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11801	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11802
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11803	getGroupNameFromID:aNumber
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11804	"{ Pragma: +optSpace }"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11805
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11806	"return the group-name-string for a given numeric group-id"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11807
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11808	^ '???' "just a dummy for systems which do not have groupIDs"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11809
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11810	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11811	OperatingSystem getGroupNameFromID:0
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11812	OperatingSystem getGroupNameFromID:10
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11813	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11814	!
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	getHomeDirectory
11761 94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11817	"return the name of the users home directory (i.e. yours)."
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11818
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11819	"{ Pragma: +optSpace }"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11820
11761 94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11821	\|dir\|
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11822
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11823	dir := self getEnvironment:'USERPROFILE'.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11824	dir isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11825	dir := '.'.
11761 94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11826	].
94085399fdbc new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11746 diff changeset	11827	^ dir.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11828
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11829	"
8642 dd598b080b6a * empty log message * Claus Gittinger <cg@exept.de> parents: 8640 diff changeset	11830	OperatingSystem getHomeDirectory
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11831	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11832
5264 9a90c499e329 return the currentDir as default fallBack for the getHomeDir query. Claus Gittinger <cg@exept.de> parents: 5147 diff changeset	11833	"Modified: / 16.2.2000 / 09:17:55 / cg"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11834	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11835
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11836	getLoginName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11837	"{ Pragma: +optSpace }"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11838
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11839	"return a string with the users login name (thats yours)"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11840
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11841	%{ /* NOCONTEXT */
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11842	static char cachedName[64];
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11843	static firstCall = 1;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11844	#ifndef __BORLANDC__
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11845	extern char *getenv();
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11846	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11847	char name = (char )0;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11848
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11849	if (firstCall) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11850	DWORD nameSize = sizeof(cachedName);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11851
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11852	if (GetUserName(cachedName, &nameSize) == TRUE) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11853	name = cachedName;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11854	firstCall = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11855	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11856	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11857	name = cachedName;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11858	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11859
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11860	/*
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11861	* try a few common environment variables ...
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11862	*/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11863	if (! name \|\| (name[0] == 0) ) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11864	name = getenv("LOGIN");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11865	if (! name \|\| (name[0] == 0) ) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11866	name = getenv("LOGNAME");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11867	if (! name \|\| (name[0] == 0) ) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11868	name = getenv("USER");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11869	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11870	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11871	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11872	/*
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11873	* nope - I really font know who you are.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11874	*/
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11875	if (! name \|\| (name[0] == 0) ) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11876	name = "you";
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11877	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11878
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11879	RETURN ( __MKSTRING(name) );
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11880	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11881	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11882	OperatingSystem getLoginName
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11883	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11884	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11885
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11886	getUserID
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11887	"{ Pragma: +optSpace }"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11888
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11889	"return the current users (thats you) numeric user id"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11890
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11891	^ 1 "just a dummy for systems which do not have userIDs"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11892
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11893	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11894	OperatingSystem getUserID
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11895	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11896	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11897
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11898	getUserNameFromID:aNumber
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11899	"{ Pragma: +optSpace }"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11900
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11901	"return the user-name-string for a given numeric user-id.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11902	This is the login name, not the fullName."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11903
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11904	aNumber == self getUserID ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11905	^ self getLoginName
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11906	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11907
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11908	^ '? (' , aNumber printString , ')'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11909
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11910	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11911	OperatingSystem getUserNameFromID:0
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11912	OperatingSystem getUserNameFromID:100
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	11913	OperatingSystem getUserNameFromID:9991
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11914	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11915	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	11916
15874 9441ca0da881 renamed isRunningWithElevatedAdminRights to isRunningWithElevatedRootOrAdminRights Claus Gittinger <cg@exept.de> parents: 15873 diff changeset	11917	isRunningWithElevatedRootOrAdminRights
15873 6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	11918	"return true, if a NORMAL user is running with elevated admin rights."
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	11919
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	11920	%{
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	11921
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	11922	HANDLE h_Process;
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	11923	HANDLE h_Token;
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	11924	TOKEN_ELEVATION t_TokenElevation;
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	11925	TOKEN_ELEVATION_TYPE e_ElevationType;
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	11926	DWORD dw_TokenLength;
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	11927
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	11928	h_Process = GetCurrentProcess();
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	11929	if (OpenProcessToken(h_Process,TOKEN_READ,&h_Token) == FALSE) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11930	console_printf("Error: Couldn't open the process token\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11931	goto getOutOfHere;
15873 6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	11932	}
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	11933	if (GetTokenInformation(h_Token,TokenElevation,&t_TokenElevation,sizeof(t_TokenElevation),&dw_TokenLength) == FALSE) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11934	console_printf("Error: Couldn't retrieve the elevation right of the current process token\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11935	CloseHandle(h_Token);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11936	goto getOutOfHere;
15873 6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	11937	}
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	11938	if (t_TokenElevation.TokenIsElevated != 0) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11939	if (GetTokenInformation(h_Token,TokenElevationType,&e_ElevationType,sizeof(e_ElevationType),&dw_TokenLength) == FALSE) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11940	console_printf("Error: Couldn't retrieve the elevation token class\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11941	CloseHandle(h_Token);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11942	goto getOutOfHere;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11943	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11944	if (e_ElevationType == TokenElevationTypeFull \|\| e_ElevationType == TokenElevationTypeDefault) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11945	CloseHandle(h_Token);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11946	RETURN(true);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11947	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11948	CloseHandle(h_Token);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11949	RETURN(false);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11950	}
15873 6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	11951	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11952	CloseHandle(h_Token);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11953	RETURN(false);
15873 6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	11954	}
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	11955	getOutOfHere: ;
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	11956	%}.
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	11957	"/ self primitiveFailed.
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	11958	^ false
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	11959
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	11960	"Modified: / 17-12-2013 / 17:12:23 / cg"
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	11961	!
6871784b7a5b class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15871 diff changeset	11962
15833 8131c0b10c98 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15816 diff changeset	11963	isRunningWithRootOrAdminRights
8131c0b10c98 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15816 diff changeset	11964	"read some registry entry which only Admin can read;
8131c0b10c98 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15816 diff changeset	11965	if we can, we are; otherwise, we are not."
8131c0b10c98 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15816 diff changeset	11966
15834 9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	11967	%{
9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	11968	SID_IDENTIFIER_AUTHORITY NtAuthority = SECURITY_NT_AUTHORITY;
9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	11969	PSID AdministratorsGroup;
9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	11970	BOOL IsInAdminGroup = FALSE;
9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	11971
9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	11972	// Initialize SID.
9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	11973	if( !AllocateAndInitializeSid( &NtAuthority,
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11974	2,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11975	SECURITY_BUILTIN_DOMAIN_RID,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11976	DOMAIN_ALIAS_RID_ADMINS,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11977	0, 0, 0, 0, 0, 0,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11978	&AdministratorsGroup))
15834 9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	11979	{
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11980	// Initializing SID Failed.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11981	RETURN( false );
15834 9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	11982	}
9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	11983	// Check whether the token is present in admin group.
9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	11984	if( !CheckTokenMembership( NULL,
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11985	AdministratorsGroup,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11986	&IsInAdminGroup ))
15834 9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	11987	{
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11988	// Error occurred.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	11989	IsInAdminGroup = FALSE;
15834 9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	11990	}
9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	11991	// Free SID and return.
9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	11992	FreeSid(AdministratorsGroup);
9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	11993	RETURN( IsInAdminGroup ? true : false);
9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	11994	%}.
9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	11995	"/ seems not to work...
9aaea5f09ee7 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15833 diff changeset	11996
15870 dc9e47f7ec47 added isRunningWithElevatedAdminRights Claus Gittinger <cg@exept.de> parents: 15835 diff changeset	11997	"/ "/ RegOpenKey(HKEY_USERS, "S-1-5-19", &key)
15835 266f6ab9cdb2 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15834 diff changeset	11998	"/ (RegistryEntry key:'HKEY_USERS') notNil ifTrue:[
266f6ab9cdb2 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15834 diff changeset	11999	"/ (RegistryEntry key:'HKEY_USERS/S-1-5-19') notNil ifTrue:[
266f6ab9cdb2 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15834 diff changeset	12000	"/ ^ true
266f6ab9cdb2 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15834 diff changeset	12001	"/ ]
266f6ab9cdb2 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15834 diff changeset	12002	"/ ].
15833 8131c0b10c98 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15816 diff changeset	12003	^ false.
8131c0b10c98 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15816 diff changeset	12004
8131c0b10c98 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15816 diff changeset	12005	"
15870 dc9e47f7ec47 added isRunningWithElevatedAdminRights Claus Gittinger <cg@exept.de> parents: 15835 diff changeset	12006	OperatingSystem isRunningWithRootOrAdminRights
15833 8131c0b10c98 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15816 diff changeset	12007	"
8131c0b10c98 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15816 diff changeset	12008
8131c0b10c98 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15816 diff changeset	12009	"Created: / 28-11-2013 / 14:00:02 / cg"
8131c0b10c98 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15816 diff changeset	12010	!
8131c0b10c98 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15816 diff changeset	12011
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12012	userInfoOf:aNameOrID
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12013	"{ Pragma: +optSpace }"
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	"return a dictionary filled with userinfo. The argument can be either
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12016	a string with the users name or its numeric id.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12017	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	12018	Portable applications may want to check the systemType and NOT depend
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12019	on all keys to be present in the returned dictionary."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12020
20246 dacb56e06db1 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20245 diff changeset	12021	\|info userName loginName "uid gid"\|
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12022
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12023	info := IdentityDictionary new.
20246 dacb56e06db1 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20245 diff changeset	12024	loginName := self getLoginName.
dacb56e06db1 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20245 diff changeset	12025	(aNameOrID == self getUserID or:[aNameOrID = loginName]) ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12026	userName := loginName.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12027	info at:#dir put:self getHomeDirectory.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12028	] ifFalse:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12029	userName := 'unknown'.
20246 dacb56e06db1 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20245 diff changeset	12030	].
dacb56e06db1 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 20245 diff changeset	12031	info at:#name put:userName.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12032	"/ uid notNil ifTrue:[info at:#uid put:uid].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12033	"/ gid notNil ifTrue:[info at:#gid put:gid].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12034	^ info
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12035
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12036	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12037	OperatingSystem userInfoOf:'root'
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	12038	OperatingSystem userInfoOf:1
34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	12039	OperatingSystem userInfoOf:'fooBar'
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12040	OperatingSystem userInfoOf:(OperatingSystem getUserID)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12041	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12042	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12043
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12044	!Win32OperatingSystem class methodsFor:'waiting for events'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12045
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12046	blockingChildProcessWait
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12047	"return true, if childProcessWait: blocks, if no children are ready.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12048	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	12049	a subprocesses status (to avoid blocking)."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12050
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12051	^ false
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12052	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12053
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12054	childProcessWait:blocking pid:pidToWait
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12055	"{ Pragma: +optSpace }"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12056
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12057	"get status changes from child processes.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12058	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	12059	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	12060	otherwise we return immediately.
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	12061	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	12062	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	12063
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12064	\|pid status code core\|
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12065	%{
16337 40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	12066	//#define PROCESSDEBUG_CHILDPROCESSWAIT
16331 e0db6eac2c1e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16321 diff changeset	12067
15543 196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	12068	int endStatus;
16331 e0db6eac2c1e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16321 diff changeset	12069	DWORD exitCode;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12070
7662 32a1185158f3 process handles Claus Gittinger <cg@exept.de> parents: 7645 diff changeset	12071	if (__isExternalAddressLike(pidToWait) ) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12072	HANDLE __pidToWait = _HANDLEVal(pidToWait);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12073
8650 bc8e2cdcb777 processGroup termiantion (leftover child processes) Claus Gittinger <cg@exept.de> parents: 8642 diff changeset	12074	#ifdef PROCESSDEBUG_CHILDPROCESSWAIT
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12075	console_printf("childProcessWait %x b %d\n",__pidToWait,blocking==true);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12076	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12077
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12078	if (blocking == true) {
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12079	#ifdef DO_WRAP_CALLS
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12080	do {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12081	__threadErrno = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12082	// do not cast to INT - will loose sign bit then!
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12083	endStatus = STX_API_CALL2( "WaitForSingleObject", WaitForSingleObject, __pidToWait, INFINITE);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12084	} while ((endStatus < 0) && (__threadErrno == EINTR));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12085	#else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12086	endStatus = WaitForSingleObject(__pidToWait, INFINITE);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12087	if (endStatus < 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12088	__threadErrno = __WIN32_ERR(GetLastError());
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12089	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12090	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12091	if (endStatus == WAIT_TIMEOUT) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12092	if (blocking==true)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12093	status = @symbol(timeout);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12094	else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12095	status = @symbol(continue);
8650 bc8e2cdcb777 processGroup termiantion (leftover child processes) Claus Gittinger <cg@exept.de> parents: 8642 diff changeset	12096	#ifdef PROCESSDEBUG_CHILDPROCESSWAIT
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12097	console_printf("ret nil\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12098	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12099	RETURN(nil);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12100	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12101	} else if (endStatus == WAIT_OBJECT_0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12102
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12103	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12104	}
16331 e0db6eac2c1e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16321 diff changeset	12105
12625 6b04dbbeb379 changed: #childProcessWait:pid: Claus Gittinger <cg@exept.de> parents: 12616 diff changeset	12106	#ifdef PROCESSDEBUG_CHILDPROCESSWAIT
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12107	console_printf("GetExitCodeProcess\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12108	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12109
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12110	if (GetExitCodeProcess(__pidToWait, &exitCode)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12111	if (exitCode == STILL_ACTIVE) {
8650 bc8e2cdcb777 processGroup termiantion (leftover child processes) Claus Gittinger <cg@exept.de> parents: 8642 diff changeset	12112	#ifdef PROCESSDEBUG_CHILDPROCESSWAIT
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12113	console_printf("exitCode: STILL_ACTIVE\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12114	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12115	RETURN(nil);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12116	}
8650 bc8e2cdcb777 processGroup termiantion (leftover child processes) Claus Gittinger <cg@exept.de> parents: 8642 diff changeset	12117	#ifdef PROCESSDEBUG_CHILDPROCESSWAIT
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12118	console_printf("exitCode %d\n", exitCode);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12119	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12120	status = @symbol(exit);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12121	code = __mkSmallInteger(exitCode);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12122	core = false;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12123	pid = pidToWait;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12124	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12125	code = __mkSmallInteger(GetLastError());
16331 e0db6eac2c1e class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16321 diff changeset	12126	#ifdef PROCESSDEBUG_CHILDPROCESSWAIT
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12127	console_printf("GetExitCodeProcess failed: error=%d\n", GetLastError());
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12128	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12129	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12130	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12131	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12132
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12133	(status isNil or:[pid isNil]) ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12134	^ self primitiveFailed:code
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12135	].
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12136
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12137	"/ Transcript show:'pid: '; show:pid; show:' status: '; show:status;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12138	"/ show:' code: '; show:code; show:' core:'; showCR:core.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12139
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12140	^ OSProcessStatus pid:pid status:status code:code core:core
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12141	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12142
21241 71f5ce80b2ce #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21204 diff changeset	12143	isBlockingOn:fd
71f5ce80b2ce #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21204 diff changeset	12144	^ true
71f5ce80b2ce #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21204 diff changeset	12145	!
71f5ce80b2ce #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21204 diff changeset	12146
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12147	numAvailableForReadOn:fd
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12148	"return the number of bytes available for reading, without blocking."
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12149
20174 d3f07efc7045 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20063 diff changeset	12150	%{
d3f07efc7045 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20063 diff changeset	12151	unsigned long bytes_available;
d3f07efc7045 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20063 diff changeset	12152
d3f07efc7045 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20063 diff changeset	12153	if (__Class(fd) == @global(Win32SocketHandle)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12154	if (ioctlsocket((SOCKET)_HANDLEVal(fd), FIONREAD, &bytes_available) == 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12155	if (bytes_available > _MAX_INT) bytes_available = _MAX_INT;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12156	RETURN(__mkSmallInteger(bytes_available));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12157	}
20174 d3f07efc7045 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20063 diff changeset	12158	} else if (__isSmallInteger(fd)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12159	if (PeekNamedPipe(_get_osfhandle(__intVal(fd)), NULL, 0, NULL, &bytes_available, NULL) != 0){
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12160	if (bytes_available > _MAX_INT) bytes_available = _MAX_INT;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12161	RETURN(__mkSmallInteger(bytes_available));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12162	}
20174 d3f07efc7045 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20063 diff changeset	12163	}
d3f07efc7045 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20063 diff changeset	12164	%}.
d3f07efc7045 #FEATURE by stefan Stefan Vogel <sv@exept.de> parents: 20063 diff changeset	12165
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12166	^ (self readCheck:fd) ifTrue:[1] ifFalse:[0]
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12167	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12168
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12169	selectOnAnyReadable:readFdArray writable:writeFdArray exception:exceptFdArray
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12170	readableInto:readableResultFdArray writableInto:writableResultFdArray exceptionInto:exceptionResultFdArray
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12171	withTimeOut:millis
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12172	"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	12173	writeFdArray to become ready for writing,
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12174	or exceptFdArray to arrive exceptional data (i.e. out-of-band data).
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12175	Timeout after t milliseconds or - if the timeout time is 0 - immediately..
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12176	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	12177	descriptors (i.e. to check if I/O possible without blocking).
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12178	The corresponding filedescriptors which are ready are returned in readableResultFdArray,
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12179	writableResultFdArray and exceptionResultFdArray respectively.
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12180
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12181	Return the (overall) number of selected filedescriptors.
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12182	readableResultFdArray, writableResultFdArray and exceptionResultFdArray will
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12183	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	12184	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	12185
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12186	%{
16315 b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	12187	//#define SELECTDEBUGWIN32
b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	12188	//#define SELECT3DEBUGWIN32
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12189	#define MAXHANDLE 128
21628 b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12190	int i, idx;
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12191	INT t;
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12192	int numHandles;
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12193	DWORD res;
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12194	HANDLE hArray[MAXHANDLE+1];
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12195	int retArray[MAXHANDLE];
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12196	int readCount, writeCount, exceptCount;
16315 b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	12197	int resultSizeReadable = 0, resultSizeWritable = 0, resultSizeException = 0;
b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	12198	int cntR = 0, cntW = 0, cntE = 0, cntAll = 0;
b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	12199	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	12200	fd_set readFds;
e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	12201	fd_set writeFds;
18954 813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	12202	fd_set exceptFds;
21628 b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12203	int hasSockets;
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12204	int hasPipes;
16367 e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	12205	int pass = 1; // perform up to 2 passes
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12206
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12207	if (readableResultFdArray != nil) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12208	if (! __isArrayLike(readableResultFdArray)) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12209	goto fail;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12210	}
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12211	resultSizeReadable = __arraySize(readableResultFdArray);
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12212	}
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12213	if (writableResultFdArray != nil) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12214	if (! __isArrayLike(writableResultFdArray)) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12215	goto fail;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12216	}
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12217	resultSizeWritable = __arraySize(writableResultFdArray);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12218	if (readableResultFdArray == writableResultFdArray) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12219	// allow common result set for read/write/except
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12220	pcntW = &cntR;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12221	}
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12222	}
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12223	if (exceptionResultFdArray != nil) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12224	if (! __isArrayLike(exceptionResultFdArray)) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12225	goto fail;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12226	}
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12227	resultSizeException = __arraySize(exceptionResultFdArray);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12228	if (exceptionResultFdArray == readableResultFdArray) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12229	// allow common result set for read/write/except
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12230	pcntE = &cntR;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12231	} else if (exceptionResultFdArray == writableResultFdArray) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12232	pcntE = &cntW;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12233	}
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12234	}
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12235
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12236	if (__isNonNilObject(readFdArray)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12237	if (! __isArrayLike(readFdArray)) goto fail;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12238	readCount = __arraySize(readFdArray);
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12239	} else {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12240	readCount = 0;
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12241	}
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12242
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12243	if (__isNonNilObject(writeFdArray)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12244	if (! __isArrayLike(writeFdArray)) goto fail;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12245	writeCount = __arraySize(writeFdArray);
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12246	} else {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12247	writeCount = 0;
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12248	}
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12249
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12250	if (__isNonNilObject(exceptFdArray)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12251	if (! __isArrayLike(exceptFdArray)) goto fail;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12252	exceptCount = __arraySize(exceptFdArray);
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12253	} else {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12254	exceptCount = 0;
16367 e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	12255	}
e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	12256
e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	12257	pollAgain:
e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	12258	FD_ZERO(&readFds);
e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	12259	FD_ZERO(&writeFds);
18954 813f1c2c49ca #FEATURE Stefan Vogel <sv@exept.de> parents: 18951 diff changeset	12260	FD_ZERO(&exceptFds);
21628 b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12261	numHandles = hasSockets = hasPipes = 0;
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12262
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12263	for (i = 0; (i < readCount) && (numHandles < MAXHANDLE); i++) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12264	OBJ fd = __arrayVal(readFdArray)[i];
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12265
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12266	if (fd != nil) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12267	if (__Class(fd) == @global(Win32SocketHandle)) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12268	FD_SET (_HANDLEVal(fd), &readFds);
21628 b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12269	hasSockets++;
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12270	} else if (__isSmallInteger(fd)) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12271	DWORD canRead;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12272	if (PeekNamedPipe(_get_osfhandle(__intVal(fd)), 0, 0, 0, &canRead, 0)) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12273	if (canRead > 0) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12274	if (*pcntR < resultSizeReadable) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12275	__arrayVal(readableResultFdArray)[*pcntR] = fd;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12276	}
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12277	(*pcntR)++; cntAll++;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12278	}
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12279	} else {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12280	@global(LastErrorNumber) = __mkSmallInteger(EBADF);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12281	RETURN (__mkSmallInteger(-1));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12282	}
21628 b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12283	hasPipes++;
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12284	} else {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12285	hArray [numHandles] = _HANDLEVal(fd);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12286	retArray[numHandles] = i;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12287	++numHandles;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12288	}
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12289	}
16367 e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	12290	}
e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	12291
e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	12292	for (i = 0; (i < writeCount) && (numHandles < MAXHANDLE); i++) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12293	OBJ fd = __arrayVal(writeFdArray)[i];
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12294
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12295	if (fd != nil) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12296	if (__Class(fd) == @global(Win32SocketHandle)) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12297	FD_SET (_HANDLEVal(fd), &writeFds);
21628 b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12298	hasSockets++;
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12299	} else if (__isSmallInteger(fd)) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12300	// kludge: assume that pipes can alway be written
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12301	if (*pcntW < resultSizeWritable) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12302	__arrayVal(writableResultFdArray)[*pcntW] = fd;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12303	}
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12304	(*pcntW)++; cntAll++;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12305	// there is no pipe to check
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12306	} else {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12307	hArray [numHandles] = _HANDLEVal(fd);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12308	retArray[numHandles] = i + 10000;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12309	++numHandles;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12310	}
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12311	}
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12312	}
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12313
16315 b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	12314	for (i = 0; (i < exceptCount) && (numHandles < MAXHANDLE); i++) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12315	OBJ fdOrPid = __arrayVal(exceptFdArray)[i];
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12316
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12317	if (fdOrPid != nil) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12318	if (__Class(fdOrPid) == @global(Win32SocketHandle)) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12319	FD_SET (_HANDLEVal(fdOrPid), &exceptFds);
21628 b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12320	hasSockets++;
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12321	} else if (__isExternalAddressLike(fdOrPid)) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12322	// a PID
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12323	hArray [numHandles] = _HANDLEVal(fdOrPid);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12324	retArray[numHandles] = i + 20000;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12325	++numHandles;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12326	}
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12327	}
21098 7b8226c89764 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 21073 diff changeset	12328	}
7b8226c89764 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 21073 diff changeset	12329
21628 b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12330	if (hasSockets) {
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12331	struct timeval tv = {0, 0};
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12332	int nReady;
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12333
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12334	#ifdef SELECT3DEBUGWIN32
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12335	console_printf("select hasSockets = %d\n", hasSockets);
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12336	#endif
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12337	nReady = select(1 , &readFds, &writeFds, &exceptFds, &tv); // first parameter to select is ignored in windows
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12338	if (nReady < 0) {
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12339	#ifdef SELECTDEBUGWIN32
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12340	console_printf("error in select %d %d\n", nReady, GetLastError());
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12341	#endif
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12342	@global(LastErrorNumber) = __mkSmallInteger(EBADF);
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12343	RETURN (__mkSmallInteger(-1));
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12344	}
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12345	if (nReady > 0) {
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12346	#ifdef SELECT3DEBUGWIN32
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12347	console_printf("select nReady %d of %d\n", nReady, hasSockets);
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12348	#endif
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12349	for (i = 0; i < readCount; i++) {
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12350	OBJ fd = __arrayVal(readFdArray)[i];
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12351	if ((__Class(fd) == @global(Win32SocketHandle)) && FD_ISSET(_HANDLEVal(fd), &readFds)) {
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12352	if (*pcntR < resultSizeReadable) {
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12353	__arrayVal(readableResultFdArray)[*pcntR] = fd;
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12354	__STORE(readableResultFdArray, fd);
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12355	}
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12356	(*pcntR)++; cntAll++;
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12357	}
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12358	}
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12359	for (i = 0; i < writeCount; i++) {
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12360	OBJ fd = __arrayVal(writeFdArray)[i];
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12361	if ((__Class(fd) == @global(Win32SocketHandle)) && FD_ISSET(_HANDLEVal(fd), &writeFds)) {
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12362	if (*pcntW < resultSizeWritable) {
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12363	__arrayVal(writableResultFdArray)[*pcntW] = fd;
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12364	__STORE(writableResultFdArray, fd);
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12365	}
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12366	(*pcntW)++; cntAll++;
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12367	}
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12368	}
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12369	for (i = 0; i < exceptCount; i++) {
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12370	OBJ fd = __arrayVal(exceptFdArray)[i];
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12371	if ((__Class(fd) == @global(Win32SocketHandle)) && FD_ISSET(_HANDLEVal(fd), &exceptFds)) {
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12372	if (*pcntE < resultSizeException) {
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12373	__arrayVal(exceptionResultFdArray)[*pcntE] = fd;
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12374	__STORE(exceptionResultFdArray, fd);
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12375	}
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12376	(*pcntE)++; cntAll++;
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12377	}
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12378	}
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12379
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12380	}
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12381	}
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12382	if (pass > 1) // perform maximum 2 passes
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12383	goto done;
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12384
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12385	if (cntAll) {
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12386	// check for other handles and return immediately, no timeout
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12387	t = 0;
21628 b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12388	} else {
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12389	if (__isSmallInteger(millis)) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12390	t = __intVal(millis);
21628 b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12391
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12392	if (t <= 0 && numHandles == 0) {
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12393	RETURN (__mkSmallInteger(0));
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12394	}
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12395	} else {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12396	t = INFINITE;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12397	}
21628 b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12398	}
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12399
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12400	if (numHandles == 0 && t == 0) {
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12401	// nothing to do and no wait
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12402	goto done;
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12403	}
16315 b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	12404
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12405	#ifdef SELECT3DEBUGWIN32
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12406	console_printf("wait numhandles = %d timeout = %d\n", numHandles, t);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12407	#endif
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12408
21628 b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12409	res = __vmWait(numHandles, hArray, MAXHANDLE, t);
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12410
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12411	if (res == WAIT_TIMEOUT) {
16315 b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	12412	#ifdef SELECT3DEBUGWIN32
21628 b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12413	console_printf("- timeOut; ret nil\n" );
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12414	#endif
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12415	if (t != 0 && (hasSockets \|\| hasPipes)) {
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12416	// if not a single handle is ready, poll sockets an pipes again
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12417	pass = 2;
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12418	goto pollAgain;
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12419	}
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12420	goto done;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12421	}
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12422
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12423	if (res == WAIT_FAILED) {
16315 b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	12424	#ifdef SELECT2DEBUGWIN32
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12425	console_printf("- error %d (last %d); ret -1\n", __threadErrno, GetLastError());
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12426	#endif
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12427	if (__threadErrno == EINTR) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12428	@global(LastErrorNumber) = nil;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12429	RETURN (__mkSmallInteger(0));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12430	} else {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12431	if (@global(InfoPrinting) == true) {
21098 7b8226c89764 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 21073 diff changeset	12432	// console_fprintf(stderr, "Win32OS [info]: select errno = %d (last %d)\n", __threadErrno, GetLastError());
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12433	console_printf("Win32OS [info]: select errno = %d (last %d)\n", __threadErrno, GetLastError());
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12434	}
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12435	@global(LastErrorNumber) = __mkSmallInteger(EBADF);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12436	RETURN (__mkSmallInteger(-1));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12437	}
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12438	}
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12439
21628 b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12440	if (numHandles) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12441	if (res == numHandles) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12442	// vmwait() added an IRQ event to the handles, and this one has been triggered
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12443	if (1 /* @global(InfoPrinting) == true */) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12444	console_fprintf(stderr, "Win32OS [info]: plugIn event has been handled\n");
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12445	}
21628 b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12446	goto done;
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12447	}
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12448	if ((res < 0) \|\| (res >= numHandles)) {
21638 dc75b3c9c537 Win32: #ifdef'd leftover debug print in `#selectOnAnyReadable` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21628 diff changeset	12449	#ifdef SELECTDEBUGWIN32
21628 b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12450	console_printf("- res=%d error1 %d\n", res, GetLastError());
21638 dc75b3c9c537 Win32: #ifdef'd leftover debug print in `#selectOnAnyReadable` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21628 diff changeset	12451	#endif
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12452	goto done;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12453	}
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12454
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12455	idx = retArray[res];
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12456	cntAll++;
16337 40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	12457
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12458	#ifdef SELECTDEBUGWIN32
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12459	console_printf("wait Handles res %d idx %d numHandles %d --- ", res, idx, numHandles);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12460	#endif
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12461	if (idx < 10000) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12462	if (*pcntR < resultSizeReadable) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12463	OBJ temp = __arrayVal(readFdArray)[idx];
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12464	__arrayVal(readableResultFdArray)[*pcntR] = temp;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12465	__STORE(readableResultFdArray, temp);
16315 b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	12466	#ifdef SELECTDEBUGWIN32
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12467	console_printf("read ready: %x\n", __externalAddressVal(temp));
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12468	#endif
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12469	(*pcntR)++;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12470	}
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12471	} else if (idx < 20000) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12472	if (*pcntW < resultSizeWritable) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12473	OBJ temp = __arrayVal(writeFdArray)[idx-10000];
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12474	__arrayVal(writableResultFdArray)[*pcntW] = temp;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12475	__STORE(writableResultFdArray, temp);
21098 7b8226c89764 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 21073 diff changeset	12476	#ifdef SELECTDEBUGWIN32
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12477	console_printf("write ready: %x\n", temp);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12478	#endif
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12479	(*pcntW)++;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12480	}
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12481	} else {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12482	if (*pcntE < resultSizeException) {
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12483	OBJ temp = __arrayVal(exceptFdArray)[idx-20000];
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12484	__arrayVal(exceptionResultFdArray)[*pcntE] = temp;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12485	__STORE(exceptionResultFdArray, temp);
21098 7b8226c89764 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 21073 diff changeset	12486	#ifdef SELECTDEBUGWIN32
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12487	console_printf("except ready: %x\n", temp);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12488	#endif
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12489	(*pcntE)++;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12490	}
16337 40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	12491	#ifdef SELECTDEBUGWIN32
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12492	else
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12493	console_printf("cntE: %d, resultSizeException: %d\n", *pcntE, resultSizeException);
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12494	#endif
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12495	}
21098 7b8226c89764 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 21073 diff changeset	12496	}
21628 b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12497	if (t != 0 && (hasSockets \|\| hasPipes)) {
b0dcdf5fe53d Backed out changeset 7b8226c89764 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21387 diff changeset	12498	// back after timeout, maybe some sockets or pipes did wake up
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12499	// in the meantime?
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12500	pass = 2;
9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12501	goto pollAgain;
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12502	}
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12503
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12504	done:
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12505	/* add a delimiter */
16315 b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	12506	if (*pcntR < resultSizeReadable) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12507	__arrayVal(readableResultFdArray)[*pcntR] = nil;
16315 b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	12508	}
b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	12509	if (*pcntW < resultSizeWritable) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12510	__arrayVal(writableResultFdArray)[*pcntW] = nil;
16315 b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	12511	}
b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	12512	if (*pcntE < resultSizeException) {
21330 9f46467ddc07 * empty log message * Claus Gittinger <cg@exept.de> parents: 21256 diff changeset	12513	__arrayVal(exceptionResultFdArray)[*pcntE] = nil;
16309 6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12514	}
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12515
6df7a4841fb6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16303 diff changeset	12516	@global(LastErrorNumber) = nil;
16315 b08c60b1588d class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16309 diff changeset	12517	RETURN (__mkSmallInteger(cntAll));
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12518
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12519	fail: ;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12520	%}.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12521	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12522	timeout argument not integer,
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12523	or any fd-array nonNil and not an array
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12524	or not supported by OS
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12525	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12526	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12527	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12528
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12529	setBlocking:aBoolean on:fd
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12530	"set/clear the blocking attribute - if set (which is the default)
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12531	a read on the fileDescriptor will block until data is available.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12532	If cleared, a read operation will immediately return with a value of
15923 6bc82606b914 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15877 diff changeset	12533	nil.
6bc82606b914 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15877 diff changeset	12534
6bc82606b914 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15877 diff changeset	12535	Ignored in windows. Windows calls operate in their own thread,
6bc82606b914 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15877 diff changeset	12536	so non-blocking mode doesn't make sense."
6bc82606b914 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15877 diff changeset	12537
16337 40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	12538	^ true
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12539	!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12540
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12541	waitForMultipleObjects:fdOrHandleArray withTimeout:millis
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12542	"wait for an fd to become ready.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12543	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	12544	Zero time can be used to poll a file-
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12545	descriptors (i.e. to check if I/O possible without blocking).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12546	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	12547
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12548	%{
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12549	#ifndef MAXHANDLE
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12550	# define MAXHANDLE 128
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12551	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12552	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	12553	int res;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12554	HANDLE hArray[MAXHANDLE];
16337 40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	12555	int idxArray[MAXHANDLE];
40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	12556	INT i, count, hIdx;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12557
8934 32a063645991 * empty log message * Claus Gittinger <cg@exept.de> parents: 8912 diff changeset	12558	if (! __isArrayLike(fdOrHandleArray)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12559	goto fail;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12560	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12561	count = __arraySize(fdOrHandleArray);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12562
16337 40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	12563	for (hIdx=0, i=0; i<count; i++) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12564	OBJ fdOrHandle = __ArrayInstPtr(fdOrHandleArray)->a_element[i];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12565	HANDLE h;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12566
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12567	if (fdOrHandle != nil) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12568	if (__isExternalAddressLike(fdOrHandle)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12569	h = _HANDLEVal(fdOrHandle);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12570	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12571	if (__isSmallInteger(fdOrHandle)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12572	h = (HANDLE) _get_osfhandle (__intVal(fdOrHandle));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12573	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12574	goto fail;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12575	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12576	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12577	hArray[hIdx] = h;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12578	idxArray[hIdx++] = i;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12579	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12580	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12581
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12582	if (__isSmallInteger(millis)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12583	t = __intVal(millis);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12584	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12585	t = INFINITE;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12586	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12587
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12588	#ifdef DO_WRAP_CALLS
16337 40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	12589	if (t != 0) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12590	do {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12591	__threadErrno = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12592	// do not cast to INT - will loose sign bit then!
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12593	res = STX_API_CALL4( "WaitForMultipleObjects", WaitForMultipleObjects, hIdx, hArray, FALSE, t);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12594	} while ((res < 0) && (__threadErrno == EINTR));
16337 40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	12595	} else
40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	12596	#endif
40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	12597	{
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12598	res = WaitForMultipleObjects(hIdx, hArray, FALSE, t);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12599	if (res < 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12600	__threadErrno = __WIN32_ERR(GetLastError());
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12601	}
16337 40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	12602	}
40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	12603
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12604	if (res == WAIT_FAILED) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12605	RETURN (nil);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12606	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12607	if (res == WAIT_TIMEOUT) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12608	RETURN (nil);
16337 40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	12609	}
40052517e9b6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16334 diff changeset	12610	if ((res >= WAIT_OBJECT_0) && (res < (WAIT_OBJECT_0+hIdx))) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12611	RETURN (__arrayVal(fdOrHandleArray)[idxArray[res-WAIT_OBJECT_0]]);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12612	}
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 (nil);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12615	fail: ;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12616	%}.
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	invalid arg,
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	^ self primitiveFailed
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12621	!
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	waitForSingleObject:fdOrHandle withTimeout:millis
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12624	"wait for an fd to become ready.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12625	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	12626	Zero time can be used to poll a file-
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12627	descriptors (i.e. to check if I/O possible without blocking).
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12628	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	12629
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12630	%{
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12631	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	12632	int res;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12633	HANDLE h = NULL;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12634
7662 32a1185158f3 process handles Claus Gittinger <cg@exept.de> parents: 7645 diff changeset	12635	if (__isExternalAddressLike(fdOrHandle)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12636	h = _HANDLEVal(fdOrHandle);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12637	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12638	if (__isSmallInteger(fdOrHandle)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12639	h = (HANDLE) _get_osfhandle (__intVal(fdOrHandle));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12640	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12641	goto fail;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12642	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12643	}
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	if (__isSmallInteger(millis)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12646	t = __intVal(millis);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12647	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12648	t = INFINITE;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12649	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12650
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12651	#ifdef DO_WRAP_CALLS
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	12652	do {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12653	__threadErrno = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12654	// do not cast to INT - will loose sign bit then!
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12655	res = STX_API_CALL2( "WaitForSingleObject", WaitForSingleObject, h, t);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12656	} while ((res < 0) && (__threadErrno == EINTR));
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12657	#else
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12658	res = WaitForSingleObject(h, t);
6259 164d7efc1eb2 api call stuff (more calls wrapped; care for EINTR) Claus Gittinger <cg@exept.de> parents: 6095 diff changeset	12659	if (res < 0) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12660	__threadErrno = __WIN32_ERR(GetLastError());
6259 164d7efc1eb2 api call stuff (more calls wrapped; care for EINTR) Claus Gittinger <cg@exept.de> parents: 6095 diff changeset	12661	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12662	#endif
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12663	if (res == WAIT_FAILED) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12664	RETURN (nil);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12665	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12666	if (res == WAIT_TIMEOUT) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12667	RETURN (nil);
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12668	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12669
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12670	RETURN (fdOrHandle);
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12671	fail: ;
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	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	12674	invalid arg,
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	^ self primitiveFailed
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
9475 c57956a348bf printing support fm parents: 9431 diff changeset	12679	!Win32OperatingSystem::DevModeStructure methodsFor:'accessing'!
c57956a348bf printing support fm parents: 9431 diff changeset	12680
c57956a348bf printing support fm parents: 9431 diff changeset	12681	bitsPerPel
c57956a348bf printing support fm parents: 9431 diff changeset	12682	^ self unsignedLongAt: 1+104
c57956a348bf printing support fm parents: 9431 diff changeset	12683
c57956a348bf printing support fm parents: 9431 diff changeset	12684	"Created: / 27-07-2006 / 15:14:17 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	12685	!
c57956a348bf printing support fm parents: 9431 diff changeset	12686
c57956a348bf printing support fm parents: 9431 diff changeset	12687	collate
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	12688	^ self signedInt16At: 1+68 MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	12689
c57956a348bf printing support fm parents: 9431 diff changeset	12690	"Created: / 01-08-2006 / 09:56:38 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	12691	!
c57956a348bf printing support fm parents: 9431 diff changeset	12692
c57956a348bf printing support fm parents: 9431 diff changeset	12693	collate: n
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	12694	^ self signedInt16At: 1+68 put: n MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	12695
c57956a348bf printing support fm parents: 9431 diff changeset	12696	"Created: / 01-08-2006 / 09:58:07 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	12697	!
c57956a348bf printing support fm parents: 9431 diff changeset	12698
c57956a348bf printing support fm parents: 9431 diff changeset	12699	color
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	12700	^ self signedInt16At: 1+60 MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	12701
c57956a348bf printing support fm parents: 9431 diff changeset	12702	"Created: / 27-07-2006 / 15:31:25 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	12703	!
c57956a348bf printing support fm parents: 9431 diff changeset	12704
c57956a348bf printing support fm parents: 9431 diff changeset	12705	copies
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	12706	^ self signedInt16At: 1+54 MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	12707
c57956a348bf printing support fm parents: 9431 diff changeset	12708	"Created: / 27-07-2006 / 15:30:52 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	12709	!
c57956a348bf printing support fm parents: 9431 diff changeset	12710
c57956a348bf printing support fm parents: 9431 diff changeset	12711	copies: n
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	12712	^ self signedInt16At: 1+54 put: n MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	12713
c57956a348bf printing support fm parents: 9431 diff changeset	12714	"Created: / 27-07-2006 / 15:36:39 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	12715	!
c57956a348bf printing support fm parents: 9431 diff changeset	12716
c57956a348bf printing support fm parents: 9431 diff changeset	12717	deviceName
c57956a348bf printing support fm parents: 9431 diff changeset	12718	^ self stringAt: 1+0 size: 32
c57956a348bf printing support fm parents: 9431 diff changeset	12719
c57956a348bf printing support fm parents: 9431 diff changeset	12720	"Created: / 27-07-2006 / 15:15:52 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	12721	!
c57956a348bf printing support fm parents: 9431 diff changeset	12722
c57956a348bf printing support fm parents: 9431 diff changeset	12723	orientation
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	12724	^ self signedInt16At: 1+44 MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	12725
c57956a348bf printing support fm parents: 9431 diff changeset	12726	"Created: / 27-07-2006 / 15:34:57 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	12727	!
c57956a348bf printing support fm parents: 9431 diff changeset	12728
c57956a348bf printing support fm parents: 9431 diff changeset	12729	orientation: orientationInt
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	12730	^ self signedInt16At: 1+44 put: orientationInt MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	12731
c57956a348bf printing support fm parents: 9431 diff changeset	12732	"Created: / 27-07-2006 / 15:36:31 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	12733	!
c57956a348bf printing support fm parents: 9431 diff changeset	12734
c57956a348bf printing support fm parents: 9431 diff changeset	12735	paperLength
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	12736	^ self signedInt16At: 1+48 MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	12737
c57956a348bf printing support fm parents: 9431 diff changeset	12738	"Created: / 27-07-2006 / 15:32:59 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	12739	!
c57956a348bf printing support fm parents: 9431 diff changeset	12740
c57956a348bf printing support fm parents: 9431 diff changeset	12741	paperSize
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	12742	^ self signedInt16At: 1+46 MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	12743
c57956a348bf printing support fm parents: 9431 diff changeset	12744	"Created: / 27-07-2006 / 15:32:12 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	12745	!
c57956a348bf printing support fm parents: 9431 diff changeset	12746
c57956a348bf printing support fm parents: 9431 diff changeset	12747	paperSize:funnyMSPaperSizeCode
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	12748	^ self signedInt16At: 1+46 put: funnyMSPaperSizeCode MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	12749
c57956a348bf printing support fm parents: 9431 diff changeset	12750	"Created: / 27-07-2006 / 15:35:53 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	12751	!
c57956a348bf printing support fm parents: 9431 diff changeset	12752
c57956a348bf printing support fm parents: 9431 diff changeset	12753	paperWidth
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	12754	^ self signedInt16At: 1+50 MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	12755
c57956a348bf printing support fm parents: 9431 diff changeset	12756	"Created: / 27-07-2006 / 15:32:25 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	12757	!
c57956a348bf printing support fm parents: 9431 diff changeset	12758
c57956a348bf printing support fm parents: 9431 diff changeset	12759	printQuality
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	12760	^ self signedInt16At: 1+58 MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	12761
c57956a348bf printing support fm parents: 9431 diff changeset	12762	"Created: / 27-07-2006 / 15:33:58 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	12763	!
c57956a348bf printing support fm parents: 9431 diff changeset	12764
c57956a348bf printing support fm parents: 9431 diff changeset	12765	printQuality: qualityInteger
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	12766	^ self signedInt16At: 1+58 put: qualityInteger MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	12767
c57956a348bf printing support fm parents: 9431 diff changeset	12768	"Created: / 27-07-2006 / 15:36:20 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	12769	!
c57956a348bf printing support fm parents: 9431 diff changeset	12770
c57956a348bf printing support fm parents: 9431 diff changeset	12771	scale
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	12772	^ self signedInt16At: 1+52 MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	12773
c57956a348bf printing support fm parents: 9431 diff changeset	12774	"Created: / 27-07-2006 / 15:33:31 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	12775	!
c57956a348bf printing support fm parents: 9431 diff changeset	12776
c57956a348bf printing support fm parents: 9431 diff changeset	12777	scale: percent
19369 ccf33c1cd9d8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19367 diff changeset	12778	^ self signedInt16At: 1+52 put: percent MSB: UninterpretedBytes isBigEndian
9475 c57956a348bf printing support fm parents: 9431 diff changeset	12779
c57956a348bf printing support fm parents: 9431 diff changeset	12780	"Created: / 27-07-2006 / 15:36:05 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	12781	! !
c57956a348bf printing support fm parents: 9431 diff changeset	12782
c57956a348bf printing support fm parents: 9431 diff changeset	12783	!Win32OperatingSystem::DocInfoStructure class methodsFor:'instance creation'!
c57956a348bf printing support fm parents: 9431 diff changeset	12784
c57956a348bf printing support fm parents: 9431 diff changeset	12785	new
c57956a348bf printing support fm parents: 9431 diff changeset	12786
c57956a348bf printing support fm parents: 9431 diff changeset	12787	^super new: self sizeInBytes
c57956a348bf printing support fm parents: 9431 diff changeset	12788
c57956a348bf printing support fm parents: 9431 diff changeset	12789	"Created: / 02-08-2006 / 16:21:01 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	12790	!
c57956a348bf printing support fm parents: 9431 diff changeset	12791
c57956a348bf printing support fm parents: 9431 diff changeset	12792	sizeInBytes
c57956a348bf printing support fm parents: 9431 diff changeset	12793
c57956a348bf printing support fm parents: 9431 diff changeset	12794	^20
c57956a348bf printing support fm parents: 9431 diff changeset	12795
c57956a348bf printing support fm parents: 9431 diff changeset	12796	"Created: / 02-08-2006 / 16:21:10 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	12797	! !
c57956a348bf printing support fm parents: 9431 diff changeset	12798
c57956a348bf printing support fm parents: 9431 diff changeset	12799	!Win32OperatingSystem::DocInfoStructure methodsFor:'accessing'!
c57956a348bf printing support fm parents: 9431 diff changeset	12800
c57956a348bf printing support fm parents: 9431 diff changeset	12801	cbSize
c57956a348bf printing support fm parents: 9431 diff changeset	12802
c57956a348bf printing support fm parents: 9431 diff changeset	12803	^self longAt: 0+1
c57956a348bf printing support fm parents: 9431 diff changeset	12804
c57956a348bf printing support fm parents: 9431 diff changeset	12805	"Created: / 28-07-2006 / 18:36:02 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	12806	!
c57956a348bf printing support fm parents: 9431 diff changeset	12807
c57956a348bf printing support fm parents: 9431 diff changeset	12808	cbSize: aValue
c57956a348bf printing support fm parents: 9431 diff changeset	12809
c57956a348bf printing support fm parents: 9431 diff changeset	12810	self longAt: 0+1 put: aValue
c57956a348bf printing support fm parents: 9431 diff changeset	12811
c57956a348bf printing support fm parents: 9431 diff changeset	12812	"Created: / 28-07-2006 / 18:37:25 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	12813	!
c57956a348bf printing support fm parents: 9431 diff changeset	12814
c57956a348bf printing support fm parents: 9431 diff changeset	12815	fwType
c57956a348bf printing support fm parents: 9431 diff changeset	12816
c57956a348bf printing support fm parents: 9431 diff changeset	12817	^self longAt: 16+1
c57956a348bf printing support fm parents: 9431 diff changeset	12818
c57956a348bf printing support fm parents: 9431 diff changeset	12819	"Created: / 28-07-2006 / 18:37:44 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	12820	!
c57956a348bf printing support fm parents: 9431 diff changeset	12821
c57956a348bf printing support fm parents: 9431 diff changeset	12822	fwType: aValue
c57956a348bf printing support fm parents: 9431 diff changeset	12823	"Set a DWORD fwType"
c57956a348bf printing support fm parents: 9431 diff changeset	12824
c57956a348bf printing support fm parents: 9431 diff changeset	12825	self longAt: 16+1 put:aValue
c57956a348bf printing support fm parents: 9431 diff changeset	12826
c57956a348bf printing support fm parents: 9431 diff changeset	12827	"Created: / 28-07-2006 / 18:38:17 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	12828	!
c57956a348bf printing support fm parents: 9431 diff changeset	12829
c57956a348bf printing support fm parents: 9431 diff changeset	12830	lpszDocName
c57956a348bf printing support fm parents: 9431 diff changeset	12831
c57956a348bf printing support fm parents: 9431 diff changeset	12832	^(ExternalBytes address:(self unsignedLongAt: 4+1)) stringAt:1
c57956a348bf printing support fm parents: 9431 diff changeset	12833
c57956a348bf printing support fm parents: 9431 diff changeset	12834	"Created: / 03-08-2006 / 15:06:56 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	12835	!
c57956a348bf printing support fm parents: 9431 diff changeset	12836
c57956a348bf printing support fm parents: 9431 diff changeset	12837	lpszDocName: aValue
c57956a348bf printing support fm parents: 9431 diff changeset	12838
c57956a348bf printing support fm parents: 9431 diff changeset	12839	^self unsignedLongAt: 4+1 put: aValue
c57956a348bf printing support fm parents: 9431 diff changeset	12840
c57956a348bf printing support fm parents: 9431 diff changeset	12841	"Created: / 03-08-2006 / 15:08:32 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	12842	!
c57956a348bf printing support fm parents: 9431 diff changeset	12843
c57956a348bf printing support fm parents: 9431 diff changeset	12844	lpszOutput
c57956a348bf printing support fm parents: 9431 diff changeset	12845
c57956a348bf printing support fm parents: 9431 diff changeset	12846	^(ExternalBytes address:(self unsignedLongAt: 8+1)) stringAt:1
c57956a348bf printing support fm parents: 9431 diff changeset	12847
c57956a348bf printing support fm parents: 9431 diff changeset	12848	"Created: / 03-08-2006 / 15:07:52 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	12849	!
c57956a348bf printing support fm parents: 9431 diff changeset	12850
c57956a348bf printing support fm parents: 9431 diff changeset	12851	lpszOutput: aValue
c57956a348bf printing support fm parents: 9431 diff changeset	12852
c57956a348bf printing support fm parents: 9431 diff changeset	12853	^self unsignedLongAt: 8+1 put: aValue
c57956a348bf printing support fm parents: 9431 diff changeset	12854
c57956a348bf printing support fm parents: 9431 diff changeset	12855	"Created: / 03-08-2006 / 15:08:49 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	12856	! !
c57956a348bf printing support fm parents: 9431 diff changeset	12857
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	12858	!Win32OperatingSystem::FileStatusInfo class methodsFor:'instance creation'!
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	12859
11258 5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	12860	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	12861	^ self basicNew
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12862	type:t mode:m uid:u gid:g size:s
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12863	id:i accessed:aT modified:mT created:cT
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12864	sourcePath:lP
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12865	fullName:fullName
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12866	alternativeName:name2
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	12867	! !
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	12868
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	12869	!Win32OperatingSystem::FileStatusInfo methodsFor:'accessing'!
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	12870
6372 9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	12871	accessTime
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	12872	"return accessed"
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	12873
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	12874	^ accessed
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	12875
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	12876	"Created: / 1.2.2002 / 11:05:49 / cg"
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	12877	!
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	12878
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	12879	alternativeName
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	12880	"return the files other name (DOS name on windows).
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	12881	Nil if there is no other name"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	12882
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12883	\|path idx\|
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12884
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12885	path := self alternativePathName.
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12886	path notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12887	idx := path lastIndexOf:$\ startingAt:path size-1.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12888	idx ~~ 0 ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12889	path := path copyFrom:(idx+1).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12890	].
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12891	].
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12892
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12893	^ path
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12894
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12895	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12896	'C:\' asFilename info alternativeName
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12897	'C:\Dokumente und Einstellungen\' asFilename info alternativeName
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12898	'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	12899	"
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12900	!
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12901
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12902	alternativePathName
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12903	"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	12904	Nil if there is no other name"
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12905
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12906	"/ access lazily...
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12907	alternativePathName isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12908	alternativePathName := (OperatingSystem getShortPathName:sourcePath) asSingleByteString.
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12909	].
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12910
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12911	^ alternativePathName
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12912
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12913	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12914	'C:\' asFilename info alternativePathName
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12915	'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	12916	"
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	12917	!
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	12918
6791 ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	12919	creationTime
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	12920	^ created
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	12921	!
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	12922
6372 9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	12923	fileSize
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	12924	"return size"
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	12925
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	12926	^ size
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	12927
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	12928	"Created: / 1.2.2002 / 11:06:15 / cg"
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	12929	!
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	12930
7062 44e3fe28aea0 * empty log message * penk parents: 6799 diff changeset	12931	fullName
44e3fe28aea0 * empty log message * penk parents: 6799 diff changeset	12932	"return the files real name (non-DOS name on windows).
44e3fe28aea0 * empty log message * penk parents: 6799 diff changeset	12933	Nil if there is no other name"
44e3fe28aea0 * empty log message * penk parents: 6799 diff changeset	12934
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12935	\|path idx\|
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12936
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12937	path := self fullPathName.
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12938	path notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12939	idx := path lastIndexOf:$\ startingAt:path size-1.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12940	idx ~~ 0 ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12941	path := path copyFrom:(idx+1).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12942	].
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12943	].
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12944
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12945	^ path
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12946
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12947	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12948	'\' asFilename info fullName
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12949	'C:\' asFilename info fullName
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12950	'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	12951	"
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12952	!
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12953
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12954	fullPathName
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12955	"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	12956	Nil if there is no other name"
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12957
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12958	"/ access lazily...
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12959	fullPathName isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12960	fullPathName := OperatingSystem getLongPathName:sourcePath.
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12961	].
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12962
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12963	^ fullPathName
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12964
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	12965	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12966	'C:\' asFilename info fullPathName
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12967	'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	12968	"
7062 44e3fe28aea0 * empty log message * penk parents: 6799 diff changeset	12969	!
44e3fe28aea0 * empty log message * penk parents: 6799 diff changeset	12970
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	12971	gid
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	12972	"return gid"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	12973
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	12974	^ gid
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	12975	!
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	12976
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	12977	id
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	12978	"return id"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	12979
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	12980	^ id
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	12981	!
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	12982
11258 5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	12983	linkTargetPath
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	12984	"for symbolic links only: return the path where the symbolic link points to"
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	12985
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	12986	"/ access lazily...
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	12987	linkTargetPath isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12988	type == #symbolicLink ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12989	linkTargetPath := OperatingSystem getLinkTarget:sourcePath.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	12990	]
11258 5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	12991	].
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	12992
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	12993	^ linkTargetPath
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	12994
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	12995	"Modified: / 07-02-2007 / 10:31:56 / cg"
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	12996	!
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	12997
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	12998	mode
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	12999	"return mode"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13000
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13001	^ mode
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13002	!
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13003
6372 9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13004	modificationTime
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13005	"return modified"
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13006
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13007	^ modified
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13008
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13009	"Created: / 1.2.2002 / 11:06:33 / cg"
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13010	!
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13011
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13012	numLinks
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13013	"DOS has no hardLinks - return 1"
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13014
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13015	^ 1
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13016
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13017	"Created: / 1.2.2002 / 11:07:04 / cg"
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13018	!
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13019
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13020	path
11258 5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	13021	"for symbolic links only: return the path where the symbolic link points to.
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	13022	bad named method - left here for backward compatibility"
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	13023
5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	13024	^ self linkTargetPath.
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13025	!
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13026
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13027	size
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13028	"return size"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13029
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13030	^ size
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13031	!
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13032
17286 a7170033e17f directory access ca parents: 17169 diff changeset	13033	sourcePath
a7170033e17f directory access ca parents: 17169 diff changeset	13034	^ sourcePath
a7170033e17f directory access ca parents: 17169 diff changeset	13035	!
a7170033e17f directory access ca parents: 17169 diff changeset	13036
6372 9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13037	statusChangeTime
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13038	"return statusChanged"
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13039
6791 ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13040	^ statusChanged ? modified
6372 9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13041
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13042	"Created: / 1.2.2002 / 11:07:27 / cg"
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13043	!
9cd3ac764491 checkin from browser Claus Gittinger <cg@exept.de> parents: 6338 diff changeset	13044
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13045	type
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13046	"return type"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13047
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13048	^ type
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13049	!
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13050
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13051	uid
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13052	"return uid"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13053
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13054	^ uid
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13055	! !
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13056
10585 ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13057	!Win32OperatingSystem::FileStatusInfo methodsFor:'accessing-vms'!
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13058
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13059	fixedHeaderSize
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13060	"return the fixedHeaderSize (VMS only; nil everywhere else)"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13061
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13062	^ nil
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13063	!
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13064
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13065	recordAttributes
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13066	"return the recordAttributes (VMS only; nil everywhere else)"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13067
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13068	^ nil
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13069	!
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13070
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13071	recordFormat
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13072	"return the recordFormat (VMS only; nil everywhere else)"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13073
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13074	^ nil
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13075	!
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13076
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13077	recordFormatNumeric
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13078	"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	13079
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13080	^ nil
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13081	!
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13082
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13083	recordSize
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13084	"return the recordSize (VMS only; nil everywhere else)"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13085
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13086	^ nil
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13087	! !
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13088
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13089	!Win32OperatingSystem::FileStatusInfo methodsFor:'backward compatibility'!
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13090
6791 ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13091	accessed
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13092	"return accessed"
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13093
8476 4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13094	<resource: #obsolete>
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13095
6791 ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13096	self obsoleteMethodWarning:'use #accessTime'.
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13097	^ accessed
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13098	!
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13099
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13100	at:key
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13101	"backward compatibility access: in previous releases, IdentityDictionaries
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13102	were used to hold my information. Allow access via key messages.
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13103	This method will vanish - use the proper access protocol."
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13104
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13105	^ self perform:key
6791 ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13106	!
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13107
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13108	modified
8476 4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13109	<resource: #obsolete>
9061 20af48b9b295 * empty log message * Claus Gittinger <cg@exept.de> parents: 9026 diff changeset	13110
6791 ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13111	self obsoleteMethodWarning:'use #modificationTime'.
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13112	^ modified
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13113	!
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13114
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13115	statusChanged
8476 4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13116	<resource: #obsolete>
9061 20af48b9b295 * empty log message * Claus Gittinger <cg@exept.de> parents: 9026 diff changeset	13117
6791 ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13118	self obsoleteMethodWarning:'use #statusChangeTime'.
ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13119	^ statusChanged
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13120	! !
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13121
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13122	!Win32OperatingSystem::FileStatusInfo methodsFor:'private accessing'!
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13123
11258 5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	13124	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	13125	type := t.
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13126	mode := m.
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13127	uid := u.
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13128	gid := g.
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13129	size := s.
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13130	id := i.
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13131	accessed := aT.
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13132	modified := mT.
6791 ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	13133	created := cT.
11258 5117e5bd0dc3 symbolic link name resolution ca parents: 11253 diff changeset	13134	sourcePath := lP.
11804 2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13135	fullPathName := name1.
2596279cafb6 Speed up #linkInfoOf: (especially on networked files) Stefan Vogel <sv@exept.de> parents: 11800 diff changeset	13136	alternativePathName := name2.
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13137	! !
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13138
10585 ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13139	!Win32OperatingSystem::FileStatusInfo methodsFor:'queries-access'!
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13140
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13141	isGroupExecutable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13142	^ mode bitTest:8r10
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13143
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13144	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13145	'smalltalk.rc' asFilename info isGroupExecutable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13146	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13147	!
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13148
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13149	isGroupReadable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13150	^ mode bitTest:8r40
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13151
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13152	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13153	'smalltalk.rc' asFilename info isGroupReadable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13154	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13155	!
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13156
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13157	isGroupWritable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13158	^ mode bitTest:8r20
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13159
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13160	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13161	'smalltalk.rc' asFilename info isGroupWritable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13162	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13163	!
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13164
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13165	isOwnerExecutable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13166	^ mode bitTest:8r100
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13167
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13168	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13169	'smalltalk.rc' asFilename info isOwnerExecutable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13170	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13171	!
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13172
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13173	isOwnerReadable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13174	^ mode bitTest:8r400
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13175
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13176	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13177	'smalltalk.rc' asFilename info isOwnerReadable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13178	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13179	!
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13180
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13181	isOwnerWritable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13182	^ mode bitTest:8r200
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13183
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13184	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13185	'smalltalk.rc' asFilename info isOwnerWritable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13186	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13187	!
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13188
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13189	isWorldExecutable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13190	^ mode bitTest:8r1
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13191
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13192	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13193	'smalltalk.rc' asFilename info isWorldExecutable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13194	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13195	!
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13196
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13197	isWorldReadable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13198	^ mode bitTest:8r4
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13199
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13200	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13201	'smalltalk.rc' asFilename info isWorldReadable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13202	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13203	!
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13204
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13205	isWorldWritable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13206	^ mode bitTest:8r2
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13207
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13208	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13209	'smalltalk.rc' asFilename info isWorldWritable
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13210	"
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13211	! !
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13212
ecf3a579f2af FileStatusInfo - methods to check access rights Stefan Vogel <sv@exept.de> parents: 10543 diff changeset	13213	!Win32OperatingSystem::FileStatusInfo methodsFor:'queries-type'!
6799 568d31641c88 * empty log message * Claus Gittinger <cg@exept.de> parents: 6791 diff changeset	13214
8476 4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13215	isBlockSpecial
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13216	^ type == #characterSpecial
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13217	!
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13218
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13219	isCharacterSpecial
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13220	^ type == #characterSpecial
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13221	!
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13222
6799 568d31641c88 * empty log message * Claus Gittinger <cg@exept.de> parents: 6791 diff changeset	13223	isDirectory
568d31641c88 * empty log message * Claus Gittinger <cg@exept.de> parents: 6791 diff changeset	13224	^ type == #directory
568d31641c88 * empty log message * Claus Gittinger <cg@exept.de> parents: 6791 diff changeset	13225	!
568d31641c88 * empty log message * Claus Gittinger <cg@exept.de> parents: 6791 diff changeset	13226
8476 4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13227	isFifo
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13228	^ type == #fifo
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13229	!
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13230
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13231	isRegular
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13232	^ type == #regular
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13233	!
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13234
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13235	isSocket
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13236	^ type == #socket
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13237	!
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13238
15252 621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	13239	isSpecialFile
621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	13240	^ (type ~~ #directory
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13241	and:[type ~~ #remoteDirectory
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13242	and:[type ~~ #regular
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13243	and:[type ~~ #symbolicLink
15252 621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	13244	]]])
621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	13245	!
621c034e94a0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15177 diff changeset	13246
6799 568d31641c88 * empty log message * Claus Gittinger <cg@exept.de> parents: 6791 diff changeset	13247	isSymbolicLink
568d31641c88 * empty log message * Claus Gittinger <cg@exept.de> parents: 6791 diff changeset	13248	^ 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	13249	!
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13250
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13251	isUnknown
4eb96fd9727a #linkInfoOf returns info even if a file is not a symbolic link. Stefan Vogel <sv@exept.de> parents: 8416 diff changeset	13252	^ type == #unknown
17286 a7170033e17f directory access ca parents: 17169 diff changeset	13253	!
a7170033e17f directory access ca parents: 17169 diff changeset	13254
a7170033e17f directory access ca parents: 17169 diff changeset	13255	isValid
a7170033e17f directory access ca parents: 17169 diff changeset	13256	"answer true if the fileInfo is valid"
a7170033e17f directory access ca parents: 17169 diff changeset	13257	^ type notNil
6799 568d31641c88 * empty log message * Claus Gittinger <cg@exept.de> parents: 6791 diff changeset	13258	! !
568d31641c88 * empty log message * Claus Gittinger <cg@exept.de> parents: 6791 diff changeset	13259
21180 88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	13260	!Win32OperatingSystem::OSProcessDescriptor methodsFor:'accessing'!
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	13261
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	13262	commandLine
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	13263	^ commandLine
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	13264	!
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	13265
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	13266	commandLine:something
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	13267	commandLine := something.
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	13268	!
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	13269
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	13270	parentPid
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	13271	^ parentPid
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	13272	!
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	13273
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	13274	parentPid:something
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	13275	parentPid := something.
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	13276	!
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	13277
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	13278	pid
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	13279	^ pid
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	13280	!
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	13281
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	13282	pid:something
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	13283	pid := something.
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	13284	! !
88b19a6dc9c1 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 21144 diff changeset	13285
9155 8b2ca287c1bb * empty log message * Claus Gittinger <cg@exept.de> parents: 9154 diff changeset	13286	!Win32OperatingSystem::OSProcessStatus class methodsFor:'documentation'!
8b2ca287c1bb * empty log message * Claus Gittinger <cg@exept.de> parents: 9154 diff changeset	13287
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13288	documentation
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13289	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13290	This is an auxillary class, that holds information about status changes of
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13291	operating system processes (these are no smalltalk processes!!).
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13292
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13293	[Instance variables:]
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13294
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13295	pid <Integer> OS-Process identifier
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13296
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13297	status <Symbol> either #exit #signal #stop #continue
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13298
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13299	code <Integer> either exitcode or signalnumber
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13300
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13301	core <Boolean> true if core has been dumped
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13302
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13303
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13304	[author:]
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13305	Stefan Vogel
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13306
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13307	[see also:]
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13308	OperatingSystem
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13309	"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13310	! !
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13311
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13312	!Win32OperatingSystem::OSProcessStatus class methodsFor:'instance creation'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13313
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13314	pid:pid status:status code:code core:core
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13315	"private interface for Win32OperatingSystem"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13316
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13317	^ self new pid:pid status:status code:code core:core
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13318
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13319	"Created: 28.12.1995 / 14:16:14 / stefan"
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13320	"Modified: 30.4.1996 / 18:25:00 / cg"
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13321	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13322
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13323	processCreationFailure
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13324	"private interface for Win32OperatingSystem"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13325
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13326	^ self new pid:-1 status:#failure code:-1 core:false
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13327
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13328	"Created: 28.12.1995 / 14:35:29 / stefan"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13329	"Modified: 30.4.1996 / 18:25:05 / cg"
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13330	! !
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13331
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13332	!Win32OperatingSystem::OSProcessStatus methodsFor:'accessing'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13333
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13334	code
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13335	"return the exitcode / signalNumber"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13336
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13337	^ code
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13338
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13339	"Created: 28.12.1995 / 14:05:07 / stefan"
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13340	"Modified: 30.4.1996 / 18:26:23 / cg"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13341	!
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13342
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13343	core
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13344	"return true if core has been dumped, false otherwise"
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13345
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13346	^ core == true
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13347
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13348	"Modified: 28.12.1995 / 14:14:38 / stefan"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13349	!
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13350
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13351	pid
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13352	"return the pid"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13353
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13354	^ pid
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13355
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13356	"Created: 28.12.1995 / 14:05:07 / stefan"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13357	"Modified: 30.4.1996 / 18:26:30 / cg"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13358	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13359
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13360	status
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13361	"return status as a Symbol;
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13362	one of #exit #signal #stop #continue"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13363
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13364	^ status
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13365
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13366	"Created: 28.12.1995 / 14:05:07 / stefan"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13367	"Modified: 30.4.1996 / 18:26:54 / cg"
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13368	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13369
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13370	!Win32OperatingSystem::OSProcessStatus methodsFor:'initialization'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13371
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13372	pid:newPid status:newStatus code:newCode core:newCore
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13373	pid := newPid.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13374	status := newStatus.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13375	code := newCode.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13376	core := newCore.
6275 8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13377
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13378	"Created: 28.12.1995 / 14:18:22 / stefan"
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13379	! !
8f08b99e7aaa comments Claus Gittinger <cg@exept.de> parents: 6271 diff changeset	13380
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13381	!Win32OperatingSystem::OSProcessStatus methodsFor:'private-OS interface'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13382
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13383	code:something
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13384	"set the exitCode"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13385
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13386	code := something.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13387
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13388	"Created: 28.12.1995 / 14:05:07 / stefan"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13389	"Modified: 30.4.1996 / 18:25:18 / cg"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13390	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13391
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13392	core:something
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13393	"set core"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13394
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13395	core := something.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13396
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13397	"Created: 28.12.1995 / 14:05:07 / stefan"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13398	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13399
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13400	pid:something
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13401	"set pid"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13402
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13403	pid := something.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13404
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13405	"Created: 28.12.1995 / 14:05:07 / stefan"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13406	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13407
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13408	status:something
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13409	"set status"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13410
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13411	status := something.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13412
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13413	"Created: 28.12.1995 / 14:05:07 / stefan"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13414	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13415
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13416	!Win32OperatingSystem::OSProcessStatus methodsFor:'queries'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13417
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13418	couldNotExecute
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13419	"return true when a command could not be executed"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13420
21186 14212d18f352 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 21180 diff changeset	13421	^ status == #failure or:[status == #exit and:[code = 127]].
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13422
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13423	"Created: 28.12.1995 / 15:43:17 / stefan"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13424	"Modified: 30.4.1996 / 18:27:03 / cg"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13425	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13426
16411 d2d30742b686 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16374 diff changeset	13427	isError
d2d30742b686 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16374 diff changeset	13428	"true if process terminated with error"
d2d30742b686 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16374 diff changeset	13429
d2d30742b686 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16374 diff changeset	13430	^ status == #exit and:[code ~= 0]
d2d30742b686 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16374 diff changeset	13431	!
d2d30742b686 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16374 diff changeset	13432
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13433	stillAlive
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13434	"true if process is still alive"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13435
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13436	^ status == #stop or:[status == #continue]
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13437
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13438	"Created: 28.12.1995 / 14:27:26 / stefan"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13439	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13440
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13441	success
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13442	"true if process terminated successfully"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13443
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13444	^ status == #exit and:[code = 0]
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13445
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13446	"Created: 28.12.1995 / 14:13:05 / stefan"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13447	"Modified: 28.12.1995 / 14:13:41 / stefan"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13448	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	13449
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13450	!Win32OperatingSystem::PECOFFConstants class methodsFor:'documentation'!
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13451
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13452	documentation
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13453	"
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13454	COFF machine type IDs.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13455
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13456	[author:]
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13457	Jan Vrany
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13458
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13459	[instance variables:]
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13460
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13461	[class variables:]
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13462
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13463	[see also:]
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13464	Microsoft Portable Executable and Common Object File Format Specification,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13465	section 6. Machine Types
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13466
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13467	"
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13468	! !
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13469
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13470	!Win32OperatingSystem::PECOFFConstants class methodsFor:'initialization'!
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13471
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13472	initialize
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13473	"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	13474
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13475	"/ See Microsoft Portable Executable and Common Object File Format Specification,
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13476	"/ section 4
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13477
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13478	PE_Signature_OFFSET_OFFSET := 16r3C.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13479	PE_Signature := #[80 69 0 0].
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13480
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13481	"/ See Microsoft Portable Executable and Common Object File Format Specification,
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13482	"/ section 5
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13483
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13484	COFF_HEADER_SIZE := 20.
18543 fef08f652ef8 * empty log message * Claus Gittinger <cg@exept.de> parents: 18414 diff changeset	13485	COFF_HEADER_Machine_OFFSET := 0.
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13486
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13487	"/ See Microsoft Portable Executable and Common Object File Format Specification,
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13488	"/ section 6
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13489
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13490	IMAGE_FILE_MACHINE_UNKNOWN := 16r0.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13491	IMAGE_FILE_MACHINE_AM33 := 16r1D3.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13492	IMAGE_FILE_MACHINE_AMD64 := 16r8664.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13493	IMAGE_FILE_MACHINE_ARM := 16r1C0.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13494	IMAGE_FILE_MACHINE_ARMNT := 16r1C4.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13495	IMAGE_FILE_MACHINE_ARM64 := 16rAA64.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13496	IMAGE_FILE_MACHINE_EBC := 16rEBC.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13497	IMAGE_FILE_MACHINE_I386 := 16r14C.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13498	IMAGE_FILE_MACHINE_IA64 := 16r200.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13499	IMAGE_FILE_MACHINE_M32R := 16r9041.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13500	IMAGE_FILE_MACHINE_MIPS16 := 16r266.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13501	IMAGE_FILE_MACHINE_MIPSFPU := 16r366.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13502	IMAGE_FILE_MACHINE_MIPSFPU16 := 16r466.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13503	IMAGE_FILE_MACHINE_POWERPC := 16r1F0.
18543 fef08f652ef8 * empty log message * Claus Gittinger <cg@exept.de> parents: 18414 diff changeset	13504	IMAGE_FILE_MACHINE_POWEPCFP := 16r1F1.
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13505	IMAGE_FILE_MACHINE_R4000 := 16r166.
18543 fef08f652ef8 * empty log message * Claus Gittinger <cg@exept.de> parents: 18414 diff changeset	13506	IMAGE_FILE_MACHINE_SH3 := 16r1A2.
fef08f652ef8 * empty log message * Claus Gittinger <cg@exept.de> parents: 18414 diff changeset	13507	IMAGE_FILE_MACHINE_SH3DSP := 16r1A3.
fef08f652ef8 * empty log message * Claus Gittinger <cg@exept.de> parents: 18414 diff changeset	13508	IMAGE_FILE_MACHINE_SH4 := 16r1A6.
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13509	IMAGE_FILE_MACHINE_SH5 := 16r1A8.
18543 fef08f652ef8 * empty log message * Claus Gittinger <cg@exept.de> parents: 18414 diff changeset	13510	IMAGE_FILE_MACHINE_THUMB := 16r1C2.
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13511	IMAGE_FILE_MACHINE_WCEMIPSV2 := 16r169.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13512
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13513	"Modified: / 16-03-2015 / 13:34:57 / jv"
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13514	"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	13515	! !
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13516
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13517	!Win32OperatingSystem::PECOFFFileHeader class methodsFor:'documentation'!
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13518
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13519	documentation
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13520	"
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13521	Inteances of COFFFileHeader provides an access to various
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13522	information about executables / .dlls on Windows
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13523
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13524	[author:]
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13525	Jan Vrany <jan.vrany@fit.cvut.cz>
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13526
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13527	[instance variables:]
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13528
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13529	[class variables:]
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13530
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13531	[see also:]
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13532	Microsoft Portable Executable and Common Object File Format Specification
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13533
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13534	"
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13535	! !
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13536
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13537	!Win32OperatingSystem::PECOFFFileHeader class methodsFor:'instance creation'!
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13538
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13539	fromFile: aStringOrFilename
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13540	"Returns a COFFFileHeader of given file.
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13541	If the given file is not a regular file or
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13542	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	13543
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13544	^ self new initializeOnFile: aStringOrFilename
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13545
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13546	"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	13547	! !
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13548
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13549	!Win32OperatingSystem::PECOFFFileHeader methodsFor:'accessing'!
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13550
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13551	machine
19367 b7eef79ceeb8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19346 diff changeset	13552	^ data unsignedInt16At: COFF_HEADER_Machine_OFFSET + 1 MSB: false
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13553
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13554	"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	13555	! !
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13556
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13557	!Win32OperatingSystem::PECOFFFileHeader methodsFor:'initialization'!
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13558
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13559	initializeOnFile: aStringOrFilename
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13560	file := aStringOrFilename asFilename.
18543 fef08f652ef8 * empty log message * Claus Gittinger <cg@exept.de> parents: 18414 diff changeset	13561	file exists ifFalse:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13562	self error:'Given file does not exist'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13563	^ nil
18543 fef08f652ef8 * empty log message * Claus Gittinger <cg@exept.de> parents: 18414 diff changeset	13564	].
fef08f652ef8 * empty log message * Claus Gittinger <cg@exept.de> parents: 18414 diff changeset	13565	file isRegularFile ifFalse:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13566	self error:'Given file is not a regular file'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13567	^ nil
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13568	].
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13569	file readingFileDo:[ :s \|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13570	\| sig \|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13571	s binary.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13572	s position: PE_Signature_OFFSET_OFFSET.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13573	s position: (s nextUnsignedLongMSB: false).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13574	sig := s next: PE_Signature size.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13575	sig = PE_Signature ifFalse:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13576	self error: 'Given file is not a valid PE file (no valid PE signature found)'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13577	^ nil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13578	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13579	data := s next: COFF_HEADER_SIZE
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13580	].
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13581
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13582	"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	13583	! !
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13584
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13585	!Win32OperatingSystem::PECOFFFileHeader methodsFor:'queries'!
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13586
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13587	isFor32BitArchitecture
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13588	^ { 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	13589
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13590	"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	13591	!
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13592
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13593	isFor64BitArchitecture
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13594	^ { 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	13595
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13596	"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	13597	! !
918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	13598
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13599	!Win32OperatingSystem::PerformanceData class methodsFor:'accessing'!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13600
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13601	counterIndexTextDictionary
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13602
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13603	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13604	self counterIndexTextDictionary
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13605	"
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13606
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13607	CounterIndexTextDictionary isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13608	self synchronized:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13609	CounterIndexTextDictionary isNil ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13610	\|performanceText counterIndexTextDictionary\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13611
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13612	performanceText := self getPerformanceText valueNamed:'Counter'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13613	counterIndexTextDictionary := IdentityDictionary new.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13614
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13615	1 to:performanceText size by:2 do:[:index\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13616	counterIndexTextDictionary at:(performanceText at:index) asInteger put:(performanceText at:index + 1).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13617	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13618
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13619	CounterIndexTextDictionary := counterIndexTextDictionary.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13620	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13621	].
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13622	].
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13623
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13624	^ CounterIndexTextDictionary
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13625	!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13626
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13627	helpIndexTextDictionary
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13628
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13629	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13630	self helpIndexTextDictionary
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13631	"
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13632
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13633	HelpIndexTextDictionary isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13634	self synchronized:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13635	HelpIndexTextDictionary isNil ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13636	\|performanceText helpIndexTextDictionary\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13637
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13638	performanceText := self getPerformanceText valueNamed:'Help'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13639	helpIndexTextDictionary := IdentityDictionary new.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13640
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13641	1 to:performanceText size by:2 do:[:index\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13642	helpIndexTextDictionary at:(performanceText at:index) asInteger put:(performanceText at:index + 1).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13643	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13644
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13645	HelpIndexTextDictionary := helpIndexTextDictionary.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13646	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13647	].
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13648	].
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13649
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13650	^ HelpIndexTextDictionary
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13651	! !
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13652
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13653	!Win32OperatingSystem::PerformanceData class methodsFor:'accessing subclasses'!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13654
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	13655	diskIO
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	13656	^ DiskIO current
10688 1e8dc6018c76 * empty log message * sr parents: 10687 diff changeset	13657	!
1e8dc6018c76 * empty log message * sr parents: 10687 diff changeset	13658
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13659	global
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	13660	^ Global current
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13661	!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13662
10707 3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	13663	memory
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	13664	^ Memory current
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	13665	!
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	13666
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	13667	network
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	13668	^ Network current
10710 1055a716e253 * empty log message * sr parents: 10709 diff changeset	13669	!
1055a716e253 * empty log message * sr parents: 10709 diff changeset	13670
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	13671	process
9110d864362d * empty log message * sr parents: 10704 diff changeset	13672	^ Process current
9110d864362d * empty log message * sr parents: 10704 diff changeset	13673	!
9110d864362d * empty log message * sr parents: 10704 diff changeset	13674
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13675	processor
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	13676	^ Processor current
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13677	! !
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13678
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13679	!Win32OperatingSystem::PerformanceData class methodsFor:'documentation'!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13680
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	13681	documentation
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	13682
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	13683	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13684	VISTA:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13685
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13686	Wer versucht unter Vista die Registy HKEY_PERFORMANCE_DATA abzufragen wird zunächst enttäuscht.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13687	Die UAC UserAccessControl verhindern dies nämlich (selbs für den admin).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13688
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13689	Um dies zu umgehen:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13690
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13691	To turn off UAC
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13692
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13693	1. Click Start, and then click Control Panel.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13694	2. In Control Panel, click User Accounts.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13695	3. In the User Accounts window, click User Accounts.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13696	4. In the User Accounts tasks window, click Turn User Account Control on or off.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13697	5. If UAC is currently configured in Admin Approval Mode, the User Account Control message appears. Click Continue.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13698	6. Clear the Use User Account Control (UAC) to help protect your computer check box, and then click OK.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13699	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	13700	"
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	13701	!
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	13702
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13703	examples
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13704
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	13705	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13706	######################################### PRIMITIVE
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13707	self getUsedMemoryInPercentage.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13708
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13709	self getPhysicalMemoryInKB.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13710	self getPhysicalMemoryInMB.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13711
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13712	self getFreePhysicalMemoryInKB.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13713	self getFreePhysicalMemoryInMB.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13714
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13715	self getPageFileSizeInKB.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13716	self getPageFileSizeInMB.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13717
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13718	self getFreePageFileSizeInKB.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13719	self getFreePageFileSizeInMB.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13720
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13721	self getVirtualMemoryInKB.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13722	self getVirtualMemoryInMB.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13723
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13724	######################################### REGISTRY
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13725	self helpIndexTextDictionary
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13726	self counterIndexTextDictionary
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13727
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13728	self global getCounterNameIndexArray.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13729	self global getObjectNameIndexArray.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13730
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13731	self processor getCounterNameIndexArray.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13732	self processor processorUsage.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13733	self processor processorUsageFromLast.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13734	self processor interruptsPerSecond.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13735	self processor interruptsPerSecondFromLast.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13736
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13737	self process getCounterNameIndexArray.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13738	self process processUsage.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13739	self process processUsageFromLast.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13740	self process runningProcesses.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13741	self process runningProcessNameList.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13742
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13743	self network getCounterNameIndexArray.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13744	self network kBytesReceivedPerSecond.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13745	self network kBytesReceivedPerSecondFromLast.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13746	self network kBytesSentPerSecond.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13747	self network kBytesSentPerSecondFromLast.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13748
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13749	self memory getCounterNameIndexArray.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13750	self memory availableMBytes.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13751	self memory availableKBytes.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13752
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13753	self diskIO getCounterNameIndexArray.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13754	self diskIO diskSpaceFreeInMegaByte.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13755	self diskIO diskQueueLength.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13756	self diskIO diskTransfersPerSecond.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13757	self diskIO diskTransfersPerSecondFromlast.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13758	self diskIO diskReadsPerSecond.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13759	self diskIO diskReadsPerSecondFromLast.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13760	self diskIO diskWritesPerSecond.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13761	self diskIO diskWritesPerSecondFromLast.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13762	self diskIO diskBytesPerSecond.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13763	self diskIO diskBytesPerSecondFromLast.
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13764	"
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13765	! !
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13766
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13767	!Win32OperatingSystem::PerformanceData class methodsFor:'initialization'!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13768
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13769	initialize
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13770
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13771	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13772	self initialize
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13773	"
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13774
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13775	PerformanceText := CounterIndexTextDictionary := HelpIndexTextDictionary := nil.
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13776	! !
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13777
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13778	!Win32OperatingSystem::PerformanceData class methodsFor:'private'!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13779
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13780	getPerformanceText
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13781
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13782	PerformanceText isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13783	PerformanceText := Win32OperatingSystem registryEntry key:'HKEY_PERFORMANCE_TEXT'.
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13784	].
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13785
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13786	^ PerformanceText
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13787	! !
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13788
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13789	!Win32OperatingSystem::PerformanceData class methodsFor:'queries - memory'!
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13790
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13791	getFreePageFileSizeInKB
10771 f336281a488e * empty log message * sr parents: 10758 diff changeset	13792	\|ret\|
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13793
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13794	%{
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13795	MEMORYSTATUS mState;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13796	GlobalMemoryStatus (&mState);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13797
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13798	ret = __mkSmallInteger(mState.dwAvailPageFile / 1024);
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13799	%}.
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13800
10771 f336281a488e * empty log message * sr parents: 10758 diff changeset	13801	^ ret
f336281a488e * empty log message * sr parents: 10758 diff changeset	13802
f336281a488e * empty log message * sr parents: 10758 diff changeset	13803	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13804	self getFreePageFileSizeInKB
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13805	"
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13806	!
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13807
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13808	getFreePageFileSizeInMB
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	13809	^ (self getFreePageFileSizeInKB / 1024) asInteger
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	13810
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	13811	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13812	self getFreePageFileSizeInMB
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13813	"
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13814	!
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13815
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13816	getFreePhysicalMemoryInKB
10771 f336281a488e * empty log message * sr parents: 10758 diff changeset	13817	\|ret\|
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13818
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13819	%{
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13820	MEMORYSTATUS mState;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13821	GlobalMemoryStatus (&mState);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13822
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13823	ret = __mkSmallInteger(mState.dwAvailPhys / 1024);
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13824	%}.
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13825
10771 f336281a488e * empty log message * sr parents: 10758 diff changeset	13826	^ ret
11215 b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	13827
b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	13828	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13829	self getFreePhysicalMemoryInKB
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13830	"
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13831	!
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13832
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13833	getFreePhysicalMemoryInMB
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	13834	^ (self getFreePhysicalMemoryInKB / 1024) asInteger
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	13835
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	13836	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13837	self getFreePhysicalMemoryInMB
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13838	"
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13839	!
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13840
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13841	getPageFileSizeInKB
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13842	^ self getPageFileSizeInMB * 1024
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13843
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13844	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13845	self getPageFileSizeInKB
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13846	"
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13847	!
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13848
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13849	getPageFileSizeInMB
10771 f336281a488e * empty log message * sr parents: 10758 diff changeset	13850	\|ret\|
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13851
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13852	%{
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13853	SYSTEM_INFO sInfo;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13854	GetSystemInfo(&sInfo);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13855
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13856	ret = __mkSmallInteger(sInfo.dwPageSize);
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13857	%}.
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13858
10771 f336281a488e * empty log message * sr parents: 10758 diff changeset	13859	^ ret
f336281a488e * empty log message * sr parents: 10758 diff changeset	13860
f336281a488e * empty log message * sr parents: 10758 diff changeset	13861	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13862	self getPageFileSizeInMB
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13863	"
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13864	!
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13865
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13866	getPhysicalMemoryInKB
10771 f336281a488e * empty log message * sr parents: 10758 diff changeset	13867	\|ret\|
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13868
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13869	%{
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13870	MEMORYSTATUS mState;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13871	GlobalMemoryStatus (&mState);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13872
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13873	ret = __mkSmallInteger(mState.dwTotalPhys / 1024);
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13874	%}.
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13875
10771 f336281a488e * empty log message * sr parents: 10758 diff changeset	13876	^ ret
f336281a488e * empty log message * sr parents: 10758 diff changeset	13877
f336281a488e * empty log message * sr parents: 10758 diff changeset	13878	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13879	self getPhysicalMemoryInKB
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13880	"
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13881	!
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13882
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13883	getPhysicalMemoryInMB
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	13884	^ (self getPhysicalMemoryInKB / 1024) asInteger
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	13885
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	13886	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13887	self getPhysicalMemoryInMB
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13888	"
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13889	!
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13890
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13891	getUsedMemoryInPercentage
10771 f336281a488e * empty log message * sr parents: 10758 diff changeset	13892	\|ret\|
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13893
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13894	%{
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13895	MEMORYSTATUS mState;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13896	GlobalMemoryStatus (&mState);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13897
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13898	ret = __mkSmallInteger(mState.dwMemoryLoad);
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13899	%}.
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13900
10771 f336281a488e * empty log message * sr parents: 10758 diff changeset	13901	^ ret
f336281a488e * empty log message * sr parents: 10758 diff changeset	13902
f336281a488e * empty log message * sr parents: 10758 diff changeset	13903	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13904	self getUsedMemoryInPercentage
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13905	"
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13906	!
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13907
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13908	getVirtualMemoryInKB
10771 f336281a488e * empty log message * sr parents: 10758 diff changeset	13909	\|ret\|
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13910
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13911	%{
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13912	MEMORYSTATUS mState;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13913	GlobalMemoryStatus (&mState);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13914
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13915	ret = __mkSmallInteger(mState.dwTotalVirtual / 1024);
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13916	%}.
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13917
10771 f336281a488e * empty log message * sr parents: 10758 diff changeset	13918	^ ret
f336281a488e * empty log message * sr parents: 10758 diff changeset	13919
f336281a488e * empty log message * sr parents: 10758 diff changeset	13920	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13921	self getVirtualMemoryInKB
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13922	"
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13923	!
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13924
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13925	getVirtualMemoryInMB
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	13926	^ (self getVirtualMemoryInKB / 1024) asInteger
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	13927
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	13928	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13929	self getVirtualMemoryInMB
10718 1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13930	"
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13931	! !
1c90fa042d79 * empty log message * sr parents: 10712 diff changeset	13932
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	13933	!Win32OperatingSystem::PerformanceData methodsFor:'accessing'!
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	13934
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13935	objectArray
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13936	^ objectArray
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	13937	!
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	13938
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	13939	perfFreq
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	13940	^ perfFreq
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	13941	!
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	13942
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	13943	perfTime
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	13944	^ perfTime
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	13945	!
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	13946
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	13947	perfTime100nSec
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	13948	^ perfTime100nSec
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	13949	! !
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	13950
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	13951	!Win32OperatingSystem::PerformanceData methodsFor:'setup'!
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	13952
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13953	fromRawBytes:st_data
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	13954	\|
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	13955	getNameBlock getCounterValueBlock
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13956	st_perfTime st_perfFreq st_perfTime100nSec
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13957	st_objectArray st_counterArray st_instanceArray
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13958	st_perObject st_perCounter st_perInstance
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13959	\|
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13960
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13961	%{
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13962	//declarate counters
10741 68517f1a68a7 * empty log message * sr parents: 10735 diff changeset	13963	int objectIterator, counterIterator, instanceIterator, numObjectTypes;
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13964
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13965	//declarate pointers
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	13966	PERF_DATA_BLOCK *perfData;
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	13967	PERF_OBJECT_TYPE *perfObjectPtr;
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	13968	PERF_COUNTER_DEFINITION *perfCounterPtr;
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	13969	PERF_INSTANCE_DEFINITION *perfInstancePtr;
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	13970	PERF_COUNTER_BLOCK *perfCounterBlockPtr;
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	13971
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13972	#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	13973	#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	13974	#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	13975	#ifdef PERF_COUNTER_PRECISION
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13976	#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	13977	#else
d81b09ba6b83 compilability Claus Gittinger <cg@exept.de> parents: 14746 diff changeset	13978	#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	13979	#endif
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13980	#define PERF_TEXTTYPE_MASK (PERF_TEXT_UNICODE\|PERF_TEXT_ASCII)
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13981
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13982	if (!__isByteArray(st_data)) RETURN (nil);
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13983
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13984	//setup start pointer
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13985	perfData = (PERF_DATA_BLOCK *)(__ByteArrayInstPtr(st_data)->ba_element);
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13986
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13987	//get header data
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13988	st_perfTime = __MKINT64(&(perfData->PerfTime));
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13989	st_perfFreq = __MKINT64(&(perfData->PerfFreq));
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13990	st_perfTime100nSec = __MKINT64(&(perfData->PerfTime100nSec));
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13991
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13992	//setup object array and initialize its pointer
10741 68517f1a68a7 * empty log message * sr parents: 10735 diff changeset	13993	numObjectTypes = perfData->NumObjectTypes;
68517f1a68a7 * empty log message * sr parents: 10735 diff changeset	13994	st_objectArray = __ARRAY_NEW_INT(numObjectTypes);
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	13995	perfObjectPtr = (PERF_OBJECT_TYPE )((char )perfData + perfData->HeaderLength);
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13996
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	13997	//iterate all following objetcs
10741 68517f1a68a7 * empty log message * sr parents: 10735 diff changeset	13998	for (objectIterator=0; objectIterator<numObjectTypes; objectIterator++) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	13999	//add the st_perObject dictionary to st_objectArray
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14000	st_perObject = __SSEND0(@global(Dictionary), @symbol(new), 0);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14001	__AT_PUT_(st_objectArray, __mkSmallInteger(objectIterator+1), st_perObject);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14002
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14003	//get the object data
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14004	__AT_PUT_(st_perObject, @symbol(ObjectNameTitleIndex), __mkSmallInteger(perfObjectPtr->ObjectNameTitleIndex));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14005	__AT_PUT_(st_perObject, @symbol(DetailLevel), __mkSmallInteger(perfObjectPtr->DetailLevel));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14006	__AT_PUT_(st_perObject, @symbol(NumCounters), __mkSmallInteger(perfObjectPtr->NumCounters));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14007	__AT_PUT_(st_perObject, @symbol(NumInstances), __mkSmallInteger(perfObjectPtr->NumInstances));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14008
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14009	//setup counter array and initialize its pointer
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14010	st_counterArray = __ARRAY_NEW_INT(perfObjectPtr->NumCounters);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14011	perfCounterPtr = (PERF_COUNTER_DEFINITION )((char )perfObjectPtr + perfObjectPtr->HeaderLength);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14012
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14013	//add the st_counterArray to st_perObject dictionary
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14014	__AT_PUT_(st_perObject, @symbol(Counters), st_counterArray);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14015
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14016	//iterate all following counter definition
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14017	for (counterIterator=0; counterIterator<perfObjectPtr->NumCounters; counterIterator++) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14018	//add the st_perCounter dictionary to st_counterArray
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14019	st_perCounter = __SSEND0(@global(Dictionary), @symbol(new), 0);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14020	__AT_PUT_(st_counterArray, __mkSmallInteger(counterIterator+1), st_perCounter);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14021
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14022	//get the counter data
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14023	__AT_PUT_(st_perCounter, @symbol(CounterNameTitleIndex), __mkSmallInteger(perfCounterPtr->CounterNameTitleIndex));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14024	__AT_PUT_(st_perCounter, @symbol(CounterTypeBits), __mkSmallInteger(perfCounterPtr->CounterType));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14025	__AT_PUT_(st_perCounter, @symbol(CounterSize), __mkSmallInteger(perfCounterPtr->CounterSize));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14026	__AT_PUT_(st_perCounter, @symbol(CounterOffset), __mkSmallInteger(perfCounterPtr->CounterOffset));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14027
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14028	//put the counter type size
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14029	switch (perfCounterPtr->CounterType & PERF_SIZE_MASK) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14030	case PERF_SIZE_DWORD:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14031	__AT_PUT_(st_perCounter, @symbol(SIZE),@symbol(DWORD));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14032	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14033	case PERF_SIZE_LARGE:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14034	__AT_PUT_(st_perCounter, @symbol(SIZE),@symbol(LARGE));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14035	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14036	case PERF_SIZE_ZERO:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14037	__AT_PUT_(st_perCounter, @symbol(SIZE),@symbol(ZERO));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14038	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14039	case PERF_SIZE_VARIABLE_LEN:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14040	__AT_PUT_(st_perCounter, @symbol(SIZE),@symbol(VARIABLE_LEN));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14041	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14042	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14043	switch (perfCounterPtr->CounterType & PERF_TYPE_MASK) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14044	case PERF_TYPE_NUMBER:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14045	__AT_PUT_(st_perCounter, @symbol(TYPE),@symbol(NUMBER));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14046	switch (perfCounterPtr->CounterType & PERF_NUMBERTYPE_MASK) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14047	case PERF_NUMBER_HEX:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14048	__AT_PUT_(st_perCounter, @symbol(NUMBER),@symbol(HEX));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14049	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14050	case PERF_NUMBER_DECIMAL:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14051	__AT_PUT_(st_perCounter, @symbol(NUMBER),@symbol(DECIMAL));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14052	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14053	case PERF_NUMBER_DEC_1000:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14054	__AT_PUT_(st_perCounter, @symbol(NUMBER),@symbol(DEC_1000));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14055	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14056	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14057	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14058	case PERF_TYPE_COUNTER:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14059	__AT_PUT_(st_perCounter, @symbol(TYPE),@symbol(COUNTER));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14060	switch (perfCounterPtr->CounterType & PERF_COUNTERTYPE_MASK) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14061	case PERF_COUNTER_VALUE:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14062	__AT_PUT_(st_perCounter, @symbol(COUNTER),@symbol(VALUE));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14063	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14064	case PERF_COUNTER_RATE:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14065	__AT_PUT_(st_perCounter, @symbol(COUNTER),@symbol(RATE));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14066	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14067	case PERF_COUNTER_FRACTION:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14068	__AT_PUT_(st_perCounter, @symbol(COUNTER),@symbol(FRACTION));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14069	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14070	case PERF_COUNTER_BASE:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14071	__AT_PUT_(st_perCounter, @symbol(COUNTER),@symbol(BASE));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14072	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14073	case PERF_COUNTER_ELAPSED:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14074	__AT_PUT_(st_perCounter, @symbol(COUNTER),@symbol(ELAPSED));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14075	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14076	case PERF_COUNTER_QUEUELEN:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14077	__AT_PUT_(st_perCounter, @symbol(COUNTER),@symbol(QUEUELEN));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14078	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14079	case PERF_COUNTER_HISTOGRAM:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14080	__AT_PUT_(st_perCounter, @symbol(COUNTER),@symbol(HISTOGRAM));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14081	break;
14756 d81b09ba6b83 compilability Claus Gittinger <cg@exept.de> parents: 14746 diff changeset	14082	#ifdef PERF_COUNTER_PRECISION
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14083	case PERF_COUNTER_PRECISION:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14084	__AT_PUT_(st_perCounter, @symbol(COUNTER),@symbol(PRECISION));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14085	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14086	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14087	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14088	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14089	case PERF_TYPE_TEXT:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14090	__AT_PUT_(st_perCounter, @symbol(TYPE),@symbol(TEXT));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14091	switch (perfCounterPtr->CounterType & PERF_TEXTTYPE_MASK) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14092	case PERF_TEXT_UNICODE:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14093	__AT_PUT_(st_perCounter, @symbol(TEXT),@symbol(UNICODE));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14094	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14095	case PERF_TEXT_ASCII:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14096	__AT_PUT_(st_perCounter, @symbol(TEXT),@symbol(ASCII));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14097	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14098	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14099	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14100	case PERF_TYPE_ZERO:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14101	__AT_PUT_(st_perCounter, @symbol(TYPE),@symbol(ZERO));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14102	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14103	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14104
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14105	//setup the counter pointer to the next counter definition
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14106	perfCounterPtr = (PERF_COUNTER_DEFINITION )((char )perfCounterPtr + perfCounterPtr->ByteLength);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14107	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14108
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14109	//goon dependent on the count of instances
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14110	if (perfObjectPtr->NumInstances < 1) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14111	perfCounterBlockPtr = (PERF_COUNTER_BLOCK *)(perfCounterPtr);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14112	__AT_PUT_(st_perObject, @symbol(RawData), __MKBYTEARRAY(perfCounterBlockPtr, perfCounterBlockPtr->ByteLength));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14113	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14114	//setup the instance pointer to the end of all counters
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14115	perfInstancePtr = (PERF_INSTANCE_DEFINITION *)(perfCounterPtr);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14116
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14117	//setup st_instanceArray and add it to st_perObject
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14118	st_instanceArray = __ARRAY_NEW_INT(perfObjectPtr->NumInstances);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14119	__AT_PUT_(st_perObject, @symbol(Instances), st_instanceArray);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14120
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14121	//iterate the instances
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14122	for (instanceIterator=0; instanceIterator<perfObjectPtr->NumInstances; instanceIterator++) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14123	//setup st_perInstance and add it to st_instanceArray
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14124	st_perInstance = __SSEND0(@global(Dictionary), @symbol(new), 0);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14125	__AT_PUT_(st_instanceArray, __mkSmallInteger(instanceIterator+1), st_perInstance);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14126
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14127	//get the instance data
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14128	__AT_PUT_(st_perInstance, @symbol(Name), __MKBYTEARRAY((wchar_t )((BYTE )perfInstancePtr + perfInstancePtr->NameOffset),perfInstancePtr->NameLength));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14129	__AT_PUT_(st_perInstance, @symbol(ParentObjectTitleIndex), __mkSmallInteger(perfInstancePtr->ParentObjectTitleIndex));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14130	__AT_PUT_(st_perInstance, @symbol(ParentObjectInstance), __mkSmallInteger(perfInstancePtr->ParentObjectInstance));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14131	__AT_PUT_(st_perInstance, @symbol(NameOffset), __mkSmallInteger(perfInstancePtr->NameOffset));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14132	__AT_PUT_(st_perInstance, @symbol(NameLength), __mkSmallInteger(perfInstancePtr->NameLength));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14133
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14134	//setup the instance pointer to the its end
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14135	perfInstancePtr = (PERF_INSTANCE_DEFINITION )((char )perfInstancePtr + perfInstancePtr->ByteLength);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14136
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14137	//setup the counter block pointer
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14138	perfCounterBlockPtr = (PERF_COUNTER_BLOCK *)(perfInstancePtr);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14139
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14140	//get the instance raw data
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14141	__AT_PUT_(st_perInstance, @symbol(RawData), __MKBYTEARRAY(perfCounterBlockPtr, perfCounterBlockPtr->ByteLength));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14142
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14143	//setup the instance pointer to the next instance
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14144	perfInstancePtr = (PERF_INSTANCE_DEFINITION )((char )perfCounterBlockPtr + perfCounterBlockPtr->ByteLength);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14145	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14146	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14147
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14148	//setup the object pointer to the next object
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14149	perfObjectPtr = (PERF_OBJECT_TYPE )((char )perfObjectPtr + perfObjectPtr->TotalByteLength);
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	14150	}
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14151	%}.
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14152	objectArray := st_objectArray.
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14153	perfTime := st_perfTime.
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14154	perfFreq := st_perfFreq.
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14155	perfTime100nSec := st_perfTime100nSec.
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14156
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14157	getNameBlock := [:i\|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14158	self class counterIndexTextDictionary at:i ifAbsent:['<<no name>>'].
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14159	].
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14160
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14161	getCounterValueBlock := [:counter :rawData\|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14162	\|offset counterValue\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14163
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14164	offset := counter at:#CounterOffset.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14165	offset >= rawData size ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14166	counterValue := nil.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14167	] ifFalse:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14168	(counter at:#SIZE) == #LARGE ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14169	counterValue := rawData unsignedLongLongAt:offset + 1 bigEndian:false.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14170	] ifFalse:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14171	(counter at:#SIZE) == #DWORD ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14172	counterValue := rawData unsignedLongAt:offset + 1 bigEndian:false.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14173	] ifFalse:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14174	self halt:'unhandled counter-size; please check'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14175	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14176	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14177	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14178
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14179	counterValue
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14180	].
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14181
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14182	objectArray do:[:anObject\|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14183	"setup the object name"
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14184	anObject at:#ObjectNameTitle put:(getNameBlock value:(anObject at:#ObjectNameTitleIndex)).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14185
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14186	"setup the name and a counter value array to each counter"
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14187	(anObject at:#Counters) do:[:aCounter\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14188	aCounter at:#CounterNameTitle put:(getNameBlock value:(aCounter at:#CounterNameTitleIndex)).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14189	aCounter at:#CounterValueArray put:OrderedCollection new.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14190	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14191
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14192	(anObject at:#NumInstances) < 1 ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14193	\|rawData\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14194
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14195	rawData := anObject at:#RawData.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14196
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14197	(anObject at:#Counters) do:[:aCounter\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14198	(aCounter at:#CounterValueArray) add:(getCounterValueBlock value:aCounter value:rawData).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14199	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14200	] ifFalse:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14201	(anObject at:#Instances) do:[:anInstance\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14202	\|rawData\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14203
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14204	rawData := anInstance at:#RawData.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14205
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14206	anInstance at:#Name put:((Unicode16String fromBytes:(anInstance at:#Name) copy swapBytes) copyButLast:1).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14207
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14208	(anObject at:#Counters) do:[:aCounter\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14209	(aCounter at:#CounterValueArray) add:(getCounterValueBlock value:aCounter value:rawData).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14210	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14211	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14212	].
10683 faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14213	].
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14214
faf98e9aa682 * empty log message * sr parents: 10682 diff changeset	14215	^ self
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14216	! !
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14217
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14218	!Win32OperatingSystem::PerformanceData::Abstract methodsFor:'accessing'!
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14219
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14220	cachedResults
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14221
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14222	cachedResults isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14223	cachedResults := IdentityDictionary new.
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14224	].
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14225
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14226	^ cachedResults
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14227	!
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14228
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14229	lastData
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14230	^ lastData
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14231	!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14232
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14233	lastData:something
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14234	lastData := something.
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14235	!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14236
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14237	lastTimestamp
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14238	^ lastTimestamp
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14239	!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14240
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14241	lastTimestamp:something
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14242	lastTimestamp := something.
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14243	! !
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14244
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14245	!Win32OperatingSystem::PerformanceData::Abstract methodsFor:'definitions'!
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14246
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14247	aliveTime
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14248
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14249	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14250	returns the time a data stays alive, in milliseconds
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14251	before we push a new call and overwrite the data
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14252	"
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14253
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14254	^ self subclassResponsibility
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14255	!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14256
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14257	indexedName
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14258	^ self subclassResponsibility
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	14259	!
9110d864362d * empty log message * sr parents: 10704 diff changeset	14260
9110d864362d * empty log message * sr parents: 10704 diff changeset	14261	indexedNameNumbered
9110d864362d * empty log message * sr parents: 10704 diff changeset	14262	^ self indexedName asInteger
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14263	!
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14264
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14265	timedQueryMilliseconds
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14266	^ 100
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14267	! !
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14268
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14269	!Win32OperatingSystem::PerformanceData::Abstract methodsFor:'private'!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14270
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14271	data
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14272
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14273	self synchronized:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14274	\|lastTS\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14275
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14276	lastTS := self lastTimestamp.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14277	lastTS isNil ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14278	^ self dataBasic
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14279	] ifFalse:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14280	Timestamp now asMilliseconds - lastTS >= self aliveTime ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14281	^ self dataBasic
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14282	] ifFalse:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14283	^ self lastData
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14284	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14285	].
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14286	].
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14287	!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14288
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14289	dataBasic
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14290	\|regEntry\|
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14291
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14292	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	14293	self assert:(regEntry notNil).
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14294
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14295	self lastTimestamp:Timestamp now asMilliseconds.
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14296	self lastData:(Win32OperatingSystem::PerformanceData new fromRawBytes:regEntry).
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14297
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14298	^ self lastData
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14299	! !
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14300
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	14301	!Win32OperatingSystem::PerformanceData::Abstract methodsFor:'queries'!
9110d864362d * empty log message * sr parents: 10704 diff changeset	14302
9110d864362d * empty log message * sr parents: 10704 diff changeset	14303	getCounterNameIndexArray
9110d864362d * empty log message * sr parents: 10704 diff changeset	14304	\|data object debugBlock\|
9110d864362d * empty log message * sr parents: 10704 diff changeset	14305
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14306	data := self data.
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	14307
9110d864362d * empty log message * sr parents: 10704 diff changeset	14308	self indexedNameNumbered == 0 ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14309	object := data objectArray at:1 ifAbsent:[debugBlock value:(object at:#ObjectNameTitle)].
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	14310	] ifFalse:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14311	object := data objectArray detect:[:el\|(el at:#ObjectNameTitleIndex) == self indexedNameNumbered] ifNone:[self error:'counter not found'].
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	14312	].
9110d864362d * empty log message * sr parents: 10704 diff changeset	14313
9110d864362d * empty log message * sr parents: 10704 diff changeset	14314	^ (object at:#Counters) collect:[:el\|Array with:(el at:#CounterNameTitle) with:(el at:#CounterNameTitleIndex)].
9110d864362d * empty log message * sr parents: 10704 diff changeset	14315	! !
9110d864362d * empty log message * sr parents: 10704 diff changeset	14316
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14317	!Win32OperatingSystem::PerformanceData::Abstract methodsFor:'queries - timed'!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14318
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14319	getPerSecondFromLast:aSelector
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14320	\|cachedResult return\|
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14321
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14322	cachedResult := self cachedResults at:aSelector ifAbsent:nil.
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14323	cachedResult notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14324	\|currentResult\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14325
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14326	currentResult := self perform:aSelector.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14327	return := self getPerSecondViaResult1:cachedResult result2:currentResult.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14328
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14329	self cachedResults at:aSelector put:currentResult.
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14330	] ifFalse:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14331	self cachedResults at:aSelector put:(self perform:aSelector).
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14332	].
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14333
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14334	^ return
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14335	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14336
10701 b8c876510d1d * empty log message * sr parents: 10699 diff changeset	14337	getPerSecondViaPerformBlock:performBlock
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14338	\|result1 result2 runTimeInNS runTimeInS values1 values2 globalResult\|
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14339
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14340	self assert:(self aliveTime < self timedQueryMilliseconds).
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14341
10701 b8c876510d1d * empty log message * sr parents: 10699 diff changeset	14342	result1 := performBlock value.
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14343	Delay waitForMilliseconds:self timedQueryMilliseconds.
10701 b8c876510d1d * empty log message * sr parents: 10699 diff changeset	14344	result2 := performBlock value.
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14345
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14346	runTimeInNS := ((result2 at:#time100nSec) - (result1 at:#time100nSec)) * 100.
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14347	runTimeInS := runTimeInNS / 1000 / 1000 / 1000.
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14348
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14349	values1 := result1 at:#values.
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14350	values2 := result2 at:#values.
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14351
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14352	globalResult := Dictionary new.
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14353
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14354	values2 keysDo:[:key\|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14355	\|difference\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14356
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14357	difference := (values2 at:key) - (values1 at:key).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14358
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14359	runTimeInS = 0 ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14360	globalResult at:key put:0.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14361	] ifFalse:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14362	globalResult at:key put:(difference / runTimeInS) asFloat.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14363	].
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14364	].
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14365
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14366	^ globalResult
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	14367	!
9110d864362d * empty log message * sr parents: 10704 diff changeset	14368
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14369	getPerSecondViaResult1:result1 result2:result2
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14370	\|runTimeInNS runTimeInS values1 values2 globalResult\|
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14371
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14372	runTimeInNS := ((result2 at:#time100nSec) - (result1 at:#time100nSec)) * 100.
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14373	runTimeInS := runTimeInNS / 1000 / 1000 / 1000.
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14374
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14375	values1 := result1 at:#values.
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14376	values2 := result2 at:#values.
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14377
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14378	globalResult := Dictionary new.
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14379
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14380	values2 keysDo:[:key\|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14381	\|difference\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14382
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14383	difference := (values2 at:key) - (values1 at:key).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14384
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14385	runTimeInS = 0 ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14386	globalResult at:key put:0.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14387	] ifFalse:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14388	globalResult at:key put:(difference / runTimeInS) asFloat.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14389	].
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14390	].
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14391
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14392	^ globalResult
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14393	!
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14394
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14395	getUsageFromLast:aSelector
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14396	\|cachedResult return\|
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14397
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14398	cachedResult := self cachedResults at:aSelector ifAbsent:nil.
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14399	cachedResult notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14400	\|currentResult\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14401
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14402	currentResult := self perform:aSelector.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14403	return := self getUsageViaResult1:cachedResult result2:currentResult.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14404
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14405	self cachedResults at:aSelector put:currentResult.
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14406	] ifFalse:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14407	self cachedResults at:aSelector put:(self perform:aSelector).
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14408	].
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14409
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14410	^ return
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14411	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14412
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	14413	getUsageViaPerformBlock:performBlock
9110d864362d * empty log message * sr parents: 10704 diff changeset	14414	\|result1 result2 deltaTIn100Ns value1 value2 globalResult\|
9110d864362d * empty log message * sr parents: 10704 diff changeset	14415
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14416	self assert:(self aliveTime < self timedQueryMilliseconds).
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	14417
9110d864362d * empty log message * sr parents: 10704 diff changeset	14418	result1 := performBlock value.
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14419	Delay waitForMilliseconds:self timedQueryMilliseconds.
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	14420	result2 := performBlock value.
9110d864362d * empty log message * sr parents: 10704 diff changeset	14421
9110d864362d * empty log message * sr parents: 10704 diff changeset	14422	globalResult := Dictionary new.
9110d864362d * empty log message * sr parents: 10704 diff changeset	14423
9110d864362d * empty log message * sr parents: 10704 diff changeset	14424	deltaTIn100Ns := (result2 at:#time100nSec) - (result1 at:#time100nSec).
9110d864362d * empty log message * sr parents: 10704 diff changeset	14425
9110d864362d * empty log message * sr parents: 10704 diff changeset	14426	value1 := result1 at:#values.
9110d864362d * empty log message * sr parents: 10704 diff changeset	14427	value2 := result2 at:#values.
9110d864362d * empty log message * sr parents: 10704 diff changeset	14428
9110d864362d * empty log message * sr parents: 10704 diff changeset	14429	value1 keysDo:[:key\|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14430	\|diff dPerSecond load1024 res\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14431
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14432	diff := (value2 at:key) - (value1 at:key).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14433	diff := diff bitShift:10.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14434
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14435	deltaTIn100Ns = 0 ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14436	dPerSecond := 0.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14437	] ifFalse:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14438	dPerSecond := (diff / deltaTIn100Ns) asFloat.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14439	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14440	load1024 := 1024 - dPerSecond.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14441
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14442	res := (load1024 / 1024 * 100) asFloat.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14443	res < 0 ifTrue:[res := 0].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14444
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14445	globalResult at:key put:res.
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	14446	].
9110d864362d * empty log message * sr parents: 10704 diff changeset	14447
9110d864362d * empty log message * sr parents: 10704 diff changeset	14448	^ globalResult
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14449	!
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14450
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14451	getUsageViaResult1:result1 result2:result2
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14452	\|deltaTIn100Ns value1 value2 globalResult\|
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14453
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14454	globalResult := Dictionary new.
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14455	deltaTIn100Ns := (result2 at:#time100nSec) - (result1 at:#time100nSec).
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14456
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14457	value1 := result1 at:#values.
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14458	value2 := result2 at:#values.
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14459
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14460	value1 keysDo:[:key\|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14461	\|diff dPerSecond load1024 res\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14462
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14463	diff := (value2 at:key) - (value1 at:key).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14464	diff := diff bitShift:10.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14465
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14466	deltaTIn100Ns = 0 ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14467	dPerSecond := 0.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14468	] ifFalse:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14469	dPerSecond := (diff / deltaTIn100Ns) asFloat.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14470	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14471	load1024 := 1024 - dPerSecond.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14472
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14473	res := (load1024 / 1024 * 100) asFloat.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14474	res < 0 ifTrue:[res := 0].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14475
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14476	globalResult at:key put:res.
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14477	].
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14478
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14479	^ globalResult
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14480	! !
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14481
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14482	!Win32OperatingSystem::PerformanceData::Abstract methodsFor:'queries - values'!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14483
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14484	getBasicValuesByCounter:counterIndex
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14485	^ self getBasicValuesByObject:0 counter:counterIndex timed:false
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14486	!
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14487
14756 d81b09ba6b83 compilability Claus Gittinger <cg@exept.de> parents: 14746 diff changeset	14488	getBasicValuesByCounter:counterIndex timed:aBoolean
d81b09ba6b83 compilability Claus Gittinger <cg@exept.de> parents: 14746 diff changeset	14489	^ self getBasicValuesByObject:0 counter:counterIndex timed:aBoolean
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14490	!
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14491
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14492	getBasicValuesByObject:objectIndex counter:counterIndex
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14493	^ self getBasicValuesByObject:0 counter:counterIndex timed:false
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14494	!
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14495
14756 d81b09ba6b83 compilability Claus Gittinger <cg@exept.de> parents: 14746 diff changeset	14496	getBasicValuesByObject:objectIndex counter:counterIndex timed:aBoolean
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14497	\|data object counter values debugBlock numInstances\|
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14498
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14499	debugBlock := [:obj\|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14500	^ 'obj:', obj , ' this:', self printString , ' idx:', self indexedName
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14501	].
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14502
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14503	data := self dataBasic.
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14504
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14505	objectIndex == 0 ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14506	object := data objectArray at:1 ifAbsent:[debugBlock value:(object at:#ObjectNameTitle)].
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14507	] ifFalse:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14508	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	14509	].
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14510
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14511	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	14512
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14513	values := Dictionary new.
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14514	numInstances := object at:#NumInstances.
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14515
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14516	numInstances > 0 ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14517	1 to:numInstances do:[:idx\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14518	\|value instanceName\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14519
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14520	value := (counter at:#CounterValueArray) at:idx.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14521	instanceName := ((object at:#Instances) at:idx) at:#Name.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14522
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14523	values at:instanceName put:value.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14524	].
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14525	] ifFalse:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14526	values at:'<<singleton>>' put:(counter at:#CounterValueArray) first.
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14527	].
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14528
14756 d81b09ba6b83 compilability Claus Gittinger <cg@exept.de> parents: 14746 diff changeset	14529	aBoolean ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14530	\|return\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14531
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14532	return := IdentityDictionary new.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14533	return at:#time put:data perfTime.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14534	return at:#frequence put:data perfFreq.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14535	return at:#time100nSec put:data perfTime100nSec.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14536	return at:#values put:values.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14537
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14538	^ return
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14539	].
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14540
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14541	^ values
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14542	!
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	14543
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14544	getValuesByCounter:counterIndex
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14545	^ self getValuesByObject:0 counter:counterIndex timed:false
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14546	!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14547
14756 d81b09ba6b83 compilability Claus Gittinger <cg@exept.de> parents: 14746 diff changeset	14548	getValuesByCounter:counterIndex timed:aBoolean
d81b09ba6b83 compilability Claus Gittinger <cg@exept.de> parents: 14746 diff changeset	14549	^ self getValuesByObject:0 counter:counterIndex timed:aBoolean
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14550	!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14551
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14552	getValuesByObject:objectIndex counter:counterIndex
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14553	^ self getValuesByObject:0 counter:counterIndex timed:false
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14554	!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14555
14756 d81b09ba6b83 compilability Claus Gittinger <cg@exept.de> parents: 14746 diff changeset	14556	getValuesByObject:objectIndex counter:counterIndex timed:aBoolean
10707 3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14557	\|data object counter values debugBlock numInstances\|
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14558
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14559	debugBlock := [:obj\|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14560	^ 'obj:', obj , ' this:', self printString , ' idx:', self indexedName
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14561	].
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14562
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14563	data := self data.
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14564
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14565	objectIndex == 0 ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14566	object := data objectArray at:1 ifAbsent:[debugBlock value:(object at:#ObjectNameTitle)].
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14567	] ifFalse:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14568	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	14569	].
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14570
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14571	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	14572
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14573	values := Dictionary new.
10707 3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14574	numInstances := object at:#NumInstances.
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14575
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14576	numInstances > 0 ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14577	1 to:numInstances do:[:idx\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14578	\|value instanceName\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14579
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14580	value := (counter at:#CounterValueArray) at:idx.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14581	instanceName := ((object at:#Instances) at:idx) at:#Name.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14582
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14583	values at:instanceName put:value.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14584	].
10707 3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14585	] ifFalse:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14586	values at:'<<singleton>>' put:(counter at:#CounterValueArray) first.
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14587	].
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14588
14756 d81b09ba6b83 compilability Claus Gittinger <cg@exept.de> parents: 14746 diff changeset	14589	aBoolean ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14590	\|return\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14591
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14592	return := IdentityDictionary new.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14593	return at:#time put:data perfTime.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14594	return at:#frequence put:data perfFreq.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14595	return at:#time100nSec put:data perfTime100nSec.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14596	return at:#values put:values.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14597
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14598	^ return
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14599	].
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14600
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14601	^ values
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14602	! !
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14603
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14604	!Win32OperatingSystem::PerformanceData::DiskIO class methodsFor:'accessing'!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14605
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14606	current
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14607
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14608	TheOneAndOnlyInstance isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14609	TheOneAndOnlyInstance := self new.
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14610	].
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14611
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14612	^ TheOneAndOnlyInstance
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14613	! !
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14614
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14615	!Win32OperatingSystem::PerformanceData::DiskIO methodsFor:'definition'!
10688 1e8dc6018c76 * empty log message * sr parents: 10687 diff changeset	14616
1e8dc6018c76 * empty log message * sr parents: 10687 diff changeset	14617	aliveTime
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14618	^ 80
10688 1e8dc6018c76 * empty log message * sr parents: 10687 diff changeset	14619	!
1e8dc6018c76 * empty log message * sr parents: 10687 diff changeset	14620
1e8dc6018c76 * empty log message * sr parents: 10687 diff changeset	14621	indexedName
10704 5063fe06352c * empty log message * sr parents: 10702 diff changeset	14622	^ '236'
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14623	! !
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14624
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14625	!Win32OperatingSystem::PerformanceData::DiskIO methodsFor:'queries'!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14626
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14627	diskBytes
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14628	^ self getValuesByCounter:218 timed:true
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14629
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14630	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14631	self current diskBytes
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14632	"
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14633	!
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14634
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14635	diskBytesBasic
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14636	^ self getBasicValuesByCounter:218 timed:true
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14637
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14638	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14639	self current diskBytesBasic
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14640	"
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14641	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14642
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14643	diskBytesPerSecond
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14644	^ self getPerSecondViaPerformBlock:[self diskBytes]
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14645
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14646	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14647	self current diskBytesPerSecond
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14648	"
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14649	!
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14650
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14651	diskBytesPerSecondFromLast
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14652	^ self getPerSecondFromLast:#diskBytesBasic
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14653
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14654	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14655	self current diskBytesPerSecondFromLast
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14656	"
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14657	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14658
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	14659	diskQueueLength
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14660	^ self getValuesByCounter:198
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14661
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14662	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14663	self current diskQueueLength
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	14664	"
9110d864362d * empty log message * sr parents: 10704 diff changeset	14665	!
9110d864362d * empty log message * sr parents: 10704 diff changeset	14666
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14667	diskRead
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14668	^ self getValuesByCounter:214 timed:true
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14669
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14670	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14671	self current diskRead
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14672	"
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14673	!
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14674
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14675	diskReadBasic
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14676	^ self getBasicValuesByCounter:214 timed:true
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14677
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14678	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14679	self current diskReadBasic
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14680	"
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14681	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14682
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14683	diskReadsPerSecond
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14684	^ self getPerSecondViaPerformBlock:[self diskRead]
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14685
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14686	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14687	self current diskReadsPerSecond
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14688	"
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14689	!
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14690
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14691	diskReadsPerSecondFromLast
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14692	^ self getPerSecondFromLast:#diskReadBasic
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14693
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14694	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14695	self current diskReadsPerSecondFromLast
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14696	"
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14697	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14698
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14699	diskSpaceFreeInMegaByte
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14700	^ self getValuesByCounter:408
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14701
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14702	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14703	self current diskSpaceFreeInMegaByte
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14704	"
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14705	!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14706
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14707	diskTransfers
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	14708	^ self getValuesByCounter:212 timed:true
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14709
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14710	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14711	self current diskTransfers
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14712	"
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14713	!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14714
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14715	diskTransfersBasic
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14716	^ self getBasicValuesByCounter:212 timed:true
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14717
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14718	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14719	self current diskTransfersBasic
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14720	"
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14721	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14722
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14723	diskTransfersPerSecond
10701 b8c876510d1d * empty log message * sr parents: 10699 diff changeset	14724	^ self getPerSecondViaPerformBlock:[self diskTransfers]
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14725
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14726	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14727	self current diskTransfersPerSecond
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14728	"
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14729	!
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14730
10757 a5e2e0f500df * empty log message * sr parents: 10756 diff changeset	14731	diskTransfersPerSecondFromLast
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14732	^ self getPerSecondFromLast:#diskTransfersBasic
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14733
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14734	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14735	self current diskTransfersPerSecondFromlast
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14736	"
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14737	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14738
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14739	diskWrite
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14740	^ self getValuesByCounter:216 timed:true
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14741
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14742	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14743	self current diskWrite
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14744	"
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14745	!
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14746
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14747	diskWriteBasic
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14748	^ self getBasicValuesByCounter:216 timed:true
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14749
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14750	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14751	self current diskWriteBasic
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14752	"
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14753	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14754
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14755	diskWritesPerSecond
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14756	^ self getPerSecondViaPerformBlock:[self diskWrite]
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14757
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14758	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14759	self current diskWritesPerSecond
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14760	"
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14761	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14762
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14763	diskWritesPerSecondFromLast
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14764	^ self getPerSecondFromLast:#diskWriteBasic
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14765
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14766	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14767	self current diskWritesPerSecondFromLast
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14768	"
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14769	! !
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14770
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14771	!Win32OperatingSystem::PerformanceData::Global class methodsFor:'accessing'!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14772
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14773	current
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14774
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14775	TheOneAndOnlyInstance isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14776	TheOneAndOnlyInstance := self new.
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14777	].
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14778
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14779	^ TheOneAndOnlyInstance
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14780	! !
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14781
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	14782	!Win32OperatingSystem::PerformanceData::Global methodsFor:'definitions'!
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14783
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14784	aliveTime
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14785	^ 200
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14786	!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14787
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14788	indexedName
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14789	^ 'Global'
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14790	! !
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	14791
10706 8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	14792	!Win32OperatingSystem::PerformanceData::Global methodsFor:'queries'!
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	14793
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	14794	getCounterNameIndexArray
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	14795	self error:'Global implements objects only'.
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	14796	!
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	14797
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	14798	getObjectNameIndexArray
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	14799	\|data indexNameArray\|
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	14800
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	14801	data := self data.
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	14802	indexNameArray := OrderedCollection new.
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	14803
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	14804	data objectArray do:[:anObject\|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14805	\|index name\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14806
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14807	index := anObject at:#ObjectNameTitleIndex.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14808	name := Win32OperatingSystem::PerformanceData counterIndexTextDictionary at:index.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14809
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14810	indexNameArray add:(Array with:name with:index).
10706 8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	14811	].
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	14812
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	14813	^ indexNameArray
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	14814	! !
8fb6824a5c70 * empty log message * sr parents: 10705 diff changeset	14815
10707 3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14816	!Win32OperatingSystem::PerformanceData::Memory class methodsFor:'accessing'!
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14817
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14818	current
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14819
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14820	TheOneAndOnlyInstance isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14821	TheOneAndOnlyInstance := self new.
10707 3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14822	].
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14823
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14824	^ TheOneAndOnlyInstance
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14825	! !
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14826
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14827	!Win32OperatingSystem::PerformanceData::Memory methodsFor:'definitions'!
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14828
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14829	aliveTime
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14830	^ 80
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14831	!
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14832
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14833	indexedName
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14834	^ '4'
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14835	! !
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14836
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14837	!Win32OperatingSystem::PerformanceData::Memory methodsFor:'queries'!
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14838
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14839	availableKBytes
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14840	^ self getValuesByCounter:1380
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14841
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14842	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14843	self current availableKBytes
10709 4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14844	"
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14845	!
4fcacc463bcf * empty log message * sr parents: 10707 diff changeset	14846
10707 3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14847	availableMBytes
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14848	^ self getValuesByCounter:1382
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14849
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14850	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14851	self current availableMBytes
10707 3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14852	"
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14853	! !
3b21d7c079fd * empty log message * sr parents: 10706 diff changeset	14854
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14855	!Win32OperatingSystem::PerformanceData::Network class methodsFor:'accessing'!
10710 1055a716e253 * empty log message * sr parents: 10709 diff changeset	14856
1055a716e253 * empty log message * sr parents: 10709 diff changeset	14857	current
1055a716e253 * empty log message * sr parents: 10709 diff changeset	14858
1055a716e253 * empty log message * sr parents: 10709 diff changeset	14859	TheOneAndOnlyInstance isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14860	TheOneAndOnlyInstance := self new.
10710 1055a716e253 * empty log message * sr parents: 10709 diff changeset	14861	].
1055a716e253 * empty log message * sr parents: 10709 diff changeset	14862
1055a716e253 * empty log message * sr parents: 10709 diff changeset	14863	^ TheOneAndOnlyInstance
1055a716e253 * empty log message * sr parents: 10709 diff changeset	14864	! !
1055a716e253 * empty log message * sr parents: 10709 diff changeset	14865
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14866	!Win32OperatingSystem::PerformanceData::Network methodsFor:'definition'!
10710 1055a716e253 * empty log message * sr parents: 10709 diff changeset	14867
1055a716e253 * empty log message * sr parents: 10709 diff changeset	14868	aliveTime
1055a716e253 * empty log message * sr parents: 10709 diff changeset	14869	^ 80
1055a716e253 * empty log message * sr parents: 10709 diff changeset	14870	!
1055a716e253 * empty log message * sr parents: 10709 diff changeset	14871
1055a716e253 * empty log message * sr parents: 10709 diff changeset	14872	indexedName
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14873	^ '510'
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14874	!
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14875
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14876	timedQueryMilliseconds
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14877	^ 200
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14878	! !
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14879
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14880	!Win32OperatingSystem::PerformanceData::Network methodsFor:'queries'!
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14881
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14882	bytesReceived
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14883	^ self getValuesByCounter:264 timed:true
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14884
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14885	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14886	self current bytesReceived
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14887	"
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14888	!
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14889
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14890	bytesReceivedBasic
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14891	^ self getBasicValuesByCounter:264 timed:true
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14892
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14893	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14894	self current bytesReceivedBasic
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14895	"
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14896	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14897
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14898	bytesReceivedPerSecond
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14899	^ self getPerSecondViaPerformBlock:[self bytesReceived]
10710 1055a716e253 * empty log message * sr parents: 10709 diff changeset	14900
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14901	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14902	self current bytesReceivedPerSecond
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14903	"
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14904	!
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14905
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14906	bytesReceivedPerSecondFromlast
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14907	^ self getPerSecondFromLast:#bytesReceivedBasic
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14908
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14909	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14910	self current bytesReceivedPerSecondFromlast
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14911	"
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14912	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14913
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14914	bytesSent
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14915	^ self getValuesByCounter:506 timed:true
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14916
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14917	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14918	self current bytesSent
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14919	"
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14920	!
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14921
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14922	bytesSentBasic
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14923	^ self getBasicValuesByCounter:506 timed:true
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14924
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14925	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14926	self current bytesSentBasic
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14927	"
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14928	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14929
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14930	bytesSentPerSecond
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14931	^ self getPerSecondViaPerformBlock:[self bytesSent]
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14932
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14933	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14934	self current bytesSentPerSecond
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14935	"
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14936	!
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14937
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14938	bytesSentPerSecondFromlast
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14939	^ self getPerSecondFromLast:#bytesSentBasic
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14940
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14941	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14942	self current bytesSentPerSecondFromlast
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14943	"
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14944	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14945
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14946	kBytesReceivedPerSecond
10710 1055a716e253 * empty log message * sr parents: 10709 diff changeset	14947	\|modifiedDictionary\|
1055a716e253 * empty log message * sr parents: 10709 diff changeset	14948
1055a716e253 * empty log message * sr parents: 10709 diff changeset	14949	modifiedDictionary := Dictionary new.
1055a716e253 * empty log message * sr parents: 10709 diff changeset	14950
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14951	(self getPerSecondViaPerformBlock:[self bytesReceived]) keysAndValuesDo:[:key :value\|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14952	modifiedDictionary at:key put:(value / 1024).
10710 1055a716e253 * empty log message * sr parents: 10709 diff changeset	14953	].
1055a716e253 * empty log message * sr parents: 10709 diff changeset	14954
1055a716e253 * empty log message * sr parents: 10709 diff changeset	14955	^ modifiedDictionary
1055a716e253 * empty log message * sr parents: 10709 diff changeset	14956
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14957	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14958	self current kBytesReceivedPerSecond
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14959	"
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14960	!
a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14961
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14962	kBytesReceivedPerSecondFromLast
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14963	\|return modifiedDictionary\|
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14964
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14965	return := self bytesReceivedPerSecondFromlast.
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14966	return isNil ifTrue:[^ nil].
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14967
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14968	modifiedDictionary := Dictionary new.
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14969
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14970	return keysAndValuesDo:[:key :value\|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14971	modifiedDictionary at:key put:(value / 1024).
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14972	].
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14973
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14974	^ modifiedDictionary
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14975
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14976	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14977	self current kBytesReceivedPerSecondFromLast
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14978	"
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14979	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14980
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14981	kBytesSentPerSecond
10710 1055a716e253 * empty log message * sr parents: 10709 diff changeset	14982	\|modifiedDictionary\|
1055a716e253 * empty log message * sr parents: 10709 diff changeset	14983
1055a716e253 * empty log message * sr parents: 10709 diff changeset	14984	modifiedDictionary := Dictionary new.
1055a716e253 * empty log message * sr parents: 10709 diff changeset	14985
10711 a1682cfba987 * empty log message * sr parents: 10710 diff changeset	14986	(self getPerSecondViaPerformBlock:[self bytesSent]) keysAndValuesDo:[:key :value\|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14987	modifiedDictionary at:key put:(value / 1024).
10710 1055a716e253 * empty log message * sr parents: 10709 diff changeset	14988	].
1055a716e253 * empty log message * sr parents: 10709 diff changeset	14989
1055a716e253 * empty log message * sr parents: 10709 diff changeset	14990	^ modifiedDictionary
1055a716e253 * empty log message * sr parents: 10709 diff changeset	14991
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	14992	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	14993	self current kBytesSentPerSecond
10710 1055a716e253 * empty log message * sr parents: 10709 diff changeset	14994	"
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	14995	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14996
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14997	kBytesSentPerSecondFromLast
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14998	\|return modifiedDictionary\|
d694d3872402 * empty log message * sr parents: 10755 diff changeset	14999
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15000	return := self bytesSentPerSecondFromlast.
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15001	return isNil ifTrue:[^ nil].
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15002
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15003	modifiedDictionary := Dictionary new.
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15004
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15005	return keysAndValuesDo:[:key :value\|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15006	modifiedDictionary at:key put:(value / 1024).
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15007	].
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15008
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15009	^ modifiedDictionary
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15010
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15011	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15012	self current kBytesSentPerSecondFromLast
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15013	"
10710 1055a716e253 * empty log message * sr parents: 10709 diff changeset	15014	! !
1055a716e253 * empty log message * sr parents: 10709 diff changeset	15015
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15016	!Win32OperatingSystem::PerformanceData::Process class methodsFor:'accessing'!
9110d864362d * empty log message * sr parents: 10704 diff changeset	15017
9110d864362d * empty log message * sr parents: 10704 diff changeset	15018	current
9110d864362d * empty log message * sr parents: 10704 diff changeset	15019
9110d864362d * empty log message * sr parents: 10704 diff changeset	15020	TheOneAndOnlyInstance isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15021	TheOneAndOnlyInstance := self new.
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15022	].
9110d864362d * empty log message * sr parents: 10704 diff changeset	15023
9110d864362d * empty log message * sr parents: 10704 diff changeset	15024	^ TheOneAndOnlyInstance
9110d864362d * empty log message * sr parents: 10704 diff changeset	15025	! !
9110d864362d * empty log message * sr parents: 10704 diff changeset	15026
9110d864362d * empty log message * sr parents: 10704 diff changeset	15027	!Win32OperatingSystem::PerformanceData::Process methodsFor:'definition'!
9110d864362d * empty log message * sr parents: 10704 diff changeset	15028
9110d864362d * empty log message * sr parents: 10704 diff changeset	15029	aliveTime
9110d864362d * empty log message * sr parents: 10704 diff changeset	15030	^ 80
9110d864362d * empty log message * sr parents: 10704 diff changeset	15031	!
9110d864362d * empty log message * sr parents: 10704 diff changeset	15032
9110d864362d * empty log message * sr parents: 10704 diff changeset	15033	indexedName
9110d864362d * empty log message * sr parents: 10704 diff changeset	15034	^ '230'
9110d864362d * empty log message * sr parents: 10704 diff changeset	15035	! !
9110d864362d * empty log message * sr parents: 10704 diff changeset	15036
9110d864362d * empty log message * sr parents: 10704 diff changeset	15037	!Win32OperatingSystem::PerformanceData::Process methodsFor:'queries'!
9110d864362d * empty log message * sr parents: 10704 diff changeset	15038
9110d864362d * empty log message * sr parents: 10704 diff changeset	15039	processTime
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15040	^ self getValuesByCounter:6 timed:true
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15041
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15042	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15043	self current processTime
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15044	"
9110d864362d * empty log message * sr parents: 10704 diff changeset	15045	!
9110d864362d * empty log message * sr parents: 10704 diff changeset	15046
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15047	processTimeBasic
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15048	^ self getBasicValuesByCounter:6 timed:true
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15049
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15050	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15051	self current processTimeBasic
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15052	"
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15053	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15054
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15055	processUsage
9110d864362d * empty log message * sr parents: 10704 diff changeset	15056	\|modifiedDictionary\|
9110d864362d * empty log message * sr parents: 10704 diff changeset	15057
9110d864362d * empty log message * sr parents: 10704 diff changeset	15058	modifiedDictionary := Dictionary new.
9110d864362d * empty log message * sr parents: 10704 diff changeset	15059
9110d864362d * empty log message * sr parents: 10704 diff changeset	15060	(self getUsageViaPerformBlock:[self processTime]) keysAndValuesDo:[:key :value\|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15061	modifiedDictionary at:key put:(100 - value).
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15062	].
9110d864362d * empty log message * sr parents: 10704 diff changeset	15063
9110d864362d * empty log message * sr parents: 10704 diff changeset	15064	^ modifiedDictionary
9110d864362d * empty log message * sr parents: 10704 diff changeset	15065
9110d864362d * empty log message * sr parents: 10704 diff changeset	15066	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15067	self current processUsage
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15068	"
9110d864362d * empty log message * sr parents: 10704 diff changeset	15069	!
9110d864362d * empty log message * sr parents: 10704 diff changeset	15070
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15071	processUsageFromLast
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15072	\|return modifiedDictionary\|
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15073
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15074	return := self getUsageFromLast:#processTimeBasic.
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15075	return isNil ifTrue:[^ nil].
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15076
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15077	modifiedDictionary := Dictionary new.
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15078
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15079	return keysAndValuesDo:[:key :value\|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15080	modifiedDictionary at:key put:(100 - value).
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15081	].
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15082
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15083	^ modifiedDictionary
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15084
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15085	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15086	self current processUsageFromLast
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15087	"
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15088	!
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15089
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15090	runningProcessNameList
9110d864362d * empty log message * sr parents: 10704 diff changeset	15091	"_Total ~ pseudo process; Idle ~ pseudo process represents the free resources"
9110d864362d * empty log message * sr parents: 10704 diff changeset	15092	^ (self data objectArray first at:#Instances) collect:[:el\|el at:#Name]
9110d864362d * empty log message * sr parents: 10704 diff changeset	15093
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15094	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15095	self current runningProcessNameList
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15096	"
9110d864362d * empty log message * sr parents: 10704 diff changeset	15097	!
9110d864362d * empty log message * sr parents: 10704 diff changeset	15098
9110d864362d * empty log message * sr parents: 10704 diff changeset	15099	runningProcesses
9110d864362d * empty log message * sr parents: 10704 diff changeset	15100	"_Total ~ pseudo process; Idle ~ pseudo process represents the free resources"
9110d864362d * empty log message * sr parents: 10704 diff changeset	15101	^ (self data objectArray first at:#NumInstances)
9110d864362d * empty log message * sr parents: 10704 diff changeset	15102
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15103	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15104	self current runningProcesses
10705 9110d864362d * empty log message * sr parents: 10704 diff changeset	15105	"
9110d864362d * empty log message * sr parents: 10704 diff changeset	15106	! !
9110d864362d * empty log message * sr parents: 10704 diff changeset	15107
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15108	!Win32OperatingSystem::PerformanceData::Processor class methodsFor:'accessing'!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15109
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15110	current
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15111
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15112	TheOneAndOnlyInstance isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15113	TheOneAndOnlyInstance := self new.
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	^ TheOneAndOnlyInstance
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15117	! !
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15118
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15119	!Win32OperatingSystem::PerformanceData::Processor methodsFor:'definitions'!
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15120
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15121	aliveTime
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15122	^ 80
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15123	!
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15124
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15125	indexedName
ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	15126	^ '238'
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	15127	! !
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	15128
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15129	!Win32OperatingSystem::PerformanceData::Processor methodsFor:'queries'!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15130
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15131	interrupts
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15132	^ self getValuesByCounter:148 timed:true
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15133
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15134	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15135	self current interrupts
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15136	"
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15137	!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15138
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15139	interruptsBasic
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15140	^ self getBasicValuesByCounter:148 timed:true
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15141
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15142	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15143	self current interruptsBasic
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15144	"
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15145	!
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15146
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15147	interruptsPerSecond
10701 b8c876510d1d * empty log message * sr parents: 10699 diff changeset	15148	^ self getPerSecondViaPerformBlock:[self interrupts]
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15149
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15150	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15151	self current interruptsPerSecond
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15152	"
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15153	!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15154
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15155	interruptsPerSecondFromLast
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15156	^ self getPerSecondFromLast:#interruptsBasic
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15157
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15158	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15159	self current interruptsPerSecondFromLast
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15160	"
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15161	!
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15162
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15163	processorTime
10754 60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15164	^ self getValuesByCounter:6 timed:true
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15165
60d9becc81ff * empty log message * Claus Gittinger <cg@exept.de> parents: 10752 diff changeset	15166	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15167	self current processorTime
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15168	"
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15169	!
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15170
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15171	processorTimeBasic
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15172	^ self getBasicValuesByCounter:6 timed:true
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15173
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15174	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15175	self current processorTimeBasic
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15176	"
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15177	!
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15178
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15179	processorUsage
11215 b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	15180	^ self getUsageViaPerformBlock:[self processorTime]
b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	15181
b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	15182	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15183	self current processorUsage
10755 c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15184	"
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15185	!
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15186
c003686c37e1 * empty log message * sr parents: 10754 diff changeset	15187	processorUsageFromLast
10756 d694d3872402 * empty log message * sr parents: 10755 diff changeset	15188	^ self getUsageFromLast:#processorTimeBasic
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15189
d694d3872402 * empty log message * sr parents: 10755 diff changeset	15190	"
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15191	self current processorUsageFromLast
10699 8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15192	"
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15193	! !
8fd653b16649 * empty log message * sr parents: 10696 diff changeset	15194
9475 c57956a348bf printing support fm parents: 9431 diff changeset	15195	!Win32OperatingSystem::PrinterInfo2Structure methodsFor:'accessing'!
c57956a348bf printing support fm parents: 9431 diff changeset	15196
c57956a348bf printing support fm parents: 9431 diff changeset	15197	defaultPriority
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15198
9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15199	\|defaultPriority\|
9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15200
9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15201	Error handle:[:ex \|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15202	Transcript showCR: 'PrinterInfo2 error getting defaultPriority - ', ex description.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15203	defaultPriority := 0.
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15204	] do:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15205	defaultPriority := self unsignedLongAt:(60 + 1)
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15206	].
9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15207	^ defaultPriority
9475 c57956a348bf printing support fm parents: 9431 diff changeset	15208
c57956a348bf printing support fm parents: 9431 diff changeset	15209	"Created: / 01-08-2006 / 12:46:50 / fm"
10511 7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	15210	"Modified: / 16-04-2007 / 13:08:33 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	15211	!
c57956a348bf printing support fm parents: 9431 diff changeset	15212
c57956a348bf printing support fm parents: 9431 diff changeset	15213	pComment
10511 7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	15214	\|pComment\|
7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	15215
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15216	Error handle:[:ex \|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15217	Transcript showCR: 'PrinterInfo2 error getting pComment - ', ex description.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15218	pComment := 0.
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15219	] do:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15220	pComment := self unsignedLongAt:(20 + 1).
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15221	].
9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15222
10627 bef737d1b8a7 care for -1 fd returned by CreatePipe Claus Gittinger <cg@exept.de> parents: 10622 diff changeset	15223	^ pComment == 0
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15224	ifTrue:''
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15225	ifFalse:[ (ExternalBytes address:pComment) stringAt:1 ]
9475 c57956a348bf printing support fm parents: 9431 diff changeset	15226
c57956a348bf printing support fm parents: 9431 diff changeset	15227	"Created: / 01-08-2006 / 14:02:55 / fm"
10511 7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	15228	"Modified: / 16-04-2007 / 13:08:39 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	15229	!
c57956a348bf printing support fm parents: 9431 diff changeset	15230
c57956a348bf printing support fm parents: 9431 diff changeset	15231	pDriverName
10511 7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	15232	\|pName\|
7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	15233
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15234	Error handle:[:ex \|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15235	Transcript showCR: 'PrinterInfo2 error getting pDriverName - ', ex description.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15236	pName := 0.
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15237	] do:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15238	pName := self unsignedLongAt:(16 + 1).
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15239	].
10511 7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	15240	pName == 0 ifTrue:[^ ''].
7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	15241	^ (ExternalBytes address:pName) stringAt:1
9475 c57956a348bf printing support fm parents: 9431 diff changeset	15242
c57956a348bf printing support fm parents: 9431 diff changeset	15243	"Created: / 01-08-2006 / 14:05:18 / fm"
10511 7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	15244	"Modified: / 16-04-2007 / 13:08:43 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	15245	!
c57956a348bf printing support fm parents: 9431 diff changeset	15246
c57956a348bf printing support fm parents: 9431 diff changeset	15247	pLocation
10511 7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	15248	\|pLocation externalBytes\|
7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	15249
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15250	Error handle:[:ex \|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15251	Transcript showCR: 'PrinterInfo2 error getting pLocation - ', ex description.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15252	pLocation := 0.
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15253	] do:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15254	pLocation := self unsignedLongAt:(24 + 1).
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15255	].
9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15256
10511 7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	15257	pLocation == 0 ifTrue:[^ nil].
7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	15258
7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	15259	externalBytes := ExternalBytes address:pLocation.
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	15260	^ externalBytes isEmpty
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15261	ifTrue:[ nil ]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15262	ifFalse:[ externalBytes stringAt:1 ]
9475 c57956a348bf printing support fm parents: 9431 diff changeset	15263
c57956a348bf printing support fm parents: 9431 diff changeset	15264	"Created: / 01-08-2006 / 14:03:21 / fm"
10098 7cb05f4cac0b * empty log message * fm parents: 10026 diff changeset	15265	"Modified: / 18-10-2006 / 12:06:45 / User"
10511 7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	15266	"Modified: / 16-04-2007 / 13:08:27 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	15267	!
c57956a348bf printing support fm parents: 9431 diff changeset	15268
c57956a348bf printing support fm parents: 9431 diff changeset	15269	priority
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15270
9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15271	\|priority\|
9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15272
9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15273	Error handle:[:ex \|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15274	Transcript showCR: 'PrinterInfo2 error getting priority - ', ex description.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15275	priority := 0.
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15276	] do:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15277	priority := self unsignedLongAt: 56 + 1
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15278	].
9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15279	^ priority
9475 c57956a348bf printing support fm parents: 9431 diff changeset	15280
c57956a348bf printing support fm parents: 9431 diff changeset	15281	"Created: / 01-08-2006 / 14:40:08 / fm"
10511 7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	15282	"Modified: / 16-04-2007 / 13:09:02 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	15283	!
c57956a348bf printing support fm parents: 9431 diff changeset	15284
c57956a348bf printing support fm parents: 9431 diff changeset	15285	status
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15286
9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15287	\|status\|
9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15288
9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15289	Error handle:[:ex \|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15290	Transcript showCR: 'PrinterInfo2 error getting status - ', ex description.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15291	status := -1.
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15292	] do:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15293	status := self unsignedLongAt: 72 + 1
11402 9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15294	].
9444b3f90a00 error handle for PrinterInfo2 structure fm parents: 11344 diff changeset	15295	^ status
9475 c57956a348bf printing support fm parents: 9431 diff changeset	15296
c57956a348bf printing support fm parents: 9431 diff changeset	15297	"Created: / 31-07-2006 / 11:08:05 / fm"
10511 7a6490a1af87 code cleanup Claus Gittinger <cg@exept.de> parents: 10465 diff changeset	15298	"Modified: / 16-04-2007 / 13:08:59 / cg"
9475 c57956a348bf printing support fm parents: 9431 diff changeset	15299	! !
c57956a348bf printing support fm parents: 9431 diff changeset	15300
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15301	!Win32OperatingSystem::RegistryEntry class methodsFor:'defaults'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15302
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15303	rootKeyNames
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15304	"returns a collection of root keyNames"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15305
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15306	^ #(
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15307	'HKEY_CLASSES_ROOT'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15308	'HKEY_CURRENT_USER'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15309	'HKEY_LOCAL_MACHINE'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15310	'HKEY_USERS'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15311	'HKEY_PERFORMANCE_DATA'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15312	'HKEY_CURRENT_CONFIG'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15313	'HKEY_DYN_DATA'
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15314	)
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15315	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15316
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15317	separator
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15318	"returns the registry-key-path separator character"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15319
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15320	^$\
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15321	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15322
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15323	!Win32OperatingSystem::RegistryEntry class methodsFor:'documentation'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15324
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15325	documentation
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15326	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15327	Interface to a WIN32 registry.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15328
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15329	As this is a private class, access it via
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15330	Win32OperatingSystem registryEntry
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15331
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15332	[author:]
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15333	Claus Gittinger (initial version & cleanup)
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15334	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15335	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15336
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15337	examples
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15338	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15339	retrieve an existing entry by key:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15340	[exBegin]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15341	\|k\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15342
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15343	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15344	[exEnd]
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15345
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15346
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15347	retrieve a non-existing entry by key:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15348	[exBegin]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15349	\|k\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15350
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15351	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\Software\xxx'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15352	[exEnd]
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15353
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15354
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15355	ask a keys value:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15356	[exBegin]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15357	\|k\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15358
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15359	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15360	Transcript show:'Windows serial NR:'; showCR:(k valueNamed:'ProductId').
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15361
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15362	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15363	Transcript showCR:(k valueNamed:'CurrentVersion').
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15364	[exEnd]
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15365
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15366
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15367	create a sub-key (if not already present):
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15368	[exBegin]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15369	\|k subKey\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15370
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15371	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15372	subKey := k createSubKeyNamed:'RegistryDemo'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15373	[exEnd]
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15374
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15375
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15376	change a keys value:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15377	[exBegin]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15378	\|k\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15379
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15380	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X\RegistryDemo'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15381	k valueNamed:'FooBarBaz' put:'a foo bar baz string'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15382	[exEnd]
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15383
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15384	delete a value:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15385	[exBegin]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15386	\|k\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15387
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15388	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X\RegistryDemo'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15389	k deleteValueNamed:'FooBarBaz'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15390	[exEnd]
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15391
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15392	delete a key:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15393	[exBegin]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15394	\|k\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15395
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15396	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15397	k deleteSubKeyNamed:'RegistryDemo'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15398	[exEnd]
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15399
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15400	enumerate keys:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15401	[exBegin]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15402	\|k\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15403
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15404	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\Software'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15405	k subKeysDo:[:subKey \|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15406	Transcript showCR:subKey path
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15407	]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15408	[exEnd]
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15409
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15410	enumerate all keys (recursive):
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15411	[exBegin]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15412	\|k\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15413
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15414	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\Software'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15415	k allSubKeysDo:[:subKey \|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15416	Transcript showCR:subKey path
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15417	]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15418	[exEnd]
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15419
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15420	fetch value by index:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15421	[exBegin]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15422	\|k\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15423
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15424	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\SOFTWARE\eXept\Smalltalk/X'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15425	Transcript showCR:(k valueNameAtIndex:0)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15426	[exEnd]
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15427
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15428
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15429	enumerate value names:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15430	[exBegin]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15431	\|k\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15432
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15433	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\SOFTWARE\eXept\Smalltalk/X'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15434	k valueNamesDo:[:nm \|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15435	Transcript showCR:nm.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15436	]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15437	[exEnd]
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15438
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15439	enumerate values:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15440	[exBegin]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15441	\|k\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15442
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15443	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\SOFTWARE\eXept\Smalltalk/X'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15444	k valueNamesAndValuesDo:[:nm :val \|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15445	Transcript showCR:(nm , ' -> ' , val storeString).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15446	]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15447	[exEnd]
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15448
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15449	search for a value (where does NT store the domain ?):
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15450	[exBegin]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15451	\|k\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15452
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15453	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\System'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15454	k subKeysDo:[:subKey \|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15455	subKey subKeysDo:[:subSubKey \|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15456	\|tcp params\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15457
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15458	(subSubKey path asLowercase endsWith:'services') ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15459	tcp := subSubKey subKeyNamed:'tcpip'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15460	tcp notNil ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15461	params := tcp subKeyNamed:'parameters'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15462	params notNil ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15463	Transcript showCR:'Domain is found in ' , params path ,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15464	' value: ' , (params valueNamed:'Domain').
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15465	params close.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15466	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15467	tcp close.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15468	]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15469	]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15470	]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15471	]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15472	[exEnd]
14514 e45969ab90ac class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14449 diff changeset	15473	register an exe for shell-open:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15474	[exBegin]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15475	\|k stx shell open cmd st_af edit st owl list id\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15476
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15477	k := Win32OperatingSystem registryEntry key:'HKEY_CURRENT_USER\Software\Classes\Applications'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15478	stx := k createSubKeyNamed:'SmalltalkX.exe'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15479	shell := stx createSubKeyNamed:'shell'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15480	open := shell createSubKeyNamed:'open'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15481	cmd := open createSubKeyNamed:'command'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15482	cmd defaultValue:(Character doubleQuote asString,OperatingSystem nameOfSTXExecutable,Character doubleQuote,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15483	' ',Character doubleQuote,'%1',Character doubleQuote).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15484
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15485	k := Win32OperatingSystem registryEntry key:'HKEY_CURRENT_USER\Software\Classes'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15486	st_af := k createSubKeyNamed:'st_auto_file'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15487	shell := st_af createSubKeyNamed:'shell'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15488	open := shell createSubKeyNamed:'open'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15489	cmd := open createSubKeyNamed:'command'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15490	cmd defaultValue:(Character doubleQuote asString,OperatingSystem nameOfSTXExecutable,Character doubleQuote,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15491	' --open ',Character doubleQuote,'%1',Character doubleQuote).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15492	edit := shell createSubKeyNamed:'edit'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15493	cmd := edit createSubKeyNamed:'command'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15494	cmd defaultValue:(Character doubleQuote asString,OperatingSystem nameOfSTXExecutable,Character doubleQuote,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15495	' --edit ',Character doubleQuote,'%1',Character doubleQuote).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15496
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15497	k := Win32OperatingSystem registryEntry key:'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15498	st := k createSubKeyNamed:'.st'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15499	owl := st createSubKeyNamed:'OpenWithList'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15500	list := owl valueNames.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15501	(list contains:[:k \| (owl valueNamed:k) = 'SmalltalkX.exe']) ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15502	Transcript showCR:'already registered.'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15503	] ifFalse:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15504	id := ($a to:$z) detect:[:k \| (list includes:(k asString)) not] ifNone:nil.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15505	owl valueNamed:id asString put:'SmalltalkX.exe'.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15506	]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15507	[exEnd]
14514 e45969ab90ac class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14449 diff changeset	15508
e45969ab90ac class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14449 diff changeset	15509
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15510
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15511
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15512	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15513	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15514
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15515	!Win32OperatingSystem::RegistryEntry class methodsFor:'initialization'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15516
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15517	initialize
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15518	Lobby := Registry new.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15519	ObjectMemory addDependent:self.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15520
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15521	HKEY_CLASSES_ROOT := %{ __MKEXTERNALADDRESS(HKEY_CLASSES_ROOT) %}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15522	HKEY_CURRENT_USER := %{ __MKEXTERNALADDRESS(HKEY_CURRENT_USER) %}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15523	HKEY_LOCAL_MACHINE := %{ __MKEXTERNALADDRESS(HKEY_LOCAL_MACHINE) %}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15524	HKEY_USERS := %{ __MKEXTERNALADDRESS(HKEY_USERS) %}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15525	HKEY_PERFORMANCE_DATA := %{ __MKEXTERNALADDRESS(HKEY_PERFORMANCE_DATA) %}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15526	HKEY_CURRENT_CONFIG := %{ __MKEXTERNALADDRESS(HKEY_CURRENT_CONFIG) %}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15527	HKEY_DYN_DATA := %{ __MKEXTERNALADDRESS(HKEY_DYN_DATA) %}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15528
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	15529	%{
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	15530	#ifndef HKEY_PERFORMANCE_TEXT
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	15531	/* sigh - not defined with borland-cc */
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	15532	# define HKEY_PERFORMANCE_TEXT (( HKEY ) (ULONG_PTR)((LONG)0x80000050) )
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	15533	#endif
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	15534	#ifndef HKEY_PERFORMANCE_NLSTEXT
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	15535	/* sigh - not defined with borland-cc */
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	15536	# define HKEY_PERFORMANCE_NLSTEXT (( HKEY ) (ULONG_PTR)((LONG)0x80000060) )
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	15537	#endif
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	15538	%}.
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	15539	HKEY_PERFORMANCE_TEXT := %{ __MKEXTERNALADDRESS(HKEY_PERFORMANCE_TEXT) %}.
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	15540	HKEY_PERFORMANCE_NLSTEXT := %{ __MKEXTERNALADDRESS(HKEY_PERFORMANCE_NLSTEXT) %}.
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	15541
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	15542	"
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	15543	self initialize
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15544	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15545
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15546	"Created: / 19.5.1999 / 21:39:57 / cg"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15547	"Modified: / 19.5.1999 / 22:45:31 / cg"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15548	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15549
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15550	rootKeyValueFor:specialKeyStringOrSymbol
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15551	"returns one of the root keys or nil
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15552	(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	15553
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15554	HKEY_CLASSES_ROOT isNil ifTrue:[self initialize].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15555
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15556	specialKeyStringOrSymbol = #'HKEY_CLASSES_ROOT' ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15557	^ HKEY_CLASSES_ROOT.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15558	].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15559	specialKeyStringOrSymbol = #'HKEY_CURRENT_USER' ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15560	^ HKEY_CURRENT_USER.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15561	].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15562	specialKeyStringOrSymbol = #'HKEY_LOCAL_MACHINE' ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15563	^ HKEY_LOCAL_MACHINE.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15564	].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15565	specialKeyStringOrSymbol = #'HKEY_USERS' ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15566	^ HKEY_USERS.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15567	].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15568	specialKeyStringOrSymbol = #'HKEY_PERFORMANCE_DATA' ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15569	^ HKEY_PERFORMANCE_DATA.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15570	].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15571	specialKeyStringOrSymbol = #'HKEY_CURRENT_CONFIG' ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15572	^ HKEY_CURRENT_CONFIG.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15573	].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15574	specialKeyStringOrSymbol = #'HKEY_DYN_DATA' ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15575	^ HKEY_DYN_DATA.
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	15576	].
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	15577	specialKeyStringOrSymbol = #'HKEY_PERFORMANCE_TEXT' ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15578	^ HKEY_PERFORMANCE_TEXT.
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	15579	].
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	15580	specialKeyStringOrSymbol = #'HKEY_PERFORMANCE_NLSTEXT' ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15581	^ HKEY_PERFORMANCE_NLSTEXT.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15582	].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15583
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15584	^ nil
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15585
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15586	"Created: / 19.5.1999 / 21:40:30 / cg"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15587	"Modified: / 24.12.1999 / 00:02:06 / cg"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15588	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15589
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15590	update:something with:aParameter from:changedObject
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15591	"handle image restarts and refetch registry handles"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15592
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15593	(something == #returnFromSnapshot) ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15594	self initialize
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15595	]
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15596
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15597	"Created: 15.6.1996 / 15:14:03 / cg"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15598	"Modified: 24.2.1997 / 22:08:05 / cg"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15599	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15600
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15601	!Win32OperatingSystem::RegistryEntry class methodsFor:'instance creation'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15602
9186 662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	15603	immediateHandle:aHandleValue
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	15604	\|h newEntry\|
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	15605
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	15606	aHandleValue isInteger ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15607	h := ExternalAddress newAddress:aHandleValue
9186 662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	15608	] ifFalse:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15609	h := aHandleValue
9186 662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	15610	].
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	15611
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	15612	"/ rootKeys are not registered for RegClose ...
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	15613	newEntry := self basicNew setHandle:h path:nil.
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	15614	newEntry registerForFinalization.
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	15615	^ newEntry.
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	15616
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	15617	"
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	15618	RegistryEntry immediateHandle:16r80000002
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	15619	"
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	15620	!
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	15621
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15622	key:aKeyNamePath
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15623	"retrieve an entry by full path name (starting at a root)"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15624
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15625	^ self key:aKeyNamePath flags:nil createIfAbsent:false
13224 751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	15626
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	15627	"
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	15628	self key:'HKEY_LOCAL_MACHINE'
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	15629	self key:'HKEY_LOCAL_MACHINE\Software'
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	15630	self key:'HKEY_LOCAL_MACHINE\Software\Borland\'
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	15631	self key:'HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X\3.2.5\Directory'
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	15632	(self key:'HKEY_CLASSES_ROOT\MicrosoftWorks.WordProcessor\CLSID') valueNamed:''
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	15633	"
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	15634
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	15635	"Modified: / 19-01-2011 / 15:59:36 / cg"
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	15636	!
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	15637
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	15638	key:aKeyNamePath createIfAbsent:createIfAbsent
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	15639	"retrieve an entry by full path name (starting at a root)"
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	15640
17601 f740dbc12977 Fix last change Stefan Vogel <sv@exept.de> parents: 17599 diff changeset	15641	^ self key:aKeyNamePath flags:nil createIfAbsent:createIfAbsent
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15642
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15643	"
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15644	self key:'HKEY_LOCAL_MACHINE'
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15645	self key:'HKEY_LOCAL_MACHINE\Software'
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15646	self key:'HKEY_LOCAL_MACHINE\Software\Borland\'
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15647	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	15648	(self key:'HKEY_CLASSES_ROOT\MicrosoftWorks.WordProcessor\CLSID') valueNamed:''
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15649	"
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15650
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15651	"Created: / 19-01-2011 / 15:59:21 / cg"
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15652	!
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15653
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15654	key:aKeyNamePath flags:flags
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15655	"retrieve an entry by full path name (starting at a root).
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15656	flags may be one of:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15657	#KEY_WOW64_64KEY to force access to the 64Bit Windows key,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15658	#KEY_WOW64_32KEY to force access to the 32Bit Windows key,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15659	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	15660
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15661	^ self key:aKeyNamePath flags:flags createIfAbsent:false
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15662
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15663	"
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15664	self key:'HKEY_LOCAL_MACHINE'
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15665	self key:'HKEY_LOCAL_MACHINE\Software'
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15666	self key:'HKEY_LOCAL_MACHINE\Software\Borland\'
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15667	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	15668	(self key:'HKEY_CURRENT_USER\Console' flags:#KEY_WOW64_64KEY) subKeys
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15669	(self key:'HKEY_CURRENT_USER\Console' flags:#KEY_WOW64_32KEY) subKeys
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15670	"
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15671
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15672	"Modified: / 19-01-2011 / 15:59:36 / cg"
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15673	!
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15674
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15675	key:aKeyNamePath flags:flags createIfAbsent:createIfAbsent
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15676	"retrieve an entry by full path name (starting at a root).
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15677	flags may be one of:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15678	#KEY_WOW64_64KEY to force access to the 64Bit Windows key,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15679	#KEY_WOW64_32KEY to force access to the 32Bit Windows key,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15680	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	15681
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15682	\|idx first rest root\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15683
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15684	HKEY_CLASSES_ROOT isNil ifTrue:[self initialize].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15685
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15686	idx := aKeyNamePath indexOf:(self separator).
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15687	idx == 0 ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15688	first := aKeyNamePath.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15689	rest := nil.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15690	] ifFalse:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15691	first := aKeyNamePath copyTo:idx-1.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15692	rest := aKeyNamePath copyFrom:idx+1
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15693	].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15694
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15695	first := first asUppercase.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15696
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15697	"/ the first is a pseudo name
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15698	root := self rootKey:first.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15699	root isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15700	^ nil
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15701	].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15702
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15703	rest size == 0 ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15704	^ root
10758 36af354a5b4b * empty log message * Claus Gittinger <cg@exept.de> parents: 10757 diff changeset	15705	].
36af354a5b4b * empty log message * Claus Gittinger <cg@exept.de> parents: 10757 diff changeset	15706
36af354a5b4b * empty log message * Claus Gittinger <cg@exept.de> parents: 10757 diff changeset	15707	Error handle:[:ex \|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15708	^ nil
10758 36af354a5b4b * empty log message * Claus Gittinger <cg@exept.de> parents: 10757 diff changeset	15709	] do:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15710	^ root subKeyNamed:rest flags:flags createIfAbsent:createIfAbsent.
10758 36af354a5b4b * empty log message * Claus Gittinger <cg@exept.de> parents: 10757 diff changeset	15711	].
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15712
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15713	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15714	self key:'HKEY_LOCAL_MACHINE'
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15715	self key:'HKEY_LOCAL_MACHINE\Software'
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15716	self key:'HKEY_LOCAL_MACHINE\Software\Borland\'
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15717	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	15718	(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	15719	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15720
13224 751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	15721	"Created: / 19-01-2011 / 15:59:21 / cg"
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15722	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15723
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15724	rootKey:aRootKeyStringOrSymbol
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15725	"retrieve one of the root entries by name"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15726
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15727	\|keyVal\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15728
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15729	keyVal := self rootKeyValueFor:aRootKeyStringOrSymbol.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15730	keyVal isNil ifTrue:[^ nil].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15731	"/ rootKeys are not registered for RegClose ...
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15732	^ self basicNew setHandle:keyVal path:aRootKeyStringOrSymbol.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15733
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15734	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15735	RegistryEntry rootKey:#'HKEY_LOCAL_MACHINE'
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15736	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15737	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15738
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15739	!Win32OperatingSystem::RegistryEntry class methodsFor:'misc queries'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15740
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15741	classIDOf:applicationName
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15742	\|k clsIDString\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15743
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15744	k := self key:'HKEY_CLASSES_ROOT\',applicationName,'\CLSID'.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15745	k isNil ifTrue:[ ^ nil ].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15746
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15747	clsIDString := k defaultValue.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15748	k close.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15749	^ UUID fromString:clsIDString
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15750
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15751	"
9170 10277c16d1fc * empty log message * Claus Gittinger <cg@exept.de> parents: 9169 diff changeset	15752	self classIDOf:'MicrosoftWorks.WordProcessor'
9167 aaf9ce008153 * empty log message * Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	15753	self classIDOf:'AcroPDF.PDF'
aaf9ce008153 * empty log message * Claus Gittinger <cg@exept.de> parents: 9166 diff changeset	15754	self classIDOf:'PDF.PdfCtrl.5'
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15755	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15756	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15757
9212 1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15758	commandTemplateToOpenMimeType:mimeType
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15759	"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	15760	Return nil, if no such application is known.
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15761	Do nor use directly - this is a helper for MIMEType"
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15762
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15763	^ self commandTemplateToOpenSuffix:(self extensionForMimeType:mimeType)
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15764
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15765	"
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15766	Win32OperatingSystem::RegistryEntry commandTemplateToOpenMimeType:'application/pdf'
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15767	Win32OperatingSystem::RegistryEntry commandTemplateToOpenMimeType:'audio/mp3'
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15768	Win32OperatingSystem::RegistryEntry commandTemplateToOpenMimeType:'video/avi'
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15769	Win32OperatingSystem::RegistryEntry commandTemplateToOpenMimeType:'application/x-zip-compressed'
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15770	"
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15771	!
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15772
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15773	commandTemplateToOpenSuffix:suffixArg
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15774	"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	15775	Do nor use directly - this is a helper for MIMEType"
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15776
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15777	^ self shellCommandTemplateFor:'open' onSuffix:suffixArg
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15778
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15779	"
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15780	self commandTemplateToOpenSuffix:'pdf'
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15781	self commandTemplateToOpenSuffix:'zip'
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15782	"
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15783	!
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15784
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15785	commandTemplateToPrintMimeType:mimeType
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15786	"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	15787	Return nil, if no such application is known.
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15788	Do nor use directly - this is a helper for MIMEType"
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15789
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15790	^ self commandTemplateToPrintSuffix:(self extensionForMimeType:mimeType)
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15791
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15792	"
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	15793	Win32OperatingSystem::RegistryEntry commandTemplateToPrintMimeType:'application/pdf'
51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	15794	Win32OperatingSystem::RegistryEntry commandTemplateToPrintMimeType:'audio/mp3'
9212 1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15795	"
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15796	!
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15797
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15798	commandTemplateToPrintSuffix:suffixArg
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15799	"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	15800	Do nor use directly - this is a helper for MIMEType"
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15801
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15802	^ self shellCommandTemplateFor:'print' onSuffix:suffixArg
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15803
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15804	"
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	15805	self commandTemplateToPrintSuffix:'pdf'
51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	15806	self commandTemplateToPrintSuffix:'zip'
9212 1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15807	"
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15808	!
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15809
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15810	executableForMimeType:mimeType
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15811	"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	15812
9212 1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15813	<resource: #obsolete>
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15814
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15815	self obsoleteMethodWarning:'use commandTemplateToOpenMimeType:'.
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15816	^ self commandTemplateToOpenMimeType:mimeType
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15817
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15818	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15819	Win32OperatingSystem::RegistryEntry executableForMimeType:'application/pdf'
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15820	Win32OperatingSystem::RegistryEntry executableForMimeType:'audio/mp3'
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15821	Win32OperatingSystem::RegistryEntry executableForMimeType:'video/avi'
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15822	Win32OperatingSystem::RegistryEntry executableForMimeType:'application/x-zip-compressed'
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15823	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15824	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15825
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15826	executableForSuffix:suffixArg
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15827	"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	15828
9212 1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15829	<resource: #obsolete>
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15830
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15831	self obsoleteMethodWarning:'use commandTemplateToOpenSuffix:'.
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15832	^ self commandTemplateToOpenSuffix:suffixArg.
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15833
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15834	"
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	15835	self executableForSuffix:'pdf'
9212 1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15836	self executableForSuffix:'zip'
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15837	"
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15838	!
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15839
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15840	extensionForMimeType:mimeType
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15841	"HELPER: given a mimeType, retrieve the file extension or nil (if unknown)"
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15842
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15843	\|k suffix\|
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15844
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15845	k := self key:'HKEY_CLASSES_ROOT\MIME\Database\Content Type\',mimeType.
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15846	k notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15847	suffix := k valueNamed:'extension'.
9212 1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15848	].
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15849	^ suffix
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15850	!
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15851
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15852	shellCommandTemplateFor:operation onSuffix:suffixArg
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15853	"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	15854
9257 e0554fbd09d3 added redirect for RegistryEntry sr parents: 9255 diff changeset	15855	\|k fkey cmd suffix redirect\|
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15856
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15857	suffix := suffixArg.
9212 1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15858	suffix isNil ifTrue:[^ nil].
1ffd975f9e58 commandTemplate stuff Claus Gittinger <cg@exept.de> parents: 9210 diff changeset	15859
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15860	(suffix startsWith:'.') ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15861	suffix := suffix copyFrom:2
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15862	].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15863	k := self key:'HKEY_CLASSES_ROOT\.',suffix.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15864
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15865	k notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15866	fkey := (k valueNamed:'').
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15867	].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15868	fkey isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15869	fkey := suffix,'_auto_file'
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15870	].
9257 e0554fbd09d3 added redirect for RegistryEntry sr parents: 9255 diff changeset	15871
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15872	fkey notEmptyOrNil ifTrue:[
9257 e0554fbd09d3 added redirect for RegistryEntry sr parents: 9255 diff changeset	15873
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15874	redirect := nil.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15875
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15876	k := Win32OperatingSystem::RegistryEntry key:('HKEY_CLASSES_ROOT\' , fkey , '\CurVer').
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15877	k notNil ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15878	redirect := k defaultValue
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15879	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15880
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15881	redirect isNil ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15882	k := Win32OperatingSystem::RegistryEntry key:('HKEY_CLASSES_ROOT\' , (fkey) , '\shell\',operation,'\command').
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15883	] ifFalse:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15884	k := Win32OperatingSystem::RegistryEntry key:('HKEY_CLASSES_ROOT\' , (redirect) , '\shell\',operation,'\command').
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15885	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15886
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15887	k notNil ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15888	cmd := k defaultValue
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15889	].
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	15890	].
51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	15891
51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	15892
51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	15893	^ cmd
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15894	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15895
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15896	!Win32OperatingSystem::RegistryEntry class methodsFor:'registry access'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15897
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15898	stringValueFor:valueName atKey:keyPath
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15899	"convenient accessing method;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15900	Looks for a string value under keyPath;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15901	returns nil if either not found, or no string value"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15902
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15903	\|k v\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15904
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15905	k := self key:keyPath.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15906	k isNil ifTrue:[^ nil].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15907	v := k valueNamed:valueName.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15908	k close.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15909	v isString ifFalse:[^ nil].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15910	^ v
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15911
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15912	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15913	self
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15914	stringValueFor:'Content Type'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15915	atKey:'HKEY_CLASSES_ROOT\.au'
9155 8b2ca287c1bb * empty log message * Claus Gittinger <cg@exept.de> parents: 9154 diff changeset	15916	"
8b2ca287c1bb * empty log message * Claus Gittinger <cg@exept.de> parents: 9154 diff changeset	15917	! !
8b2ca287c1bb * empty log message * Claus Gittinger <cg@exept.de> parents: 9154 diff changeset	15918
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15919	!Win32OperatingSystem::RegistryEntry methodsFor:'accessing'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15920
9186 662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	15921	handleValue
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	15922	^ handle address
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	15923	!
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	15924
17619 6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	15925	isNew
6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	15926	"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	15927
6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	15928	^ isNew ? false
6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	15929	!
6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	15930
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15931	name
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15932	"return the keys name component (subKey name within my
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15933	parent key)"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15934
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15935	\|idx\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15936
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15937	idx := path lastIndexOf:(self class separator).
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15938	idx == 0 ifTrue:[^ path].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15939	^ path copyFrom:idx+1
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15940	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15941
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15942	path
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15943	"return the keys full key path name"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15944
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15945	^ path.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15946	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15947
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15948	!Win32OperatingSystem::RegistryEntry methodsFor:'accessing subkeys'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15949
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15950	createSubKeyNamed:subKeyString
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15951	"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	15952	If it already exists, return it.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15953	Return nil if the new key cannot be created."
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15954
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15955	^ self subKeyNamed:subKeyString flags:nil createIfAbsent:true
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15956
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15957	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15958	\|top sub\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15959
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15960	top := self key:'HKEY_CURRENT_USER'.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15961	sub := top createSubKeyNamed:'FooBarBaz'.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15962	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15963	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15964
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15965	createSubKeyNamed:subKeyString flags:flags
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15966	"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	15967	If it already exists, return it.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15968	Return nil if the new key cannot be created.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15969	flags may be one of:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15970	#KEY_WOW64_64KEY to force access to the 64Bit Windows key,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15971	#KEY_WOW64_32KEY to force access to the 32Bit Windows key,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	15972	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	15973
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15974
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15975	^ self subKeyNamed:subKeyString flags:flags createIfAbsent:true
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15976
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15977	"
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15978	\|top sub\|
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15979
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15980	top := self key:'HKEY_CURRENT_USER'.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15981	sub := top createSubKeyNamed:'FooBarBaz' flags:nil.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15982	"
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15983	!
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15984
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15985	deleteSubKeyNamed:subKeyString
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15986	"delete a key below mySelf.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15987	Return true on success."
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	15988
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15989	^ self deleteSubKeyNamed:subKeyString flags:nil
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15990
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15991	"
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15992	\|top sub\|
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15993
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15994	top := self key:'HKEY_CURRENT_USER'.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15995	sub := top createSubKeyNamed:'FooBarBaz'.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15996	top deleteSubKeyNamed:'FooBarBaz'.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15997	"
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15998	!
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	15999
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16000	deleteSubKeyNamed:subKeyString flags:flags
21248 2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16001	"Delete a key below myself. return true on success.
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16002
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16003	`flags` may be one of:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16004	#KEY_WOW64_64KEY to force access to the 64Bit Windows key,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16005	#KEY_WOW64_32KEY to force access to the 32Bit Windows key,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16006	or nil, to access the key (32/64) for the current application.
21248 2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16007	"
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16008
23761 98ddcd1f3d1f Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23760 diff changeset	16009	\|subKeyStringUtf16Z errorNumber\|
98ddcd1f3d1f Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23760 diff changeset	16010
98ddcd1f3d1f Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23760 diff changeset	16011	subKeyStringUtf16Z := subKeyString asUnicode16StringZ.
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16012
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16013	%{
21248 2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16014	/*
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16015	* Following is a little tricky. To be able to access 32bit / 64bit keys
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16016	* we need to use RegDeleteKeyExW() which not however available on (old)\
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16017	* 32bit Windows XP. Yet we'd like Smalltalk/X to run on those.
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16018	*
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16019	* To do so, call RegDeleteKeyExW() indirectly via a function pointer
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16020	* obtained by GetProcAddress(). If GetProcAddress() fails - meaning
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16021	* we're running on such old Windows - we call old RegDeleteKeyW().
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16022	*/
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16023	static int initialized = 0;
23761 98ddcd1f3d1f Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23760 diff changeset	16024	static LONG (WINAPI *RegDeleteKeyExWPtr)(HKEY hKey, LPCTSTR lpSubKey, REGSAM samDesired, DWORD Reserved) = NULL;
21248 2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16025	if (!initialized) {
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16026	initialized = 1;
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16027	HMODULE advapi32 = LoadLibrary("advapi32.dll");
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16028	if (!advapi32) {
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16029	/*
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16030	* Hmm, failed to load Advapi32.dll, can this happen?
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16031	*/
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16032	errorNumber = __MKSMALLINT(GetLastError());
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16033	goto out;
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16034	}
23761 98ddcd1f3d1f Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23760 diff changeset	16035	RegDeleteKeyExWPtr = (LONG (*) (HKEY hKey, LPCTSTR lpSubKey, REGSAM samDesired, DWORD Reserved)) GetProcAddress(
98ddcd1f3d1f Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23760 diff changeset	16036	advapi32, "RegDeleteKeyExW");
21248 2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16037	}
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16038
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16039	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	16040	int _retVal;
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16041	int _flags = 0;
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16042
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16043	if (flags != nil) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16044	if (flags == @symbol(KEY_WOW64_64KEY)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16045	_flags = KEY_WOW64_64KEY;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16046	} else if (flags == @symbol(KEY_WOW64_32KEY)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16047	_flags = KEY_WOW64_32KEY;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16048	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16049	errorNumber = @symbol(badArgument2);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16050	goto out;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16051	}
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16052	}
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16053
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16054	if (__isExternalAddressLike(__INST(handle))
23761 98ddcd1f3d1f Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23760 diff changeset	16055	&& __isUnicode16String(subKeyStringUtf16Z)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16056	myKey = (HKEY)__externalAddressVal(__INST(handle));
21248 2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16057	if (RegDeleteKeyExWPtr) {
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16058	_retVal = RegDeleteKeyExWPtr(myKey,
23761 98ddcd1f3d1f Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23760 diff changeset	16059	(LPCTSTR) __unicode16StringVal(subKeyStringUtf16Z),
21248 2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16060	_flags,
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16061	0); // reserved
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16062	} else {
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16063	/*
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16064	* Some old Windows without RegDeleteKeyExW() such as
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16065	* 32bit Windows XP.
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16066	* In that case, try hard and call RegDeleteKeyW() - but only
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16067	* if no flags are passed, i.e., `flags` parameter is nil.
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16068	* This is to avoid silent failures when one explicitly asks
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16069	* for 32bit or 64bit view on Windows that does not support
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16070	* RegDeleteKeyExW().
2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16071	*/
23761 98ddcd1f3d1f Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23760 diff changeset	16072	if (flags != nil) //if flag specified then return ERROR_INVALID_PARAMETER
98ddcd1f3d1f Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23760 diff changeset	16073	_retVal = ERROR_INVALID_PARAMETER;
98ddcd1f3d1f Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23760 diff changeset	16074	else
98ddcd1f3d1f Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23760 diff changeset	16075	_retVal = RegDeleteKeyW(myKey, __unicode16StringVal(subKeyStringUtf16Z));
21248 2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16076	}
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16077	if (_retVal == ERROR_SUCCESS) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16078	RETURN (true);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16079	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16080	if ((_retVal != ERROR_PATH_NOT_FOUND)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16081	&& (_retVal != ERROR_FILE_NOT_FOUND)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16082	errorNumber = __MKSMALLINT(_retVal);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16083	}
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16084	}
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16085	out:;
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16086	%}.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16087
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	16088	errorNumber notNil ifTrue:[
23761 98ddcd1f3d1f Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23760 diff changeset	16089	errorNumber == 87 ifTrue:[ "/ 87 (0x57) ... ERROR_INVALID_PARAMETER
21248 2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16090	self primitiveFailed: '32/64bit registry view requested but no RegDeleteKeyExW(). Windows too old?'
23761 98ddcd1f3d1f Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23760 diff changeset	16091	].
21248 2346b1744906 Issue #109: Call `RegDeleteKeyExW()` indirectly via function pointer Jan Vrany <jan.vrany@fit.cvut.cz> parents: 21247 diff changeset	16092	(OperatingSystem errorHolderForNumber:errorNumber) reportError.
23761 98ddcd1f3d1f Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23760 diff changeset	16093
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	16094	].
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16095	^ false
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16096
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16097	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16098	\|top sub\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16099
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16100	top := self key:'HKEY_CURRENT_USER'.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16101	sub := top createSubKeyNamed:'FooBarBaz'.
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16102	top deleteSubKeyNamed:'FooBarBaz' flags:nil.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16103	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16104	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16105
23759 3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16106	remoteKeyOnHost:hostName
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16107	"return the corresponding registry entry from
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16108	a remote computers registry.
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16109	Note: The registry key must be form a predefined list defined by Microsoft."
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16110
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16111	\|hostNameUtf16Z newEntry remoteHandle errorNumber\|
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16112
23759 3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16113	hostNameUtf16Z := hostName notEmptyOrNil ifTrue:[hostName asUnicode16StringZ].
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16114
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16115	%{
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16116	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	16117	int _retVal;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16118
23759 3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16119	/* Notes from MSDN:
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16120	* link: https://docs.microsoft.com/en-us/windows/desktop/api/winreg/nf-winreg-regconnectregistryw
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16121	*
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16122	* 1) RegConnectRegistry requires the Remote Registry service to be running on the remote computer.
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16123	* By default, this service is configured to be started manually. To configure the Remote Registry
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16124	* service to start automatically, run Services.msc and change the Startup Type of the service to Automatic.
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16125	*
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16126	* 2) If the computer is joined to a workgroup and the "Force network logons using local accounts to authenticate as
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16127	* Guest" policy is enabled, the function fails. Note that this policy is enabled by default if the computer is joined
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16128	* to a workgroup.
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16129	*
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16130	* 3) If the current user does not have proper access to the remote computer, the call to RegConnectRegistry fails. To connect
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16131	* to a remote registry, call LogonUser with LOGON32_LOGON_NEW_CREDENTIALS and ImpersonateLoggedOnUser before calling
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16132	* RegConnectRegistry.
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16133	*
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16134	* 4) myKey must be a predefined registry handle.
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16135	* more at: https://docs.microsoft.com/en-us/windows/desktop/SysInfo/predefined-keys
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16136	*
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16137	* 5) When a handle returned by RegConnectRegistry is no longer needed, it should be closed by calling RegCloseKey. (done by registerForFinaliation)
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16138	*
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16139	*/
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16140
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16141	if (__isExternalAddressLike(__INST(handle)) && __isUnicode16String(hostNameUtf16Z)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16142	myKey = (HKEY)__externalAddressVal(__INST(handle));
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16143	if ((_retVal = RegConnectRegistryW(__unicode16StringVal(hostNameUtf16Z), myKey, &remoteKey)) == ERROR_SUCCESS) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16144	remoteHandle = __MKEXTERNALADDRESS(remoteKey);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16145	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16146	if ((_retVal != ERROR_PATH_NOT_FOUND)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16147	&& (_retVal != ERROR_FILE_NOT_FOUND)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16148	errorNumber = __MKSMALLINT(_retVal);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16149	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16150	}
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16151	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16152	%}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16153	remoteHandle notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16154	newEntry := self class basicNew setHandle:remoteHandle path:path.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16155	newEntry registerForFinalization.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16156	^ newEntry.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16157	].
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	16158	errorNumber notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16159	(OperatingSystem errorHolderForNumber:errorNumber) reportError.
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16160	].
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16161
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16162	^ nil
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16163
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16164	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16165	\|top remote\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16166
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16167	top := self key:'HKEY_LOCAL_MACHINE'.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16168	remote := top remoteKeyOnHost:'BETTI'
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16169	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16170	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16171	\|top remote\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16172
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16173	top := self key:'HKEY_USERS'.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16174	remote := top remoteKeyOnHost:'BETTI'
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16175	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16176	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16177	\|top remote\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16178
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16179	top := self key:'HKEY_LOCAL_MACHINE'.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16180	remote := top remoteKeyOnHost:'JOSHUA'
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16181	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16182	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16183	\|top remote\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16184
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16185	top := self key:'HKEY_USERS'.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16186	remote := top remoteKeyOnHost:'JOSHUA'
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16187	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16188	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16189
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16190	subKeyAtIndex:subKeyIndex
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16191	"return a new registry entry below mySelf for the given subKey index.
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16192	Return nil if no such key exists
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16193	WARNING: subKeyIndex is 0-based!!"
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16194
23610 69df1eb85674 Issue #250: refix of subKeyAtIndex: method to get only subKeyName as indicated by its name Patrik Svestka <patrik.svestka@gmail.com> parents: 23609 diff changeset	16195	\|subKeyName errorNumber\|
9156 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	%{
23612 36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16198	/* dwIndex (subKeyIndex)
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16199	* The index of the subkey to retrieve. This parameter should be zero for the first call to the RegEnumKeyEx function and then
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16200	* incremented for subsequent calls. Because subkeys are not ordered, any new subkey will have an arbitrary index. This means
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16201	* that the function may return subkeys in any order.
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16202	*
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16203	* lpName (nameBuffer):
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16204	* A pointer to a buffer that receives the name of the subkey, including the
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16205	* terminating null character. The function copies only the name of the subkey,
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16206	* not the full key hierarchy, to the buffer. If the function fails, no information is copied to this buffer.
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16207	*
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16208	* lpcchName (nameSize):
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16209	* A pointer to a variable that specifies the size of the buffer specified by the lpName parameter, in characters.
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16210	* This size should include the terminating null character. If the function succeeds, the variable pointed to by lpcName
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16211	* contains the number of characters stored in the buffer, not including the terminating null character.
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16212	* To determine the required buffer size, use the RegQueryInfoKey function to determine the size of the largest subkey for the key
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16213	* identified by the hKey parameter
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16214	*
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16215	* note: This actually means that the if the path fits within 255 chacaters you could get another 255 characters for the key itself.
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16216	* This could help if you are having issues with the registry path lenght.
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16217	*
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16218	*/
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16219
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16220	HKEY myKey, subKey = 0;
23612 36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16221	DWORD maxSubKeyLength = 0;
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16222
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16223	FILETIME modificationTime;
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	16224	int _retVal;
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	if (__isExternalAddressLike(__INST(handle))
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16227	&& __isSmallInteger(subKeyIndex)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16228	myKey = (HKEY)__externalAddressVal(__INST(handle));
23612 36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16229	if ((_retVal = RegQueryInfoKey(myKey,
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16230	NULL, NULL, // buffer for class name and size of class string
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16231	NULL, // reserved
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16232	NULL, // number of subkeys
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16233	&maxSubKeyLength, // longest detected subkey size
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16234	NULL, // longest detected class string
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16235	NULL, // number of values for this key
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16236	NULL, // longest detected value name (in unicode characters (not including NULL character))
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16237	NULL, // longest value data (among key's values in bytes)
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16238	NULL, // security descriptor
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16239	NULL)) == ERROR_SUCCESS) { // last write time
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16240	//console_printf("maxSubKeyLength: %d\n", maxSubKeyLength);
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16241	wchar_t nameBuffer[maxSubKeyLength + 1]; // the number array fields + terminating NULL
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16242	// number of characters + terminating NULL - the overall limit registry limit for Value name is 16,383 characters
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16243	DWORD nameSize = maxSubKeyLength + 1;
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16244	if ((_retVal = RegEnumKeyExW(myKey, __intVal(subKeyIndex),
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16245	nameBuffer, &nameSize,
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16246	NULL,
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16247	NULL, NULL, //classNameBuffer, classNameSize
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16248	&modificationTime)) == ERROR_SUCCESS) {
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16249	nameBuffer[nameSize] = '\0';
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16250	subKeyName = __MKU16STRING(nameBuffer);
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16251	} else {
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16252	if (_retVal != ERROR_NO_MORE_ITEMS) {
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16253	errorNumber = __MKSMALLINT(_retVal);
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16254	}
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16255	}
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16256	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16257	if ((_retVal != ERROR_PATH_NOT_FOUND)
23612 36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16258	&& (_retVal != ERROR_FILE_NOT_FOUND)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16259	errorNumber = __MKSMALLINT(_retVal);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16260	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16261	}
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16262	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16263	%}.
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	16264	subKeyName notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16265	^ self subKeyNamed:subKeyName.
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	16266	].
2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	16267	errorNumber notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16268	(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	16269	].
2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	16270	^ nil
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16271
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16272	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16273	\|top sub\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16274
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16275	top := self key:'HKEY_LOCAL_MACHINE'.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16276	sub := top subKeyAtIndex:0
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	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16279
19336 1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	16280	subKeyNameAndClassAtIndex:subKeyIndex
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	16281	"return the name and className of the given subKey at index as a pair.
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16282	Return nil if no such key exists
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16283	WARNING: subKeyIndex is 0-based!!"
19336 1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	16284
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	16285	\|subKeyName subKeyClassName errorNumber\|
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	16286
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	16287	%{
23612 36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16288	/* dwIndex (subKeyIndex)
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16289	* The index of the subkey to retrieve. This parameter should be zero for the first call to the RegEnumKeyEx function and then
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16290	* incremented for subsequent calls. Because subkeys are not ordered, any new subkey will have an arbitrary index. This means
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16291	* that the function may return subkeys in any order.
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16292	*
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16293	* lpName (nameBuffer):
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16294	* A pointer to a buffer that receives the name of the subkey, including the
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16295	* terminating null character. The function copies only the name of the subkey,
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16296	* not the full key hierarchy, to the buffer. If the function fails, no information is copied to this buffer.
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16297	*
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16298	* lpcchName (nameSize):
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16299	* A pointer to a variable that specifies the size of the buffer specified by the lpName parameter, in characters.
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16300	* This size should include the terminating null character. If the function succeeds, the variable pointed to by lpcName
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16301	* contains the number of characters stored in the buffer, not including the terminating null character.
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16302	* To determine the required buffer size, use the RegQueryInfoKey function to determine the size of the largest subkey for the key
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16303	* identified by the hKey parameter
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16304	*
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16305	* lpClass (classNameBuffer):
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16306	* A pointer to a buffer that receives the user-defined class of the enumerated subkey.
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16307	*
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16308	* lpcchClass (classNameSize):
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16309	* A pointer to a variable that specifies the size of the buffer specified by the lpClass parameter, in characters.
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16310	* The size should include the terminating null character. If the function succeeds, lpcClass contains the number of
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16311	* characters stored in the buffer, not including the terminating null character. This parameter can be NULL only if lpClass is NULL.
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16312	*
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16313	* note: This actually means that the if the path fits within 255 chacaters you could get another 255 characters for the key itself.
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16314	* This could help if you are having issues with the registry path lenght.
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16315	*
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16316	*/
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16317
19336 1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	16318	HKEY myKey, subKey = 0;
23612 36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16319	DWORD maxSubKeyLength, maxClassNameLength = 0;
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16320
19336 1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	16321	FILETIME modificationTime;
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	16322	int _retVal;
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	16323
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	16324	if (__isExternalAddressLike(__INST(handle))
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	16325	&& __isSmallInteger(subKeyIndex)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16326	myKey = (HKEY)__externalAddressVal(__INST(handle));
23612 36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16327	if ((_retVal = RegQueryInfoKey(myKey,
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16328	NULL, NULL, // buffer for class name and size of class string
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16329	NULL, // reserved
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16330	NULL, // number of subkeys
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16331	&maxSubKeyLength, // longest detected subkey size
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16332	&maxClassNameLength, // longest detected class string
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16333	NULL, // number of values for this key
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16334	NULL, // longest detected value name (in unicode characters (not including NULL character))
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16335	NULL, // longest value data (among key's values in bytes)
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16336	NULL, // security descriptor
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16337	NULL)) == ERROR_SUCCESS) { // last write time
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16338	//console_printf("maxSubKeyLength: %d and maxClassNameLength: %d\n", maxSubKeyLength, maxClassNameLength);
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16339	wchar_t nameBuffer[maxSubKeyLength + 1]; // the number array fields + terminating NULL
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16340	// number of characters + terminating NULL - the overall limit registry limit for Value name is 16,383 characters
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16341	DWORD nameSize = maxSubKeyLength + 1;
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16342	wchar_t classNameBuffer[maxClassNameLength + 1]; // the number array fields + terminating NULL
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16343	// number of characters + terminating NULL - the overall limit registry limit for Value name is 16,383 characters
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16344	DWORD classNameSize = maxClassNameLength + 1;
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16345	if ((_retVal = RegEnumKeyExW(myKey, __intVal(subKeyIndex),
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16346	nameBuffer, &nameSize,
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16347	NULL,
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16348	classNameBuffer, &classNameSize,
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16349	&modificationTime)) == ERROR_SUCCESS) {
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16350	nameBuffer[nameSize] = '\0';
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16351	classNameBuffer[classNameSize] = '\0';
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16352	subKeyName = __MKU16STRING(nameBuffer);
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16353	subKeyClassName = __MKU16STRING(classNameBuffer);
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16354	} else {
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16355	if (_retVal != ERROR_NO_MORE_ITEMS) {
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16356	errorNumber = __MKSMALLINT(_retVal);
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16357	}
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16358	}
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16359	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16360	if ((_retVal != ERROR_PATH_NOT_FOUND)
23612 36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16361	&& (_retVal != ERROR_FILE_NOT_FOUND)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16362	errorNumber = __MKSMALLINT(_retVal);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16363	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16364	}
19336 1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	16365	}
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	16366	%}.
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	16367	subKeyName notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16368	^ {subKeyName . subKeyClassName}.
19336 1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	16369	].
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	16370	errorNumber notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16371	(OperatingSystem errorHolderForNumber:errorNumber) reportError.
19336 1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	16372	].
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	16373	^ nil
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	16374
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	16375	"
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	16376	\|top sub\|
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	16377
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	16378	top := self key:'HKEY_LOCAL_MACHINE'.
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	16379	sub := top subKeyNameAndClassAtIndex:0
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	16380	"
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	16381	!
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	16382
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16383	subKeyNamed:subKeyString
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16384	"return a new registry entry below mySelf with the given subKey.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16385	Return nil if no such key exists"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16386
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16387	^ self subKeyNamed:subKeyString flags:nil createIfAbsent:false
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16388
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16389	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16390	\|top sub\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16391
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16392	top := self key:'HKEY_LOCAL_MACHINE'.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16393	sub := top subKeyNamed:'Software'
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16394	"
13224 751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	16395	!
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	16396
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	16397	subKeyNamed:subKeyString createIfAbsent:createIfAbsent
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	16398	"return a new registry entry below mySelf with the given subKey.
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	16399	If no such key exists and createIfAbsent is true, the key is created.
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	16400	Otherwise, nil is returned"
751a478cc82a added: Claus Gittinger <cg@exept.de> parents: 13223 diff changeset	16401
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16402	^ self subKeyNamed:subKeyString flags:nil createIfAbsent:createIfAbsent
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16403	!
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16404
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16405	subKeyNamed:subKeyString flags:flags
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16406	"return a new registry entry below mySelf with the given subKey.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16407	Return nil if no such key exists.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16408	flags may be one of:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16409	#KEY_WOW64_64KEY to force access to the 64Bit Windows key,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16410	#KEY_WOW64_32KEY to force access to the 32Bit Windows key,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16411	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	16412
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16413
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16414	^ self subKeyNamed:subKeyString flags:flags createIfAbsent:false
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16415	!
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16416
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16417	subKeyNamed:subKeyString flags:flags createIfAbsent:createIfAbsent
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16418	"return a new registry entry below mySelf with the given subKey.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16419	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	16420	Otherwise, nil is returned.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16421	flags may be one of:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16422	#KEY_WOW64_64KEY to force access to the 64Bit Windows key,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16423	#KEY_WOW64_32KEY to force access to the 32Bit Windows key,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16424	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	16425
23762 1f3f9bcc9689 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23761 diff changeset	16426	\|subKeyStringUtf16Z newEntry subHandle errorNumber disposition\|
1f3f9bcc9689 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23761 diff changeset	16427
1f3f9bcc9689 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23761 diff changeset	16428	subKeyStringUtf16Z := subKeyString asUnicode16StringZ.
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16429
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16430	%{
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16431	#ifndef KEY_WOW64_64KEY
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16432	// this is missing in BCC header files
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16433	# define KEY_WOW64_64KEY 0x0100
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16434	# define KEY_WOW64_32KEY 0x0200
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16435	#endif
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16436
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16437	HKEY myKey, subKey = 0;
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16438	int _retVal;
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16439	int _flags = 0;
23762 1f3f9bcc9689 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23761 diff changeset	16440	DWORD _disposition = 0;
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16441
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16442	if (flags != nil) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16443	if (flags == @symbol(KEY_WOW64_64KEY)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16444	_flags = KEY_WOW64_64KEY;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16445	} else if (flags == @symbol(KEY_WOW64_32KEY)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16446	_flags = KEY_WOW64_32KEY;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16447	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16448	errorNumber = @symbol(badArgument2);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16449	goto out;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16450	}
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16451	}
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16452
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16453	if (__isExternalAddressLike(__INST(handle))
23762 1f3f9bcc9689 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23761 diff changeset	16454	&& __isUnicode16String(subKeyStringUtf16Z)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16455	myKey = (HKEY)__externalAddressVal(__INST(handle));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16456	if (createIfAbsent == true) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16457	_retVal = RegCreateKeyExW(myKey,
23762 1f3f9bcc9689 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23761 diff changeset	16458	__unicode16StringVal(subKeyStringUtf16Z),
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16459	0, // reserved
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16460	NULL, // class
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16461	0, // options
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16462	KEY_ALL_ACCESS\|_flags, // rights
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16463	NULL, // securityAttributes - handle cannot be inherited
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16464	&subKey,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16465	&_disposition); // disposition (created vs. opened)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16466	disposition = _disposition == REG_CREATED_NEW_KEY ? true : false;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16467	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16468	_retVal = RegOpenKeyExW(
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16469	myKey,
23762 1f3f9bcc9689 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23761 diff changeset	16470	__unicode16StringVal(subKeyStringUtf16Z),
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16471	0,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16472	KEY_ALL_ACCESS\|_flags,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16473	&subKey);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16474
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16475	if (!(_retVal == 0)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16476	// try again with less permission
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16477	_retVal = RegOpenKeyExW(
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16478	myKey,
23762 1f3f9bcc9689 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23761 diff changeset	16479	__unicode16StringVal(subKeyStringUtf16Z),
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16480	0,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16481	KEY_READ \|_flags,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16482	&subKey);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16483	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16484
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16485	disposition = false;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16486	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16487	if (_retVal == ERROR_SUCCESS) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16488	subHandle = __MKEXTERNALADDRESS(subKey);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16489	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16490	if ((_retVal != ERROR_PATH_NOT_FOUND)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16491	&& (_retVal != ERROR_FILE_NOT_FOUND)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16492	errorNumber = __MKSMALLINT(_retVal);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16493	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16494	}
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16495	}
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16496	out:;
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16497	%}.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16498	subHandle notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16499	newEntry := self class basicNew
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16500	setHandle:subHandle
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16501	path:((path ? '?') , self class separator asString , subKeyString)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16502	isNew:disposition.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16503
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16504	newEntry registerForFinalization.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16505	^ newEntry.
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16506	].
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16507	errorNumber notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16508	(OperatingSystem errorHolderForNumber:errorNumber) reportProceedableError.
17599 db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16509	].
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16510	^ nil
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16511
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16512	"
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16513	\|top sub\|
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16514
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16515	top := self key:'HKEY_LOCAL_MACHINE'.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16516	sub := top subKeyNamed:'Software' flags:nil createIfAbsent:false
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16517
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16518	\|top sub\|
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16519
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16520	top := self key:'HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Development Kit'.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16521	top valueNamed:'CurrentVersion'.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16522	sub := top subKeyNamed:'1.8' flags:#KEY_WOW64_64KEY createIfAbsent:false.
db07ed37aab5 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17595 diff changeset	16523	"
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16524	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16525
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16526	!Win32OperatingSystem::RegistryEntry methodsFor:'accessing values'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16527
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16528	defaultValue
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16529	^ self valueNamed:''
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16530
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16531	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16532	(self key:'HKEY_CLASSES_ROOT\MicrosoftWorks.WordProcessor\CLSID') defaultValue
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16533	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16534	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16535
23758 8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16536	defaultValue:data
11623 c767911bff13 + defaultValue: in registry Claus Gittinger <cg@exept.de> parents: 11617 diff changeset	16537	"store a value; the value type depends upon the stored value:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16538	ByteArray -> REG_BINARY
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16539	String -> REG_SZ
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16540	Array of string -> REG_MULTI_SZ
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16541	Integer -> REG_DWORD
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16542	nil -> REG_NONE
11623 c767911bff13 + defaultValue: in registry Claus Gittinger <cg@exept.de> parents: 11617 diff changeset	16543	"
c767911bff13 + defaultValue: in registry Claus Gittinger <cg@exept.de> parents: 11617 diff changeset	16544
23758 8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16545	^ self valueNamed:'' put:data
11623 c767911bff13 + defaultValue: in registry Claus Gittinger <cg@exept.de> parents: 11617 diff changeset	16546
c767911bff13 + defaultValue: in registry Claus Gittinger <cg@exept.de> parents: 11617 diff changeset	16547	"
c767911bff13 + defaultValue: in registry Claus Gittinger <cg@exept.de> parents: 11617 diff changeset	16548	(self key:'HKEY_CLASSES_ROOT\MicrosoftWorks.WordProcessor\CLSID') defaultValue
c767911bff13 + defaultValue: in registry Claus Gittinger <cg@exept.de> parents: 11617 diff changeset	16549	"
c767911bff13 + defaultValue: in registry Claus Gittinger <cg@exept.de> parents: 11617 diff changeset	16550	!
c767911bff13 + defaultValue: in registry Claus Gittinger <cg@exept.de> parents: 11617 diff changeset	16551
23759 3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16552	deleteValueNamed:name
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16553	"delete a value.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16554	Return true on success."
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16555
23759 3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16556	\|nameUtf16Z errorNumber\|
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16557
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16558	"/ name must be a string
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16559	"/ adding terminating null into empty string
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16560	name notNil ifTrue:[
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16561	nameUtf16Z := name isEmpty ifTrue:[(name, (Character codePoint: 0)) asUnicode16String] "/ needed for defaultValue
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16562	ifFalse:[name asUnicode16StringZ]
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16563	].
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16564
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16565	%{
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16566	HKEY myKey = 0;
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	16567	int _retVal;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16568
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16569	if (__isExternalAddressLike(__INST(handle))
23759 3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16570	&& __isUnicode16String(nameUtf16Z)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16571	myKey = (HKEY)__externalAddressVal(__INST(handle));
23759 3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16572	if ((_retVal = RegDeleteValueW(myKey, __unicode16StringVal(nameUtf16Z))) == ERROR_SUCCESS) {
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16573	RETURN (true);
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16574	}
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16575	if ((_retVal != ERROR_PATH_NOT_FOUND)
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16576	&& (_retVal != ERROR_FILE_NOT_FOUND)) {
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16577	errorNumber = __MKSMALLINT(_retVal);
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16578	}
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	16579	}
2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	16580	%}.
2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	16581	errorNumber notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16582	(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	16583	].
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16584	^ false
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16585	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16586
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16587	valueNameAtIndex:valueIndex
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16588	"return a values name for the given value index.
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16589	Return nil if no such value exists
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16590	WARNING: valueIndex is 0-based!!"
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16591
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	16592	\|valueName errorNumber\|
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16593
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16594	%{
23612 36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16595	/* dwIndex (valueIndex)
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16596	* The index of the value to be retrieved. This parameter should be zero for the first call to the RegEnumValue function and then be
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16597	* incremented for subsequent calls. Because values are not ordered, any new value will have an arbitrary index. This means that the
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16598	* function may return values in any order.
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16599	*
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16600	* lpValueName (nameBuffer):
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16601	* A pointer to a buffer that receives the name of the value as a null-terminated string.
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16602	* This buffer must be large enough to include the terminating null character.
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16603	*
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16604	* lpcchValueName (nameSize):
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16605	* A pointer to a variable that specifies the size of the buffer pointed to by the lpValueName parameter, in characters.
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16606	* When the function returns, the variable receives the number of characters stored in the buffer, not including the terminating null character.
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16607	* Registry value names are limited to 32,767 bytes. The ANSI version of this function treats this parameter as a SHORT value.
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16608	* Therefore, if you specify a value greater than 32,767 bytes, there is an overflow and the function may return ERROR_MORE_DATA.
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16609	*
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16610	* For more information, see Registry Element Size Limits.
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16611	*/
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16612
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16613	HKEY myKey;
23612 36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16614	DWORD maxValueNameLength = 0;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16615	DWORD valueType;
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	16616	int _retVal;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16617
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16618	if (__isExternalAddressLike(__INST(handle))
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16619	&& __isSmallInteger(valueIndex)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16620	myKey = (HKEY)__externalAddressVal(__INST(handle));
23612 36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16621	if ((_retVal = RegQueryInfoKey(myKey,
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16622	NULL, NULL, // buffer for class name and size of class string
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16623	NULL, // reserved
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16624	NULL, // number of subkeys
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16625	NULL, NULL, // longest subkey size and longest class string
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16626	NULL, // number of values for this key
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16627	&maxValueNameLength, // longest detected value name (in unicode characters (not including NULL character))
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16628	NULL, // longest value data (among key's values in bytes)
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16629	NULL, // security descriptor
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16630	NULL)) == ERROR_SUCCESS) { // last write time
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16631	//console_printf("maxValueNameLength: %d\n", maxValueNameLength);
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16632	wchar_t nameBuffer[maxValueNameLength + 1]; // the number array fields + terminating NULL
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16633	// number of characters + terminating NULL - the overall limit registry limit for Value name is 16,383 characters
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16634	DWORD nameSize = maxValueNameLength + 1;
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16635	if ((_retVal = RegEnumValueW(myKey, __intVal(valueIndex),
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16636	nameBuffer, &nameSize,
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16637	NULL,
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16638	&valueType,
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16639	NULL, NULL)) == ERROR_SUCCESS) {
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16640	nameBuffer[nameSize] = '\0';
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16641	valueName = __MKU16STRING(nameBuffer);
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16642	} else {
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16643	if (_retVal != ERROR_NO_MORE_ITEMS) {
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16644	errorNumber = __MKSMALLINT(_retVal);
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16645	}
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16646	}
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16647	} else {
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16648	if ((_retVal != ERROR_PATH_NOT_FOUND)
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16649	&& (_retVal != ERROR_FILE_NOT_FOUND)) {
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16650	errorNumber = __MKSMALLINT(_retVal);
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16651	}
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16652	}
9156 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	%}.
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	16655	errorNumber notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16656	(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	16657	].
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16658	^ valueName
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	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16661	\|top sub\|
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	top := self key:'HKEY_LOCAL_MACHINE'.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16664	sub := top subKeyAtIndex:0
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16665	"
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
23612 36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16668	valueNamed:nameString
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16669	"retrieve a value; the returned object depends upon the type:
23613 27c3cc6f5371 Issue #250: Fixed valueNamed: comment (missing QWORD and LITTLE and BIG _ENDIAN) Patrik Svestka <patrik.svestka@gmail.com> parents: 23612 diff changeset	16670	REG_NONE -> nil
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16671	REG_BINARY -> ByteArray
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16672	REG_SZ -> String
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16673	REG_DWORD -> Integer
23613 27c3cc6f5371 Issue #250: Fixed valueNamed: comment (missing QWORD and LITTLE and BIG _ENDIAN) Patrik Svestka <patrik.svestka@gmail.com> parents: 23612 diff changeset	16674	REG_QWORD -> 64 bit Integer
27c3cc6f5371 Issue #250: Fixed valueNamed: comment (missing QWORD and LITTLE and BIG _ENDIAN) Patrik Svestka <patrik.svestka@gmail.com> parents: 23612 diff changeset	16675	REG_MULTI_SZ -> Array of strings
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	16676	"
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	16677
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16678	\|nameUtf16Z stringArray retVal errorNumber\|
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16679
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16680	"/ adding terminating null into empty string
23612 36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16681	nameString notNil ifTrue:[
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16682	nameString isEmpty ifTrue:[nameUtf16Z := (nameString, (Character codePoint: 0)) asUnicode16String] "/ needed for defaultValue
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16683	ifFalse:[nameUtf16Z := nameString asUnicode16StringZ]
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16684	].
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	16685
19335 2cf2f4dbd6be #FEATURE Claus Gittinger <cg@exept.de> parents: 19288 diff changeset	16686	%{ /* STACK: 20000 */
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16687	HKEY myKey;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16688	DWORD valueType;
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16689	int val;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16690	union {
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16691	DWORD dWord;
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16692	unsigned char dWordBytes[4]; // needed for the shifts at REG_DWORD_LITTLE_ENDIAN and REG_DWORD_BIG_ENDIAN
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16693	ULONGLONG qWord; // needed for the 64-bit int (QWORD)
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16694	wchar_t wstringBuffer[1024*8]; // buffer for wide characters
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16695	} quickData;
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16696
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16697	wchar_t *dataBuffer = NULL;
23612 36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16698	// A pointer to a variable that specifies the size of the buffer pointed to by the lpData parameter, in bytes
36a5be9c6aa5 Issue #250: methods that need predefined nameBuffer now detect it automatically via RegQueryInfoKey Patrik Svestka <patrik.svestka@gmail.com> parents: 23611 diff changeset	16699	DWORD dataSize = sizeof(quickData);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16700
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16701	if (__isExternalAddressLike(__INST(handle))
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16702	&& __isUnicode16String(nameUtf16Z)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16703	int ret;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16704
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16705	myKey = (HKEY)__externalAddressVal(__INST(handle));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16706
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16707	/* Reading values from registry
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16708	*
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16709	* LSTATUS RegQueryValueEx( // ends with either A(ascii) or W (unicode)
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16710	* HKEY hKey, // a handle of a registry key
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16711	* LPCWSTR lpValueName, // The name of the registry value
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16712	* LPDWORD lpReserved, // reserved and must be NULL
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16713	* LPDWORD lpType, // A pointer to a variable that recieves a code indicating the type of data stored in the specified value
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16714	* LPBYTE lpData, // A pointer to a buffer that receives the value's data. This parameter can be NULL if datat is not required
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16715	* LPDWORD lpcbData // A pointer to a variable that specifies the size of the buffer pointed to by the IpData parameter, in bytes.
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16716	* // When the furnction returns, this variable contains the size of the data copied to IpData
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16717	* );
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16718	*/
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16719
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16720	#if 0
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16721	console_printf("================================================\n");
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16722	console_printf("Before - myKey: %p\n", &myKey);
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16723	console_printf("Before - aValueName: %S\n", __unicode16StringVal(nameUtf16Z));
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16724	console_printf("Before - valueType: %p, valueTypeData: %lu\n", &valueType, valueType);
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16725	console_printf("Before - QuickData dWord: %lu\n", quickData.dWord);
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16726	console_printf("Before - QuickData dWordBytes: %S\n", quickData.dWordBytes);
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16727	console_printf("Before - QuickData qWord: %lu\n", quickData.qWord);
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16728	console_printf("Before - QuickData smallDataBuffer: %S\n", quickData.smallDataBuffer);
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16729	console_printf("Before - Databuffer: %p, dataBufferData: %s\n", &dataBuffer, dataBuffer);
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16730	console_printf("Before - dataSize: %p, dataSizeData: %lu\n", &dataSize, dataSize);
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16731	console_printf("================================================\n");
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16732	#endif
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16733
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16734	/*
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16735	* try to get it with one call ...
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16736	*/
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16737	ret = RegQueryValueExW(myKey, __unicode16StringVal(nameUtf16Z),
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16738	NULL,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16739	&valueType,
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16740	(LPBYTE) &quickData.wstringBuffer, // LPBYTE aka (unsigned char *)
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16741	&dataSize);
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16742
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16743	#if 0
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16744	console_printf("------------------------------------------------\n");
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16745	console_printf("After - myKey: %p\n", &myKey);
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16746	console_printf("After - aValueName: %S\n", __unicode16StringVal(nameUtf16Z));
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16747	console_printf("After - valueType: %p, valueTypeData: %lu\n", &valueType, valueType);
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16748	console_printf("After - QuickData dWord: %lu\n", quickData.dWord);
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16749	console_printf("After - QuickData dWordBytes: %S\n", quickData.dWordBytes);
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16750	console_printf("After - QuickData qWord: %lu\n", quickData.qWord);
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16751	console_printf("After - QuickData smallDataBuffer: %S\n", quickData.smallDataBuffer);
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16752	console_printf("After - Databuffer: %p, dataBufferData: %s\n", &dataBuffer, dataBuffer);
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16753	console_printf("After - dataSize: %p, dataSizeData: %lu\n", &dataSize, dataSize);
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16754	console_printf("------------------------------------------------\n");
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16755	#endif
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16756
20375 6269450051d8 #BUGFIX by sr sr parents: 20371 diff changeset	16757	#if 0
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16758	console_printf("Registry key: %p\n", (void *) myKey);
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16759	console_printf("get \"%S\": dataSize=%d ret=%d\n", __unicode16StringVal(nameUtf16Z), dataSize, ret);
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16760	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16761	while (ret == ERROR_MORE_DATA) {
20375 6269450051d8 #BUGFIX by sr sr parents: 20371 diff changeset	16762	#if 0
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16763	console_printf("ERROR_MORE_DATA dataSize=%d valueType=%d\n", dataSize, valueType);
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16764	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16765	/*
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16766	* nope - need another one ...
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16767	*/
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16768	if (myKey == HKEY_PERFORMANCE_DATA) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16769	dataSize = dataSize * 2;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16770	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16771	switch (valueType) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16772	case REG_BINARY:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16773	case REG_MULTI_SZ:
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16774	dataBuffer = malloc(dataSize);
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16775	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16776	case REG_SZ:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16777	dataBuffer = malloc(dataSize);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16778	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16779	default:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16780	console_printf("RegistryEntry [warning]: unhandled valueType: %d\n", valueType);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16781	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16782	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16783	if (dataBuffer) {
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16784	ret = RegQueryValueExW(myKey, __unicode16StringVal(nameUtf16Z),
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16785	NULL,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16786	&valueType,
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16787	(LPBYTE) dataBuffer,
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16788	&dataSize);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16789	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16790	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16791	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16792	if (myKey != HKEY_PERFORMANCE_DATA) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16793	if (ret != ERROR_SUCCESS) break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16794	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16795	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16796
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16797	if (ret == ERROR_SUCCESS) {
20375 6269450051d8 #BUGFIX by sr sr parents: 20371 diff changeset	16798	#if 0
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16799	console_printf("ERROR_SUCCESS dataSize=%d valueType=%d\n", dataSize, valueType);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16800	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16801	switch (valueType) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16802	case REG_NONE:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16803	/* RETURN (@symbol(none)); */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16804	retVal = nil;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16805	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16806
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16807	case REG_BINARY:
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16808	retVal = __MKBYTEARRAY(dataBuffer ? dataBuffer : quickData.wstringBuffer, dataSize);
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16809	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16810
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16811	case REG_SZ:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16812	case REG_EXPAND_SZ:
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16813
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16814	#if 0
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16815	console_printf("dataBuffer before __MKU16STTRING: %S\n", dataBuffer);
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16816	console_printf("QuickData smallDataBuffer before __MKU16STTRING: %S\n", quickData.wstringBuffer);
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16817	#endif
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16818	retVal = __MKU16STRING(dataBuffer ? dataBuffer : quickData.wstringBuffer);
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16819	#if 0
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16820	console_printf("QuickData smallDataBuffer: %S\n", quickData.wstringBuffer);
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16821	console_printf("dataBuffer: %S\n", dataBuffer);
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16822	#endif
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16823
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16824	break;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16825
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16826	#if 0
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16827	case REG_DWORD:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16828	/* int in native format */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16829	retVal = __MKUINT(quickData.dWord);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16830	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16831	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16832	case REG_DWORD_LITTLE_ENDIAN:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16833	val = quickData.dWordBytes[3];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16834	val = (val << 8) \| quickData.dWordBytes[2];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16835	val = (val << 8) \| quickData.dWordBytes[1];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16836	val = (val << 8) \| quickData.dWordBytes[0];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16837	retVal = __MKUINT(val);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16838	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16839
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16840	case REG_DWORD_BIG_ENDIAN:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16841	val = quickData.dWordBytes[0];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16842	val = (val << 8) \| quickData.dWordBytes[1];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16843	val = (val << 8) \| quickData.dWordBytes[2];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16844	val = (val << 8) \| quickData.dWordBytes[3];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16845	retVal = __MKUINT(val);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16846	break;
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16847
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16848	case REG_QWORD: // only REG_QWORD_LITTLE_ENDIAN present (no need for shifts)
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16849	retVal = __MKULARGEINT(quickData.qWord);
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16850	break;
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16851
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16852	case REG_MULTI_SZ:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16853	{
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16854	wchar_t cp, cp0;
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16855	int ns, i;
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16856
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16857	cp0 = dataBuffer ? dataBuffer : quickData.wstringBuffer;
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16858
20375 6269450051d8 #BUGFIX by sr sr parents: 20371 diff changeset	16859	#if 0
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16860
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16861	console_printf("**************\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16862	for (i=0;i<50;i++) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16863	console_printf("%x ", cp0[i]);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16864	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16865	console_printf("\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16866	for (i=0;i<50;i++) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16867	if (cp0[i] == 0)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16868	console_printf("\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16869	else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16870	console_printf("%c", cp0[i]);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16871	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16872	console_printf("\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16873	console_printf("**************\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16874	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16875	cp = cp0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16876	ns = 0;
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16877
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16878	// datasize
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16879	while ((((cp - cp0) * sizeof(wchar_t)) < (dataSize - 1)) // limits the string
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16880	&& *cp) { // check if the dereferenced value is NULL
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16881	cp = wcschr(cp, '\0'); // wide string search for terminating null character
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16882	*cp++;
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16883	ns++;
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16884	}
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16885
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16886	// clear any remaining value
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16887	*cp = '\0';
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16888	stringArray = __ARRAY_NEW_INT(ns);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16889
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16890	i = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16891	while (*cp0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16892	OBJ s;
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16893
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16894	cp = cp0;
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16895	s = __MKU16STRING(cp0); __ArrayInstPtr(stringArray)->a_element[i] = s; __STORE(stringArray, s);
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16896	cp = wcschr(cp, '\0');
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16897	*cp++;
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16898	cp0 = cp;
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16899	i++;
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16900
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16901	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16902	retVal = stringArray;
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16903	break;
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16904	}
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16905	default:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16906	console_printf("RegistryEntry [warning]: unhandled valueType: %d\n", valueType);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16907	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16908	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16909	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16910	if ((ret != ERROR_PATH_NOT_FOUND)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16911	&& (ret != ERROR_FILE_NOT_FOUND)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16912	errorNumber = __MKSMALLINT(ret);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16913	}
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16914	}
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	16915	}
c5acf1548041 registry fixes; sr parents: 10664 diff changeset	16916	if (dataBuffer) free(dataBuffer);
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16917
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	16918	%}.
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	16919	errorNumber notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16920	(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	16921	].
2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	16922
10682 c5acf1548041 registry fixes; sr parents: 10664 diff changeset	16923	^ retVal
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16924
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16925	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16926	\|key\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16927
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16928	key := self key:'HKEY_LOCAL_MACHINE\SOFTWARE\eXept\Smalltalk/X'.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16929	key valueNamed:'CurrentVersion'
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16930	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16931	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16932
23758 8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16933	valueNamed:name put:data
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16934	"store a value; the value type depends upon the stored value:
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16935	ByteArray -> REG_BINARY
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16936	String -> REG_SZ
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16937	Array of string -> REG_MULTI_SZ
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16938	Integer -> REG_DWORD
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16939	nil -> REG_NONE
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16940	"
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16941	"Transcript showCR: 'name:', name.
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16942	Transcript showCR: 'data:', data."
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16943
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16944	^ self valueNamed:name put:data unexpandedReferences:false
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16945	!
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16946
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16947	valueNamed:name put:data unexpandedReferences:containsUnexpandedReferences
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	16948	"store a value; the value type depends upon the stored value:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16949	ByteArray -> REG_BINARY
23758 8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16950	String -> REG_SZ OR REG_EXPAND_SZ based on containsUnexpandedReferences
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16951	Array of string -> REG_MULTI_SZ
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16952	Integer -> REG_DWORD
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	16953	nil -> REG_NONE
23758 8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16954
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16955	containsUnexpandedReferences:
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16956	true -> REG_EXPAND_SZ
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16957	false -> REG_SZ
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16958
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16959	REG_EXPAND_SZ:
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16960	Null-terminated string that contains unexpanded references to environment variables (for example, ""%PATH%""). It will be a Unicode or ANSI string,
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16961	depending on whether you use the Unicode or ANSI functions.
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16962	"
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16963
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16964	\|nameUtf16Z dataUtf16Z stringArray errorNumber\|
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16965
23760 1ce12d9de0d5 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23759 diff changeset	16966	"/ name must be a string
23758 8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16967	"/ name asUnicodeString and null terminated
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16968	name notNil ifTrue:[
23759 3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16969	nameUtf16Z := name isEmpty ifTrue:[(name, (Character codePoint: 0)) asUnicode16String] "/ needed for defaultValue:
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16970	ifFalse:[name asUnicode16StringZ]
23758 8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16971	].
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16972	"/ data asUnicode16String and null terminated
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16973	data notNil ifTrue:[
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16974	data isString ifTrue:[
23759 3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16975	dataUtf16Z := data isEmpty ifTrue:[(data, (Character codePoint: 0)) asUnicode16String] "/ for empty data strings
3db8d48a8cb1 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23758 diff changeset	16976	ifFalse:[ data asUnicode16StringZ]
23758 8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16977	].
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16978	data isArray ifTrue:[
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16979	dataUtf16Z := data collect:[:eachString \| "/ for every Array member to be null terminated
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16980	eachString asUnicode16StringZ
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16981	]
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16982	]
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16983	].
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	16984
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	16985	%{
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16986	/* Registry Element Size Limits
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16987	*
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16988	* Found at MSDN: https://docs.microsoft.com/en-us/windows/desktop/SysInfo/registry-element-size-limits
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16989	*
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16990	* Registry Element \| Size Limit
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16991	* Key name 255 characters. The key name includes the absolute path of the key in the registry, always starting at a base key, for example, HKEY_LOCAL_MACHINE.
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16992	* Value name 16,383 characters; Windows 2000: 260 ANSI characters or 16,383 Unicode characters.
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16993	* Value Available memory (latest format)1 MB (standard format)
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16994	* Tree A registry tree can be 512 levels deep. You can create up to 32 levels at a time through a single registry API call.
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16995	*
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16996	* Notes:
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16997	* - Long values (more than 2,048 bytes) should be stored in a file, and the location of the file should be stored in the registry.
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16998	* This helps the registry perform efficiently.
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	16999	*
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	17000	* - The file location can be the name of a value or the data of a value. Each backslash in the location string must be preceded by
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	17001	* another backslash as an escape character. For example, specify "C:\\mydir\\myfile" to store the string "C:\mydir\myfile".
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	17002	* A file location can also be the name of a key if it is within the 255-character limit for key names and does not contain backslashes,
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	17003	* which are not allowed in key names.
23758 8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17004	*
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17005	* RegSetValueExW (catches)
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17006	*
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17007	* LSTATUS RegSetValueExW(
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17008	* HKEY hKey,
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17009	* LPCSTR lpValueName,
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17010	* DWORD Reserved,
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17011	* DWORD dwType,
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17012	* const BYTE *lpData,
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17013	* DWORD cbData
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17014	* );
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17015	*
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17016	* lpValueName
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17017	* The name of the value to be set. If a value with this name is not already present in the key, the function adds it to the key.
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17018	* If lpValueName is NULL or an empty string, "", the function sets the type and data for the key's unnamed or default value.
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17019	* For more information, see Registry Element Size Limits (above).
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17020	* Registry keys do not have default values, but they can have one unnamed value, which can be of any type.
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17021	*
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17022	* lpData
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17023	* The data to be stored.
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17024	* For string-based types, such as REG_SZ, the string must be null-terminated. With the REG_MULTI_SZ data type, the string must be terminated
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17025	* with two null characters.
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17026	* Note lpData indicating a null value is valid, however, if this is the case, cbData must be set to '0'.
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17027	*
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17028	* cbData
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17029	* The size of the information pointed to by the lpData parameter, in bytes.
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17030	* If the data is of type REG_SZ, REG_EXPAND_SZ, or REG_MULTI_SZ, cbData must include the size of the terminating null character or characters.
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17031	*
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17032	* Remarks
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17033	* Value sizes are limited by available memory. However, storing large values in the registry can affect its performance.
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17034	* Long values (more than 2,048 bytes) should be stored as files, with the locations of the files stored in the registry.
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17035	*
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17036	* Application elements such as icons, bitmaps, and executable files should be stored as files and not be placed in the registry.
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17037	*
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17038	* If dwType is the REG_SZ, REG_MULTI_SZ, or REG_EXPAND_SZ type and the ANSI version of this function is used (either by explicitly
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17039	* calling RegSetValueExA or by not defining UNICODE before including the Windows.h file), the data pointed to by the lpData parameter
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17040	* must be an ANSI character string. The string is converted to Unicode before it is stored in the registry.
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17041	*
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17042	* Note that operations that access certain registry keys are redirected. For more information, see Registry Virtualization and 32-bit and
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17043	* 64-bit Application Data in the Registry.
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17044	*
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	17045	*/
5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	17046
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17047	HKEY myKey;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17048	DWORD valueType = -1;
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17049	int val;
23758 8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17050	ULONGLONG longVal;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17051	DWORD dataSize = -1;
23758 8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17052	void *dataPointer = NULL;
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17053	int dataOk = 1, mustFreeData = 0;
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17054
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	17055	if (__isExternalAddressLike(__INST(handle))
23758 8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17056	&& __isUnicode16String(nameUtf16Z)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17057	int ret;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17058	OBJ cls;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17059
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17060	myKey = (HKEY)__externalAddressVal(__INST(handle));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17061
23758 8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17062	if (data == nil) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17063	valueType = REG_NONE;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17064	dataSize = 0;
23758 8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17065	} else if (__isSmallInteger(data)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17066	valueType = REG_DWORD;
23758 8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17067	val = __intVal(data);
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17068	dataPointer = &val;
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17069	dataSize = sizeof(val);
23758 8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17070	} else if (__isUnicode16String(dataUtf16Z)) {
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17071	valueType = containsUnexpandedReferences == true ? REG_EXPAND_SZ : REG_SZ;
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17072	dataPointer = __unicode16StringVal(dataUtf16Z);
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17073	dataSize = __unicode16StringSize(dataUtf16Z) * sizeof(wchar_t);
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17074	} else if (__Class(data) == ByteArray) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17075	valueType = REG_BINARY;
23758 8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17076	dataPointer = __ByteArrayInstPtr(data)->ba_element;
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17077	dataSize = __byteArraySize(data);
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17078	} else if (__Class(data) == LargeInteger) {
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17079	valueType = REG_QWORD;
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17080	longVal = __longIntVal(data);
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17081	if (longVal) {
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17082	dataPointer = &longVal;
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17083	dataSize = sizeof(longVal);
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17084	} else {
23758 8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17085	dataOk = 0;
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17086	}
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17087	} else if (__Class(data) == Array) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17088	int i = 0, ns = 0, totalSize = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17089
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17090	valueType = REG_MULTI_SZ;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17091
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17092	/*
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17093	* must allocate a local buffer
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17094	* find size ...
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17095	*/
23758 8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17096	for (i=0; i<__arraySize(dataUtf16Z); i++) {
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17097	OBJ s = __ArrayInstPtr(dataUtf16Z)->a_element[i];
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17098
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17099	if (__isUnicode16String(s)) {
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17100	totalSize += __unicode16StringSize(s);
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17101	} else {
23758 8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17102	dataOk = 0;
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17103	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17104	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17105	ns++;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17106	}
23758 8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17107
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17108	if (dataOk) {
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17109	wchar_t *cp;
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17110
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17111	/*
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17112	* allocate and fill...
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17113	*/
23758 8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17114	// (totalSize length * size of wide char) + terminating null character
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17115	totalSize = (totalSize * sizeof(wchar_t)) + 1;
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17116	dataPointer = malloc(totalSize);
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17117	mustFreeData = 1;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17118	cp = dataPointer;
23758 8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17119	for (i=0; i<__arraySize(dataUtf16Z); i++) {
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17120	OBJ s = __ArrayInstPtr(dataUtf16Z)->a_element[i];
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17121
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17122	memcpy(cp, __unicode16StringVal(s), __unicode16StringSize(s) * sizeof(wchar_t));
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17123	cp += __unicode16StringSize(s);
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17124	}
23758 8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17125	*cp++ = '\0'; // adding second terminating null character (for more information see MSDN comment above)
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17126	dataSize = totalSize;
23758 8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17127	//console_printf("DataSize: %d\n", dataSize);
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17128	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17129	} else {
23758 8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17130	dataOk = 0;
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17131	}
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17132
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17133	if (dataOk) {
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17134	ret = RegSetValueExW(myKey, __unicode16StringVal(nameUtf16Z),
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17135	0, valueType,
23758 8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17136	(LPBYTE) dataPointer,
8fcc24554bc7 Issue #252: Smalltak/X is writing Windows Registry only in ASCII but registry is UTF16 Patrik Svestka <patrik.svestka@gmail.com> parents: 23614 diff changeset	17137	dataSize);
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17138	if (mustFreeData) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17139	free(dataPointer);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17140	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17141	if (ret == ERROR_SUCCESS) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17142	RETURN (true);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17143	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17144	if ((ret != ERROR_PATH_NOT_FOUND)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17145	&& (ret != ERROR_FILE_NOT_FOUND)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17146	errorNumber = __MKSMALLINT(ret);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17147	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17148	}
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17149	}
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17150	%}.
10752 2d7d170b1f05 report errors as exceptions when accessing the registry without permission Claus Gittinger <cg@exept.de> parents: 10746 diff changeset	17151	errorNumber notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17152	(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	17153	].
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17154	^ false
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17155
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17156	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17157	\|key\|
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17158
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17159	key := self key:'HKEY_LOCAL_MACHINE\SOFTWARE\eXept\Smalltalk/X'.
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17160	key valueNamed:'CurrentVersion' put:'3.5.2'
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17161	"
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17162	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17163
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17164	!Win32OperatingSystem::RegistryEntry methodsFor:'enumeration'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17165
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17166	allSubKeysDo:aBlock
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17167	"recursively evaluate aBlock for all subKeys below the receiver"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17168
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17169	\|idx subEntry\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17170
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17171	idx := 0.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17172	[true] whileTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17173	subEntry := self subKeyAtIndex:idx.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17174	subEntry isNil ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17175	^self
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17176	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17177	aBlock value:subEntry.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17178	subEntry allSubKeysDo:aBlock.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17179	subEntry close.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17180	idx := idx + 1.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17181	]
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17182
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17183	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17184	\|top sub\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17185
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17186	top := self key:'HKEY_LOCAL_MACHINE'.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17187	top allSubKeysDo:[:subEntry \|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17188	Transcript showCR:subEntry path
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17189	]
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17190	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17191	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17192
19336 1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	17193	subKeyNamesAndClassesDo:aTwoArgBlock
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	17194	"evaluate aBlock for all subKeys names and class names below the receiver"
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	17195
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	17196	\|idx nameAndClassNameOrNil\|
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	17197
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	17198	idx := 0.
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	17199	[true] whileTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17200	nameAndClassNameOrNil := self subKeyNameAndClassAtIndex:idx.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17201	nameAndClassNameOrNil isNil ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17202	^self
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17203	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17204	aTwoArgBlock value:nameAndClassNameOrNil first value:nameAndClassNameOrNil second.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17205	idx := idx + 1.
19336 1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	17206	]
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	17207
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	17208	"
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	17209	\|top sub\|
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	17210
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	17211	top := self key:'HKEY_LOCAL_MACHINE'.
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	17212	top subKeyNamesAndClassesDo:[:nm :cls \|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17213	Transcript showCR:('name: ',nm,' class: ',cls)
19336 1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	17214	]
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	17215	"
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	17216	!
1604ec6ee7c2 #FEATURE Claus Gittinger <cg@exept.de> parents: 19335 diff changeset	17217
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17218	subKeys
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17219	"return a collection of subKeys below the receiver"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17220
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17221	\|idx subEntry subKeys\|
5135 cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	17222
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	17223	subKeys := OrderedCollection new.
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	17224	self subKeysDo:[:k \| subKeys add:k].
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	17225	^ subKeys
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	17226
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	17227	"
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	17228	\|top sub\|
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	17229
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	17230	top := self key:'HKEY_LOCAL_MACHINE'.
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	17231	top subKeys
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	17232	"
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	17233
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	17234	"Created: / 23.12.1999 / 22:15:22 / cg"
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	17235	"Modified: / 23.12.1999 / 22:15:44 / cg"
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	17236	!
cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	17237
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17238	subKeysDo:aBlock
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17239	"evaluate aBlock for all subKeys below the receiver"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17240
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17241	\|idx subEntry\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17242
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17243	idx := 0.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17244	[true] whileTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17245	subEntry := self subKeyAtIndex:idx.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17246	subEntry isNil ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17247	^self
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17248	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17249	aBlock value:subEntry.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17250	subEntry close.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17251	idx := idx + 1.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17252	]
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17253
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	\|top sub\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17256
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17257	top := self key:'HKEY_LOCAL_MACHINE'.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17258	top subKeysDo:[:subEntry \|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17259	Transcript showCR:subEntry path
19532 e7cbf86b25d5 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19499 diff changeset	17260	]
e7cbf86b25d5 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19499 diff changeset	17261	"
e7cbf86b25d5 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19499 diff changeset	17262	"
e7cbf86b25d5 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19499 diff changeset	17263	\|top sub\|
e7cbf86b25d5 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19499 diff changeset	17264
e7cbf86b25d5 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19499 diff changeset	17265	top := self key:'HKEY_LOCAL_MACHINE'.
e7cbf86b25d5 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19499 diff changeset	17266	OSErrorHolder noPermissionsSignal handle:[:ex \|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17267	ex proceed
19532 e7cbf86b25d5 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19499 diff changeset	17268	] do:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17269	top subKeysDo:[:subEntry \|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17270	Transcript showCR:subEntry path
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17271	]
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17272	]
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17273	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17274	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17275
13223 6255f420ba70 x Claus Gittinger <cg@exept.de> parents: 13197 diff changeset	17276	valueNames
6255f420ba70 x Claus Gittinger <cg@exept.de> parents: 13197 diff changeset	17277	"evaluate aBlock for all value names"
6255f420ba70 x Claus Gittinger <cg@exept.de> parents: 13197 diff changeset	17278
6255f420ba70 x Claus Gittinger <cg@exept.de> parents: 13197 diff changeset	17279	^ Array streamContents:[:s \|
23609 5f68aa2dc5e8 Issue #250: Convert all Windows registry methods to use Unicode API Patrik Svestka <patrik.svestka@gmail.com> parents: 23547 diff changeset	17280	self valueNamesDo:[:nm \| s nextPutUnicode:nm]
13223 6255f420ba70 x Claus Gittinger <cg@exept.de> parents: 13197 diff changeset	17281	].
6255f420ba70 x Claus Gittinger <cg@exept.de> parents: 13197 diff changeset	17282
6255f420ba70 x Claus Gittinger <cg@exept.de> parents: 13197 diff changeset	17283	"Created: / 18-01-2011 / 20:24:52 / cg"
6255f420ba70 x Claus Gittinger <cg@exept.de> parents: 13197 diff changeset	17284	!
6255f420ba70 x Claus Gittinger <cg@exept.de> parents: 13197 diff changeset	17285
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17286	valueNamesAndValuesDo:aBlock
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17287	"evaluate aBlock for all value names"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17288
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17289	self valueNamesDo:[:nm \|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17290	aBlock value:nm value:(self valueNamed:nm)
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17291	]
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17292
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17293	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17294	\|key\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17295
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17296	key := self key:'HKEY_LOCAL_MACHINE\SOFTWARE\eXept\Smalltalk/X'.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17297	key valueNamesAndValuesDo:[:nm :val \|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17298	Transcript showCR:(nm , ' -> ' , val storeString).
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17299	]
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17300	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17301	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17302
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17303	valueNamesDo:aBlock
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17304	"evaluate aBlock for all value names"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17305
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17306	\|idx valueName\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17307
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17308	idx := 0.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17309	[true] whileTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17310	valueName := self valueNameAtIndex:idx.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17311	valueName isNil ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17312	^self
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17313	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17314	aBlock value:valueName.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17315	idx := idx + 1.
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17316	]
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17317	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17318
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17319	!Win32OperatingSystem::RegistryEntry methodsFor:'instance release'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17320
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17321	close
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17322	"close mySelf"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17323
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17324	self closeKey.
9186 662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	17325	self unregisterForFinalization.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17326	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17327
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17328	closeKey
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17329	"close mySelf"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17330
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17331	%{
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17332	HKEY myKey;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17333
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17334	if (__isExternalAddressLike(__INST(handle))) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17335	myKey = (HKEY)(__externalAddressVal(__INST(handle)));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17336	__INST(handle) = nil;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17337	RegCloseKey(myKey);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17338	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17339	%}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17340	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17341
9186 662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	17342	finalizationLobby
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	17343	^ Lobby
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	17344	!
662a7b37a7c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9181 diff changeset	17345
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17346	finalize
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17347	"some entry has been collected - close it"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17348
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17349	handle notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17350	self closeKey.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17351	]
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17352
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17353	"Created: / 19.5.1999 / 22:39:52 / cg"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17354	"Modified: / 19.5.1999 / 22:44:50 / cg"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17355	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17356
11135 db5762c9d81b #getDomainName - Domain is found in CurrentControlSet - no need Stefan Vogel <sv@exept.de> parents: 11129 diff changeset	17357	!Win32OperatingSystem::RegistryEntry methodsFor:'printing & storing'!
db5762c9d81b #getDomainName - Domain is found in CurrentControlSet - no need Stefan Vogel <sv@exept.de> parents: 11129 diff changeset	17358
db5762c9d81b #getDomainName - Domain is found in CurrentControlSet - no need Stefan Vogel <sv@exept.de> parents: 11129 diff changeset	17359	printOn:aStream
11215 b4ffb4c6628d * empty log message * Claus Gittinger <cg@exept.de> parents: 11193 diff changeset	17360	aStream
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17361	nextPutAll:self className;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17362	nextPut:$(;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17363	nextPutAll:path;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17364	nextPut:$).
11135 db5762c9d81b #getDomainName - Domain is found in CurrentControlSet - no need Stefan Vogel <sv@exept.de> parents: 11129 diff changeset	17365	! !
db5762c9d81b #getDomainName - Domain is found in CurrentControlSet - no need Stefan Vogel <sv@exept.de> parents: 11129 diff changeset	17366
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17367	!Win32OperatingSystem::RegistryEntry methodsFor:'private'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17368
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17369	setHandle:aHandle path:aPathString
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17370	handle := aHandle.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17371	path := aPathString.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17372
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17373	"Created: / 19.5.1999 / 22:27:05 / cg"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17374	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17375
17619 6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	17376	setHandle:aHandle path:aPathString isNew:disposition
6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	17377	handle := aHandle.
6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	17378	path := aPathString.
6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	17379	isNew := disposition.
6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	17380
6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	17381	"Created: / 19.5.1999 / 22:27:05 / cg"
6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	17382	!
6f162a05d381 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17602 diff changeset	17383
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17384	setupForHandleValue:integerHandleValue
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17385	"not normally used - given an integer address,
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17386	return a registry entry. This is provided to
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17387	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	17388
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17389	%{
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17390	HKEY key;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17391	OBJ t;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17392
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	17393	key = (HKEY)__longIntVal(integerHandleValue);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17394	if (! key) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17395	RETURN (nil);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17396	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17397
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17398	t = __MKEXTERNALADDRESS(key); __INST(handle) = t; __STORE(self, t);
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17399	%}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17400
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17401	"Created: / 19.5.1999 / 21:45:05 / cg"
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
9475 c57956a348bf printing support fm parents: 9431 diff changeset	17404	!Win32OperatingSystem::TextMetricsStructure class methodsFor:'instance creation'!
c57956a348bf printing support fm parents: 9431 diff changeset	17405
c57956a348bf printing support fm parents: 9431 diff changeset	17406	new
c57956a348bf printing support fm parents: 9431 diff changeset	17407
c57956a348bf printing support fm parents: 9431 diff changeset	17408	^super new: self sizeInBytes
c57956a348bf printing support fm parents: 9431 diff changeset	17409
c57956a348bf printing support fm parents: 9431 diff changeset	17410	"Created: / 02-08-2006 / 16:20:02 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	17411	!
c57956a348bf printing support fm parents: 9431 diff changeset	17412
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	17413	sizeInBytes
9475 c57956a348bf printing support fm parents: 9431 diff changeset	17414
c57956a348bf printing support fm parents: 9431 diff changeset	17415	^53
c57956a348bf printing support fm parents: 9431 diff changeset	17416
c57956a348bf printing support fm parents: 9431 diff changeset	17417	"Created: / 02-08-2006 / 16:20:09 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	17418	! !
c57956a348bf printing support fm parents: 9431 diff changeset	17419
c57956a348bf printing support fm parents: 9431 diff changeset	17420	!Win32OperatingSystem::TextMetricsStructure methodsFor:'accessing'!
c57956a348bf printing support fm parents: 9431 diff changeset	17421
c57956a348bf printing support fm parents: 9431 diff changeset	17422	tmDefaultChar
c57956a348bf printing support fm parents: 9431 diff changeset	17423	^self byteAt: 46 + 1
c57956a348bf printing support fm parents: 9431 diff changeset	17424
c57956a348bf printing support fm parents: 9431 diff changeset	17425	"Created: / 02-08-2006 / 16:15:35 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	17426	!
c57956a348bf printing support fm parents: 9431 diff changeset	17427
c57956a348bf printing support fm parents: 9431 diff changeset	17428	tmExternalLeading
c57956a348bf printing support fm parents: 9431 diff changeset	17429	^self longAt: 16 + 1
c57956a348bf printing support fm parents: 9431 diff changeset	17430
c57956a348bf printing support fm parents: 9431 diff changeset	17431	"Created: / 02-08-2006 / 16:17:11 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	17432	!
c57956a348bf printing support fm parents: 9431 diff changeset	17433
c57956a348bf printing support fm parents: 9431 diff changeset	17434	tmHeight
c57956a348bf printing support fm parents: 9431 diff changeset	17435	^self longAt: 0 + 1
c57956a348bf printing support fm parents: 9431 diff changeset	17436
c57956a348bf printing support fm parents: 9431 diff changeset	17437	"Created: / 02-08-2006 / 16:16:38 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	17438	! !
c57956a348bf printing support fm parents: 9431 diff changeset	17439
19499 ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	17440	!Win32OperatingSystem::Win32ChangeNotificationHandle class methodsFor:'documentation'!
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	17441
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	17442	documentation
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	17443	"
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	17444	I represent a handle on change notifications (directory changes).
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	17445	I can be waited upon in a WaitForHandle / WaitForMultipleObjects call.
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	17446	"
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	17447	! !
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	17448
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	17449	!Win32OperatingSystem::Win32ChangeNotificationHandle methodsFor:'release'!
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	17450
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	17451	close
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	17452	"close the handle"
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	17453
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	17454	self closeHandle.
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	17455	self unregisterForFinalization.
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	17456	! !
ee8d773cead9 #FEATURE Claus Gittinger <cg@exept.de> parents: 19423 diff changeset	17457
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17458	!Win32OperatingSystem::Win32IOHandle class methodsFor:'documentation'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17459
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17460	documentation
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17461	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17462	I represent a handle on which I/O is possible.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17463	Typical instances are File-Handles, Socket-Handles etc.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17464	"
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17465	! !
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	17466
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17467	!Win32OperatingSystem::Win32IOHandle methodsFor:'io'!
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	readBytes:count into:aByteBuffer startingAt:firstIndex
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17470	"read count bytes into a byte-buffer;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17471	Return the number of bytes read (negative on error)"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17472
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17473	\|errSym errorNumber\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17474
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17475	%{
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17476	unsigned char *extPtr;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17477	int bufferIsExternalBytes;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17478	int mustFreeBuffer = 0;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17479	int nRead = -1;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17480	HANDLE hFile = (HANDLE)(__externalAddressVal(self));
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17481	DWORD cntWanted, offs, cntRead;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17482	int bufferSize;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17483	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	17484	int ok;
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 ((hFile == 0) \|\| (hFile == INVALID_HANDLE_VALUE)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17487	errSym = @symbol(errorNotOpen);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17488	goto bad;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17489	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17490	if (! __bothSmallInteger(count, firstIndex)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17491	errSym = @symbol(badArgument);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17492	goto bad;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17493	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17494	cntWanted = __smallIntegerVal(count);
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17495	if (cntWanted <= 0) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17496	errSym = @symbol(badCount);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17497	goto bad;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17498	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17499	offs = __smallIntegerVal(firstIndex) - 1;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17500	if (offs < 0) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17501	errSym = @symbol(badOffset);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17502	goto bad;
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
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17505	bufferIsExternalBytes = __isExternalBytesLike(aByteBuffer);
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17506	if (! bufferIsExternalBytes) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17507	if (__isByteArray(aByteBuffer)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17508	bufferSize = __byteArraySize(aByteBuffer);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17509	} else if (__isString(aByteBuffer)) { // not isStringLike here !
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17510	bufferSize = __stringSize(aByteBuffer);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17511	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17512	errSym = @symbol(badBuffer);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17513	goto bad;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17514	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17515	if (bufferSize < (cntWanted + offs)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17516	errSym = @symbol(badBufferSize);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17517	goto bad;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17518	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17519	if (cntWanted <= sizeof(miniBuffer)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17520	extPtr = miniBuffer;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17521	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17522	extPtr = malloc(cntWanted);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17523	mustFreeBuffer = 1;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17524	}
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17525	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17526	OBJ sz;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17527
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17528	extPtr = (char *)(__externalBytesAddress(aByteBuffer));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17529	if (extPtr == NULL) goto bad;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17530	sz = __externalBytesSize(aByteBuffer);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17531	if (! __isSmallInteger(sz)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17532	errSym = @symbol(badBufferSize);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17533	goto bad;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17534	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17535	bufferSize = __smallIntegerVal(sz);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17536	if (bufferSize < (cntWanted + offs)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17537	errSym = @symbol(badBufferSize);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17538	goto bad;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17539	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17540	extPtr = extPtr + offs;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17541	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17542
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17543	do {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17544	__threadErrno = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17545	// do not cast to INT - will loose sign bit then!
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17546	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	17547	} while(__threadErrno == EINTR);
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17548
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17549	if (ok == TRUE) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17550	if (! bufferIsExternalBytes) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17551	/* copy over */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17552	memcpy(__byteArrayVal(aByteBuffer)+offs, extPtr, cntRead);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17553	if (mustFreeBuffer) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17554	free(extPtr);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17555	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17556	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17557	RETURN (__mkSmallInteger(cntRead));
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17558	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17559	errorNumber = __mkSmallInteger( __WIN32_ERR(GetLastError()) );
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17560
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17561	bad: ;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17562	if (mustFreeBuffer) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17563	free(extPtr);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17564	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17565	%}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17566
9154 d7f8a015da92 more com experiments Claus Gittinger <cg@exept.de> parents: 9153 diff changeset	17567	errorNumber isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17568	self error:'invalid argument(s): ', errSym.
9155 8b2ca287c1bb * empty log message * Claus Gittinger <cg@exept.de> parents: 9154 diff changeset	17569	] ifFalse:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17570	(OperatingSystem errorHolderForNumber:errorNumber) reportError
9155 8b2ca287c1bb * empty log message * Claus Gittinger <cg@exept.de> parents: 9154 diff changeset	17571	].
8b2ca287c1bb * empty log message * Claus Gittinger <cg@exept.de> parents: 9154 diff changeset	17572
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17573	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17574	\|h buff n\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17575
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17576	h := self basicNew.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17577	buff := ByteArray new:10.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17578	n := h readBytes:10 into:buff startingAt:1.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17579	Transcript show:n; show:' '; showCR:buff.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17580	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17581	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17582
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17583	readWaitWithTimeoutMs:millis
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17584	"return true if a timeout occurred"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17585
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17586	\|errSym errorNumber\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17587
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17588	%{
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17589	HANDLE hFile = (HANDLE)(__externalAddressVal(self));
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17590	DWORD res;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17591	INT t;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17592
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17593	if ((hFile == 0) \|\| (hFile == INVALID_HANDLE_VALUE)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17594	errSym = @symbol(errorNotOpen);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17595	goto bad;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17596	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17597
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17598	#if 0
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17599	if (ioctlsocket((SOCKET)hFile, FIONREAD, &res)==0) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17600	/* its a socket */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17601	if (res > 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17602	RETURN ( false );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17603	}
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17604	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17605	if (PeekNamedPipe(hFile, 0, 0, 0, &res, 0)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17606	/* its a namedPipe */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17607	if (res > 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17608	RETURN ( false );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17609	}
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17610	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17611	#endif
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17612	if (__isSmallInteger(millis)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17613	t = __intVal(millis);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17614	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17615	t = INFINITE;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17616	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17617
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17618	do {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17619	__threadErrno = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17620	res = WaitForSingleObject(hFile, t);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17621	} while (__threadErrno == EINTR);
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17622
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17623	switch (res) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17624	case WAIT_OBJECT_0:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17625	/* signalled */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17626	RETURN ( false );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17627
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17628	case WAIT_TIMEOUT:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17629	/* signalled */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17630	RETURN ( true );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17631
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17632	default:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17633	case WAIT_ABANDONED:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17634	errorNumber = __mkSmallInteger( __WIN32_ERR(GetLastError()) );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17635	goto bad;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17636	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17637
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17638	bad: ;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17639	%}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17640	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17641	timeout argument not integer,
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17642	or any fd-array nonNil and not an array
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17643	or not supported by OS
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17644	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17645	^ self primitiveFailed
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17646	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17647
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17648	seekTo:newPosition from:whence
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17649	"whence is one of:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17650	#begin
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17651	#current
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17652	#end
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17653	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17654
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17655	\|errSym errorNumber\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17656
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17657	%{
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17658	HANDLE hFile = (HANDLE)(__externalAddressVal(self));
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17659	DWORD moveHow;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17660	LONG posLo, posHi = 0;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17661	__uint64__ pos64, newPos64;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17662
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17663	if ((hFile == 0) \|\| (hFile == INVALID_HANDLE_VALUE)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17664	errSym = @symbol(errorNotOpen);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17665	goto bad;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17666	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17667
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17668	if (whence == @symbol(begin)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17669	moveHow = FILE_BEGIN;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17670	} else if (whence == @symbol(current)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17671	moveHow = FILE_CURRENT;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17672	} else if (whence == @symbol(end)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17673	moveHow = FILE_END;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17674	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17675	errSym = @symbol(badArgument2);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17676	goto bad;
6336 7accea3927f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6304 diff changeset	17677	}
7accea3927f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6304 diff changeset	17678
7accea3927f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6304 diff changeset	17679	if (__signedLong64IntVal(newPosition, &pos64) == 0) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17680	errSym = @symbol(badArgument);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17681	goto bad;
6336 7accea3927f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6304 diff changeset	17682	}
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	17683	#if __POINTER_SIZE__ == 8
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	17684	posLo = pos64 & 0xFFFFFFFF;
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	17685	posHi = (pos64 >> 32) & 0xFFFFFFFF;
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	17686	#else
6336 7accea3927f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6304 diff changeset	17687	posLo = pos64.lo;
7accea3927f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6304 diff changeset	17688	posHi = pos64.hi;
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	17689	#endif
6336 7accea3927f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6304 diff changeset	17690	posLo = SetFilePointer(hFile, posLo, &posHi, moveHow);
7accea3927f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6304 diff changeset	17691	if (posLo == 0xFFFFFFFF) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17692	int lastError;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17693
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17694	/* can be either an error, or a valid low-word */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17695	lastError = GetLastError();
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17696	if (lastError != NO_ERROR) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17697	errorNumber = __mkSmallInteger( __WIN32_ERR(lastError) );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17698	goto bad;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17699	}
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17700	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17701
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17702	if (posHi == 0) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17703	RETURN (__MKUINT( posLo ));
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17704	}
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	17705	#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	17706	newPos64 = (__uint64__)posLo \| ((__uint64__)posHi << 32);
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	17707	RETURN ( __MKUINT(newPos64) );
6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	17708	#else
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17709	newPos64.lo = posLo;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17710	newPos64.hi = posHi;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17711	RETURN ( __MKUINT64(&newPos64) );
14632 6fe0dc1d5377 64bit mingw changes Claus Gittinger <cg@exept.de> parents: 14520 diff changeset	17712	#endif
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17713
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17714	bad: ;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17715	%}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17716
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17717	errorNumber isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17718	self error:'invalid argument(s): ', errSym.
6336 7accea3927f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6304 diff changeset	17719	] ifFalse:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17720	(OperatingSystem errorHolderForNumber:errorNumber) reportError
6336 7accea3927f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6304 diff changeset	17721	].
7accea3927f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6304 diff changeset	17722	!
7accea3927f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6304 diff changeset	17723
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17724	writeBytes:count from:aByteBuffer startingAt:firstIndex
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17725	"write count bytes from a byte-buffer;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17726	Return the number of bytes written (negative on error)"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17727
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17728	\|errSym errorNumber\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17729	%{
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17730	unsigned char *extPtr;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17731	int bufferIsExternalBytes;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17732	int mustFreeBuffer = 0;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17733	int nWritten = -1;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17734	HANDLE hFile = (HANDLE)(__externalAddressVal(self));
6304 c51a3d81ba5b * empty log message * Claus Gittinger <cg@exept.de> parents: 6297 diff changeset	17735	DWORD cntWanted, offs, cntWritten;
c51a3d81ba5b * empty log message * Claus Gittinger <cg@exept.de> parents: 6297 diff changeset	17736	int bufferSize;
6338 7a927c5cc9f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6337 diff changeset	17737	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	17738	int ok;
6304 c51a3d81ba5b * empty log message * Claus Gittinger <cg@exept.de> parents: 6297 diff changeset	17739
c51a3d81ba5b * empty log message * Claus Gittinger <cg@exept.de> parents: 6297 diff changeset	17740	if ((hFile == 0) \|\| (hFile == INVALID_HANDLE_VALUE)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17741	errSym = @symbol(errorNotOpen);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17742	goto bad;
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	17743	}
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17744	if (! __bothSmallInteger(count, firstIndex)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17745	errSym = @symbol(badArgument);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17746	goto bad;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17747	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17748	cntWanted = __smallIntegerVal(count);
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17749	if (cntWanted <= 0) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17750	errSym = @symbol(badCount);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17751	goto bad;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17752	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17753	offs = __smallIntegerVal(firstIndex) - 1;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17754	if (offs < 0) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17755	errSym = @symbol(badOffset);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17756	goto bad;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17757	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17758
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17759	bufferIsExternalBytes = __isExternalBytesLike(aByteBuffer);
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17760	if (! bufferIsExternalBytes) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17761	if (__isByteArray(aByteBuffer)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17762	bufferSize = __byteArraySize(aByteBuffer);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17763	} else if (__isStringLike(aByteBuffer)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17764	bufferSize = __stringSize(aByteBuffer);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17765	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17766	errSym = @symbol(badBuffer);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17767	goto bad;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17768	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17769	if (bufferSize < (cntWanted + offs)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17770	errSym = @symbol(badBufferSize);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17771	goto bad;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17772	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17773	if (cntWanted <= sizeof(miniBuffer)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17774	extPtr = miniBuffer;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17775	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17776	extPtr = malloc(cntWanted);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17777	mustFreeBuffer = 1;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17778	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17779	memcpy(extPtr, __byteArrayVal(aByteBuffer)+offs, cntWanted);
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	17780	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17781	extPtr = (char *)(__externalBytesAddress(aByteBuffer));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17782	if (extPtr == NULL) goto bad;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17783	bufferSize = __externalBytesSize(aByteBuffer);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17784	if (! __isSmallInteger(bufferSize)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17785	errSym = @symbol(badBufferSize);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17786	goto bad;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17787	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17788	bufferSize = __smallIntegerVal(bufferSize);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17789	if (bufferSize < (cntWanted + offs)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17790	errSym = @symbol(badBufferSize);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17791	goto bad;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17792	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17793	extPtr = extPtr + offs;
6338 7a927c5cc9f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6337 diff changeset	17794	}
7a927c5cc9f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6337 diff changeset	17795
7a927c5cc9f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6337 diff changeset	17796	do {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17797	__threadErrno = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17798	// do not cast to INT - will loose sign bit then!
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17799	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	17800	} while(__threadErrno == EINTR);
7a927c5cc9f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6337 diff changeset	17801
7a927c5cc9f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6337 diff changeset	17802	if (ok == TRUE) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17803	if (mustFreeBuffer) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17804	free(extPtr);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17805	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17806	RETURN (__mkSmallInteger(cntWritten));
6338 7a927c5cc9f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6337 diff changeset	17807	}
7a927c5cc9f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6337 diff changeset	17808	errorNumber = __mkSmallInteger( __WIN32_ERR(GetLastError()) );
7a927c5cc9f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6337 diff changeset	17809
8265 34418449c41c Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 8174 diff changeset	17810	bad: ;
6338 7a927c5cc9f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6337 diff changeset	17811	if (mustFreeBuffer) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17812	free(extPtr);
6338 7a927c5cc9f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6337 diff changeset	17813	}
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	17814	%}.
6304 c51a3d81ba5b * empty log message * Claus Gittinger <cg@exept.de> parents: 6297 diff changeset	17815	errorNumber isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17816	self error:'invalid argument(s): ', errSym.
6304 c51a3d81ba5b * empty log message * Claus Gittinger <cg@exept.de> parents: 6297 diff changeset	17817	] ifFalse:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17818	(OperatingSystem errorHolderForNumber:errorNumber) reportError
6304 c51a3d81ba5b * empty log message * Claus Gittinger <cg@exept.de> parents: 6297 diff changeset	17819	].
6293 e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	17820
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	17821	"
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	17822	\|h buff n\|
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	17823
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	17824	h := self basicNew.
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	17825	h setFileDescriptor:1.
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	17826	buff := '12345678901234567890'.
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	17827	n := h writeBytes:10 from:buff startingAt:1.
e73c204b9f1e * empty log message * Claus Gittinger <cg@exept.de> parents: 6288 diff changeset	17828	"
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17829	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17830
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17831	!Win32OperatingSystem::Win32IOHandle methodsFor:'release'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17832
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17833	close
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17834	"close the file"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17835
16345 575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	17836	self closeHandle.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17837	self unregisterForFinalization.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17838	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	17839
20591 e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	17840	!Win32OperatingSystem::Win32MutexHandle class methodsFor:'documentation'!
e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	17841
e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	17842	documentation
e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	17843	"
e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	17844	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	17845	I can be waited upon in a WaitForHandle / WaitForMultipleObjects call.
e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	17846	"
e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	17847	! !
e4155b00819c #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 20562 diff changeset	17848
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17849	!Win32OperatingSystem::Win32NetworkResourceHandle class methodsFor:'accessing - types'!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17850
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17851	displayTypeMappingTable
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17852	"answer a Dictionary containing displayTypes symbols to integer mapping and vice versa"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17853	\| symbTable \|
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17854
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17855	DisplayTypeMappingTable notNil ifTrue:[ ^ DisplayTypeMappingTable ].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17856
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17857	symbTable := Dictionary new.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17858	%{
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17859	__AT_PUT_(symbTable , @symbol(GENERIC), __MKUINT( RESOURCEDISPLAYTYPE_GENERIC ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17860	__AT_PUT_(symbTable , @symbol(DOMAIN), __MKUINT( RESOURCEDISPLAYTYPE_DOMAIN ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17861	__AT_PUT_(symbTable , @symbol(SERVER), __MKUINT( RESOURCEDISPLAYTYPE_SERVER ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17862	__AT_PUT_(symbTable , @symbol(SHARE), __MKUINT( RESOURCEDISPLAYTYPE_SHARE ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17863	__AT_PUT_(symbTable , @symbol(FILE), __MKUINT( RESOURCEDISPLAYTYPE_FILE ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17864	__AT_PUT_(symbTable , @symbol(GROUP), __MKUINT( RESOURCEDISPLAYTYPE_GROUP ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17865	__AT_PUT_(symbTable , @symbol(NETWORK), __MKUINT( RESOURCEDISPLAYTYPE_NETWORK ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17866	__AT_PUT_(symbTable , @symbol(ROOT), __MKUINT( RESOURCEDISPLAYTYPE_ROOT ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17867	__AT_PUT_(symbTable , @symbol(SHAREADMIN), __MKUINT( RESOURCEDISPLAYTYPE_SHAREADMIN ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17868	__AT_PUT_(symbTable , @symbol(DIRECTORY), __MKUINT( RESOURCEDISPLAYTYPE_DIRECTORY ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17869	__AT_PUT_(symbTable , @symbol(TREE), __MKUINT( RESOURCEDISPLAYTYPE_TREE ) );
15580 4f1aa9df6162 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15547 diff changeset	17870	#ifdef RESOURCEDISPLAYTYPE_NDSCONTAINER
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17871	__AT_PUT_(symbTable , @symbol(NDSCONTAINER), __MKUINT( RESOURCEDISPLAYTYPE_NDSCONTAINER ) );
15580 4f1aa9df6162 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15547 diff changeset	17872	#endif
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17873	%}.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17874	DisplayTypeMappingTable := Dictionary new.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17875
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17876	symbTable keysAndValuesDo:[:aSYMB :anINT \|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17877	DisplayTypeMappingTable at: aSYMB put: anINT.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17878	DisplayTypeMappingTable at: anINT put: aSYMB. "/ vice versa
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17879	].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17880	^ DisplayTypeMappingTable
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17881	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17882
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17883	scopeMappingTable
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17884	"answer a Dictionary with scopes mapping symbol to integer and vice verca"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17885	\| symbTable \|
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17886
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17887	ScopeMappingTable notNil ifTrue:[ ^ ScopeMappingTable].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17888
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17889	symbTable := Dictionary new.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17890	%{
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17891	__AT_PUT_(symbTable, @symbol(CONNECTED), __MKUINT( RESOURCE_CONNECTED ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17892	__AT_PUT_(symbTable, @symbol(CONTEXT), __MKUINT( RESOURCE_CONTEXT ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17893	__AT_PUT_(symbTable, @symbol(GLOBALNET), __MKUINT( RESOURCE_GLOBALNET ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17894	__AT_PUT_(symbTable, @symbol(REMEMBERED), __MKUINT( RESOURCE_REMEMBERED ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17895	__AT_PUT_(symbTable, @symbol(RECENT), __MKUINT( RESOURCE_RECENT ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17896	%}.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17897	ScopeMappingTable := Dictionary new.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17898
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17899	symbTable keysAndValuesDo:[:aSYMB :anINT \|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17900	ScopeMappingTable at: aSYMB put: anINT.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17901	ScopeMappingTable at: anINT put: aSYMB. "/ vice versa
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17902	].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17903	^ ScopeMappingTable
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17904	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17905
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17906	typeMappingTable
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17907	"answer a Dictionary containing types symbols to integer mapping and vice versa"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17908	\| symbTable \|
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17909
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17910	TypeMappingTable notNil ifTrue:[ ^ TypeMappingTable].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17911
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17912	symbTable := Dictionary new.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17913	%{
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17914	__AT_PUT_(symbTable , @symbol(ANY), __MKUINT( RESOURCETYPE_ANY ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17915	__AT_PUT_(symbTable , @symbol(DISK), __MKUINT( RESOURCETYPE_DISK ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17916	__AT_PUT_(symbTable , @symbol(PRINT), __MKUINT( RESOURCETYPE_PRINT ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17917	__AT_PUT_(symbTable , @symbol(UNKNOWN), __MKUINT( RESOURCETYPE_UNKNOWN ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17918	__AT_PUT_(symbTable , @symbol(RESERVED), __MKUINT( RESOURCETYPE_RESERVED ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17919	%}.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17920	TypeMappingTable := Dictionary new.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17921
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17922	symbTable keysAndValuesDo:[:aSYMB :anINT \|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17923	TypeMappingTable at: aSYMB put: anINT.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17924	TypeMappingTable at: anINT put: aSYMB. "/ vice versa
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17925	].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17926	^ TypeMappingTable
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17927	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17928
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17929	usageMappingTable
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17930	"answer a Dictionary containing usages symbols to integer mapping and vice versa"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17931	\| symbTable \|
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17932
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17933	UsageMappingTable notNil ifTrue:[ ^ UsageMappingTable].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17934
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17935	symbTable := Dictionary new.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17936	%{
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17937	__AT_PUT_(symbTable , @symbol(NULL), __MKUINT( 0 ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17938	__AT_PUT_(symbTable , @symbol(CONNECTABLE), __MKUINT( RESOURCEUSAGE_CONNECTABLE ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17939	__AT_PUT_(symbTable , @symbol(CONTAINER), __MKUINT( RESOURCEUSAGE_CONTAINER ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17940	__AT_PUT_(symbTable , @symbol(ATTACHED), __MKUINT( RESOURCEUSAGE_ATTACHED ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17941	__AT_PUT_(symbTable , @symbol(ALL), __MKUINT( RESOURCEUSAGE_ALL ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17942	__AT_PUT_(symbTable , @symbol(NOLOCALDEVICE), __MKUINT( RESOURCEUSAGE_NOLOCALDEVICE ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17943	__AT_PUT_(symbTable , @symbol(SIBLING), __MKUINT( RESOURCEUSAGE_SIBLING ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17944	__AT_PUT_(symbTable , @symbol(RESERVED), __MKUINT( RESOURCEUSAGE_RESERVED ) );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17945	%}.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17946	UsageMappingTable := Dictionary new.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17947
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17948	symbTable keysAndValuesDo:[:aSYMB :anINT \|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17949	UsageMappingTable at: aSYMB put: anINT.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17950	UsageMappingTable at: anINT put: aSYMB. "/ vice versa
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17951	].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17952	^ UsageMappingTable
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17953	! !
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17954
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17955	!Win32OperatingSystem::Win32NetworkResourceHandle class methodsFor:'fetch resources'!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17956
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17957	fetchResourcesStartingAt: aNetworkResourceOrNil
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17958	withScope: aScope type: aType usage: aUsage onError: aBlock
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17959
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17960	"Fetch all resources from the given network resource or if nil the root system.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17961	On success a collection of al network resources is returned.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17962	If the open fails, the error block if notNil will be evaluated with the error number
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17963	and nil is returned.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17964
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17965	self fetchResourcesStartingAt: nil withScope: #GLOBALNET type: #ANY usage: 0
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17966	onError: [:err\| Transcript showCR: err ].
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17967	"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17968	\| stream networkResources \|
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17969
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17970	[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17971	stream := self openAt: aNetworkResourceOrNil
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17972	withScope: aScope type: aType usage: aUsage onError: aBlock.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17973
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17974	stream notNil ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17975	\|next\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17976
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17977	networkResources := OrderedCollection new.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17978
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17979	[ (next := stream nextOrNil) notNil ] whileTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17980	networkResources add:next.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17981	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17982	]
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17983	] ensure:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17984	stream notNil ifTrue:[ stream close ].
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17985	].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17986	^ networkResources.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17987	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17988
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17989	fetchSystemResourcesWithScope: aScope type: aType usage: aUsage onError: aBlock
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17990
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17991	"Fetch all system resources.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17992	On success a collection of al network resources is returned.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17993	If the open fails, the error block if notNil will be evaluated with the error number
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17994	and nil is returned.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17995
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17996	self fetchSystemResourcesWithScope: #GLOBALNET type: #ANY usage: 0
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	17997	onError: [:err\| Transcript showCR: err ].
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17998
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	17999	self fetchSystemResourcesWithScope: #REMEMBERED type: #DISK usage: 0
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18000	onError: [:err\| Transcript showCR: err ].
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18001
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18002	self fetchSystemResourcesWithScope: #REMEMBERED type: #ANY usage: 0
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18003	onError: [:err\| Transcript showCR: err ].
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18004	"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18005
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18006	^ self fetchResourcesStartingAt: nil
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18007	withScope: aScope type: aType usage: aUsage onError: aBlock
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18008	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18009
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18010	fetchVirtualDrives
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18011	"answer a collection of virtual drive resources
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18012
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18013	self fetchVirtualDrives
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18014	"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18015	^ self fetchSystemResourcesWithScope: #REMEMBERED type: #DISK usage: 0 onError: nil.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18016	! !
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18017
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18018	!Win32OperatingSystem::Win32NetworkResourceHandle class methodsFor:'opening'!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18019
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18020	openAt: aResourceOrNil withScope: aScope type: aType usage: aUsage onError: aBlock
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18021	"Open a handle for network resource enumeratation starting at the given NetworkResource
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18022	or if nil on the system root. On success the handle will is returned.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18023	If the open fails, the error block if notNil will be evaluated with the error number
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18024	and nil is returned.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18025
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18026	OperatingSystem networkResourceAccessor openOn:nil withScope:#GLOBALNET type:#ANY usage:0 onError:nil.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18027	OperatingSystem networkResourceAccessor openOn:nil withScope:#REMEMBERED type:#DISK usage:0 onError:nil.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18028	"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18029	\| resourceHandle errorNumber enumScope enumUsage enumType
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18030	resScope resType resUsage resDisplayType resComment resLocalName resRemoteName resProvider \|
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18031
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18032	"/ map symbols to integer values.. on error an exception is raised
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18033	aScope isInteger ifTrue:[ enumScope := aScope ]
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18034	ifFalse:[ enumScope := self scopeMappingTable at:aScope ].
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18035
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18036	aUsage isInteger ifTrue:[ enumUsage := aUsage ]
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18037	ifFalse:[ enumUsage := self usageMappingTable at:aUsage ].
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18038
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18039	aType isInteger ifTrue:[ enumType := aType ]
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18040	ifFalse:[ enumType := self typeMappingTable at:aType ].
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18041
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18042	aResourceOrNil notNil ifTrue:[ \| checkAndGetString \|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18043	resScope := aResourceOrNil scope.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18044	resScope isInteger ifFalse:[ resScope := self scopeMappingTable at:resScope ].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18045
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18046	resType := aResourceOrNil type.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18047	resType isInteger ifFalse:[ resType := self typeMappingTable at: resType ].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18048
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18049	resUsage := aResourceOrNil usage.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18050	resUsage isInteger ifFalse:[ resUsage := self usageMappingTable at: resUsage ].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18051
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18052	resDisplayType := aResourceOrNil displayType.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18053	resDisplayType isInteger ifFalse:[ resDisplayType := self displayTypeMappingTable at:resDisplayType ].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18054
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18055	checkAndGetString := [: aString\| \|string\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18056	aString notNil ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18057	self isUsingUnicode
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18058	ifTrue: [ string := aString asUnicode16String ]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18059	ifFalse:[ string := aString asSingleByteString ].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18060	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18061	string
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18062	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18063	resRemoteName := checkAndGetString value:( aResourceOrNil remoteName ).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18064	resLocalName := checkAndGetString value:( aResourceOrNil localName ).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18065	resComment := checkAndGetString value:( aResourceOrNil comment ).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18066	resProvider := checkAndGetString value:( aResourceOrNil provider ).
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18067	].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18068	resourceHandle := self new.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18069
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18070	%{
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18071	HANDLE __hEnum;
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18072	int __errno;
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18073	DWORD __scope = __unsignedLongIntVal( enumScope );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18074	DWORD __usage = __unsignedLongIntVal( enumUsage );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18075	DWORD __type = __unsignedLongIntVal( enumType );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18076
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18077	#ifdef USE_ANSI_NETWORKRESOURCES
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18078	char __buffer[ 8192 ];
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18079	LPNETRESOURCE __lpnetRes = (LPNETRESOURCE) __buffer;
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18080	char * __cp = __buffer + sizeof(NETRESOURCE);
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18081	char * __sp;
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18082	#else
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18083	wchar_t __buffer[ 8192 ];
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18084	LPNETRESOURCEW __lpnetRes = (LPNETRESOURCEW) __buffer;
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18085	wchar_t * __cp = __buffer + sizeof(NETRESOURCEW);
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18086	wchar_t * __sp;
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18087	#endif
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18088
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18089	if( resScope == nil ) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18090	__lpnetRes = 0;
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18091	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18092	int __sz;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18093
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18094	ZeroMemory( __buffer, (__cp - __buffer) );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18095
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18096	__lpnetRes->dwScope = __unsignedLongIntVal( resScope );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18097	__lpnetRes->dwType = __unsignedLongIntVal( resType );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18098	__lpnetRes->dwUsage = __unsignedLongIntVal( resUsage );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18099	__lpnetRes->dwDisplayType = __unsignedLongIntVal( resDisplayType );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18100
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18101	if( resRemoteName != nil ) {
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18102	#ifdef USE_ANSI_NETWORKRESOURCES
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18103	__sp = __stringVal(resRemoteName);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18104	__sz = strlen(__sp);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18105	#else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18106	__sp = __unicode16StringVal(resRemoteName);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18107	__sz = __unicode16StringSize(resRemoteName);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18108	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18109	for( __lpnetRes->lpRemoteName = __cp; __sz > 0; --__sz ) { * __cp++ = * __sp++; }
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18110	*__cp++ = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18111	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18112
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18113	if( resLocalName != nil ) {
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18114	#ifdef USE_ANSI_NETWORKRESOURCES
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18115	__sp = __stringVal(resLocalName);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18116	__sz = strlen(__sp);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18117	#else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18118	__sp = __unicode16StringVal(resLocalName);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18119	__sz = __unicode16StringSize(resLocalName);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18120	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18121	for( __lpnetRes->lpLocalName = __cp; __sz > 0; --__sz ) { * __cp++ = * __sp++; }
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18122	*__cp++ = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18123	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18124
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18125	if( resComment != nil ) {
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18126	#ifdef USE_ANSI_NETWORKRESOURCES
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18127	__sp = __stringVal(resComment);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18128	__sz = strlen(__sp);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18129	#else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18130	__sp = __unicode16StringVal(resComment);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18131	__sz = __unicode16StringSize(resComment);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18132	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18133	for( __lpnetRes->lpComment = __cp; __sz > 0; --__sz ) { * __cp++ = * __sp++; }
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18134	*__cp++ = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18135	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18136
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18137	if( resProvider != nil ) {
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18138	#ifdef USE_ANSI_NETWORKRESOURCES
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18139	__sp = __stringVal(resProvider);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18140	__sz = strlen(__sp);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18141	#else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18142	__sp = __unicode16StringVal(resProvider);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18143	__sz = __unicode16StringSize(resProvider);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18144	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18145	for( __lpnetRes->lpProvider = __cp; __sz > 0; --__sz ) { * __cp++ = * __sp++; }
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18146	*__cp++ = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18147	}
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18148	}
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18149
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18150	#ifdef DO_WRAP_CALLS
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18151	do {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18152	__threadErrno = 0;
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18153	#ifdef USE_ANSI_NETWORKRESOURCES
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18154	// do not cast to INT - will loose sign bit then!
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18155	__errno = (int)(STX_API_NOINT_CALL5( "WNetOpenEnumA", WNetOpenEnumA, __scope, __type, __usage, __lpnetRes, & __hEnum ));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18156	#else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18157	// do not cast to INT - will loose sign bit then!
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18158	__errno = (int)(STX_API_NOINT_CALL5( "WNetOpenEnumW", WNetOpenEnumW, __scope, __type, __usage, __lpnetRes, & __hEnum ));
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18159	#endif
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18160	} while ((__errno < 0) && (__threadErrno == EINTR));
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18161	#else
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18162
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18163	#ifdef USE_ANSI_NETWORKRESOURCES
15177 8cb1904f7966 * empty log message * Claus Gittinger <cg@exept.de> parents: 15169 diff changeset	18164	__errno = WNetOpenEnumA ( __scope, __type, __usage, __lpnetRes, & __hEnum );
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18165	#else
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18166	__errno = WNetOpenEnumW( __scope, __type, __usage, __lpnetRes, & __hEnum );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18167	#endif
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18168
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18169	#endif
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18170
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18171	if( __errno == NO_ERROR ) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18172	__externalAddressVal(resourceHandle) = (void *) __hEnum;
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18173	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18174	resourceHandle = nil;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18175	errorNumber = __mkSmallInteger( __errno );
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18176	}
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18177
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18178	%}.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18179	resourceHandle isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18180	aBlock notNil ifTrue:[ aBlock value: errorNumber ].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18181	^ nil
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18182	].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18183	resourceHandle registerForFinalization.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18184	^ resourceHandle
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18185	! !
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18186
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18187	!Win32OperatingSystem::Win32NetworkResourceHandle class methodsFor:'testing'!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18188
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18189	isUsingUnicode
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18190	"answer true if we are using unicode; has effect to the open and next operation"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18191
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18192	%{
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18193	#ifdef USE_ANSI_NETWORKRESOURCES
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18194	RETURN( false );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18195	#endif
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18196	%}.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18197	^ true
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18198	! !
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18199
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18200	!Win32OperatingSystem::Win32NetworkResourceHandle methodsFor:'queries'!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18201
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18202	atEnd
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18203	"answer true if the stream is at the end (no longer valid)"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18204	^ (self address == 0)
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18205	! !
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18206
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18207	!Win32OperatingSystem::Win32NetworkResourceHandle methodsFor:'reading'!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18208
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18209	nextOrNil
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18210	"answer the next NetworkResource or nil (no more resource available);
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18211	if no more resource is available the stream is closed"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18212
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18213	\| scope type usage displayType comment localName remoteName provider \|
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18214
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18215	self atEnd ifTrue:[ ^ nil ].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18216
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18217	%{
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18218	HANDLE __hEnum = (HANDLE)(__externalAddressVal(self));
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18219
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18220	if ((__hEnum == 0) \|\| (__hEnum == INVALID_HANDLE_VALUE)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18221	__externalAddressVal(self) = (HANDLE)0;
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18222	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18223	DWORD __entries = 1;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18224	DWORD __bufSize = 8192;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18225	int __errno;
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18226
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18227	#ifdef USE_ANSI_NETWORKRESOURCES
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18228	char __buffer[ 8192 ];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18229	LPNETRESOURCE __lpNetRes = (LPNETRESOURCE) __buffer;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18230
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18231	ZeroMemory( __buffer, sizeof(NETRESOURCE) );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18232	__errno = WNetEnumResourceA ( __hEnum , & __entries , __lpNetRes, & __bufSize );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18233	#else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18234	wchar_t __buffer[ 8192 ];
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18235	LPNETRESOURCEW __lpNetRes = (LPNETRESOURCEW) __buffer;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18236
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18237	ZeroMemory( __buffer, sizeof(NETRESOURCEW) );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18238	__errno = WNetEnumResourceW ( __hEnum , & __entries , __lpNetRes, & __bufSize );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18239	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18240
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18241	if( (__errno == NO_ERROR) && (__entries == 1) ) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18242	scope = __MKUINT( __lpNetRes->dwScope );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18243	type = __MKUINT( __lpNetRes->dwType );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18244	usage = __MKUINT( __lpNetRes->dwUsage );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18245	displayType = __MKUINT( __lpNetRes->dwDisplayType );
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18246
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18247	#ifdef USE_ANSI_NETWORKRESOURCES
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18248	if( __lpNetRes->lpRemoteName != 0 ) { remoteName = __MKSTRING( __lpNetRes->lpRemoteName ); }
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18249	if( __lpNetRes->lpLocalName != 0 ) { localName = __MKSTRING( __lpNetRes->lpLocalName ); }
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18250	if( __lpNetRes->lpComment != 0 ) { comment = __MKSTRING( __lpNetRes->lpComment ); }
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18251	if( __lpNetRes->lpProvider != 0 ) { provider = __MKSTRING( __lpNetRes->lpProvider ); }
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18252	#else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18253	if( __lpNetRes->lpRemoteName != 0 ) { remoteName = __MKU16STRING( __lpNetRes->lpRemoteName ); }
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18254	if( __lpNetRes->lpLocalName != 0 ) { localName = __MKU16STRING( __lpNetRes->lpLocalName ); }
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18255	if( __lpNetRes->lpComment != 0 ) { comment = __MKU16STRING( __lpNetRes->lpComment ); }
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18256	if( __lpNetRes->lpProvider != 0 ) { provider = __MKU16STRING( __lpNetRes->lpProvider ); }
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18257	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18258	}
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18259	}
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18260	%}.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18261	scope notNil ifTrue:[ \|netResource\|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18262	netResource := NetworkResource new.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18263
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18264	"map integer values to symbol excluding the usage..."
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18265	netResource scope: (self class scopeMappingTable at:scope ifAbsent:[scope]).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18266	netResource type: (self class typeMappingTable at:type ifAbsent:[type]).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18267	netResource displayType: (self class displayTypeMappingTable at:displayType ifAbsent:[displayType]).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18268	netResource usage: usage.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18269
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18270	netResource remoteName: remoteName.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18271	netResource localName: localName.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18272	netResource comment: comment.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18273	netResource provider: provider.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18274
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18275	^ netResource
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18276	].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18277	self close.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18278	^ nil
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18279	! !
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18280
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18281	!Win32OperatingSystem::Win32NetworkResourceHandle methodsFor:'release'!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18282
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18283	closeHandle
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18284	"close the handle"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18285
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18286	self address == 0 ifTrue:[ ^ self ].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18287	%{
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18288	HANDLE __hEnum = (HANDLE)(__externalAddressVal(self));
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18289
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18290	if (__hEnum) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18291	__externalAddressVal(self) = (HANDLE)0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18292	WNetCloseEnum(__hEnum);
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18293	}
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18294	%}.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18295	! !
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18296
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18297	!Win32OperatingSystem::Win32NetworkResourceHandle::NetworkResource methodsFor:'accessing'!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18298
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18299	comment
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18300	"comment supplied by the network provider or nil"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18301
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18302	^ comment
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18303	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18304
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18305	comment: aStringOrNil
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18306	"comment supplied by the network provider or nil"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18307
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18308	comment := aStringOrNil.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18309	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18310
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18311	displayType
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18312	"The display options for the network object in a network browsing user interface"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18313
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18314	^ displayType
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18315	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18316
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18317	displayType: theDisplayType
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18318	"The display options for the network object in a network browsing user interface"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18319
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18320	displayType := theDisplayType.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18321	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18322
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18323	localName
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18324	"if the scope member is equal to RESOURCE_CONNECTED or RESOURCE_REMEMBERED,
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18325	this specifies the name of a local device. This member is NULL if the connection
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18326	does not use a device."
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18327
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18328	^ localName
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18329	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18330
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18331	localName: aStringOrNil
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18332	"if the scope member is equal to RESOURCE_CONNECTED or RESOURCE_REMEMBERED,
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18333	this specifies the name of a local device. This member is NULL if the connection
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18334	does not use a device."
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18335
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18336	localName := aStringOrNil.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18337	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18338
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18339	provider
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18340	"the name of the provider that owns the resource or nil"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18341
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18342	^ provider
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18343	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18344
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18345	provider: aStringOrNil
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18346	"the name of the provider that owns the resource or nil"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18347
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18348	provider := aStringOrNil.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18349	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18350
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18351	remoteName
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18352	"If the resource is a network resource, this specifies the remote network name.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18353	If the resource is a current or persistent connection, this specifies the network
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18354	name associated with the name pointed to by the localName"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18355
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18356	^ remoteName
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18357	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18358
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18359	remoteName: aStringOrNil
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18360	"If the resource is a network resource, this specifies the remote network name.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18361	If the resource is a current or persistent connection, this specifies the network
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18362	name associated with the name pointed to by the localName"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18363
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18364	remoteName := aStringOrNil.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18365	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18366
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18367	scope
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18368	"The scope of the enumeration
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18369	RESOURCE_CONNECTED RESOURCE_GLOBALNET RESOURCE_REMEMBERED
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18370	"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18371	^ scope
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18372	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18373
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18374	scope: theScope
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18375	"The scope of the enumeration
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18376	RESOURCE_CONNECTED RESOURCE_GLOBALNET RESOURCE_REMEMBERED
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18377	"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18378	scope := theScope.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18379	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18380
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18381	type
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18382	"describes the type of the resource
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18383	RESOURCETYPE_ANY RESOURCETYPE_DISK RESOURCETYPE_PRINT
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18384	"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18385	^ type
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18386	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18387
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18388	type: theType
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18389	"describes the type of the resource
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18390	RESOURCETYPE_ANY RESOURCETYPE_DISK RESOURCETYPE_PRINT
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18391	"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18392	type := theType.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18393	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18394
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18395	usage
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18396	"a set of bit flags (INTEGER) describing how the resource can be used"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18397
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18398	^ usage
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18399	!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18400
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18401	usage: anInteger
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18402	"a set of bit flags (INTEGER) describing how the resource can be used"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18403
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18404	usage := anInteger.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18405	! !
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18406
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18407	!Win32OperatingSystem::Win32NetworkResourceHandle::NetworkResource methodsFor:'printing'!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18408
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18409	printOn: aStream
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18410	"print self on a stream"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18411
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18412	\| paction \|
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18413
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18414	paction := [: anIdentifier :theValue \|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18415	anIdentifier printOn: aStream.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18416
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18417	theValue notNil ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18418	theValue isInteger ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18419	theValue printOn:aStream base:2 showRadix:true.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18420	] ifFalse:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18421	theValue isSymbol ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18422	theValue printOn: aStream.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18423	] ifFalse:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18424	aStream nextPut: $". theValue printOn: aStream. aStream nextPut: $"
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18425	]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18426	]
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18427	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18428	aStream cr.
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18429	].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18430
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18431	aStream nextPutAll: 'NetworkResource {'; cr.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18432
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18433	paction value: ' Scope: ' value:scope.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18434	paction value: ' Type: ' value:type.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18435	paction value: ' DisplayType: ' value:displayType.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18436	paction value: ' Usage(mask): ' value:usage.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18437
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18438	aStream cr.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18439
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18440	paction value: ' RemoteName: ' value:remoteName.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18441	paction value: ' LocalName: ' value:localName.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18442	paction value: ' Comment ' value:comment.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18443	paction value: ' Provider ' value:provider.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18444
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18445	aStream nextPut: $}; cr.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18446	! !
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18447
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18448	!Win32OperatingSystem::Win32NetworkResourceHandle::NetworkResource methodsFor:'queries'!
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18449
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18450	isResourceContainer
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18451	"answer true if the resource is a resource container"
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18452
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18453	\| flag \|
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18454
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18455	usage isInteger ifFalse:[ ^ usage = #CONTAINER ].
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18456	flag := usage.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18457	%{
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18458	DWORD __usage = __unsignedLongIntVal( flag );
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18459
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18460	if( __usage & RESOURCEUSAGE_CONTAINER ) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18461	RETURN( true );
15076 f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18462	}
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18463	%}.
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18464	^ false
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18465	! !
f4c814ed8258 Network Resources ca parents: 15039 diff changeset	18466
9475 c57956a348bf printing support fm parents: 9431 diff changeset	18467	!Win32OperatingSystem::Win32PrinterHandle methodsFor:'release'!
c57956a348bf printing support fm parents: 9431 diff changeset	18468
c57956a348bf printing support fm parents: 9431 diff changeset	18469	closeHandle
c57956a348bf printing support fm parents: 9431 diff changeset	18470	self address ~~ 0 ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18471	OperatingSystem primClosePrinter:self.
9475 c57956a348bf printing support fm parents: 9431 diff changeset	18472	]
c57956a348bf printing support fm parents: 9431 diff changeset	18473
c57956a348bf printing support fm parents: 9431 diff changeset	18474	"Created: / 27-07-2006 / 14:48:37 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	18475	! !
c57956a348bf printing support fm parents: 9431 diff changeset	18476
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18477	!Win32OperatingSystem::Win32ProcessHandle methodsFor:'accessing'!
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	pid
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18480	^ pid
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
16334 41fddda3b611 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16331 diff changeset	18483	!Win32OperatingSystem::Win32ProcessHandle methodsFor:'comparing'!
41fddda3b611 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16331 diff changeset	18484
41fddda3b611 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16331 diff changeset	18485	= aWin32ProcessHandle
41fddda3b611 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16331 diff changeset	18486	^ aWin32ProcessHandle class == self class and:[pid = aWin32ProcessHandle pid]
41fddda3b611 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16331 diff changeset	18487	!
41fddda3b611 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16331 diff changeset	18488
41fddda3b611 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16331 diff changeset	18489	hash
41fddda3b611 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16331 diff changeset	18490	^ pid hash
41fddda3b611 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16331 diff changeset	18491	! !
41fddda3b611 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16331 diff changeset	18492
12632 19e07026403f comment/format in: Stefan Vogel <sv@exept.de> parents: 12625 diff changeset	18493	!Win32OperatingSystem::Win32ProcessHandle methodsFor:'printing & storing'!
19e07026403f comment/format in: Stefan Vogel <sv@exept.de> parents: 12625 diff changeset	18494
19e07026403f comment/format in: Stefan Vogel <sv@exept.de> parents: 12625 diff changeset	18495	printOn:aStream
19e07026403f comment/format in: Stefan Vogel <sv@exept.de> parents: 12625 diff changeset	18496	"return a printed representation of the receiver"
19e07026403f comment/format in: Stefan Vogel <sv@exept.de> parents: 12625 diff changeset	18497
19e07026403f comment/format in: Stefan Vogel <sv@exept.de> parents: 12625 diff changeset	18498	super printOn:aStream.
19e07026403f comment/format in: Stefan Vogel <sv@exept.de> parents: 12625 diff changeset	18499	aStream nextPutAll:' pid:'.
19e07026403f comment/format in: Stefan Vogel <sv@exept.de> parents: 12625 diff changeset	18500	pid printOn:aStream.
19e07026403f comment/format in: Stefan Vogel <sv@exept.de> parents: 12625 diff changeset	18501	! !
19e07026403f comment/format in: Stefan Vogel <sv@exept.de> parents: 12625 diff changeset	18502
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18503	!Win32OperatingSystem::Win32SerialPortHandle methodsFor:'opening'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18504
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18505	open:portName baudRate:baudRate stopBitsType:stopBitsType
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18506	parityType:parityType dataBits:dataBits
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18507	inFlowCtrl:inFlowCtrlType outFlowCtrl:outFlowCtrlType
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18508	xOnChar:xOnChar xOffChar:xOffChar
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18509	"portName: COM%d
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18510	baudRate: Integer
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18511	stopBitsType: #stop1, #stop2 or #stop1_5
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18512	parityType: #odd, #even or #none
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18513	dataBits: #integer
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18514	inFlowCtrlType: #xOnOff #hardware
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18515	outFlowCtrlType: #xOnOff #hardware
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18516	xOnChar: Character or Integer
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18517	xOffChar: Character or Integer"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18518
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18519	\|errorNumber\|
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18520
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18521	%{
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18522	HANDLE port;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18523	COMMTIMEOUTS timeouts;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18524	DCB dcb;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18525	char *__portName;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18526	int __setBaudRate = 1,
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18527	__setDataBits = 1,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18528	__setXOnChar = 1,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18529	__setXOffChar = 1,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18530	__setInFlowCtrl = 1,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18531	__setOutFlowCtrl = 1,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18532	__setStopBits = 1,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18533	__setParityType = 1;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18534	int __baudRate, __dataBits;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18535	int __xOnChar, __xOffChar;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18536	int __inFlowCtrl, __outFlowCtrl;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18537	int __stopBits, __parityType;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18538	# define XONOFF 1
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18539	# define HARDWARE 2
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18540	# define STOP1 1
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18541	# define STOP2 2
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18542	# define STOP1_5 3
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18543	# define ODD 1
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18544	# define EVEN 2
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18545	# define NONE 3
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18546
12489 1bcb80d11a9a isString -> isStringLike Claus Gittinger <cg@exept.de> parents: 12387 diff changeset	18547	if (__isStringLike(portName)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18548	__portName = __stringVal(portName);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18549	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18550	goto failure;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18551	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18552	if (__isSmallInteger(baudRate)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18553	__baudRate = __intVal(baudRate);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18554	} else if (baudRate == nil) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18555	__setBaudRate = 0;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18556	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18557	goto failure;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18558	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18559
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18560	if (__isSmallInteger(dataBits)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18561	__dataBits = __intVal(dataBits);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18562	} else if (dataBits == nil) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18563	__setDataBits = 0;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18564	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18565	goto failure;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18566	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18567
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18568	if (__isSmallInteger(xOnChar)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18569	__xOnChar = __intVal(xOnChar);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18570	} else if (__isCharacter(xOnChar)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18571	__xOnChar = __intVal(_characterVal(xOnChar));
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18572	} else if (xOnChar == nil) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18573	__setXOnChar = 0;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18574	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18575	goto failure;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18576	}
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	if (__isSmallInteger(xOffChar)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18579	__xOffChar = __intVal(xOffChar);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18580	} else if (__isCharacter(xOffChar)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18581	__xOffChar = __intVal(_characterVal(xOffChar));
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18582	} else if (xOffChar == nil) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18583	__setXOffChar = 0;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18584	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18585	goto failure;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18586	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18587
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18588	if (inFlowCtrlType == @symbol(xOnOff)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18589	__inFlowCtrl = XONOFF;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18590	} else if (inFlowCtrlType == @symbol(hardware)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18591	__inFlowCtrl = HARDWARE;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18592	} else if (inFlowCtrlType == nil) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18593	__setInFlowCtrl = 0;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18594	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18595	goto failure;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18596	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18597
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18598	if (outFlowCtrlType == @symbol(xOnOff)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18599	__outFlowCtrl = XONOFF;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18600	} else if (outFlowCtrlType == @symbol(hardware)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18601	__outFlowCtrl = HARDWARE;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18602	} else if (outFlowCtrlType == nil) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18603	__setOutFlowCtrl = 0;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18604	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18605	goto failure;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18606	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18607
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18608	if (stopBitsType == @symbol(stop1)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18609	__stopBits = STOP1;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18610	} else if (stopBitsType == @symbol(stop2)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18611	__stopBits = STOP2;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18612	} else if (stopBitsType == @symbol(stop1_5)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18613	__stopBits = STOP1_5;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18614	} else if (stopBitsType == nil) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18615	__setStopBits = 0;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18616	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18617	goto failure;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18618	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18619
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18620	port = CreateFile(__portName,
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18621	GENERIC_READ \| GENERIC_WRITE,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18622	0, /* comm devices must be opened with exclusive access */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18623	NULL, /* no security attrs */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18624	OPEN_EXISTING, /* comm devices must use OPEN_EXISTING */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18625	0, /* no overlapped I/O */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18626	NULL /* hTemplate must be NULL for comm devices */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18627	);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18628	if (port == INVALID_HANDLE_VALUE) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18629	console_fprintf(stderr, "Win32OS [info]: serial port open failed\n");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18630	errorNumber = __mkSmallInteger( __WIN32_ERR(GetLastError()) );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18631	goto failure;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18632	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18633	/* Flush the driver */
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18634	PurgeComm( port, PURGE_TXABORT \| PURGE_RXABORT \| PURGE_TXCLEAR \| PURGE_RXCLEAR );
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18635
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18636	/* Set driver buffer sizes */
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18637	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	18638
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18639	/* Reset timeout constants */
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18640	timeouts.ReadIntervalTimeout= 0xFFFFFFFF;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18641	timeouts.ReadTotalTimeoutMultiplier = 0;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18642	timeouts.ReadTotalTimeoutConstant = 0;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18643	timeouts.WriteTotalTimeoutMultiplier = 0;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18644	timeouts.WriteTotalTimeoutConstant = 0;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18645	SetCommTimeouts( port, &timeouts );
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18646
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18647	/* Set communication parameters */
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18648	ZeroMemory(&dcb, sizeof(dcb));
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18649	dcb.DCBlength = sizeof(dcb);
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18650	GetCommState(port, &dcb);
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18651
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18652	if (__setBaudRate) dcb.BaudRate = __baudRate;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18653	if (__setDataBits) dcb.ByteSize = __dataBits;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18654	if (__setXOnChar) dcb.XonChar = __xOnChar;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18655	if (__setXOffChar) dcb.XoffChar = __xOffChar;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18656
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18657	if (__setStopBits) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18658	/* set stop bits */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18659	switch(__stopBits) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18660	case STOP1_5: dcb.StopBits = 1; break; /* 1.5 stop bits */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18661	case STOP1: dcb.StopBits = 0; break; /* 1 stop bit */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18662	case STOP2: dcb.StopBits = 2; break; /* 2 stop bits */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18663	default: goto errExit;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18664	}
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18665	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18666
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18667	if (__setParityType) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18668	/* set parity */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18669	switch(__parityType) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18670	case NONE: dcb.Parity = NOPARITY; break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18671	case ODD: dcb.Parity = ODDPARITY; break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18672	case EVEN: dcb.Parity = EVENPARITY; break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18673	default: goto errExit;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18674	}
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18675	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18676
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18677	if (__setInFlowCtrl) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18678	/* set control flow */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18679	dcb.fInX = FALSE;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18680	dcb.fDtrControl = FALSE;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18681	if (__inFlowCtrl == XONOFF) dcb.fInX = TRUE; /* XOn/XOff handshaking */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18682	if (__inFlowCtrl == HARDWARE) dcb.fDtrControl = TRUE; /* hardware handshaking */
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18683	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18684	if (__setOutFlowCtrl) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18685	dcb.fOutX = FALSE;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18686	dcb.fOutxCtsFlow = FALSE;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18687
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18688	if (__outFlowCtrl == XONOFF) dcb.fOutX = TRUE; /* XOn/XOff handshaking */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18689	if (__outFlowCtrl == HARDWARE) dcb.fOutxCtsFlow = TRUE; /* hardware handshaking */
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18690	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18691
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18692	if (SetCommState(port, &dcb)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18693	RETURN( true );
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18694	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18695
10352 f2e9bb8906db * empty log message * Claus Gittinger <cg@exept.de> parents: 10342 diff changeset	18696	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	18697	errorNumber = __mkSmallInteger( __WIN32_ERR(GetLastError()) );
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18698	/* fall into */
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18699	errExit: ;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18700	CloseHandle(port);
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18701
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18702	failure: ;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18703	# undef XONOFF
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18704	# undef HARDWARE
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18705	# undef STOP1
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18706	# undef STOP2
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18707	# undef STOP1_5
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18708	# undef ODD
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18709	# undef EVEN
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18710	# undef NONE
9088 6ae1b16f69a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 9083 diff changeset	18711	%}.
6ae1b16f69a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 9083 diff changeset	18712	errorNumber isNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18713	self error:'invalid argument(s)'.
9088 6ae1b16f69a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 9083 diff changeset	18714	] ifFalse:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18715	(OperatingSystem errorHolderForNumber:errorNumber) reportError
9088 6ae1b16f69a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 9083 diff changeset	18716	].
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18717	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18718
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18719	!Win32OperatingSystem::Win32SerialPortHandle methodsFor:'release'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18720
16345 575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	18721	closeHandle
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18722	"close the handle"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18723
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18724	%{
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18725	HANDLE port = (HANDLE)(__externalAddressVal(self));
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18726
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18727	if (port) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18728	__externalAddressVal(self) = (HANDLE)0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18729	PurgeComm( port, PURGE_TXABORT \| PURGE_RXABORT \| PURGE_TXCLEAR \| PURGE_RXCLEAR );
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18730	CloseHandle(port);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18731	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18732	%}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18733	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18734
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18735	!Win32OperatingSystem::Win32SerialPortHandle methodsFor:'setup'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18736
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18737	baudRate:newRate
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18738	%{
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18739	HANDLE port = (HANDLE)(__externalAddressVal(self));
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18740
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18741	if (port
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18742	&& __isSmallInteger(newRate)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18743	DCB dcb;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18744
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18745	ZeroMemory(&dcb, sizeof(dcb));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18746	dcb.DCBlength = sizeof(dcb);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18747	GetCommState(port, &dcb);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18748
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18749	dcb.BaudRate = __intVal(newRate);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18750
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18751	if (! SetCommState(port, &dcb)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18752	RETURN(false);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18753	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18754	RETURN(true);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18755	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18756	%}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18757	self primitiveFailed.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18758	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18759
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18760	dataBits:newNumberOfBits
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18761	%{
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18762	HANDLE port = (HANDLE)(__externalAddressVal(self));
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18763
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18764	if (port
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18765	&& __isSmallInteger(newNumberOfBits)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18766	DCB dcb;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18767
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18768	ZeroMemory(&dcb, sizeof(dcb));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18769	dcb.DCBlength = sizeof(dcb);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18770	GetCommState(port, &dcb);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18771
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18772	dcb.ByteSize = __intVal(newNumberOfBits);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18773
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18774	if (! SetCommState(port, &dcb)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18775	RETURN(false);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18776	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18777	RETURN(true);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18778	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18779	%}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18780	self primitiveFailed.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18781	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18782
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18783	parityType:newParityTypeSymbol
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18784	"newParityTypeSymbol must be one of #odd, #even or #none (or nil)"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18785
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18786	%{
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18787	HANDLE port = (HANDLE)(__externalAddressVal(self));
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18788
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18789	if (port) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18790	DCB dcb;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18791
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18792	ZeroMemory(&dcb, sizeof(dcb));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18793	dcb.DCBlength = sizeof(dcb);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18794	GetCommState(port, &dcb);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18795
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18796
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18797	if ((newParityTypeSymbol == nil) \|\| (newParityTypeSymbol == @symbol(none))) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18798	dcb.Parity = NOPARITY;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18799	} else if (newParityTypeSymbol == @symbol(odd)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18800	dcb.Parity = ODDPARITY;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18801	} else if (newParityTypeSymbol == @symbol(even)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18802	dcb.Parity = EVENPARITY;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18803	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18804	goto failure;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18805	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18806
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18807	if (! SetCommState(port, &dcb)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18808	RETURN(false);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18809	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18810	RETURN(true);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18811	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18812	failure: ;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18813	%}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18814	self primitiveFailed.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18815	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18816
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18817	stopBitsType:newStopBitsSymbol
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18818	"newParityTypeSymbol must be one of #stop1, #stop2 or #stop1_5"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18819	%{
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18820	HANDLE port = (HANDLE)(__externalAddressVal(self));
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18821
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18822	if (port) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18823	DCB dcb;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18824
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18825	ZeroMemory(&dcb, sizeof(dcb));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18826	dcb.DCBlength = sizeof(dcb);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18827	GetCommState(port, &dcb);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18828
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18829	if (newStopBitsSymbol == @symbol(stop1)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18830	dcb.Parity = 0 /* STOP1 */;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18831	} else if (newStopBitsSymbol == @symbol(stop2)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18832	dcb.Parity = 2 /* STOP2 */;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18833	} else if (newStopBitsSymbol == @symbol(stop1_5)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18834	dcb.Parity = 1 /* STOP1_5 */;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18835	} else {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18836	goto failure;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18837	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18838
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18839	if (! SetCommState(port, &dcb)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18840	RETURN(false);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18841	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18842	RETURN(true);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18843	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18844	failure: ;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18845	%}.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18846	self primitiveFailed.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18847	! !
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18848
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18849	!Win32OperatingSystem::Win32SocketHandle class methodsFor:'constants'!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18850
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18851	protocolCodeOf:aNameOrNumber
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18852	"q&d hack for unix-compatibility"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18853
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18854	aNameOrNumber isNumber ifTrue:[^ aNameOrNumber].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18855	aNameOrNumber isNil ifTrue:[^ aNameOrNumber].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18856
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18857	aNameOrNumber = 'tcp' ifTrue:[^ 6].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18858	aNameOrNumber = 'udp' ifTrue:[^ 17].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18859	aNameOrNumber = 'raw' ifTrue:[^ 255].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18860
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18861	self error:'unsupported protocol' mayProceed:true.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18862	^ nil.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18863
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18864	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18865	self protocolCodeOf:#tcp
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18866	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18867	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18868
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18869	protocolSymbolOf:anInteger
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18870	"q&d hack for unix-compatibility"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18871
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18872	anInteger isNil ifTrue:[^ nil].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18873	anInteger isSymbol ifTrue:[^ anInteger].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18874
14889 eaddf47af679 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14854 diff changeset	18875	anInteger == 0 ifTrue:[ ^ #ip ].
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18876	anInteger == 6 ifTrue:[ ^ #tcp ].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18877	anInteger == 17 ifTrue:[ ^ #udp ].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18878	anInteger == 255 ifTrue:[ ^ #raw ].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18879
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18880	self error:'unsupported protocol' mayProceed:true.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18881	^ nil.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18882
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18883	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	18884	self protocolSymbolOf:6
8740 bb4a76c88cca temporary kludge: added dummy SocketHandle for Unix compat. Claus Gittinger <cg@exept.de> parents: 8667 diff changeset	18885	"
bb4a76c88cca temporary kludge: added dummy SocketHandle for Unix compat. Claus Gittinger <cg@exept.de> parents: 8667 diff changeset	18886	! !
bb4a76c88cca temporary kludge: added dummy SocketHandle for Unix compat. Claus Gittinger <cg@exept.de> parents: 8667 diff changeset	18887
16345 575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	18888	!Win32OperatingSystem::Win32SocketHandle class methodsFor:'instance creation'!
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	18889
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	18890	new
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	18891	"return an initialized instance"
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	18892
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	18893	^ self basicNew initialize.
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	18894	! !
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	18895
8740 bb4a76c88cca temporary kludge: added dummy SocketHandle for Unix compat. Claus Gittinger <cg@exept.de> parents: 8667 diff changeset	18896	!Win32OperatingSystem::Win32SocketHandle class methodsFor:'queries'!
bb4a76c88cca temporary kludge: added dummy SocketHandle for Unix compat. Claus Gittinger <cg@exept.de> parents: 8667 diff changeset	18897
16289 78bd98e104bb class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16285 diff changeset	18898	getAddressInfo:hostNameOrNil serviceName:serviceNameOrNil domain:domainArg type:typeArg protocol:protoArg flags:flags
78bd98e104bb class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16285 diff changeset	18899	"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	18900	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	18901	addresses to be returned."
bb4a76c88cca temporary kludge: added dummy SocketHandle for Unix compat. Claus Gittinger <cg@exept.de> parents: 8667 diff changeset	18902
16285 d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	18903	\|error errorString result domain type proto hostName serviceName port\|
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18904
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18905	domain := OperatingSystem domainCodeOf:domainArg.
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18906	type := OperatingSystem socketTypeCodeOf:typeArg.
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18907	proto := self protocolCodeOf:protoArg.
16289 78bd98e104bb class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16285 diff changeset	18908	serviceNameOrNil notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18909	serviceName := serviceNameOrNil printString. "convert integer port numbers"
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18910	serviceNameOrNil isInteger ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18911	port := serviceNameOrNil.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18912	].
10792 46d6f7358405 Win32SocketHandle>>#getAddressInfo:... Stefan Vogel <sv@exept.de> parents: 10775 diff changeset	18913	]. "ifFalse:[serviceName := nil]"
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18914
16285 d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	18915
d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	18916	%{
d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	18917	#if 1 \|\| !defined(AI_NUMERICHOST)
d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	18918	%}.
d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	18919
d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	18920	"have to convert serviceName and hostName to single byte strings
d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	18921	until we implement getAddrInfoW() for Borland C.
d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	18922	If we really have 16-bit hostnames, this fails with #primitiveFailed"
16289 78bd98e104bb class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16285 diff changeset	18923	hostNameOrNil notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18924	hostName := hostNameOrNil asSingleByteStringIfPossible.
16289 78bd98e104bb class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16285 diff changeset	18925	]. "ifFalse:[hostName := nil] is nil anyway"
16285 d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	18926	serviceName notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18927	serviceName := serviceName asSingleByteStringIfPossible.
16285 d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	18928	].
d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	18929	%{
d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	18930	#endif // !AI_NUMERICHOST
d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	18931	%}.
d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	18932
d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	18933
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18934	%{ /* STACK:32000 */
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18935	#if !defined(NO_SOCKET)
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18936	char __hostName, __serviceName;
15580 4f1aa9df6162 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 15547 diff changeset	18937	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	18938	int ret;
196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	18939	int cnt = 0;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18940
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18941	if (hostName == nil) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18942	__hostName = 0;
10792 46d6f7358405 Win32SocketHandle>>#getAddressInfo:... Stefan Vogel <sv@exept.de> parents: 10775 diff changeset	18943	} else if (__isStringLike(hostName)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18944	strncpy(__hostNameCopy, __stringVal(hostName), sizeof(__hostNameCopy)-1);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18945	__hostName = __hostNameCopy;
16285 d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	18946	} else if (__isUnicode16String(hostName)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18947	error = @symbol(unsupportedUnicodeName);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18948	errorString = __MKSTRING("Unicode hostnames are not yet supported");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18949	goto exitPrim;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18950	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18951	error = @symbol(badArgument1);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18952	goto exitPrim;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18953	}
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18954	if (serviceName == nil) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18955	__serviceName = 0;
10792 46d6f7358405 Win32SocketHandle>>#getAddressInfo:... Stefan Vogel <sv@exept.de> parents: 10775 diff changeset	18956	} else if (__isStringLike(serviceName)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18957	strncpy(__serviceNameCopy, __stringVal(serviceName), sizeof(__serviceNameCopy)-1);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18958	__serviceName = __serviceNameCopy;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18959	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18960	error = @symbol(badArgument2);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18961	goto exitPrim;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18962	}
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18963	if (__hostName == 0 && __serviceName == 0) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18964	error = @symbol(badArgument);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18965	goto exitPrim;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18966	}
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18967
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18968	{
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18969	# if defined(AI_NUMERICHOST)
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18970	/*
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18971	* Use getaddrinfo()
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18972	*/
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18973	struct addrinfo hints;
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18974	struct addrinfo info = NULL, infop;
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18975
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18976	memset(&hints, 0, sizeof(hints));
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18977	if (__isSmallInteger(domain))
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18978	hints.ai_family = __intVal(domain);
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18979	if (__isSmallInteger(type))
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18980	hints.ai_socktype = __intVal(type);
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18981	if (__isSmallInteger(proto))
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18982	hints.ai_protocol = __intVal(proto);
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18983
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18984	do {
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18985	# ifdef DO_WRAP_CALLS
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18986	do {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18987	__threadErrno = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18988	// do not cast to INT - will loose sign bit then!
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18989	ret = (int)(STX_WSA_NOINT_CALL4( "getaddrinfo", getaddrinfo, __hostName, __serviceName, &hints, &info));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18990	} while ((ret < 0) && (__threadErrno == EINTR));
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18991	# else
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18992	__BEGIN_INTERRUPTABLE__
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18993	ret = getaddrinfo(__hostName, __serviceName, &hints, &info);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18994	__END_INTERRUPTABLE__
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18995	# endif
14852 f8cf16374fd5 Fix getnameinfo() and getaddrinfo() #ifdefed code Stefan Vogel <sv@exept.de> parents: 14849 diff changeset	18996	} while (ret != 0 && __threadErrno == EINTR);
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	18997	if (ret != 0) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18998	switch (ret) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	18999	case EAI_FAMILY:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19000	error = @symbol(badProtocol);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19001	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19002	case EAI_SOCKTYPE:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19003	error = @symbol(badSocketType);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19004	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19005	case EAI_BADFLAGS:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19006	error = @symbol(badFlags);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19007	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19008	case EAI_NONAME:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19009	error = @symbol(unknownHost);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19010	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19011	case EAI_SERVICE:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19012	error = @symbol(unknownService);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19013	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19014	case EAI_MEMORY:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19015	error = @symbol(allocationFailure);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19016	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19017	case EAI_FAIL:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19018	error = @symbol(permanentFailure);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19019	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19020	case EAI_AGAIN:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19021	error = @symbol(tryAgain);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19022	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19023	default:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19024	error = @symbol(unknownError);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19025	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19026	errorString = __MKSTRING(gai_strerror(ret));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19027	goto err;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19028	}
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19029	for (cnt=0, infop=info; infop; infop=infop->ai_next)
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19030	cnt++;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19031
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19032	result = __ARRAY_NEW_INT(cnt);
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19033	if (result == nil) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19034	error = @symbol(allocationFailure);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19035	goto err;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19036	}
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19037	for (infop=info, cnt=0; infop; infop=infop->ai_next, cnt++) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19038	OBJ o, resp;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19039
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19040	resp = __ARRAY_NEW_INT(6);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19041	if (resp == nil) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19042	error = @symbol(allocationFailure);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19043	goto err;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19044	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19045
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19046	__ArrayInstPtr(result)->a_element[cnt] = resp; __STORE(result, resp);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19047
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19048	__ArrayInstPtr(resp)->a_element[0] = __mkSmallInteger(infop->ai_flags);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19049	__ArrayInstPtr(resp)->a_element[1] = __mkSmallInteger(infop->ai_family);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19050	__ArrayInstPtr(resp)->a_element[2] = __mkSmallInteger(infop->ai_socktype);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19051	__ArrayInstPtr(resp)->a_element[3] = __mkSmallInteger(infop->ai_protocol);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19052
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19053	__PROTECT__(resp);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19054	o = __BYTEARRAY_NEW_INT(infop->ai_addrlen);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19055	__UNPROTECT__(resp);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19056	if (o == nil) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19057	error = @symbol(allocationFailure);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19058	goto err;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19059	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19060	memcpy(__byteArrayVal(o), infop->ai_addr, infop->ai_addrlen);
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19061	__ArrayInstPtr(resp)->a_element[4] = o; __STORE(resp, o);
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19062
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19063	if (infop->ai_canonname) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19064	__PROTECT__(resp);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19065	o = __MKSTRING(infop->ai_canonname);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19066	__UNPROTECT__(resp);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19067	if (o == nil) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19068	error = @symbol(allocationFailure);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19069	goto err;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19070	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19071	__ArrayInstPtr(resp)->a_element[5] = o; __STORE(resp, o);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19072	}
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19073	}
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19074
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19075	err:
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19076	if (info) freeaddrinfo(info);
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19077
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19078	# else /* ! AI_NUMERICHOST =============================================================*/
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19079
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19080	/*
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19081	* Use getservbyname() / gethostByName()
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19082	*/
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19083	struct hostent *hp;
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19084	char **addrpp;
10792 46d6f7358405 Win32SocketHandle>>#getAddressInfo:... Stefan Vogel <sv@exept.de> parents: 10775 diff changeset	19085	int __port = 0;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19086	int i;
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19087
10792 46d6f7358405 Win32SocketHandle>>#getAddressInfo:... Stefan Vogel <sv@exept.de> parents: 10775 diff changeset	19088	if (__isSmallInteger(port)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19089	__port = htons(__smallIntegerVal(port));
10792 46d6f7358405 Win32SocketHandle>>#getAddressInfo:... Stefan Vogel <sv@exept.de> parents: 10775 diff changeset	19090	} else if (__serviceName) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19091	struct servent *sp;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19092	char *__proto = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19093
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19094	if (__isStringLike(protoArg))
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19095	__proto = __stringVal(protoArg);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19096
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19097	sp = getservbyname(__serviceName, __proto);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19098	if (sp == NULL) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19099	__port = atoi(__serviceName);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19100	if (__port <= 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19101	errorString = @symbol(unknownService);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19102	error = __mkSmallInteger(-3);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19103	goto err;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19104	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19105	__port = htons(__port);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19106	} else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19107	__port = sp->s_port;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19108	}
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19109
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19110	if (__hostName) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19111	int err;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19112
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19113	do {
15604 86e0ba23123f class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15598 diff changeset	19114	# if 0 && defined(DO_WRAP_CALLS)
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19115	/* This does not work - the structure is allocated in thread local storage */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19116	hp = STX_WSA_NOINT_CALL1("gethostbyname", gethostbyname, __hostName);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19117	if ((INT)hp < 0) hp = NULL;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19118	# else
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19119	/* __BEGIN_INTERRUPTABLE__ is dangerous, because gethostbyname
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19120	* uses a static data area, but allocates it in thread local storage
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19121	*/
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19122	// __BEGIN_INTERRUPTABLE__
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19123	hp = gethostbyname(__hostName);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19124	// __END_INTERRUPTABLE__
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19125	#endif
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19126	} while ((hp == NULL
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19127	&& (err = WSAGetLastError()) == EINTR));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19128	if (hp == 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19129	switch (err) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19130	case HOST_NOT_FOUND:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19131	errorString = @symbol(unknownHost);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19132	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19133	case NO_ADDRESS:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19134	errorString = @symbol(noAddress);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19135	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19136	case NO_RECOVERY:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19137	errorString = @symbol(permanentFailure);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19138	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19139	case TRY_AGAIN:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19140	errorString = @symbol(tryAgain);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19141	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19142	default:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19143	errorString = @symbol(unknownError);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19144	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19145	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19146	error = __mkSmallInteger(err);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19147	goto err;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19148	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19149
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19150	if (__isSmallInteger(domain) && hp->h_addrtype != __smallIntegerVal(domain)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19151	errorString = @symbol(unknownHost);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19152	error = __mkSmallInteger(-2);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19153	goto err;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19154	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19155
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19156	for (cnt = 0, addrpp = hp->h_addr_list; *addrpp; addrpp++)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19157	cnt++;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19158	addrpp = hp->h_addr_list;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19159	} else {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19160	cnt = 1;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19161	}
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19162
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19163	result = __ARRAY_NEW_INT(cnt);
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19164	if (result == nil) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19165	error = @symbol(allocationFailure);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19166	goto err;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19167	}
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19168
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19169	for (i = 0; i < cnt; i++) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19170	OBJ o, resp;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19171	struct sockaddr_in *sa;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19172
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19173	resp = __ARRAY_NEW_INT(6);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19174	if (resp == nil) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19175	error = @symbol(allocationFailure);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19176	goto err;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19177	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19178
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19179	__ArrayInstPtr(result)->a_element[i] = resp; __STORE(result, resp);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19180	__ArrayInstPtr(resp)->a_element[0] = __mkSmallInteger(0);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19181	__ArrayInstPtr(resp)->a_element[2] = type; __STORE(resp, type);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19182	__ArrayInstPtr(resp)->a_element[3] = proto; __STORE(resp, proto);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19183	__PROTECT__(resp);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19184	o = __BYTEARRAY_NEW_INT(sizeof(*sa));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19185	__UNPROTECT__(resp);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19186	if (o == nil) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19187	error = @symbol(allocationFailure);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19188	goto err;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19189	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19190	__ArrayInstPtr(resp)->a_element[4] = o; __STORE(resp, o);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19191	sa = (struct sockaddr_in *)__byteArrayVal(o);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19192	sa->sin_port = __port;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19193
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19194	if (__hostName) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19195	sa->sin_family = hp->h_addrtype;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19196	memcpy(&sa->sin_addr, *addrpp, hp->h_length);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19197	__ArrayInstPtr(resp)->a_element[1] = __mkSmallInteger(hp->h_addrtype);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19198	if (hp->h_name) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19199	__PROTECT__(resp);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19200	o = __MKSTRING(hp->h_name);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19201	__UNPROTECT__(resp);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19202	if (o == nil) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19203	error = @symbol(allocationFailure);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19204	goto err;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19205	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19206	__ArrayInstPtr(resp)->a_element[5] = o; __STORE(resp, o);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19207	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19208	addrpp++;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19209	} else{
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19210	if (__isSmallInteger(domain))
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19211	sa->sin_family = __intVal(domain);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19212	else
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19213	sa->sin_family = AF_INET;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19214	__ArrayInstPtr(resp)->a_element[1] = domain; __STORE(resp, domain);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19215	}
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19216	}
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19217
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19218	err:;
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19219	# endif /* ! AI_NUMERICHOST */
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19220	}
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19221	#else /* ! HAS_SOCKET */
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19222	error = @symbol(notImplemented);
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19223	#endif
10792 46d6f7358405 Win32SocketHandle>>#getAddressInfo:... Stefan Vogel <sv@exept.de> parents: 10775 diff changeset	19224	exitPrim:;
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19225	%}.
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19226	error notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19227	\|request\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19228	request := SocketAddressInfo new
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19229	domain:domainArg;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19230	type:typeArg;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19231	protocol:protoArg;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19232	canonicalName:hostName;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19233	serviceName:serviceName.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19234	^ (HostNameLookupError new
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19235	parameter:error;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19236	messageText:' - ', (errorString ? error printString);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19237	request:request) raiseRequest.
8740 bb4a76c88cca temporary kludge: added dummy SocketHandle for Unix compat. Claus Gittinger <cg@exept.de> parents: 8667 diff changeset	19238	].
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19239	1 to:result size do:[:i \|
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19240	\|entry dom info\|
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19241
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19242	info := SocketAddressInfo new.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19243	entry := result at:i.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19244	info flags:(entry at:1).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19245	info domain:(dom := OperatingSystem domainSymbolOf:(entry at:2)).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19246	info type:(OperatingSystem socketTypeSymbolOf:(entry at:3)).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19247	info protocol:(self protocolSymbolOf:(entry at:4)).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19248	info socketAddress:((SocketAddress newDomain:dom) fromBytes:(entry at:5)).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19249	info canonicalName:(entry at:6).
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19250	result at:i put:info
8740 bb4a76c88cca temporary kludge: added dummy SocketHandle for Unix compat. Claus Gittinger <cg@exept.de> parents: 8667 diff changeset	19251	].
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19252	^ result
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19253
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19254	"
c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19255	self getAddressInfo:'localhost' serviceName:nil
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19256	domain:nil type:nil protocol:nil flags:nil
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19257	self getAddressInfo:'localhost' serviceName:nil
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19258	domain:#AF_INET type:#stream protocol:nil flags:nil
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19259	self getAddressInfo:'localhost' serviceName:nil
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19260	domain:#AF_INET type:#stream protocol:#tcp flags:nil
10792 46d6f7358405 Win32SocketHandle>>#getAddressInfo:... Stefan Vogel <sv@exept.de> parents: 10775 diff changeset	19261	self getAddressInfo:'localhost' serviceName:10
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19262	domain:#AF_INET type:#stream protocol:#tcp flags:nil
10792 46d6f7358405 Win32SocketHandle>>#getAddressInfo:... Stefan Vogel <sv@exept.de> parents: 10775 diff changeset	19263	self getAddressInfo:'localhost' serviceName:'10'
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19264	domain:#AF_INET type:#stream protocol:#tcp flags:nil
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19265	self getAddressInfo:'blurb.exept.de' serviceName:nil
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19266	domain:#AF_INET type:nil protocol:nil flags:nil
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19267	self getAddressInfo:'1.2.3.4' serviceName:'bla'
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19268	domain:#AF_INET type:nil protocol:nil flags:nil
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19269	self getAddressInfo:'localhost' serviceName:'echo'
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19270	domain:#AF_INET type:nil protocol:nil flags:nil
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19271	self getAddressInfo:nil serviceName:'echo'
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19272	domain:#AF_INET type:nil protocol:nil flags:nil
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19273	self getAddressInfo:nil serviceName:nil
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19274	domain:#AF_INET type:nil protocol:nil flags:nil
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19275	self getAddressInfo:'www.google.de' serviceName:nil
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19276	domain:nil type:nil protocol:nil flags:nil
16285 d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	19277	self getAddressInfo:'exeptn' serviceName:nil
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19278	domain:nil type:nil protocol:nil flags:nil
16285 d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	19279
d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	19280	self getAddressInfo:'localhost' asUnicode16String serviceName:nil
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19281	domain:nil type:nil protocol:nil flags:nil
16285 d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	19282	self getAddressInfo:'ützlbrützl' serviceName:nil
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19283	domain:nil type:nil protocol:nil flags:nil
16285 d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	19284	self getAddressInfo:'ützlbrützl' serviceName:nil
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19285	domain:nil type:nil protocol:nil flags:nil
16285 d8b8eb36dbed class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16279 diff changeset	19286	self getAddressInfo:'путин.ру' asUnicode16String serviceName:nil
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19287	domain:nil type:nil protocol:nil flags:nil
8763 c3940f80de38 gethostname & friends Claus Gittinger <cg@exept.de> parents: 8755 diff changeset	19288	"
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19289	!
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19290
17595 3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	19291	getNameInfo:socketAddressIn wantHostName:wantHostName wantServiceName:wantServiceName datagram:useDatagram flags:flags
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19292	"answer an Array containing the hostName and serviceName
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19293	in socketAddress.
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19294	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	19295	this returns multiple hostnames (if appropriate)"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19296
17595 3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	19297	\|socketAddress error errorString hostName serviceName\|
3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	19298
3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	19299	socketAddress := socketAddressIn.
3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	19300
3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	19301	%{ /* STACK:32000 */
3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	19302	#if !defined(NI_NUMERICHOST)
3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	19303	%}.
3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	19304	"if the getNameInfo() syscall is not present (as in Borland),
3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	19305	convert mapped IPv4 to IPv6Addresses back to IPv4,
3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	19306	so that these addresses can be resolved"
3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	19307	socketAddress := socketAddress asIPv4SocketAddressIfPossible.
3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	19308	%{
3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	19309	#endif // !defined(NI_NUMERICHOST)
3a744321aa74 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17594 diff changeset	19310	%}.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19311
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19312	%{ /* STACK:32000 */
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19313
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19314	#if !defined(NO_SOCKET)
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19315
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19316	# ifndef NI_MAXHOST
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19317	# define NI_MAXHOST 256
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19318	# define NI_MAXSERV 64
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19319	# endif
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19320
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19321	char host[NI_MAXHOST];
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19322	char service[NI_MAXSERV];
20279 c16702f68306 * empty log message * Claus Gittinger <cg@exept.de> parents: 20278 diff changeset	19323	char hp = NULL, sp = NULL;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19324	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	19325	int ret;
196ec3fc8a66 WIN32: explicitely make stdin,out and err inheritable when creating a subprocess. Claus Gittinger <cg@exept.de> parents: 15506 diff changeset	19326	int __flags;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19327	char *bp;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19328	int nInstBytes, sockAddrSize;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19329
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19330	if (wantHostName == true) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19331	hp = host;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19332	hsz = sizeof(host);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19333	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19334	if (wantServiceName == true) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19335	sp = service;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19336	ssz = sizeof(service);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19337	}
20278 a1900948623c * empty log message * Claus Gittinger <cg@exept.de> parents: 20277 diff changeset	19338	if (hp == NULL && sp == NULL) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19339	error = @symbol(badArgument);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19340	goto err;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19341	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19342	if (!__isBytes(socketAddress)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19343	error = @symbol(badArgument1);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19344	goto err;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19345	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19346
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19347	nInstBytes = __OBJS2BYTES__(__intVal(__ClassInstPtr(__qClass(socketAddress))->c_ninstvars));
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19348	sockAddrSize = __byteArraySize(socketAddress);
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19349	sockAddrSize -= nInstBytes;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19350
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19351	if (!__isSmallInteger(flags)) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19352	error = @symbol(badArgument5);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19353	goto err;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19354	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19355	__flags = __intVal(flags);
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19356
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19357	#if defined(NI_NUMERICHOST)
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19358	if (useDatagram == true) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19359	__flags \|= NI_DGRAM;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19360	}
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	{
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19363	bp = (char *)(__byteArrayVal(socketAddress));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19364	bp += nInstBytes;
14852 f8cf16374fd5 Fix getnameinfo() and getaddrinfo() #ifdefed code Stefan Vogel <sv@exept.de> parents: 14849 diff changeset	19365	# ifdef DO_WRAP_CALLS
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19366	do {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19367	__threadErrno = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19368	// do not cast to INT - will loose sign bit then!
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19369	ret = (int)(STX_WSA_NOINT_CALL7( "getnameinfo", getnameinfo, (struct sockaddr *)bp, (INT)sockAddrSize, hp, (INT)hsz, sp, (INT)ssz, (INT)__flags));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19370	} while ((ret < 0) && (__threadErrno == EINTR));
14852 f8cf16374fd5 Fix getnameinfo() and getaddrinfo() #ifdefed code Stefan Vogel <sv@exept.de> parents: 14849 diff changeset	19371	# else
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19372	__BEGIN_INTERRUPTABLE__
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19373	ret = getnameinfo((struct sockaddr *)bp, sockAddrSize,
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19374	hp, hsz, sp, ssz, __flags);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19375	__END_INTERRUPTABLE__
14852 f8cf16374fd5 Fix getnameinfo() and getaddrinfo() #ifdefed code Stefan Vogel <sv@exept.de> parents: 14849 diff changeset	19376	# endif
f8cf16374fd5 Fix getnameinfo() and getaddrinfo() #ifdefed code Stefan Vogel <sv@exept.de> parents: 14849 diff changeset	19377	} while (ret != 0 && __threadErrno == EINTR);
f8cf16374fd5 Fix getnameinfo() and getaddrinfo() #ifdefed code Stefan Vogel <sv@exept.de> parents: 14849 diff changeset	19378
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19379	if (ret != 0) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19380	switch (ret) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19381	case EAI_FAMILY:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19382	error = @symbol(badProtocol);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19383	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19384	case EAI_SOCKTYPE:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19385	error = @symbol(badSocketType);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19386	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19387	case EAI_BADFLAGS:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19388	error = @symbol(badFlags);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19389	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19390	case EAI_NONAME:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19391	error = @symbol(unknownHost);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19392	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19393	case EAI_SERVICE:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19394	error = @symbol(unknownService);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19395	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19396	case EAI_MEMORY:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19397	error = @symbol(allocationFailure);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19398	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19399	case EAI_FAIL:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19400	error = @symbol(permanentFailure);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19401	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19402	case EAI_AGAIN:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19403	error = @symbol(tryAgain);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19404	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19405	default:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19406	error = @symbol(unknownError);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19407	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19408	errorString = __MKSTRING(gai_strerror(ret));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19409	goto err;
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19410	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19411	# else /* ! NI_NUMERICHOST */
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19412	{
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19413	/*
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19414	* Do it using gethostbyaddr()
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19415	*/
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19416	struct sockaddr_in *sa;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19417
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19418	if (sockAddrSize < sizeof(*sa)) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19419	error = @symbol(badArgument1);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19420	goto err;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19421	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19422	bp = (char *)(__byteArrayVal(socketAddress));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19423	bp += nInstBytes;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19424	sa = (struct sockaddr_in *)bp;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19425
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19426	if (sp) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19427	struct servent *servp;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19428	char *__proto = 0;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19429
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19430	__proto = (useDatagram == true ? "udp" : "tcp");
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19431
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19432	servp = getservbyport(sa->sin_port, __proto);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19433	if (servp) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19434	sp = servp->s_name;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19435	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19436	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19437
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19438	if (sa->sin_family == AF_INET6) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19439	if (sp)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19440	serviceName = __MKSTRING(sp);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19441	error = @symbol(AF_INET6);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19442	goto err;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19443	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19444
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19445	if (hp) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19446	struct hostent *hostp;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19447	int err;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19448
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19449	do {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19450	/* must refetch in loop */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19451	bp = (char *)(__byteArrayVal(socketAddress));
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19452	bp += nInstBytes;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19453	sa = (struct sockaddr_in *)bp;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19454	/* __BEGIN_INTERRUPTABLE__ is dangerous, because gethostbyname uses a static data area
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19455	*/
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19456	hostp = gethostbyaddr((char *)&sa->sin_addr, sockAddrSize, sa->sin_family);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19457	/* __END_INTERRUPTABLE__ */
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19458	} while ((hostp == NULL)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19459	&& ((err = WSAGetLastError()) == EINTR)
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19460	);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19461	if (hostp == 0) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19462	switch (err) {
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19463	case HOST_NOT_FOUND:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19464	errorString = @symbol(unknownHost);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19465	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19466	case NO_ADDRESS:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19467	errorString = @symbol(noAddress);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19468	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19469	case NO_RECOVERY:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19470	errorString = @symbol(permanentFailure);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19471	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19472	case TRY_AGAIN:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19473	errorString = @symbol(tryAgain);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19474	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19475	default:
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19476	errorString = @symbol(unknownError);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19477	break;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19478	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19479	error = __mkSmallInteger(err);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19480	goto err;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19481	}
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19482	hp = hostp->h_name;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19483	}
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19484	}
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19485	# endif /* ! NI_NUMERICHOST */
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19486
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19487	if (hp)
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19488	hostName = __MKSTRING(hp);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19489	if (sp)
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19490	serviceName = __MKSTRING(sp);
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19491	err:;
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19492	#else
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19493	error = @symbol(notImplemented);
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19494	#endif
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	error notNil ifTrue:[
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19497	(error == #AF_INET6 or:[errorString == #noAddress]) ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19498	"This is a socket address of wrong size - probably an IPv6SocketAddres on a system where
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19499	the getNetByAddr() syscall is not supported"
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19500	^ Array
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19501	with:socketAddress hostAddressString
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19502	with:serviceName.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19503	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19504	error isSymbol ifTrue:[
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19505	self primitiveFailed:error.
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19506	].
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19507	^ (HostAddressLookupError new
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19508	parameter:error;
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19509	messageText:' - ', (errorString ? error printString);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19510	request:thisContext message) raiseRequest.
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19511	].
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19512
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19513	^ Array with:hostName with:serviceName
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19514
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19515	"
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19516	self getNameInfo:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19517	(self getAddressInfo:'localhost' serviceName:'echo'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19518	domain:#AF_INET type:#stream protocol:nil flags:nil) first socketAddress
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19519	wantHostName:true wantServiceName:true datagram:false flags:0
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19520
55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19521	self getNameInfo:
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19522	(self getAddressInfo:'exept.exept.de' serviceName:'echo'
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19523	domain:#AF_INET type:#stream protocol:nil flags:nil) first socketAddress
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19524	wantHostName:true wantServiceName:true datagram:false flags:0
15604 86e0ba23123f class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15598 diff changeset	19525
86e0ba23123f class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 15598 diff changeset	19526	self getNameInfo:(IPSocketAddress hostAddress:#[1 2 3 4])
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19527	wantHostName:true wantServiceName:true datagram:false flags:0
17594 1f6f1ece1bb0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17521 diff changeset	19528
1f6f1ece1bb0 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 17521 diff changeset	19529	self getNameInfo:(IPv6SocketAddress localHost port:21)
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19530	wantHostName:true wantServiceName:true datagram:false flags:0
9156 55a3b0a4f2b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9155 diff changeset	19531	"
8740 bb4a76c88cca temporary kludge: added dummy SocketHandle for Unix compat. Claus Gittinger <cg@exept.de> parents: 8667 diff changeset	19532	! !
bb4a76c88cca temporary kludge: added dummy SocketHandle for Unix compat. Claus Gittinger <cg@exept.de> parents: 8667 diff changeset	19533
16345 575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19534	!Win32OperatingSystem::Win32SocketHandle methodsFor:'initialization'!
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19535
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19536	initialize
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19537	%{ /* NOCONTEXT */
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19538	__ExternalAddressInstPtr(self)->e_address = (void *)(INVALID_SOCKET);
16345 575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19539	%}
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19540
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19541	"
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19542	self new
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19543	self new isValid
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19544	"
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19545	! !
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19546
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19547	!Win32OperatingSystem::Win32SocketHandle methodsFor:'queries'!
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19548
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19549	handleType
16367 e08c79499faa Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 16345 diff changeset	19550	^ #socketHandle
16345 575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19551	!
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19552
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19553	isValid
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19554	%{ /* NOCONTEXT */
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19555	SOCKET sock = (SOCKET)(__externalAddressVal(self));
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19556
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19557	RETURN(sock == INVALID_SOCKET ? false : true);
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19558	%}.
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19559
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19560	"
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19561	self new isValid
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19562	"
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19563	! !
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19564
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19565	!Win32OperatingSystem::Win32SocketHandle methodsFor:'release'!
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19566
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19567	closeHandle
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19568	"close the handle"
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19569
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19570	%{ /* NOCONTEXT */
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19571	SOCKET sock = (SOCKET)(__externalAddressVal(self));
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19572
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19573	if (sock != INVALID_SOCKET) {
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19574	__externalAddressVal(self) = (void *)(INVALID_SOCKET);
dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19575	closesocket(sock);
16345 575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19576	}
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19577	%}.
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19578	! !
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19579
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19580	!Win32OperatingSystem::Win32SocketHandle methodsFor:'testing'!
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19581
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19582	isSocketHandle
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19583	^ true
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19584	! !
575c1bf534c6 class: Win32OperatingSystem Stefan Vogel <sv@exept.de> parents: 16337 diff changeset	19585
9475 c57956a348bf printing support fm parents: 9431 diff changeset	19586	!Win32OperatingSystem::WinPointStructure class methodsFor:'instance creation'!
c57956a348bf printing support fm parents: 9431 diff changeset	19587
c57956a348bf printing support fm parents: 9431 diff changeset	19588	new
c57956a348bf printing support fm parents: 9431 diff changeset	19589
c57956a348bf printing support fm parents: 9431 diff changeset	19590	^super new: self sizeInBytes
c57956a348bf printing support fm parents: 9431 diff changeset	19591
c57956a348bf printing support fm parents: 9431 diff changeset	19592	"Created: / 03-08-2006 / 10:37:59 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	19593	!
c57956a348bf printing support fm parents: 9431 diff changeset	19594
10287 51f1d52fe128 localtime() for Borland CC, localtime_s() for visual c++ Stefan Vogel <sv@exept.de> parents: 10286 diff changeset	19595	sizeInBytes
9475 c57956a348bf printing support fm parents: 9431 diff changeset	19596
c57956a348bf printing support fm parents: 9431 diff changeset	19597	^8
c57956a348bf printing support fm parents: 9431 diff changeset	19598
c57956a348bf printing support fm parents: 9431 diff changeset	19599	"Created: / 03-08-2006 / 10:38:06 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	19600	! !
c57956a348bf printing support fm parents: 9431 diff changeset	19601
c57956a348bf printing support fm parents: 9431 diff changeset	19602	!Win32OperatingSystem::WinPointStructure methodsFor:'accessing'!
c57956a348bf printing support fm parents: 9431 diff changeset	19603
c57956a348bf printing support fm parents: 9431 diff changeset	19604	asPoint
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19605	"Private - Answer the receiver as a Point."
9475 c57956a348bf printing support fm parents: 9431 diff changeset	19606	^self x @ self y
c57956a348bf printing support fm parents: 9431 diff changeset	19607
c57956a348bf printing support fm parents: 9431 diff changeset	19608	"Created: / 03-08-2006 / 10:45:55 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	19609	!
c57956a348bf printing support fm parents: 9431 diff changeset	19610
c57956a348bf printing support fm parents: 9431 diff changeset	19611	x
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19612	"Private - Answer the x coordinate of the point."
9475 c57956a348bf printing support fm parents: 9431 diff changeset	19613	^self longAt: 0 + 1
c57956a348bf printing support fm parents: 9431 diff changeset	19614
c57956a348bf printing support fm parents: 9431 diff changeset	19615	"Created: / 03-08-2006 / 10:46:11 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	19616	!
c57956a348bf printing support fm parents: 9431 diff changeset	19617
c57956a348bf printing support fm parents: 9431 diff changeset	19618	x: anInteger
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19619	"Private - Set the x coordinate of the point."
9475 c57956a348bf printing support fm parents: 9431 diff changeset	19620	self longAt: 0 + 1 put: anInteger
c57956a348bf printing support fm parents: 9431 diff changeset	19621
c57956a348bf printing support fm parents: 9431 diff changeset	19622	"Created: / 03-08-2006 / 10:46:41 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	19623	!
c57956a348bf printing support fm parents: 9431 diff changeset	19624
c57956a348bf printing support fm parents: 9431 diff changeset	19625	y
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19626	"Private - Answer the y coordinate of the point."
9475 c57956a348bf printing support fm parents: 9431 diff changeset	19627	^self longAt: 4 + 1
c57956a348bf printing support fm parents: 9431 diff changeset	19628
c57956a348bf printing support fm parents: 9431 diff changeset	19629	"Created: / 03-08-2006 / 10:46:26 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	19630	!
c57956a348bf printing support fm parents: 9431 diff changeset	19631
c57956a348bf printing support fm parents: 9431 diff changeset	19632	y: anInteger
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19633	"Private - Set the y coordinate of the point."
9475 c57956a348bf printing support fm parents: 9431 diff changeset	19634	self longAt: 4 + 1 put: anInteger
c57956a348bf printing support fm parents: 9431 diff changeset	19635
c57956a348bf printing support fm parents: 9431 diff changeset	19636	"Created: / 03-08-2006 / 10:46:56 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	19637	! !
c57956a348bf printing support fm parents: 9431 diff changeset	19638
c57956a348bf printing support fm parents: 9431 diff changeset	19639	!Win32OperatingSystem::WinPointStructure methodsFor:'printing'!
c57956a348bf printing support fm parents: 9431 diff changeset	19640
c57956a348bf printing support fm parents: 9431 diff changeset	19641	printOn: aStream
20971 dc8c9e46f3e8 environment passing in primExec Claus Gittinger <cg@exept.de> parents: 20969 diff changeset	19642	"Append a textual representation of the receiver to aStream."
9475 c57956a348bf printing support fm parents: 9431 diff changeset	19643	aStream nextPutAll: self class name, ' { ', self asPoint printString, ' } '
c57956a348bf printing support fm parents: 9431 diff changeset	19644
c57956a348bf printing support fm parents: 9431 diff changeset	19645	"Created: / 03-08-2006 / 10:45:40 / fm"
c57956a348bf printing support fm parents: 9431 diff changeset	19646	! !
c57956a348bf printing support fm parents: 9431 diff changeset	19647
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	19648	!Win32OperatingSystem class methodsFor:'documentation'!
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	19649
89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	19650	version
18543 fef08f652ef8 * empty log message * Claus Gittinger <cg@exept.de> parents: 18414 diff changeset	19651	^ '$Header$'
12154 646c4171f0d2 added: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 11920 diff changeset	19652	!
646c4171f0d2 added: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 11920 diff changeset	19653
646c4171f0d2 added: #openApplicationForDocument:operation: Claus Gittinger <cg@exept.de> parents: 11920 diff changeset	19654	version_CVS
18543 fef08f652ef8 * empty log message * Claus Gittinger <cg@exept.de> parents: 18414 diff changeset	19655	^ '$Header$'
13618 9af72c855037 Fixes for #canExecuteCommand: vrany parents: 13616 diff changeset	19656	!
9af72c855037 Fixes for #canExecuteCommand: vrany parents: 13616 diff changeset	19657
20082 ea1059c10bba Issue #94: Cleaned up Win32OperatingSystem>>defaultPackagePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20080 diff changeset	19658	version_HG
ea1059c10bba Issue #94: Cleaned up Win32OperatingSystem>>defaultPackagePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20080 diff changeset	19659
ea1059c10bba Issue #94: Cleaned up Win32OperatingSystem>>defaultPackagePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20080 diff changeset	19660	^ '$Changeset: <not expanded> $'
ea1059c10bba Issue #94: Cleaned up Win32OperatingSystem>>defaultPackagePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20080 diff changeset	19661	!
ea1059c10bba Issue #94: Cleaned up Win32OperatingSystem>>defaultPackagePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20080 diff changeset	19662
13618 9af72c855037 Fixes for #canExecuteCommand: vrany parents: 13616 diff changeset	19663	version_SVN
18543 fef08f652ef8 * empty log message * Claus Gittinger <cg@exept.de> parents: 18414 diff changeset	19664	^ '$Id$'
13618 9af72c855037 Fixes for #canExecuteCommand: vrany parents: 13616 diff changeset	19665
5133 89dcec4f269f * empty log message * Claus Gittinger <cg@exept.de> parents: 5123 diff changeset	19666	! !
6791 ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	19667
14730 a4cc809df4f1 class: Win32OperatingSystem Claus Gittinger <cg@exept.de> parents: 14667 diff changeset	19668
5135 cbd3b4c19d84 checkin from browser Claus Gittinger <cg@exept.de> parents: 5133 diff changeset	19669	Win32OperatingSystem initialize!
17630 918d3b1dde77 Added #getObjectFileInfoFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17619 diff changeset	19670	Win32OperatingSystem::PECOFFConstants initialize!
10687 ab97bbae07f2 * empty log message * sr parents: 10686 diff changeset	19671	Win32OperatingSystem::PerformanceData initialize!
6791 ecc0ee933ef8 statusChangeTime is really creationTime Claus Gittinger <cg@exept.de> parents: 6740 diff changeset	19672	Win32OperatingSystem::RegistryEntry initialize!

author	Patrik Svestka <patrik.svestka@gmail.com>
	Fri, 07 Dec 2018 14:33:23 +0100
branch	jv
changeset 23762	1f3f9bcc9689
parent 23761	98ddcd1f3d1f
child 23763	eaf599e56043
permissions	-rw-r--r--