hg/stx-libbasic: AbstractOperatingSystem.st@852e84340d2b (annotated)

3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2	COPYRIGHT (c) 1988 by Claus Gittinger
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3	All Rights Reserved
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5	This software is furnished under a license and may be used
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6	only in accordance with the terms of that license and with the
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	7	inclusion of the above copyright notice. This software may not
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	8	be provided or otherwise made available to, or used by, any
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	9	other person. No title to or ownership of the software is
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	10	hereby transferred.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	11	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	12
5407 d6729266a95b * empty log message * Claus Gittinger <cg@exept.de> parents: 5172 diff changeset	13	"{ Package: 'stx:libbasic' }"
d6729266a95b * empty log message * Claus Gittinger <cg@exept.de> parents: 5172 diff changeset	14
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	15	Object subclass:#AbstractOperatingSystem
7073 f90c5774e8d6 close all fd's above the onces passed in fileDescriptors array. ca parents: 7071 diff changeset	16	instanceVariableNames:''
f90c5774e8d6 close all fd's above the onces passed in fileDescriptors array. ca parents: 7071 diff changeset	17	classVariableNames:'ConcreteClass LastErrorNumber LocaleInfo OSSignals PipeFailed
f90c5774e8d6 close all fd's above the onces passed in fileDescriptors array. ca parents: 7071 diff changeset	18	ErrorSignal AccessDeniedErrorSignal FileNotFoundErrorSignal
f90c5774e8d6 close all fd's above the onces passed in fileDescriptors array. ca parents: 7071 diff changeset	19	InvalidArgumentsSignal UnsupportedOperationSignal Resources'
f90c5774e8d6 close all fd's above the onces passed in fileDescriptors array. ca parents: 7071 diff changeset	20	poolDictionaries:''
f90c5774e8d6 close all fd's above the onces passed in fileDescriptors array. ca parents: 7071 diff changeset	21	category:'System-Support'
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	22	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	23
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	24	!AbstractOperatingSystem class methodsFor:'documentation'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	25
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	26	copyright
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	27	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	28	COPYRIGHT (c) 1988 by Claus Gittinger
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	29	All Rights Reserved
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	30
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	31	This software is furnished under a license and may be used
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	32	only in accordance with the terms of that license and with the
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	33	inclusion of the above copyright notice. This software may not
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	34	be provided or otherwise made available to, or used by, any
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	35	other person. No title to or ownership of the software is
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	36	hereby transferred.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	37	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	38	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	39
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	40	documentation
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	41	"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	42	this class realizes services common to the supported operating systems;
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	43	typically, services which can be implemented based upon more primitive
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	44	functions, or which can be implemented in a portable way (but probably
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	45	less performant) are implemented here.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	46
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	47	[Class variables:]
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	48	ConcreteClass <Class> the real OS class
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	49
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	50	LocaleInfo <Dictionary> if non nil, that is taken instead of the operating
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	51	systems locale definitions (allows for overwriting
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	52	these, or provide a compatible info on systems which do
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	53	not support locales)
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	54
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	55	LastErrorNumber <Integer> the last value of errno
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	56
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	57	OSSignals <Array> Array of signals to be raised for corresponding
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	58	OperatingSystem signals.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	59
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	60	PipeFailed <Boolean> set if a fork (or popen) has failed;
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	61	ST/X will avoid doing more forks/popens
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	62	if this flag is set, for a slightly
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	63	smoother operation.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	64
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	65	ErrorSignal <Signal> Parentsignal of all OS error signals.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	66	not directly raised.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	67
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	68	AccessDeniedErrorSignal misc concrete error reporting signals
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	69	FileNotFoundErrorSignal
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	70	UnsupportedOperationSignal
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	71	InvalidArgumentsSignal
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	72
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	73	[author:]
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	74	Claus Gittinger
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	75
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	76	[see also:]
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	77	OSProcessStatus
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	78	Filename Date Time
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	79	ExternalStream FileStream PipeStream Socket
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	80	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	81	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	82
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	83	examples
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	84	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	85	various queries
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	86	[exBegin]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	87	Transcript
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	88	showCR:'hello ' , (OperatingSystem getLoginName)
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	89	[exEnd]
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	90
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	91	[exBegin]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	92	OperatingSystem isUNIXlike ifTrue:[
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	93	Transcript showCR:'this is some UNIX-like OS'
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	94	] ifFalse:[
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	95	Transcript showCR:'this OS is not UNIX-like'
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	96	]
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	97	[exEnd]
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	98
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	99	[exBegin]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	100	Transcript
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	101	showCR:'this machine is called ' , OperatingSystem getHostName
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	102	[exEnd]
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	103
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	104	[exBegin]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	105	Transcript
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	106	showCR:('this machine is in the '
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	107	, OperatingSystem getDomainName
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	108	, ' domain')
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	109	[exEnd]
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	110
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	111	[exBegin]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	112	Transcript
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	113	showCR:('this machine''s CPU is a '
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	114	, OperatingSystem getCPUType
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	115	)
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	116	[exEnd]
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	117
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	118	[exBegin]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	119	Transcript showCR:'executing ls command ...'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	120	OperatingSystem executeCommand:'ls'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	121	Transcript showCR:'... done.'.
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	122	[exEnd]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	123
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	124	locking a file
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	125	(should be executed on two running smalltalks - not in two threads):
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	126	[exBegin]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	127	\|f\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	128
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	129	f := 'testFile' asFilename readWriteStream.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	130
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	131	10 timesRepeat:[
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	132	'about to lock ...' printCR.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	133	[
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	134	OperatingSystem
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	135	lockFD:(f fileDescriptor)
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	136	shared:false
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	137	blocking:false
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	138	] whileFalse:[
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	139	'process ' print. OperatingSystem getProcessId print. ' is waiting' printCR.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	140	Delay waitForSeconds:1
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	141	].
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	142	'LOCKED ...' printCR.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	143	Delay waitForSeconds:10.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	144	'unlock ...' printCR.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	145	(OperatingSystem
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	146	unlockFD:(f fileDescriptor)) printCR.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	147	Delay waitForSeconds:3.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	148	]
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	149	[exBegin]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	150	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	151	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	152
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	153	!AbstractOperatingSystem class methodsFor:'initialization'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	154
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	155	initResources
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	156	Resources := ResourcePack for:self
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	157	!
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	158
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	159	initialize
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	160	"initialize the class"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	161
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	162	self initializeConcreteClass.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	163
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	164	ErrorSignal isNil ifTrue:[
7093 60bad14d38fc Convert Object>>errorSignal -> Error Stefan Vogel <sv@exept.de> parents: 7078 diff changeset	165	ErrorSignal := Error newSignalMayProceed:true.
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	166	ErrorSignal nameClass:self message:#errorSignal.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	167	ErrorSignal notifierString:'OS error encountered'.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	168
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	169	AccessDeniedErrorSignal := ErrorSignal newSignalMayProceed:true.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	170	AccessDeniedErrorSignal nameClass:self message:#accessDeniedError.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	171	AccessDeniedErrorSignal notifierString:'OS access denied'.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	172
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	173	FileNotFoundErrorSignal := ErrorSignal newSignalMayProceed:true.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	174	FileNotFoundErrorSignal nameClass:self message:#fileNotFoundErrorSignal.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	175	FileNotFoundErrorSignal notifierString:'OS file not found'.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	176
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	177	InvalidArgumentsSignal := ErrorSignal newSignalMayProceed:true.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	178	InvalidArgumentsSignal nameClass:self message:#invalidArgumentsSignal.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	179	InvalidArgumentsSignal notifierString:'bad arg to OS call'.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	180
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	181	UnsupportedOperationSignal := ErrorSignal newSignalMayProceed:true.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	182	UnsupportedOperationSignal nameClass:self message:#unsupportedOperationSignal.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	183	UnsupportedOperationSignal notifierString:'operation not supported by this OS'.
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	184	].
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	185	Smalltalk addDependent:self. "/ to catch language changes
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	186	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	187
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	188	initializeConcreteClass
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	189	\|osType cls\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	190
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	191	osType := self getSystemType.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	192	osType = 'win32' ifTrue:[
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	193	cls := Win32OperatingSystem
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	194	] ifFalse:[
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	195	osType = 'os2' ifTrue:[
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	196	cls := OS2OperatingSystem
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	197	] ifFalse:[
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	198	osType = 'macos' ifTrue:[
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	199	cls := MacOperatingSystem
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	200	] ifFalse:[
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	201	((osType = 'VMS') or:[osType = 'openVMS']) ifTrue:[
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	202	cls := OpenVMSOperatingSystem
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	203	] ifFalse:[
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	204	cls := UnixOperatingSystem
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	205	]
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	206	]
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	207	]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	208	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	209	OperatingSystem := ConcreteClass := cls.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	210	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	211
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	212	!AbstractOperatingSystem class methodsFor:'OS signal constants'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	213
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	214	sigABRT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	215	"return the signal number for SIGABRT - 0 if not supported by OS
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	216	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	217
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	218	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	219	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	220
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	221	sigALRM
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	222	"return the signal number for SIGALRM - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	223	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	224
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	225	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	226	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	227
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	228	sigBREAK
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	229	"return the signal number for SIGBREAK - 0 if not supported.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	230	This is an MSDOS specific signal"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	231
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	232	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	233	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	234
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	235	sigBUS
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	236	"return the signal number for SIGBUS - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	237	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	238
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	239	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	240	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	241
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	242	sigCHLD
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	243	"return the signal number for SIGCHLD - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	244	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	245
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	246	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	247	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	248
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	249	sigCONT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	250	"return the signal number for SIGCONT - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	251	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	252
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	253	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	254	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	255
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	256	sigDANGER
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	257	"return the signal number for SIGDANGER - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	258	(seems to be an AIX special)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	259
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	260	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	261	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	262
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	263	sigEMT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	264	"return the signal number for SIGEMT - 0 if not supported by OS
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	265	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	266
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	267	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	268	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	269
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	270	sigFP
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	271	"return the signal number for SIGFP - 0 if not supported by OS
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	272	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	273
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	274	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	275	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	276
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	277	sigGRANT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	278	"return the signal number for SIGGRANT - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	279	(seems to be an AIX special)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	280
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	281	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	282	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	283
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	284	sigHUP
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	285	"return the signal number for SIGHUP
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	286	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	287
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	288	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	289	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	290
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	291	sigILL
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	292	"return the signal number for SIGILL - 0 if not supported by OS
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	293	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	294
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	295	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	296	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	297
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	298	sigINT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	299	"return the signal number for SIGINT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	300	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	301
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	302	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	303	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	304
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	305	sigIO
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	306	"return the signal number for SIGIO - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	307	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	308
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	309	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	310	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	311
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	312	sigIOT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	313	"return the signal number for SIGIOT - 0 if not supported by OS
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	314	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	315
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	316	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	317	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	318
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	319	sigKILL
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	320	"return the signal number for SIGKILL
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	321	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	322
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	323	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	324	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	325
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	326	sigLOST
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	327	"return the signal number for SIGLOST - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	328	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	329
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	330	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	331	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	332
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	333	sigMIGRATE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	334	"return the signal number for SIGMIGRATE - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	335	(seems to be an AIX special)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	336
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	337	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	338	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	339
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	340	sigMSG
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	341	"return the signal number for SIGMSG - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	342	(seems to be an AIX special)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	343
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	344	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	345	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	346
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	347	sigPIPE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	348	"return the signal number for SIGPIPE - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	349	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	350
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	351	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	352	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	353
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	354	sigPOLL
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	355	"return the signal number for SIGPOLL - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	356	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	357
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	358	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	359	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	360
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	361	sigPRE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	362	"return the signal number for SIGPRE - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	363	(seems to be an AIX special)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	364
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	365	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	366	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	367
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	368	sigPROF
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	369	"return the signal number for SIGPROF - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	370	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	371
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	372	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	373	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	374
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	375	sigPWR
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	376	"return the signal number for SIGPWR - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	377	(not available on all systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	378
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	379	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	380	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	381
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	382	sigQUIT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	383	"return the signal number for SIGQUIT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	384	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	385
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	386	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	387	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	388
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	389	sigRETRACT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	390	"return the signal number for SIGRETRACT - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	391	(seems to be an AIX special)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	392
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	393	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	394	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	395
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	396	sigSAK
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	397	"return the signal number for SIGSAK - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	398	(seems to be an AIX special)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	399
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	400	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	401	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	402
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	403	sigSEGV
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	404	"return the signal number for SIGSEGV - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	405	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	406
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	407	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	408	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	409
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	410	sigSOUND
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	411	"return the signal number for SIGSOUND - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	412	(seems to be an AIX special)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	413
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	414	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	415	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	416
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	417	sigSTOP
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	418	"return the signal number for SIGSTOP - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	419	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	420
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	421	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	422	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	423
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	424	sigSYS
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	425	"return the signal number for SIGSYS - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	426	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	427
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	428	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	429	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	430
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	431	sigTERM
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	432	"return the signal number for SIGTERM - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	433	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	434
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	435	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	436	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	437
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	438	sigTRAP
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	439	"return the signal number for SIGTRAP - 0 if not supported by OS
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	440	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	441
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	442	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	443	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	444
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	445	sigTSTP
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	446	"return the signal number for SIGTSTP - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	447	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	448
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	449	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	450	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	451
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	452	sigTTIN
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	453	"return the signal number for SIGTTIN - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	454	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	455
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	456	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	457	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	458
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	459	sigTTOU
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	460	"return the signal number for SIGTTOU - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	461	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	462
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	463	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	464	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	465
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	466	sigURG
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	467	"return the signal number for SIGURG - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	468	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	469
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	470	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	471	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	472
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	473	sigUSR1
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	474	"return the signal number for SIGUSR1 - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	475	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	476
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	477	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	478	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	479
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	480	sigUSR2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	481	"return the signal number for SIGUSR2 - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	482	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	483
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	484	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	485	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	486
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	487	sigVTALRM
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	488	"return the signal number for SIGVTALRM - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	489	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	490
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	491	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	492	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	493
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	494	sigWINCH
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	495	"return the signal number for SIGWINCH - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	496	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	497
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	498	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	499	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	500
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	501	sigXCPU
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	502	"return the signal number for SIGXCPU - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	503	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	504
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	505	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	506	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	507
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	508	sigXFSZ
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	509	"return the signal number for SIGXFSZ - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	510	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	511
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	512	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	513	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	514
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	515	!AbstractOperatingSystem class methodsFor:'Signal constants'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	516
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	517	accessDeniedErrorSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	518	"return the signal raised when a (file-) access is denied."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	519
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	520	^ AccessDeniedErrorSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	521	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	522
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	523	errorSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	524	"return the parent signal of all OS signals."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	525
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	526	^ ErrorSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	527
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	528	"Modified: 22.4.1996 / 13:11:31 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	529	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	530
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	531	fileNotFoundErrorSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	532	"return the signal raised when a file was not found."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	533
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	534	^ FileNotFoundErrorSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	535	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	536
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	537	invalidArgumentsSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	538	"return the signal which is raised for invalid arguments.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	539	Currently, this is never raised."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	540
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	541	^ InvalidArgumentsSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	542
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	543	"Created: 13.9.1997 / 10:46:47 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	544	"Modified: 13.9.1997 / 10:47:03 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	545	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	546
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	547	unsupportedOperationSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	548	"return the signal which is raised when an operation
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	549	is attempted, which is not supported by the OS.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	550	(For example, creating a link on VMS or MSDOS)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	551
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	552	^ UnsupportedOperationSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	553	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	554
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	555	!AbstractOperatingSystem class methodsFor:'change & update'!
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	556
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	557	update:something with:aParameter from:changedObject
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	558	((something == #Language) or:[something == #LanguageTerritory]) ifTrue:[
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	559	self initResources
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	560	]
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	561	! !
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	562
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	563	!AbstractOperatingSystem class methodsFor:'error messages'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	564
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	565	clearLastErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	566	"return the last errors number.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	567	See also: #lastErrorSymbol and #lastErrorString.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	568	Notice: having a single error number is a bad idea in a multithreaded
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	569	environment - this interface will change."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	570
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	571	LastErrorNumber := nil.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	572
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	573	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	574	AbstractOperatingSystem clearLastErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	575	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	576
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	577	"Created: 12.4.1996 / 09:28:58 / stefan"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	578	"Modified: 12.4.1996 / 09:38:51 / stefan"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	579	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	580
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	581	currentErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	582	"returns the OS's last error nr (i.e. the value of errno).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	583	Notice, that the value of this flag is only valid immediately
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	584	after the error occurred - it gets updated with every other
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	585	request to the OS.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	586	Use lastErrorNumber - currentErrorNumber is invalidated by
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	587	many, many internal calls."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	588
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	589	^ self lastErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	590
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	591	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	592	OperatingSystem currentErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	593	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	594	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	595
6284 5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	596	errorHolderForNumber:anInteger
5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	597
5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	598	^ self subclassResponsibility
5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	599	!
5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	600
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	601	errorNumberFor:aSymbol
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	602	"given a symbolic error, return the numeric;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	603	(i.e. errorNumberFor:#EBADF returns EBADF's value).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	604	Use this, since error numbers are really not standard across unix systems."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	605
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	606	^ -1
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	607	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	608
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	609	errorStringForSymbol:errorSymbol
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	610	"return an errorMessage for an errorSymbol
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	611	(as kept in an osErrorHolder)."
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	612
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	613	Resources isNil ifTrue:[
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	614	^ errorSymbol
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	615	].
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	616	^ Resources at:errorSymbol ifAbsent:errorSymbol
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	617
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	618	"
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	619	OperatingSystem errorStringForSymbol:#EPERM
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	620	OperatingSystem errorStringForSymbol:(OperatingSystem errorSymbolForNumber:4)
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	621	"
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	622	!
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	623
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	624	errorSymbolAndTextForNumber:errNr
6284 5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	625	"do not use - temporary for backward compatibility.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	626	The returned message is in english (as found in /usr/include/errno.h)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	627	and should be replaced by a resource lookup before being presented to the user."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	628
6284 5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	629	\|holder errSym\|
5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	630
5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	631	holder := self errorHolderForNumber:errNr.
5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	632	errSym := holder errorSymbol.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	633	^ Array
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	634	with:errSym
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	635	with:(self errorStringForSymbol:errSym)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	636
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	637	"
6287 f1a8f0ac8048 * empty log message * Stefan Vogel <sv@exept.de> parents: 6284 diff changeset	638	OperatingSystem errorSymbolAndTextForNumber:(OperatingSystem errorNumberFor:#EPERM)
f1a8f0ac8048 * empty log message * Stefan Vogel <sv@exept.de> parents: 6284 diff changeset	639	OperatingSystem errorSymbolAndTextForNumber:(OperatingSystem errorNumberFor:#EIO)
f1a8f0ac8048 * empty log message * Stefan Vogel <sv@exept.de> parents: 6284 diff changeset	640	OperatingSystem errorSymbolAndTextForNumber:(OperatingSystem errorNumberFor:#ENXIO)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	641	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	642	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	643
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	644	errorSymbolForNumber:errNr
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	645	"return a symbol for a unix errorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	646	(as returned by a system call)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	647
6284 5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	648	^ (self errorHolderForNumber:errNr) errorSymbol
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	649
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	650	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	651	OperatingSystem errorSymbolForNumber:4
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	652	OperatingSystem errorSymbolForNumber:2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	653	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	654	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	655
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	656	errorTextForNumber:errNr
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	657	"return a message string from a unix errorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	658	(as returned by a system call).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	659	The returned message is in english (as found in /usr/include/errno.h)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	660	and should be replaced by a resource lookup before being presented to the user."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	661
6284 5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	662	^ (self errorHolderForNumber:errNr) errorString
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	663
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	664	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	665	OperatingSystem errorTextForNumber:4
6279 e3ae1abe60bc checkin from browser Claus Gittinger <cg@exept.de> parents: 6278 diff changeset	666	OperatingSystem errorTextForNumber:(OperatingSystem errorNumberFor:#EPERM)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	667	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	668	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	669
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	670	lastErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	671	"return the last errors number.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	672	See also: #lastErrorSymbol and #lastErrorString.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	673	Notice: having a single error number is a bad idea in a multithreaded
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	674	environment - this interface will change."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	675
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	676	^ LastErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	677
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	678	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	679	OperatingSystem lastErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	680	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	681	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	682
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	683	lastErrorString
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	684	"return a message string describing the last error.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	685	See also: #lastErrorNumber and #lastErrorSymbol.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	686	Notice: having a single error number is a bad idea in a multithreaded
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	687	environment - this interface will change."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	688
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	689	LastErrorNumber isNil ifTrue:[^ nil].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	690	^ self errorTextForNumber:LastErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	691
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	692	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	693	OperatingSystem lastErrorString
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	694	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	695	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	696
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	697	lastErrorSymbol
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	698	"return a symbol (such as #EBADF or #EACCESS) describing the last error.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	699	See also: #lastErrorNumber and #lastErrorString.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	700	Notice: having a single error number is a bad idea in a multithreaded
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	701	environment - this interface will change."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	702
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	703	LastErrorNumber isNil ifTrue:[^ nil].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	704	^ self errorSymbolForNumber:LastErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	705
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	706	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	707	OperatingSystem lastErrorSymbol
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	708	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	709	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	710
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	711	!AbstractOperatingSystem class methodsFor:'executing OS commands'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	712
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	713	canExecuteCommand:aCommandString
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	714	"return true, if the OS can execute aCommand.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	715	For now, this only works with UNIX."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	716
7238 bebe209fe3fc canExecuteCommand - fix Claus Gittinger <cg@exept.de> parents: 7170 diff changeset	717	\|fn fullPath\|
bebe209fe3fc canExecuteCommand - fix Claus Gittinger <cg@exept.de> parents: 7170 diff changeset	718
bebe209fe3fc canExecuteCommand - fix Claus Gittinger <cg@exept.de> parents: 7170 diff changeset	719	fullPath := (self pathOfCommand:aCommandString).
bebe209fe3fc canExecuteCommand - fix Claus Gittinger <cg@exept.de> parents: 7170 diff changeset	720	fullPath isNil ifTrue:[^ false].
bebe209fe3fc canExecuteCommand - fix Claus Gittinger <cg@exept.de> parents: 7170 diff changeset	721	fn := fullPath asFilename.
bebe209fe3fc canExecuteCommand - fix Claus Gittinger <cg@exept.de> parents: 7170 diff changeset	722	^ fn exists and:[fn isExecutableProgram].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	723
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	724	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	725	OperatingSystem canExecuteCommand:'fooBar'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	726	OperatingSystem canExecuteCommand:'ls'
7067 da1e708b618d * empty log message * penk parents: 7059 diff changeset	727	OperatingSystem canExecuteCommand:'cvs'
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	728	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	729
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	730	"Created: 4.11.1995 / 19:13:54 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	731	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	732
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	733	commandAndArgsForOSCommand:aCommandString
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	734	"get a shell and shell arguments for command execution"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	735
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	736	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	737	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	738
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	739	executableFileExtensions
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	740	"return a collection of extensions for executable program files.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	741	Only req'd for msdos & vms like systems ..."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	742
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	743	^ #('')
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	744
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	745	"Created: 2.5.1997 / 11:42:29 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	746	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	747
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	748	executeCommand:aCommandString
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	749	"execute the unix command specified by the argument, aCommandString.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	750	The commandString is passed to a shell for execution - see the description of
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	751	'sh -c' in your UNIX manual.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	752	Return true if successful, false otherwise."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	753
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	754	^ self
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	755	executeCommand:aCommandString
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	756	inputFrom:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	757	outputTo:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	758	errorTo:nil
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	759	auxFrom:nil
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	760	inDirectory:nil
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	761	lineWise:false
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	762	onError:[:status\| false]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	763
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	764	"unix:
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	765
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	766	OperatingSystem executeCommand:'sleep 30'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	767	OperatingSystem executeCommand:'pwd'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	768	OperatingSystem executeCommand:'ls -l'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	769	OperatingSystem executeCommand:'invalidCommand'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	770	OperatingSystem executeCommand:'rm /tmp/foofoofoofoo'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	771	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	772
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	773	"msdos:
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	774
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	775	OperatingSystem executeCommand:'dir'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	776	OperatingSystem executeCommand:'dir /w'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	777	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	778
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	779	"vms:
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	780
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	781	OperatingSystem executeCommand:'dir'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	782	OperatingSystem executeCommand:'purge'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	783	OperatingSystem executeCommand:'cc foo.c'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	784	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	785
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	786	"Modified: / 7.1.1997 / 19:29:55 / stefan"
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	787	"Modified: / 10.11.1998 / 20:55:37 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	788	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	789
7135 068fc25d90b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 7119 diff changeset	790	executeCommand:aCommandString errorTo:errorStream
068fc25d90b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 7119 diff changeset	791	"execute the unix command specified by the argument, aCommandString.
068fc25d90b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 7119 diff changeset	792	The commandString is passed to a shell for execution - see the description of
068fc25d90b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 7119 diff changeset	793	'sh -c' in your UNIX manual.
068fc25d90b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 7119 diff changeset	794	Return true if successful, false otherwise."
068fc25d90b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 7119 diff changeset	795
068fc25d90b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 7119 diff changeset	796	^ self
068fc25d90b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 7119 diff changeset	797	executeCommand:aCommandString
068fc25d90b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 7119 diff changeset	798	inputFrom:nil
068fc25d90b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 7119 diff changeset	799	outputTo:nil
068fc25d90b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 7119 diff changeset	800	errorTo:errorStream
068fc25d90b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 7119 diff changeset	801	auxFrom:nil
068fc25d90b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 7119 diff changeset	802	inDirectory:nil
068fc25d90b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 7119 diff changeset	803	lineWise:false
068fc25d90b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 7119 diff changeset	804	onError:[:status\| false]
068fc25d90b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 7119 diff changeset	805
068fc25d90b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 7119 diff changeset	806	"unix:
068fc25d90b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 7119 diff changeset	807
068fc25d90b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 7119 diff changeset	808	OperatingSystem executeCommand:'ls -l' errorTo:Transcript.
068fc25d90b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 7119 diff changeset	809	OperatingSystem executeCommand:'invalidCommand' errorTo:Transcript.
068fc25d90b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 7119 diff changeset	810	OperatingSystem executeCommand:'rm /tmp/foofoofoofoo' errorTo:Transcript.
068fc25d90b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 7119 diff changeset	811	"
068fc25d90b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 7119 diff changeset	812	!
068fc25d90b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 7119 diff changeset	813
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	814	executeCommand:aCommandString inDirectory:aDirectory
7059 6781d12b989a Fix #executeCommand:.... Stefan Vogel <sv@exept.de> parents: 6793 diff changeset	815	"execute the unix command specified by the argument, aCommandString.
6781d12b989a Fix #executeCommand:.... Stefan Vogel <sv@exept.de> parents: 6793 diff changeset	816	The commandString is passed to a shell for execution - see the description of
6781d12b989a Fix #executeCommand:.... Stefan Vogel <sv@exept.de> parents: 6793 diff changeset	817	'sh -c' in your UNIX manual.
6781d12b989a Fix #executeCommand:.... Stefan Vogel <sv@exept.de> parents: 6793 diff changeset	818	Return true if successful, false otherwise."
6781d12b989a Fix #executeCommand:.... Stefan Vogel <sv@exept.de> parents: 6793 diff changeset	819
6781d12b989a Fix #executeCommand:.... Stefan Vogel <sv@exept.de> parents: 6793 diff changeset	820	^ self
6781d12b989a Fix #executeCommand:.... Stefan Vogel <sv@exept.de> parents: 6793 diff changeset	821	executeCommand:aCommandString
6781d12b989a Fix #executeCommand:.... Stefan Vogel <sv@exept.de> parents: 6793 diff changeset	822	inputFrom:nil
6781d12b989a Fix #executeCommand:.... Stefan Vogel <sv@exept.de> parents: 6793 diff changeset	823	outputTo:nil
6781d12b989a Fix #executeCommand:.... Stefan Vogel <sv@exept.de> parents: 6793 diff changeset	824	errorTo:nil
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	825	auxFrom:nil
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	826	inDirectory:aDirectory
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	827	lineWise:false
7059 6781d12b989a Fix #executeCommand:.... Stefan Vogel <sv@exept.de> parents: 6793 diff changeset	828	onError:[:exitStatus\| false]
6781d12b989a Fix #executeCommand:.... Stefan Vogel <sv@exept.de> parents: 6793 diff changeset	829
6781d12b989a Fix #executeCommand:.... Stefan Vogel <sv@exept.de> parents: 6793 diff changeset	830	"Modified: / 10.11.1998 / 20:54:37 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	831	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	832
4849 439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	833	executeCommand:aCommandString inDirectory:aDirectory onError:aBlock
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	834	"execute the unix command specified by the argument, aCommandString.
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	835	The commandString is passed to a shell for execution - see the description of
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	836	'sh -c' in your UNIX manual.
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	837	Return true if successful, the value from aBlock if not.
4849 439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	838	If not successfull, aBlock is called with an OsProcessStatus
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	839	(containing the exit status) as argument."
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	840
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	841	^ self
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	842	executeCommand:aCommandString
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	843	inputFrom:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	844	outputTo:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	845	errorTo:nil
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	846	auxFrom:nil
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	847	inDirectory:aDirectory
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	848	lineWise:false
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	849	onError:aBlock
4849 439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	850
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	851	"Modified: / 10.11.1998 / 20:54:37 / cg"
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	852	!
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	853
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	854	executeCommand:aCommandString inputFrom:anInStream outputTo:anOutStream
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	855	errorTo:anErrStream auxFrom:anAuxStream environment:environmentDictionary
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	856	inDirectory:dirOrNil lineWise:lineWise onError:aBlock
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	857
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	858	"execute the unix command specified by the argument, aCommandString.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	859	The commandString is passed to a shell for execution - see the description of
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	860	'sh -c' in your UNIX manual.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	861	Return true if successful, or the value of aBlock if not.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	862	If not successfull, aBlock is called with an OsProcessStatus
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	863	(containing the exit status) as argument.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	864	The given in, out and err streams may be arbitrary (Smalltalk-) streams;
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	865	if any is not an external stream (which is required by the command),
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	866	extra pipes and shuffler processes are created, which stuff the data into
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	867	those internal stream(s).
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	868	Nil stream args will execute the command connected to ST/X's standard input, output or
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	869	error resp. - i.e. usually, i/o will be from/to the terminal"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	870
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	871	\|pid exitStatus sema pIn pOut pErr pAux externalInStream externalOutStream externalErrStream externalAuxStream
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	872	shuffledInStream shuffledOutStream shuffledErrStream shuffledAuxStream
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	873	inputShufflerProcess outputShufflerProcess errorShufflerProcess auxShufflerProcess stopShufflers
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	874	inStreamToClose outStreamToClose errStreamToClose auxStreamToClose terminateLock\|
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	875
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	876	terminateLock := Semaphore forMutualExclusion.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	877	((externalInStream := anInStream) notNil
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	878	and:[externalInStream isExternalStream not]) ifTrue:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	879	pIn := ExternalStream makePipe.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	880	inStreamToClose := externalInStream := pIn at:1.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	881	shuffledInStream := pIn at:2.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	882	lineWise ifTrue:[shuffledInStream buffered:false].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	883
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	884	"/ start a reader process, shuffling data from the given
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	885	"/ inStream to the pipe (which is connected to the commands input)
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	886	inputShufflerProcess := [
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	887	[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	888	[anInStream atEnd] whileFalse:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	889	self shuffleFrom:anInStream to:shuffledInStream lineWise:lineWise.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	890	shuffledInStream flush
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	891	]
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	892	] ensure:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	893	shuffledInStream close
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	894	]
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	895	] forkNamed:'cmd input shuffler'.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	896	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	897	((externalOutStream := anOutStream) notNil
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	898	and:[externalOutStream isExternalStream not]) ifTrue:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	899	pOut := ExternalStream makePipe.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	900	shuffledOutStream := (pOut at:1).
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	901	outStreamToClose := externalOutStream := pOut at:2.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	902	lineWise ifTrue:[shuffledOutStream buffered:false].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	903	outputShufflerProcess :=
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	904	[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	905	self shuffleAllFrom:shuffledOutStream to:anOutStream lineWise:lineWise lockWith:terminateLock.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	906	] forkNamed:'cmd output shuffler'.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	907	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	908	(externalErrStream := anErrStream) notNil ifTrue:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	909	anErrStream == anOutStream ifTrue:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	910	externalErrStream := externalOutStream
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	911	] ifFalse:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	912	anErrStream isExternalStream ifFalse:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	913	pErr := ExternalStream makePipe.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	914	shuffledErrStream := (pErr at:1).
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	915	errStreamToClose := externalErrStream := pErr at:2.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	916
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	917	lineWise ifTrue:[shuffledErrStream buffered:false].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	918	errorShufflerProcess :=
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	919	[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	920	self shuffleAllFrom:shuffledErrStream to:anErrStream lineWise:lineWise lockWith:terminateLock.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	921	] forkNamed:'cmd err-output shuffler'.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	922	]
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	923	]
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	924	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	925	((externalAuxStream := anAuxStream) notNil
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	926	and:[externalAuxStream isExternalStream not]) ifTrue:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	927	pAux := ExternalStream makePipe.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	928	auxStreamToClose := externalAuxStream := pAux at:1.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	929	shuffledAuxStream := pAux at:2.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	930
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	931	"/ start a reader process, shuffling data from the given
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	932	"/ auxStream to the pipe (which is connected to the commands aux)
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	933	auxShufflerProcess := [
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	934	[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	935	[anAuxStream atEnd] whileFalse:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	936	self shuffleFrom:anAuxStream to:shuffledAuxStream lineWise:false.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	937	shuffledAuxStream flush
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	938	]
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	939	] ensure:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	940	shuffledAuxStream close
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	941	]
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	942	] forkNamed:'cmd aux shuffler'.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	943	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	944
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	945	sema := Semaphore new name:'OS command wait'.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	946	pid := Processor
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	947	monitor:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	948	self
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	949	startProcess:aCommandString
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	950	inputFrom:externalInStream
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	951	outputTo:externalOutStream
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	952	errorTo:externalErrStream
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	953	auxFrom:externalAuxStream
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	954	environment:environmentDictionary
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	955	inDirectory:dirOrNil
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	956	]
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	957	action:[:status \|
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	958	status stillAlive ifFalse:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	959	exitStatus := status.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	960	sema signal.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	961	self closePid:pid
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	962	]
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	963	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	964
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	965	inStreamToClose notNil ifTrue:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	966	inStreamToClose close
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	967	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	968	errStreamToClose notNil ifTrue:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	969	errStreamToClose close
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	970	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	971	outStreamToClose notNil ifTrue:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	972	outStreamToClose close
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	973	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	974	auxStreamToClose notNil ifTrue:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	975	auxStreamToClose close
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	976	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	977
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	978	stopShufflers := [
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	979	inputShufflerProcess notNil ifTrue:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	980	terminateLock critical:[inputShufflerProcess terminate].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	981	inputShufflerProcess waitUntilTerminated
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	982	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	983	auxShufflerProcess notNil ifTrue:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	984	terminateLock critical:[auxShufflerProcess terminate].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	985	auxShufflerProcess waitUntilTerminated
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	986	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	987	outputShufflerProcess notNil ifTrue:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	988	terminateLock critical:[outputShufflerProcess terminate].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	989	outputShufflerProcess waitUntilTerminated.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	990	self shuffleRestFrom:shuffledOutStream to:anOutStream lineWise:lineWise.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	991	shuffledOutStream close.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	992	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	993	errorShufflerProcess notNil ifTrue:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	994	terminateLock critical:[errorShufflerProcess terminate].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	995	errorShufflerProcess waitUntilTerminated.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	996	self shuffleRestFrom:shuffledErrStream to:anErrStream lineWise:lineWise.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	997	shuffledErrStream close.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	998	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	999	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1000
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1001	pid notNil ifTrue:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1002	[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1003	sema wait.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1004	] ifCurtailed:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1005	"/ terminate the os-command (and all of its forked commands)
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1006	self terminateProcessGroup:pid.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1007	self terminateProcess:pid.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1008	self closePid:pid.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1009	stopShufflers value.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1010	]
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1011	] ifFalse:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1012	exitStatus := self osProcessStatusClass processCreationFailure
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1013	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1014	stopShufflers value.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1015	exitStatus success ifFalse:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1016	^ aBlock value:exitStatus
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1017	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1018	^ true
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1019
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1020	"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1021	\|outStream errStream\|
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1022
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1023	outStream := '' writeStream.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1024
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1025	OperatingSystem executeCommand:'ls -l'
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1026	inputFrom:'abc' readStream
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1027	outputTo:outStream
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1028	errorTo:nil
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1029	inDirectory:nil
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1030	lineWise:true
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1031	onError:[:exitStatus \| ^ false].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1032	outStream contents
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1033	"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1034
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1035	"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1036	\|outStream errStream\|
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1037
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1038	outStream := '' writeStream.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1039
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1040	OperatingSystem executeCommand:'gpg -s --batch --no-tty --passphrase-fd 0 /tmp/passwd'
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1041	inputFrom:'bla' readStream
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1042	outputTo:outStream
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1043	errorTo:nil
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1044	inDirectory:nil
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1045	lineWise:true
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1046	onError:[:exitStatus \| false].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1047	outStream contents
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1048	"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1049	!
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1050
7110 808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1051	executeCommand:aCommandString inputFrom:anInStream outputTo:anOutStream errorTo:anErrStream auxFrom:anAuxStream inDirectory:dirOrNil lineWise:lineWise onError:aBlock
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1052	"execute the unix command specified by the argument, aCommandString.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1053	The commandString is passed to a shell for execution - see the description of
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1054	'sh -c' in your UNIX manual.
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1055	Return true if successful, or the value of aBlock if not.
7110 808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1056	If not successfull, aBlock is called with an OsProcessStatus
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1057	(containing the exit status) as argument.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1058	The given in, out and err streams may be arbitrary (Smalltalk-) streams;
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1059	if any is not an external stream (which is required by the command),
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1060	extra pipes and shuffler processes are created, which stuff the data into
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1061	those internal stream(s).
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1062	Nil stream args will execute the command connected to ST/X's standard input, output or
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1063	error resp. - i.e. usually, i/o will be from/to the terminal"
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1064
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1065	\|pid exitStatus sema pIn pOut pErr pAux externalInStream externalOutStream externalErrStream externalAuxStream
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1066	shuffledInStream shuffledOutStream shuffledErrStream shuffledAuxStream
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1067	inputShufflerProcess outputShufflerProcess errorShufflerProcess auxShufflerProcess stopShufflers
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1068	inStreamToClose outStreamToClose errStreamToClose auxStreamToClose terminateLock\|
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1069
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1070	terminateLock := Semaphore forMutualExclusion.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1071	((externalInStream := anInStream) notNil
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1072	and:[externalInStream isExternalStream not]) ifTrue:[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1073	pIn := ExternalStream makePipe.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1074	inStreamToClose := externalInStream := pIn at:1.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1075	shuffledInStream := pIn at:2.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1076	lineWise ifTrue:[shuffledInStream buffered:false].
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1077
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1078	"/ start a reader process, shuffling data from the given
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1079	"/ inStream to the pipe (which is connected to the commands input)
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1080	inputShufflerProcess := [
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1081	[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1082	[anInStream atEnd] whileFalse:[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1083	self shuffleFrom:anInStream to:shuffledInStream lineWise:lineWise.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1084	shuffledInStream flush
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1085	]
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1086	] ensure:[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1087	shuffledInStream close
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1088	]
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1089	] forkNamed:'cmd input shuffler'.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1090	].
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1091	((externalOutStream := anOutStream) notNil
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1092	and:[externalOutStream isExternalStream not]) ifTrue:[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1093	pOut := ExternalStream makePipe.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1094	shuffledOutStream := (pOut at:1).
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1095	outStreamToClose := externalOutStream := pOut at:2.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1096	lineWise ifTrue:[shuffledOutStream buffered:false].
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1097	outputShufflerProcess :=
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1098	[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1099	self shuffleAllFrom:shuffledOutStream to:anOutStream lineWise:lineWise lockWith:terminateLock.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1100	] forkNamed:'cmd output shuffler'.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1101	].
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1102	(externalErrStream := anErrStream) notNil ifTrue:[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1103	anErrStream == anOutStream ifTrue:[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1104	externalErrStream := externalOutStream
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1105	] ifFalse:[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1106	anErrStream isExternalStream ifFalse:[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1107	pErr := ExternalStream makePipe.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1108	shuffledErrStream := (pErr at:1).
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1109	errStreamToClose := externalErrStream := pErr at:2.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1110
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1111	lineWise ifTrue:[shuffledErrStream buffered:false].
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1112	errorShufflerProcess :=
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1113	[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1114	self shuffleAllFrom:shuffledErrStream to:anErrStream lineWise:lineWise lockWith:terminateLock.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1115	] forkNamed:'cmd err-output shuffler'.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1116	]
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1117	]
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1118	].
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1119	((externalAuxStream := anAuxStream) notNil
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1120	and:[externalAuxStream isExternalStream not]) ifTrue:[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1121	pAux := ExternalStream makePipe.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1122	auxStreamToClose := externalAuxStream := pAux at:1.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1123	shuffledAuxStream := pAux at:2.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1124
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1125	"/ start a reader process, shuffling data from the given
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1126	"/ auxStream to the pipe (which is connected to the commands aux)
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1127	auxShufflerProcess := [
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1128	[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1129	[anAuxStream atEnd] whileFalse:[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1130	self shuffleFrom:anAuxStream to:shuffledAuxStream lineWise:false.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1131	shuffledAuxStream flush
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1132	]
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1133	] ensure:[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1134	shuffledAuxStream close
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1135	]
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1136	] forkNamed:'cmd aux shuffler'.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1137	].
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1138
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1139	sema := Semaphore new name:'OS command wait'.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1140	pid := Processor
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1141	monitor:[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1142	self
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1143	startProcess:aCommandString
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1144	inputFrom:externalInStream
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1145	outputTo:externalOutStream
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1146	errorTo:externalErrStream
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1147	auxFrom:externalAuxStream
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1148	inDirectory:dirOrNil
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1149	]
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1150	action:[:status \|
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1151	status stillAlive ifFalse:[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1152	exitStatus := status.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1153	sema signal.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1154	self closePid:pid
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1155	]
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1156	].
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1157
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1158	inStreamToClose notNil ifTrue:[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1159	inStreamToClose close
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1160	].
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1161	errStreamToClose notNil ifTrue:[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1162	errStreamToClose close
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1163	].
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1164	outStreamToClose notNil ifTrue:[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1165	outStreamToClose close
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1166	].
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1167	auxStreamToClose notNil ifTrue:[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1168	auxStreamToClose close
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1169	].
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1170
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1171	stopShufflers := [
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1172	inputShufflerProcess notNil ifTrue:[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1173	terminateLock critical:[inputShufflerProcess terminate].
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1174	inputShufflerProcess waitUntilTerminated
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1175	].
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1176	auxShufflerProcess notNil ifTrue:[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1177	terminateLock critical:[auxShufflerProcess terminate].
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1178	auxShufflerProcess waitUntilTerminated
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1179	].
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1180	outputShufflerProcess notNil ifTrue:[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1181	terminateLock critical:[outputShufflerProcess terminate].
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1182	outputShufflerProcess waitUntilTerminated.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1183	self shuffleRestFrom:shuffledOutStream to:anOutStream lineWise:lineWise.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1184	shuffledOutStream close.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1185	].
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1186	errorShufflerProcess notNil ifTrue:[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1187	terminateLock critical:[errorShufflerProcess terminate].
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1188	errorShufflerProcess waitUntilTerminated.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1189	self shuffleRestFrom:shuffledErrStream to:anErrStream lineWise:lineWise.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1190	shuffledErrStream close.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1191	].
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1192	].
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1193
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1194	pid notNil ifTrue:[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1195	[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1196	sema wait.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1197	] ifCurtailed:[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1198	"/ terminate the os-command (and all of its forked commands)
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1199	self terminateProcessGroup:pid.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1200	self terminateProcess:pid.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1201	self closePid:pid.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1202	stopShufflers value.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1203	]
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1204	] ifFalse:[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1205	exitStatus := self osProcessStatusClass processCreationFailure
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1206	].
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1207	stopShufflers value.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1208	exitStatus success ifFalse:[
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1209	^ aBlock value:exitStatus
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1210	].
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1211	^ true
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1212
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1213	"
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1214	\|outStream errStream\|
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1215
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1216	outStream := '' writeStream.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1217
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1218	OperatingSystem executeCommand:'ls -l'
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1219	inputFrom:'abc' readStream
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1220	outputTo:outStream
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1221	errorTo:nil
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1222	inDirectory:nil
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1223	lineWise:true
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1224	onError:[:exitStatus \| ^ false].
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1225	outStream contents
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1226	"
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1227
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1228	"
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1229	\|outStream errStream\|
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1230
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1231	outStream := '' writeStream.
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1232
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1233	OperatingSystem executeCommand:'gpg -s --batch --no-tty --passphrase-fd 0 /tmp/passwd'
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1234	inputFrom:'bla' readStream
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1235	outputTo:outStream
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1236	errorTo:nil
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1237	inDirectory:nil
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1238	lineWise:true
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1239	onError:[:exitStatus \| false].
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1240	outStream contents
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1241	"
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1242	!
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1243
6610 02a2d5b5cfe0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6605 diff changeset	1244	executeCommand:aCommandString inputFrom:anInStream outputTo:anOutStream errorTo:anErrStream inDirectory:dirOrNil lineWise:lineWise onError:aBlock
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1245	"execute the unix command specified by the argument, aCommandString.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1246	The commandString is passed to a shell for execution - see the description of
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1247	'sh -c' in your UNIX manual.
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1248	Return true if successful, the value from aBlock if not.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1249	If not successfull, aBlock is called with an OsProcessStatus
4847 6d3b5959198f enhanced executeCommand; Claus Gittinger <cg@exept.de> parents: 4377 diff changeset	1250	(containing the exit status) as argument.
6d3b5959198f enhanced executeCommand; Claus Gittinger <cg@exept.de> parents: 4377 diff changeset	1251	The given in, out and err streams may be arbitrary (Smalltalk-) streams;
6d3b5959198f enhanced executeCommand; Claus Gittinger <cg@exept.de> parents: 4377 diff changeset	1252	if any is not an external stream (which is required by the command),
6d3b5959198f enhanced executeCommand; Claus Gittinger <cg@exept.de> parents: 4377 diff changeset	1253	extra pipes and shuffler processes are created, which stuff the data into
6d3b5959198f enhanced executeCommand; Claus Gittinger <cg@exept.de> parents: 4377 diff changeset	1254	those internal stream(s).
7059 6781d12b989a Fix #executeCommand:.... Stefan Vogel <sv@exept.de> parents: 6793 diff changeset	1255	Nil stream args will execute the command connected to ST/X's standard input, output or
6781d12b989a Fix #executeCommand:.... Stefan Vogel <sv@exept.de> parents: 6793 diff changeset	1256	error resp. - i.e. usually, i/o will be from/to the terminal"
6610 02a2d5b5cfe0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6605 diff changeset	1257
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1258	^ self
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1259	executeCommand:aCommandString
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1260	inputFrom:anInStream
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1261	outputTo:anOutStream
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1262	errorTo:anErrStream
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1263	auxFrom:nil
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1264	inDirectory:dirOrNil
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1265	lineWise:lineWise
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1266	onError:aBlock
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1267	!
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1268
6162 5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1269	executeCommand:aCommandString inputFrom:anInStream outputTo:anOutStream errorTo:anErrStream inDirectory:dirOrNil onError:aBlock
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1270	"execute the unix command specified by the argument, aCommandString.
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1271	The commandString is passed to a shell for execution - see the description of
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1272	'sh -c' in your UNIX manual.
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1273	Return true if successful, the value from aBlock if not.
6162 5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1274	If not successfull, aBlock is called with an OsProcessStatus
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1275	(containing the exit status) as argument.
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1276	The given in, out and err streams may be arbitrary (Smalltalk-) streams;
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1277	if any is not an external stream (which is required by the command),
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1278	extra pipes and shuffler processes are created, which stuff the data into
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1279	those internal stream(s).
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1280	Nil stream args will execute the command connected to ST/X's input, output or
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1281	error resp. - i.e. i/o will be from/to the xterminal"
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1282
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1283	^ self
7071 f064e8109832 must close ALL files in forked child process ca parents: 7069 diff changeset	1284	executeCommand:aCommandString
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1285	inputFrom:anInStream
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1286	outputTo:anOutStream
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1287	errorTo:anErrStream
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1288	auxFrom:nil
7071 f064e8109832 must close ALL files in forked child process ca parents: 7069 diff changeset	1289	inDirectory:dirOrNil
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1290	lineWise:false
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1291	onError:aBlock
6162 5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1292
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1293	"
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1294	OperatingSystem
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1295	executeCommand:'dir'
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1296	inputFrom:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1297	outputTo:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1298	errorTo:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1299	onError:[:status \| Transcript flash]
6162 5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1300
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1301	OperatingSystem
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1302	executeCommand:'foo'
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1303	inputFrom:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1304	outputTo:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1305	errorTo:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1306	onError:[:status \| Transcript flash]
6162 5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1307
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1308	\|s\|
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1309	s := '' writeStream.
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1310	OperatingSystem
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1311	executeCommand:'ls -l'
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1312	inputFrom:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1313	outputTo:s
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1314	errorTo:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1315	onError:[:status \| Transcript flash].
6162 5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1316	Transcript showCR:s contents.
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1317
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1318	\|s\|
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1319	s := '' writeStream.
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1320	OperatingSystem
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1321	executeCommand:'sh foo'
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1322	inputFrom:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1323	outputTo:s
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1324	errorTo:s
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1325	onError:[:status \| Transcript flash].
6162 5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1326	Transcript showCR:s contents.
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1327	"
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1328
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1329	"Modified: / 25.3.1997 / 11:02:02 / stefan"
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1330	"Modified: / 28.1.1998 / 14:46:36 / md"
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1331	"Modified: / 10.11.1998 / 20:48:08 / cg"
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1332	"Created: / 10.11.1998 / 20:51:11 / cg"
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1333	!
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1334
6610 02a2d5b5cfe0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6605 diff changeset	1335	executeCommand:aCommandString inputFrom:anInStream outputTo:anOutStream errorTo:anErrStream onError:aBlock
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1336	"execute the unix command specified by the argument, aCommandString.
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1337	The commandString is passed to a shell for execution - see the description of
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1338	'sh -c' in your UNIX manual.
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1339	Return true if successful, the value from aBlock if not.
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1340	If not successfull, aBlock is called with an OsProcessStatus
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1341	(containing the exit status) as argument."
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1342
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1343	^ self
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1344	executeCommand:aCommandString
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1345	inputFrom:anInStream
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1346	outputTo:anOutStream
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1347	errorTo:anErrStream
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1348	auxFrom:nil
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1349	inDirectory:nil
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1350	lineWise:false
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1351	onError:aBlock
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1352
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1353	"
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1354	OperatingSystem
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1355	executeCommand:'dir'
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1356	inputFrom:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1357	outputTo:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1358	errorTo:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1359	onError:[:status \| Transcript flash]
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1360
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1361	OperatingSystem
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1362	executeCommand:'foo'
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1363	inputFrom:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1364	outputTo:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1365	errorTo:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1366	onError:[:status \| Transcript flash]
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1367	"
6610 02a2d5b5cfe0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6605 diff changeset	1368	"
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1369	\|outStr errStr\|
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1370
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1371	outStr := '' writeStream.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1372	errStr := '' writeStream.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1373	OperatingSystem
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1374	executeCommand:'ls'
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1375	inputFrom:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1376	outputTo:outStr
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1377	errorTo:errStr
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1378	onError:[:status \| Transcript flash].
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1379	Transcript show:'out:'; showCR:outStr contents.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1380	Transcript show:'err:'; showCR:errStr contents.
6610 02a2d5b5cfe0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6605 diff changeset	1381	"
02a2d5b5cfe0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6605 diff changeset	1382	"
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1383	\|outStr errStr\|
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1384
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1385	outStr := '' writeStream.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1386	errStr := '' writeStream.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1387	OperatingSystem
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1388	executeCommand:'ls /fooBar'
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1389	inputFrom:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1390	outputTo:outStr
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1391	errorTo:errStr
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1392	onError:[:status \| Transcript flash].
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1393	Transcript show:'out:'; showCR:outStr contents.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1394	Transcript show:'err:'; showCR:errStr contents.
6610 02a2d5b5cfe0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6605 diff changeset	1395	"
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1396
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1397	"Modified: / 10.11.1998 / 20:51:39 / cg"
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1398	!
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1399
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1400	executeCommand:aCommandString onError:aBlock
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1401	"execute the unix command specified by the argument, aCommandString.
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1402	The commandString is passed to a shell for execution - see the description of
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1403	'sh -c' in your UNIX manual.
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1404	Return true if successful, the value from aBlock if not.
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1405	If not successfull, aBlock is called with an OsProcessStatus
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1406	(containing the exit status) as argument."
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1407
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1408	^ self
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1409	executeCommand:aCommandString
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1410	inputFrom:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1411	outputTo:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1412	errorTo:nil
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1413	auxFrom:nil
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1414	inDirectory:nil
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1415	lineWise:false
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1416	onError:aBlock
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1417
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1418	"unix:
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1419
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1420	OperatingSystem executeCommand:'sleep 30' onError:[].
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1421	OperatingSystem executeCommand:'pwd' onError:[:status\|status inspect].
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1422	OperatingSystem executeCommand:'ls -l' onError:[].
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1423	OperatingSystem executeCommand:'invalidCommand' onError:[:status\| status inspect].
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1424	OperatingSystem executeCommand:'rm /tmp/foofoofoofoo'onError:[:status \| status inspect].
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1425
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1426	OperatingSystem executeCommand:'dir' onError:[].
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1427	OperatingSystem executeCommand:'foo' onError:[].
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1428
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1429	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1430
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1431	"Modified: / 25.3.1997 / 11:06:43 / stefan"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1432	"Modified: / 28.1.1998 / 14:46:56 / md"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1433	"Created: / 5.6.1998 / 19:02:09 / cg"
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1434	"Modified: / 10.11.1998 / 20:55:02 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1435	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1436
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1437	executeCommand:aCommandString onError:aBlock inDirectory:aDirectory
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1438	"OBSOLETE for backward compatibility.
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1439	execute the unix command specified by the argument, aCommandString.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1440	The commandString is passed to a shell for execution - see the description of
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1441	'sh -c' in your UNIX manual.
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1442	Return true if successful, the value from aBlock if not.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1443	If not successfull, aBlock is called with an OsProcessStatus
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1444	(containing the exit status) as argument."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1445
5861 24ee164045bd Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 5857 diff changeset	1446	<resource:#obsolete>
24ee164045bd Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 5857 diff changeset	1447
4849 439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1448	self obsoleteMethodWarning:'use executeCommand:inDirectory:onError:'.
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1449
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1450	^ self
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1451	executeCommand:aCommandString
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1452	inputFrom:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1453	outputTo:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1454	errorTo:nil
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1455	auxFrom:nil
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1456	inDirectory:aDirectory
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1457	lineWise:false
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1458	onError:aBlock
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1459
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1460	"Modified: / 10.11.1998 / 20:54:37 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1461	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1462
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1463	executeCommand:aCommandString outputTo:anOutStreamOrNil
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1464	"execute the unix command specified by the argument, aCommandString.
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1465	The commandString is passed to a shell for execution - see the description of
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1466	'sh -c' in your UNIX manual.
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1467	Return true if successful, false otherwise."
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1468
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1469	^ self
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1470	executeCommand:aCommandString
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1471	inputFrom:nil
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1472	outputTo:anOutStreamOrNil
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1473	errorTo:nil
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1474	auxFrom:nil
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1475	inDirectory:nil
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1476	lineWise:false
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1477	onError:[:status\| false]
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1478
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1479	"
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1480	String streamContents:[:s\|OperatingSystem
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1481	executeCommand:'ls'
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1482	outputTo:s
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1483	]
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1484	"
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1485
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1486	"
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1487	String streamContents:[:s\|OperatingSystem
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1488	executeCommand:'pwd'
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1489	outputTo:s
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1490	]
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1491	"
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1492	!
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1493
4849 439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1494	executeCommand:aCommandString outputTo:outStreamOrNil errorTo:errStreamOrNil inDirectory:aDirectory
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1495	"much like #executeCommand:, but changes the current directory
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1496	for the command. Since this is OS specific, use this instead of
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1497	hardwiring any 'cd ..' command strings into your applictions."
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1498
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1499	^ self
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1500	executeCommand:aCommandString
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1501	inputFrom:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1502	outputTo:outStreamOrNil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1503	errorTo:errStreamOrNil
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1504	auxFrom:nil
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1505	inDirectory:aDirectory
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1506	lineWise:false
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1507	onError:[:status\| false]
4849 439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1508
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1509	"
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1510	OperatingSystem executeCommand:'tdump date.obj' inDirectory:'c:\winstx\stx\libbasic\objbc'.
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1511	OperatingSystem executeCommand:'xxdir date.obj' inDirectory:'c:\winstx\stx\libbasic\objbc'.
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1512	OperatingSystem executeCommand:'dir' inDirectory:'c:\'.
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1513	OperatingSystem executeCommand:'dir'
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1514	"
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1515
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1516	"Modified: / 20.1.1998 / 17:03:03 / md"
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1517	"Modified: / 10.11.1998 / 20:28:10 / cg"
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1518	"Created: / 10.11.1998 / 21:05:45 / cg"
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1519	!
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1520
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1521	getCommandOutputFrom:aCommand
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1522	"execute a simple command (such as hostname) and
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1523	return the commands first line of output as a string (forget stdErr).
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1524	If the command generates multiple output lines, only the first line is returned.
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1525	If the commands does not generate any output, an empty string is returned;
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1526	if the command fails, nil is returned."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1527
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1528	\|result\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1529
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1530	result := self getCommandOutputFrom:aCommand maxNumberOfLines:1 errorDisposition:#discard.
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1531	result notNil ifTrue:[
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1532	^ result firstIfEmpty:['']
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1533	].
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1534	^ result
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1535
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1536	"
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1537	OperatingSystem getCommandOutputFrom:'hostname'
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1538	OperatingSystem getCommandOutputFrom:'pwd'
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1539	OperatingSystem getCommandOutputFrom:'sleep 1'
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1540	OperatingSystem getCommandOutputFrom:'foo'
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1541	"
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1542
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1543	!
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1544
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1545	getCommandOutputFrom:aCommand maxNumberOfLines:numLinesOrNil errorDisposition:errorDisposition
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1546	"execute a simple command (such as hostname) and
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1547	return the commands output as a collection of strings,
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1548	but only up to the given number of lines (if non-nil).
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1549	If the command generates more output, only the first nLines are returned
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1550	(but the command is allowed to finish execution).
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1551	If the commands does not generate any output, an empty string is returned;
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1552	if the command fails, nil is returned.
433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1553	errorDisposition controls where the stdErr output should go,
433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1554	and may be one of #discard, #inline or #stderr (default).
433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1555	#discard causes stderr to be discarded (/dev/null),
433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1556	#inline causes it to be written to smalltalks own stdout and
433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1557	#stderr causes it to be written to smalltalks own stderr.
433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1558	Nil is treated like #stderr"
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1559
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1560	\|result\|
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1561
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	1562	PipeFailed ~~ true ifTrue:[
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1563	PipeStream openErrorSignal handle:[:ex \|
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1564	PipeFailed := true.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1565	'OperatingSystem [warning]: cannot fork/popen' errorPrintCR.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1566	ex return.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1567	] do:[
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1568	\|p line\|
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1569
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1570	p := PipeStream
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1571	readingFrom:aCommand
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1572	errorDisposition:errorDisposition
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1573	inDirectory:nil.
7106 27bc6fd8067d More openErrorSignal change preparations Stefan Vogel <sv@exept.de> parents: 7093 diff changeset	1574	result := StringCollection new.
27bc6fd8067d More openErrorSignal change preparations Stefan Vogel <sv@exept.de> parents: 7093 diff changeset	1575	[p atEnd] whileFalse:[
27bc6fd8067d More openErrorSignal change preparations Stefan Vogel <sv@exept.de> parents: 7093 diff changeset	1576	line := p nextLine.
27bc6fd8067d More openErrorSignal change preparations Stefan Vogel <sv@exept.de> parents: 7093 diff changeset	1577	(numLinesOrNil isNil
27bc6fd8067d More openErrorSignal change preparations Stefan Vogel <sv@exept.de> parents: 7093 diff changeset	1578	or:[result size < numLinesOrNil]) ifTrue:[
27bc6fd8067d More openErrorSignal change preparations Stefan Vogel <sv@exept.de> parents: 7093 diff changeset	1579	result add:line
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1580	].
7106 27bc6fd8067d More openErrorSignal change preparations Stefan Vogel <sv@exept.de> parents: 7093 diff changeset	1581	].
27bc6fd8067d More openErrorSignal change preparations Stefan Vogel <sv@exept.de> parents: 7093 diff changeset	1582	p close.
27bc6fd8067d More openErrorSignal change preparations Stefan Vogel <sv@exept.de> parents: 7093 diff changeset	1583	p exitStatus success ifFalse:[
27bc6fd8067d More openErrorSignal change preparations Stefan Vogel <sv@exept.de> parents: 7093 diff changeset	1584	result isEmpty ifTrue:[
27bc6fd8067d More openErrorSignal change preparations Stefan Vogel <sv@exept.de> parents: 7093 diff changeset	1585	result := nil
27bc6fd8067d More openErrorSignal change preparations Stefan Vogel <sv@exept.de> parents: 7093 diff changeset	1586	]
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1587	].
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1588	].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1589	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1590	^ result
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1591
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1592	"
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1593	OperatingSystem getCommandOutputFrom:'ls' maxNumberOfLines:1
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1594	OperatingSystem getCommandOutputFrom:'ls' maxNumberOfLines:10
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1595	OperatingSystem getCommandOutputFrom:'ls' maxNumberOfLines:nil
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1596	OperatingSystem getCommandOutputFrom:'foo' maxNumberOfLines:nil
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1597	"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1598
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1599	"Modified: / 19.5.1999 / 14:25:02 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1600	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1601
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1602	getFullCommandOutputFrom:aCommand
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1603	"execute a command and
5483 1d81b1ad42d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5482 diff changeset	1604	return the commands output as a collection of strings (ignoring stdErr).
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1605	If the commands does not generate any output, an empty string is returned;
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1606	if the command fails, nil is returned."
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1607
5483 1d81b1ad42d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5482 diff changeset	1608	^ self getCommandOutputFrom:aCommand maxNumberOfLines:nil errorDisposition:#discard
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1609
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1610	"
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1611	OperatingSystem getFullCommandOutputFrom:'mt status'
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1612	"
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1613
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1614	!
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1615
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1616	nameOfSTXExecutable
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1617	"return the name of the running ST/X executable program.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1618	Usually, 'stx' is returned - but may be different for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1619	standAlone apps."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1620
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1621	%{
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1622	extern char *__stxExecutableName__();
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1623
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1624	RETURN (__MKSTRING(__stxExecutableName__()));
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1625	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1626	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1627	OperatingSystem nameOfSTXExecutable
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1628	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1629	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1630
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1631	pathOfCommand:aCommand
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1632	"find where aCommand's executable file is;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1633	return its full pathName if there is such a command, otherwise
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1634	return nil."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1635
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1636	^ self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1637	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1638
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1639	pathOfSTXExecutable
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1640	"return the full path of the running ST/X executable program.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1641	Usually, '/../../stx' is returned - but may be different for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1642	standAlone apps."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1643
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1644	^ self pathOfCommand:(self nameOfSTXExecutable)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1645
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1646	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1647	OperatingSystem pathOfSTXExecutable
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1648	"
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1649	! !
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1650
7295 9ddb9543e369 category Claus Gittinger <cg@exept.de> parents: 7289 diff changeset	1651	!AbstractOperatingSystem class methodsFor:'executing OS commands-low level'!
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1652
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1653	exec:aCommandPath withArguments:argArray
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1654	"execute the OS command specified by the argument, aCommandPath, with
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1655	arguments in argArray (no arguments, if nil).
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1656	If successful, this method does NOT return and smalltalk is gone.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1657	If not successful, it does return.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1658	Can be used on UNIX with fork or on other systems to chain to another program."
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1659
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1660	^ self
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1661	exec:aCommandPath
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1662	withArguments:argArray
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1663	environment:nil
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1664	fileDescriptors:#(0 1 2)
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1665	fork:false
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1666	newPgrp:false
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1667	inDirectory:nil
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1668
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1669	"/ never reached ...
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1670
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1671	"Modified: / 12.11.1998 / 14:44:26 / cg"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1672	!
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1673
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1674	exec:aCommandPath withArguments:argArray environment:env fileDescriptors:fds fork:doFork newPgrp:newGrp inDirectory:aDirectory
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1675	"execute an OS command"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1676
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1677	^ self subclassResponsibility
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1678
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1679	"Created: / 12.11.1998 / 14:46:15 / cg"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1680	!
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1681
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1682	exec:aCommandPath withArguments:argArray fileDescriptors:fileDescriptors fork:doFork newPgrp:newPgrp inDirectory:aDirectory
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1683	^ self
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1684	exec:aCommandPath
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1685	withArguments:argArray
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1686	environment:nil
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1687	fileDescriptors:fileDescriptors
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1688	fork:doFork
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1689	newPgrp:newPgrp
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1690	inDirectory:aDirectory
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1691	!
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1692
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1693	exec:aCommandPath withArguments:argArray fork:doFork
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1694	"execute an OS command without I/O redirection.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1695	The command reads its input and writes its output
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1696	from/to whatever terminal device ST/X was started
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1697	(typically, the terminal window)"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1698
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1699	^ self
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1700	exec:aCommandPath
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1701	withArguments:argArray
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1702	environment:nil
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1703	fileDescriptors:#(0 1 2)
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1704	fork:doFork
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1705	newPgrp:false
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1706	inDirectory:nil
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1707
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1708	"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1709	\|id\|
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1710
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1711	id := OperatingSystem fork.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1712	id == 0 ifTrue:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1713	'I am the child'.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1714	OperatingSystem
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1715	exec:'/bin/ls'
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1716	withArguments:#('ls' '/tmp')
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1717	fork:false.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1718	'not reached'.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1719	]
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1720	"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1721
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1722	"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1723	\|id\|
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1724
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1725	id := OperatingSystem fork.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1726	id == 0 ifTrue:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1727	'I am the child'.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1728	OperatingSystem
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1729	exec:'/bin/sh'
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1730	withArguments:#('sh' '-c' 'sleep 2;echo 1;sleep 2;echo 2')
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1731	fork:false.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1732	'not reached'.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1733	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1734	id printNL.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1735	(Delay forSeconds:3.5) wait.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1736	'killing ...' printNL.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1737	OperatingSystem sendSignal:(OperatingSystem sigTERM) to:id.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1738	OperatingSystem sendSignal:(OperatingSystem sigKILL) to:id
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1739	"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1740
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1741	"Modified: / 15.7.1997 / 15:54:32 / stefan"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1742	"Modified: / 12.11.1998 / 14:44:46 / cg"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1743	!
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1744
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1745	exec:aCommandPath withArguments:argArray fork:doFork inDirectory:aDirectory
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1746	"execute an OS command without I/O redirection.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1747	The command reads its input and writes its output
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1748	from/to whatever terminal device ST/X was started
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1749	(typically, the terminal window)"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1750
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1751	^ self
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1752	exec:aCommandPath
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1753	withArguments:argArray
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1754	environment:nil
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1755	fileDescriptors:#(0 1 2)
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1756	fork:doFork
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1757	newPgrp:false
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1758	inDirectory:aDirectory
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1759
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1760	"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1761	\|id\|
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1762
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1763	id := OperatingSystem fork.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1764	id == 0 ifTrue:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1765	'I am the child'.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1766	OperatingSystem
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1767	exec:'/bin/ls'
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1768	withArguments:#('ls' '/tmp')
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1769	fork:false.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1770	'not reached'.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1771	]
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1772	"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1773
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1774	"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1775	\|id\|
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1776
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1777	id := OperatingSystem fork.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1778	id == 0 ifTrue:[
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1779	'I am the child'.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1780	OperatingSystem
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1781	exec:'/bin/sh'
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1782	withArguments:#('sh' '-c' 'sleep 2;echo 1;sleep 2;echo 2')
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1783	fork:false.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1784	'not reached'.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1785	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1786	id printNL.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1787	(Delay forSeconds:3.5) wait.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1788	'killing ...' printNL.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1789	OperatingSystem sendSignal:(OperatingSystem sigTERM) to:id.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1790	OperatingSystem sendSignal:(OperatingSystem sigKILL) to:id
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1791	"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1792
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1793	"Created: / 28.1.1998 / 14:14:03 / md"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1794	"Modified: / 28.1.1998 / 14:14:45 / md"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1795	"Modified: / 12.11.1998 / 14:45:06 / cg"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1796	!
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1797
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1798	fork
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1799	"fork a new (HEAVY-weight) unix process.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1800	Not supported with MSDOS & VMS systems.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1801	Dont confuse this with Block>>fork, which creates
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1802	lightweight smalltalk processes. This method will return
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1803	0 to the child process, and a non-zero number (which is the childs
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1804	unix-process-id) to the parent (original) process.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1805
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1806	In normal situations, you dont need to use this low level entry; see
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1807	#startProcess: and #executCommand: for higher level interfaces."
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1808
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1809	"/
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1810	"/ not supported by OS
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1811	"/
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1812
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1813	^ UnsupportedOperationSignal raise
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1814	! !
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1815
7295 9ddb9543e369 category Claus Gittinger <cg@exept.de> parents: 7289 diff changeset	1816	!AbstractOperatingSystem class methodsFor:'executing OS commands-private'!
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1817
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1818	startProcess:aCommandString
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1819	"start executing the OS command as specified by the argument, aCommandString
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1820	as a separate process; do not wait for the command to finish.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1821	The commandString is passed to a shell for execution - see the description of
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1822	'sh -c' in your UNIX manual.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1823	Return the processId if successful, nil otherwise.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1824	Use #waitForProcess: for synchronization and exec status return,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1825	or #killProcess: to stop it."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1826
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1827	^ self
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1828	startProcess:aCommandString
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1829	inputFrom:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1830	outputTo:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1831	errorTo:nil
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1832	auxFrom:nil
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1833	inDirectory:nil
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1834
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1835	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1836	\|pid\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1837
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1838	pid := OperatingSystem startProcess:'sleep 2; echo 1; sleep 2; echo 2'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1839	(Delay forSeconds:3) wait.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1840	OperatingSystem killProcess:pid.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1841	"
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1842	"
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1843	\|pid\|
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1844
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1845	pid := OperatingSystem startProcess:'dir/l'.
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1846	(Delay forSeconds:1) wait.
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1847	OperatingSystem killProcess:pid.
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1848	"
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1849	"
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1850	\|pid\|
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1851
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1852	pid := OperatingSystem
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1853	startProcess:'dir/l'
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1854	inputFrom:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1855	outputTo:Stdout
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1856	errorTo:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1857	inDirectory:nil.
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1858	(Delay forSeconds:2) wait.
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1859	OperatingSystem killProcess:pid.
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1860	"
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1861
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1862	"Modified: / 21.3.1997 / 10:04:35 / dq"
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1863	"Modified: / 10.11.1998 / 21:03:50 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1864	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1865
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1866	startProcess:aCommandString inDirectory:aDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1867	"start executing the OS command as specified by the argument, aCommandString
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1868	as a separate process; do not wait for the command to finish.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1869	The commandString is passed to a shell for execution - see the description of
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1870	'sh -c' in your UNIX manual.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1871	Return the processId if successful, nil otherwise.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1872	Use #waitForProcess: for synchronization and exec status return,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1873	or #killProcess: to stop it."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1874
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1875	^ self
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1876	startProcess:aCommandString
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1877	inputFrom:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1878	outputTo:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1879	errorTo:nil
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1880	auxFrom:nil
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1881	inDirectory:aDirectory
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1882	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1883	\|pid\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1884
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1885	pid := OperatingSystem startProcess:'sleep 2; echo 1; sleep 2; echo 2'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1886	(Delay forSeconds:3) wait.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1887	OperatingSystem killProcess:pid.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1888	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1889
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1890	"Modified: / 21.3.1997 / 10:04:35 / dq"
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1891	"Modified: / 28.1.1998 / 14:13:33 / md"
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1892	"Modified: / 10.11.1998 / 20:59:33 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1893	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1894
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1895	startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream errorTo:anExternalErrStream
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1896	"start executing the OS command as specified by the argument, aCommandString
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1897	as a separate process; do not wait for the command to finish.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1898	The commandString is passed to a shell for execution - see the description of
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1899	'sh -c' in your UNIX manual ('cmd.com' in your MSDOS manual).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1900	The command gets stdIn, stdOut and stdErr assigned from the arguments;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1901	each may be nil.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1902	Return the processId if successful, nil otherwise.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1903	Use #monitorPid:action: for synchronization and exec status return,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1904	or #killProcess: to stop it."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1905
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1906	^ self
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1907	startProcess:aCommandString
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1908	inputFrom:anExternalInStream
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1909	outputTo:anExternalOutStream
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1910	errorTo:anExternalErrStream
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1911	auxFrom:nil
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	1912	inDirectory:nil
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1913
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1914	"Modified: / 10.11.1998 / 20:59:05 / cg"
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1915	!
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1916
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1917	startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream errorTo:anExternalErrStream auxFrom:anExternalAuxStreamOrNil inDirectory:dir
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1918	"start executing the OS command as specified by the argument, aCommandString
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1919	as a separate process; do not wait for the command to finish.
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1920	The commandString is passed to a shell for execution - see the description of
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1921	'sh -c' in your UNIX manual ('cmd.com' in your MSDOS manual).
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1922	The command gets stdIn, stdOut and stdErr assigned from the arguments;
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1923	each may be nil.
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1924	Return the processId if successful, nil otherwise.
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1925	Use #monitorPid:action: for synchronization and exec status return,
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1926	or #killProcess: to stop it."
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1927
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1928	^ self subclassResponsibility
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1929	!
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1930
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1931	startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream errorTo:anExternalErrStream inDirectory:dir
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1932	"start executing the OS command as specified by the argument, aCommandString
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1933	as a separate process; do not wait for the command to finish.
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1934	The commandString is passed to a shell for execution - see the description of
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1935	'sh -c' in your UNIX manual ('cmd.com' in your MSDOS manual).
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1936	The command gets stdIn, stdOut and stdErr assigned from the arguments;
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1937	each may be nil.
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1938	Return the processId if successful, nil otherwise.
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1939	Use #monitorPid:action: for synchronization and exec status return,
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1940	or #killProcess: to stop it."
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1941
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1942	^ self
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1943	startProcess:aCommandString
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1944	inputFrom:anExternalInStream
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1945	outputTo:anExternalOutStream
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1946	errorTo:anExternalErrStream
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1947	auxFrom:nil
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1948	inDirectory:dir
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1949	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1950
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1951	!AbstractOperatingSystem class methodsFor:'file access'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1952
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1953	closeFd:anInteger
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1954	"low level close of a filedescriptor"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1955
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1956	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1957	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1958
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1959	createDirectory:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1960	"create a new directory with name 'aPathName', which may be an absolute
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1961	path, or relative to the current directory.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1962	Return true if successful (or the directory existed already), false if failed.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1963	This is a low-level entry - use Filename protocol for compatibility."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1964
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1965	"/ if it already exists this is ok
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1966
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1967	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1968	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1969
6292 f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	1970	createFileForReadAppend:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	1971	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	1972	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	1973
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	1974	createFileForReadWrite:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	1975	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	1976	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	1977
3758 1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1978	createHardLinkFrom:oldPath to:newPath
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1979	"link the file 'oldPath' to 'newPath'. The link will be a hard link.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1980	Return true if successful, false if not."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1981
3758 1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1982	"/
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1983	"/ assume that this OperatingSystem does not support links
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1984	"/
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1985	^ UnsupportedOperationSignal raise
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1986
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1987	"Created: / 13.8.1998 / 21:37:12 / cg"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1988	"Modified: / 13.8.1998 / 21:38:39 / cg"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1989	!
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1990
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1991	createSymbolicLinkFrom:oldPath to:newPath
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1992	"make a link from the file 'oldPath' to the file 'newPath'.
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1993	The link will be a soft (symbolic) link.
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1994	Return true if successful, false if not."
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1995
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1996	"/
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1997	"/ assume that this OperatingSystem does not support symbolic links
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1998	"/
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1999	^ UnsupportedOperationSignal raise
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2000
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2001	"Created: / 13.8.1998 / 21:38:24 / cg"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2002	"Modified: / 13.8.1998 / 21:38:43 / cg"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2003	!
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2004
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2005	linkFile:oldPath to:newPath
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2006	"link the file 'oldPath' to 'newPath'. The link will be a hard link.
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2007	Return true if successful, false if not.
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2008	This method has been renamed - it remains in existance for
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2009	backward compatibility."
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2010
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2011	^ self createHardLinkFrom:oldPath to:newPath
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2012
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2013	"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2014	OperatingSystem linkFile:'foo' to:'bar'
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2015	"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2016
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2017	"Modified: / 13.8.1998 / 21:37:24 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2018	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2019
6291 c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2020	openFile:pathName withMode:openModeSymbol attributes:attributeSpec
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2021	"open a file, return an os specific fileHandle.
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2022	openmode is a symbol defining the way to open
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2023	valid modes are:
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2024	#read
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2025	#write
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2026	#readWrite
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2027	#appendWrite
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2028	#appendReadWrite
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2029	#createWrite
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2030	#createReadWrite
6291 c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2031
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2032	attributeSpec is an additional argument, currently only used with VMS
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2033	- it allows a file to be created as fixedRecord, variableRecord, streamLF, streamCR, ...
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2034
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2035	In VMS, if nonNil, it must consist of an array of strings (max:10), giving additional
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2036	attributes (see fopen description).
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2037	Passing a nil specifies the default format (streamLF) - ST/X always invokes this with nil.
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2038	This argument is ignored in UNIX & MSDOS systems.
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2039
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2040	This is a private entry, but maybe useful to open/create a file in a special mode,
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2041	which is proprietrary to the operatingSystem."
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2042
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2043	self subclassResponsibility
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2044	!
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2045
6292 f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2046	openFileForAppend:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2047	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2048	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2049
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2050	openFileForRead:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2051	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2052	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2053
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2054	openFileForReadAppend:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2055	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2056	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2057
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2058	openFileForReadWrite:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2059	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2060	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2061
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2062	openFileForWrite:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2063	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2064	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2065
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2066	recursiveCopyDirectory:fullPathName to:destinationPathName
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2067	"copy the directory named 'fullPathName' and all contained
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2068	files/directories recursively to destinationPathName.
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2069	Return true if successful.
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2070	Here, false is returned and the caller should be prepared
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2071	for a fallBack solution.
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2072	Notice:
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2073	this is not a public interface; instead, it is used
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2074	internally by the Filename class, to try a fast copy
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2075	before doing things manually.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2076	Please use Filename recursiveCopyTo:"
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2077
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2078	^ false
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2079
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2080	"
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2081	OperatingSystem recursiveCopyDirectory:'.' to:'/tmp/foo'
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2082	OperatingSystem recursiveRemoveDirectory:'/tmp/foo'
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2083	"
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2084
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2085	"Modified: / 5.5.1999 / 13:29:16 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2086	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2087
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2088	recursiveCreateDirectory:dirName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2089	"create a directory - with all parent dirs if needed.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2090	Return true if successful, false otherwise. If false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2091	is returned, a partial created tree may be left,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2092	which is not cleaned-up here."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2093
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2094	self createDirectory:dirName.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2095	(self isDirectory:dirName) ifFalse:[
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2096	(self recursiveCreateDirectory:(dirName asFilename directoryName)) ifFalse:[^ false].
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2097	^ self createDirectory:dirName
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2098	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2099	^ true
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2100
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2101	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2102	OperatingSystem recursiveCreateDirectory:'foo/bar/baz'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2103	OperatingSystem recursiveRemoveDirectory:'foo'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2104	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2105
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2106	"Modified: 7.3.1996 / 15:26:22 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2107	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2108
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2109	recursiveRemoveDirectory:fullPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2110	"remove the directory named 'fullPathName' and all contained files/directories.
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2111	Return true if successful.
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2112	Here, false is returned and the caller should be prepared
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2113	for a fallBack solution.
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2114	Notice:
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2115	this is not a public interface; instead, it is used
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2116	internally by the Filename class, to try a fast remove
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2117	before doing things manually.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2118	Please use Filename recursiveRemoveDirectory:"
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2119
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2120	^ false
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2121
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2122	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2123	OperatingSystem recursiveCreateDirectory:'foo/bar/baz'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2124	OperatingSystem recursiveRemoveDirectory:'foo'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2125	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2126
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2127	"Modified: / 5.5.1999 / 13:30:11 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2128	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2129
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2130	removeDirectory:fullPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2131	"remove the directory named 'fullPathName'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2132	The directory must be empty and you must have appropriate access rights.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2133	Return true if successful, false if directory is not empty or no permission.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2134	This is a lowLevel entry - use Filename protocol for compatibility."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2135
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2136	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2137	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2138
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2139	removeFile:fullPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2140	"remove the file named 'fullPathName'; return true if successful.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2141	This is a lowLevel entry - use Filename protocol for compatibility."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2142
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2143	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2144	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2145
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2146	renameFile:oldPath to:newPath
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2147	"rename the file 'oldPath' to 'newPath'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2148	Someone else has to care for the names to be correct and
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2149	correct for the OS used - therefore, this should not be called
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2150	directlt. Instead, use Filename protocol to rename; this cares for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2151	any invalid names.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2152	Returns true if successful, false if not"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2153
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2154	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2155	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2156
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2157	truncateFile:aPathName to:newSize
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2158	"change a files size return true on success, false on failure.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2159	This may not be supported on all architectures.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2160
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2161	This is a low-level entry - use Filename protocol."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2162
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2163	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2164	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2165
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2166	!AbstractOperatingSystem class methodsFor:'file access rights'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2167
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2168	accessMaskFor:aSymbol
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2169	"return the access bits mask for numbers as returned by
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2170	OperatingSystem>>accessModeOf:
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2171	and expected by OperatingSystem>>changeAccessModeOf:to:.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2172	Since these numbers are OS dependent, always use the mask
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2173	(never hardcode 8rxxx into your code)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2174
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2175	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2176	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2177
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2178	accessModeOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2179	"return a number representing access rights rwxrwxrwx for owner,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2180	group and others. Return nil if such a file does not exist.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2181	Notice that the returned number is OS dependent - use the
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2182	modeMasks as returned by OperatingSystem>>accessMaskFor:"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2183
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2184	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2185	this could have been implemented as:
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2186	(self infoOf:aPathName) at:#mode
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2187	but for huge directory searches the code below is faster
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2188	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2189
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2190	^ (self infoOf:aPathName) at:#mode
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2191
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2192	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2193	(OperatingSystem accessModeOf:'/') printStringRadix:8
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2194	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2195	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2196
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2197	changeAccessModeOf:aPathName to:modeBits
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2198	"change the access rights of aPathName to the OS dependent modeBits.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2199	You should construct this mask using accessMaskFor, to be OS
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2200	independent. Return true if changed,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2201	false if such a file does not exist or change was not allowd."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2202
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2203	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2204	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2205
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2206	!AbstractOperatingSystem class methodsFor:'file locking'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2207
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2208	lockFD:aFileDescriptor shared:isSharedReadLock blocking:blockIfLocked
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2209	"set a lock on the file represented by aFileDescriptor.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2210	(such as returned by ExternalStream>>fileDescriptor).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2211	On some systems, only advisory locks are available -
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2212	these depends on other accessors to also perform the locking operation.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2213	If they do not, they may still access the file
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2214	(on some systems, locks are mandatory, on others, they are advisory).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2215	The isSharedReadLock argument (if true) specifies if multiple readers
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2216	are to be allowed - if false, they are not.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2217	On some systems, all locks are non-exclusive locks.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2218
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2219	Returns true, if the lock was aquired, false otherwise.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2220
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2221	Notice, that not all OS's support these locks;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2222	on some, this may simply be a no-op.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2223	Also notice, that some systems block the process, to wait for the lock.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2224	This can (again: on some systems) be avoided by passing a false blockIfLocked
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2225	argument."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2226
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2227	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2228	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2229
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2230	supportsFileLinks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2231	"return true, if the OS supports file links (hard links).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2232	Typically, only unix returns true here."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2233
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2234	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2235	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2236
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2237	supportsFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2238	"return true, if the OS supports file locking"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2239
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2240	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2241
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2242	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2243	OperatingSystem supportsFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2244	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2245	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2246
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2247	supportsNonBlockingFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2248	"return true, if the OS supports nonBlocking file locking
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2249	(i.e. with immediate return instead of waiting for the lock)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2250
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2251	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2252
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2253	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2254	OperatingSystem supportsNonBlockingFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2255	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2256	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2257
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2258	supportsSharedLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2259	"return true, if the OS supports shared (i.e. multiple reader)
4147 1096115c96c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 4146 diff changeset	2260	file locking. Assume false here - redefined in concrete classes."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2261
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2262	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2263
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2264	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2265	OperatingSystem supportsNonBlockingFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2266	"
4147 1096115c96c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 4146 diff changeset	2267
1096115c96c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 4146 diff changeset	2268	"Modified: / 5.5.1999 / 01:08:03 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2269	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2270
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2271	supportsSymbolicLinks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2272	"return true, if the OS supports symbolic links on files/directories.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2273	Typically, only Unix returns true here"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2274
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2275	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2276	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2277
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2278	unlockFD:aFileDescriptor
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2279	"clear a file lock on the file represented by aFileDescriptor,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2280	which was previously aquired by #lockFD:.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2281	Return false, if the unlock failed
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2282	(which may happens when a wrong fd is passed,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2283	no lock was set previously, or the systsem does not support locks).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2284	Notice, that not all OS's support file locks;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2285	on some, this may simply be a no-op."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2286
3826 ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	2287	^ false
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	2288
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	2289	"Modified: / 10.9.1998 / 17:54:15 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2290	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2291
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2292	!AbstractOperatingSystem class methodsFor:'file queries'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2293
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2294	baseNameOf:aPath
5861 24ee164045bd Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 5857 diff changeset	2295	<resource:#obsolete>
24ee164045bd Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 5857 diff changeset	2296
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2297	self obsoleteMethodWarning:'use asFilename baseName'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2298	^ aPath asFilename baseName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2299	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2300
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2301	caseSensitiveFilenames
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2302	"return true, if the OS has caseSensitive file naming.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2303	On MSDOS, this will return false;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2304	on a real OS, we return true."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2305
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2306	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2307	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2308
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2309	compressPath:pathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2310	"return the pathName compressed - that is, remove all ..-entries
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2311	and . entries. This does not always (in case of symbolic links)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2312	return the true pathName and is therefore used as a fallback
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2313	if realPath and popen failed."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2314
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2315	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2316	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2317
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2318	directoryNameOf:aPath
5861 24ee164045bd Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 5857 diff changeset	2319	<resource:#obsolete>
24ee164045bd Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 5857 diff changeset	2320
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2321	self obsoleteMethodWarning:'use asFilename directoryName'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2322	^ aPath asFilename directoryName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2323	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2324
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2325	fileSeparator
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2326	"return the character used to separate names in a path.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2327	This character differs for MSDOS and other systems,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2328	(but those are currently not supported - so this is some
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2329	preparation for the future)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2330
3736 718513f3284e checkin from browser Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	2331	^ $/ "/ must be redefined for systems, where this is not true (i.e. MSDOS)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2332	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2333
4224 5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2334	getDiskInfoOf:aDirectoryPath
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2335	"return some disk info.
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2336	The amount of information returned depends upon the OS, and is
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2337	not guaranteed to be consistent across architectures.
4226 429b13ce2028 * empty log message * Claus Gittinger <cg@exept.de> parents: 4224 diff changeset	2338	On unix and msdos, the information returned is (at least):
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2339	freeBytes
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2340	totalBytes
4224 5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2341	Do not depend on any information being present in the returned dictionary;
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2342	users of this method should always use #at:ifAbsent:, and care for the absent case.
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2343	Nil is returned if no such information can be obtained.
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2344	"
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2345
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2346	^ nil
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2347
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2348	"
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2349	OperatingSystem getDiskInfoOf:'/'
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2350	OperatingSystem getDiskInfoOf:'.'
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2351	"
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2352
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2353	"Modified: / 22.5.1999 / 00:36:06 / cg"
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2354	!
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2355
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2356	getDriveList
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2357	"return a list of volumes in the system.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2358	On unix, no such thing like a volume exists
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2359	- there, a syntetic list with root, home & current is returned.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2360	On MSDOS, a list of drive letters is (eventually) returned.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2361	On VMS, a list of volumes is (eventually) returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2362
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2363	"/
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	2364	"/ default: return an array filled with
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2365	"/ root, home and current directories.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2366	"/
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2367	^ Array
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2368	with:'/'
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2369	with:(self getHomeDirectory)
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2370	with:(Filename currentDirectory pathName)
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	2371
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	2372	"Modified: / 5.5.1999 / 01:06:26 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2373	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2374
4852 ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2375	getMountedVolumes
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2376	"return info about mounted volumes.
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2377	The amount of information returned depends upon the OS, and is
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2378	not guaranteed to be consistent across architectures.
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2379	On unix, the information returned is (at least):
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2380	mountPoint - mount point
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2381	fileSystem - device or NFS-remotePath
4852 ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2382	"
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2383
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2384	^ #()
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2385
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2386	"
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2387	OperatingSystem getMountedVolumes
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2388	"
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2389
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2390	"Modified: / 22.5.1999 / 00:36:06 / cg"
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2391	!
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2392
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2393	getNullDevice
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2394	"get the name of the null-device. Nil is returned if not supported"
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2395
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2396	^ nil
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2397
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2398	"Created: / 19.5.1999 / 12:24:59 / cg"
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2399	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2400
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2401	idOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2402	"return the fileNumber (i.e. inode number) of a file.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2403
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2404	Not all operatingSystems may provide this - on those that do not,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2405	some dummy id will be returned.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2406	On unix, this information can be used to check for two files being
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2407	physically identical, even if found in different directories
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2408	(i.e. if they are hardLinked)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2409
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2410	\|i id\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2411
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2412	id := self primIdOf:aPathName.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2413	id notNil ifTrue:[^ id].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2414
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2415	i := self infoOf:aPathName.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2416	i notNil ifTrue:[^ i id].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2417	^ nil.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2418
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2419	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2420	OperatingSystem idOf:'/'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2421	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2422	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2423
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2424	infoOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2425	"return some object filled with info for the file 'aPathName';
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2426	the info (for which corresponding access methods are understood by
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2427	the returned object) is:
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2428	type - a symbol giving the files type
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2429	mode - numeric access mode
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2430	uid - owners user id
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2431	gid - owners group id
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2432	size - files size
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2433	id - files number (i.e. inode number)
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2434	accessed - last access time (as Timestamp)
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2435	modified - last modification time (as Timestamp)
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2436	statusChanged - last status change time (as Timestamp)
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2437	alternativeName - (windows only: the MSDOS name of the file)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2438
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2439	Some of the fields may be returned as nil on systems which do not provide
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2440	all of the information.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2441	Return nil if such a file does not exist.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2442	For symbolic links (if supported by the OS),
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2443	the info of the pointed-to-file (i.e. the target) is returned;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2444	use #linkInfoOf: to get info about the link itself.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2445	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2446
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2447	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2448	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2449
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2450	isDirectory:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2451	"return true, if 'aPathName' is a valid directory path name.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2452	(i.e. exists and is a directory).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2453	This also returns true for symbolic links pointing to a directory;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2454	if you need to check for this, use #linkInfo:."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2455
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2456	^ (self infoOf:aPathName) type == #directory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2457	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2458
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2459	isExecutable:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2460	"return true, if the given file is executable.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2461	For symbolic links, the pointed-to-file is checked."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2462
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2463	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2464	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2465
6772 6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	2466	isMountPoint:aPathName
6781 97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2467	"return true, if the given file is a mounted fileSystems mountPoint"
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2468
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2469	^ self mountPoints contains:[:mountInfo \| mountInfo mountPointPath = aPathName].
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2470
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2471	"
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2472	OperatingSystem isMountPoint:'/phys/qnx'
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2473	OperatingSystem isMountPoint:'/proc'
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2474	OperatingSystem isMountPoint:'/'
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2475	"
6772 6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	2476	!
6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	2477
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2478	isReadable:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2479	"return true, if the file/dir 'aPathName' is readable.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2480	For symbolic links, the pointed-to-file is checked."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2481
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2482	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2483	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2484
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2485	isSymbolicLink:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2486	"return true, if the given file is a symbolic link"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2487
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2488	^ (self linkInfoOf:aPathName) notNil
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2489
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2490	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2491	OperatingSystem isSymbolicLink:'Make.proto'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2492	OperatingSystem isSymbolicLink:'Makefile'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2493	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2494	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2495
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2496	isValidPath:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2497	"return true, if 'aPathName' is a valid path name
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2498	(i.e. the file or directory exists)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2499
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2500	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2501	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2502
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2503	isWritable:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2504	"return true, if the given file is writable.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2505	For symbolic links, the pointed-to-file is checked."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2506
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2507	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2508	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2509
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2510	linkInfoOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2511	"return a dictionary filled with info for the file 'aPathName',
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2512	IFF aPathName is a symbolic link.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2513	If aPathName is invalid, or its NOT a symbolic link, nil is returned.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2514	(which means, that systems like VMS or MSDOS always return nil here.)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2515
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2516	The contents of the dictionary gives info about the link itself,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2517	on contrast to #infoOf:, which returns the info of the pointed to file
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2518	in case of a symbolic link."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2519
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2520	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2521	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2522
5031 50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2523	mimeTypeForFilename:aFilename
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2524	"given a filename, return a corresponding mimeType.
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2525	This is placed here, to allow for OS-specific configuration
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2526	files and/or the win32 registry to be consultet.
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2527	Returns nil if no mimeType for the given name is known."
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2528
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2529	^ nil
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2530	!
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2531
4240 e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2532	mimeTypeForSuffix:aFileSuffix
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2533	"given a file suffix, return a corresponding mimeType.
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2534	This is placed here, to allow for OS-specific configuration
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2535	files and/or the win32 registry to be consultet.
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2536	Returns nil if no mimeType for the given suffix is known."
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2537
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2538	^ nil
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2539	!
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2540
6781 97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2541	mountPoints
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2542	"return a collection of mountPoints (aka. topDirectories of mounted file systems)"
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2543
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2544	^ #() "/ dont know here
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2545	!
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2546
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2547	parentDirectoryName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2548	"return the name used to refer to parent directories.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2549	In MSDOS, Unix and other systems this is '..', but maybe different
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2550	for other systems.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2551	(but those are currently not supported - so this is some
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2552	preparation for the future)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2553
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2554	^ '..'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2555	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2556
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2557	pathNameOf:pathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2558	"return the pathName of the argument, aPathString,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2559	- thats the full pathname of the directory, starting at '/'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2560	This method needs the path to be valid
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2561	(i.e. all directories must exist, be readable and executable).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2562	Notice: if symbolic links are involved, the result may look different
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2563	from what you expect."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2564
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2565	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2566	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2567
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2568	primIdOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2569	"the actual code to return the fileNumber (i.e. inode number) of a file."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2570
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2571	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2572	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2573
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2574	primPathNameOf:pathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2575	"return the pathName of the argument, aPathString,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2576	- thats the full pathname of the directory, starting at '/'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2577	This method here returns nil, if the OS does not provide a
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2578	realPath library function.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2579	Notice: if symbolic links are involved, the result may look different
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2580	from what you expect."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2581
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2582	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2583	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2584
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2585	timeOfLastAccess:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2586	"return the time, when the file was last accessed.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2587	For nonexistent files, nil is returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2588
6793 0d3e3fd18a70 modified -> modificationTime Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	2589	^ (self infoOf:aPathName) accessTime
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2590	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2591
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2592	timeOfLastChange:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2593	"return the time, when the file was last changed.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2594	For nonexistent files, nil is returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2595
6793 0d3e3fd18a70 modified -> modificationTime Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	2596	^ (self infoOf:aPathName) modificationTime
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2597	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2598
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2599	typeOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2600	"return the type of a file as a symbol; for nonexistent files,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2601	nil is returned.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2602	Notice: for symbolic links, the type of the pointed-to file is returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2603
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2604	^ (self infoOf:aPathName) type
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2605	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2606
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2607	volumeNameOf:aPathString
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2608	"return the volumeName of the argument, aPath
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2609	- thats the name of the volume where aPath is.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2610	Not all OperatingSystems support/use volumes; on unix,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2611	this always returns an empty string."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2612
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2613	^ ''
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2614	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2615
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2616	!AbstractOperatingSystem class methodsFor:'interprocess communication'!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2617
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2618	createCOMFileForVMSCommand:aCommandString in:aDirectory
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2619	"this is only implemented/required for VMS systems, to execute commands"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2620
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2621	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2622
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2623	"Created: / 19.5.1999 / 12:16:31 / cg"
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2624	"Modified: / 19.5.1999 / 14:22:05 / cg"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2625	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2626
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2627	createMailBox
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2628	"this is only implemented/required for VMS systems, to emulate pipes"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2629
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2630	^ UnsupportedOperationSignal raise
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2631
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2632	"Created: / 19.5.1999 / 12:14:56 / cg"
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2633	"Modified: / 19.5.1999 / 14:22:22 / cg"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2634	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2635
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2636	destroyMailBox:mbx
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2637	"this is only implemented/required for VMS systems, to emulate pipes"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2638
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2639	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2640
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2641	"Created: / 19.5.1999 / 12:16:43 / cg"
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2642	"Modified: / 19.5.1999 / 14:22:33 / cg"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2643	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2644
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2645	mailBoxNameOf:mbx
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2646	"this is only implemented/required for VMS systems, to emulate pipes"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2647
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2648	^ UnsupportedOperationSignal raise
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2649
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2650	"Created: / 19.5.1999 / 12:14:56 / cg"
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2651	"Modified: / 19.5.1999 / 14:22:40 / cg"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2652	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2653
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2654	makePipe
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2655	"this is only implemented/required for non-VMS systems"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2656
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2657	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2658
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2659	"Modified: / 19.5.1999 / 14:23:09 / cg"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2660	! !
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2661
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2662	!AbstractOperatingSystem class methodsFor:'interrupts & signals'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2663
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2664	blockInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2665	"disable interrupt processing - if disabled, incoming
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2666	interrupts will be registered and handled as soon as
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2667	interrupts are reenabled by OperatingSystemclass>>unblockInterrupts.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2668	Returns the previous blocking status i.e. true if interrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2669	where already blocked. You need this information for proper
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2670	unblocking, in case of nested block/unblock calls."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2671
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2672	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2673	RETURN ( __BLOCKINTERRUPTS() );
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2674	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2675	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2676
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2677	defaultSignal:signalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2678	"revert to the default action on arrival of a (Unix-)signal.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2679	Dont confuse Unix signals with smalltalk signals.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2680	WARNING: for some signals, it is no good idea to revert to default;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2681	for example, the default for SIGINT (i.e. ^C) is to exit; while the
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2682	default for SIGQUIT (^ \) is to dump core.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2683	Also, NOTICE that signal numbers are not portable between unix
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2684	systems - use OperatingSystem sigXXX to get the numeric value for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2685	a signal."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2686
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2687	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2688	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2689
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2690	disableChildSignalInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2691	"disable childSignal interrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2692	(SIGCHLD, if the architecture supports it).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2693	We have to set the signal back to default, because ignoring
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2694	SIGCHLD breaks wait & co"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2695
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2696	^ self defaultSignal:(self sigCHLD)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2697
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2698	"Created: 5.1.1996 / 15:45:28 / stefan"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2699	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2700
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2701	disableIOInterruptsOn:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2702	"turn off IO interrupts for a filedescriptor"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2703
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2704	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2705	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2706
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2707	disableSignal:signalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2708	"disable (Unix-) signal processing for signalNumber.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2709	Dont confuse Unix signals with smalltalk signals.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2710	WARNING: for some signals, it is no good idea to disable
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2711	them; for example, disabling the SIGINT signal turns off ^C
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2712	handling.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2713	Also, NOTICE that signal numbers are not portable between unix
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2714	systems - use OperatingSystem sigXXX to get the numeric value for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2715	a signal.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2716	Use only for fully debugged stand alone applications."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2717
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2718	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2719	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2720
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2721	disableTimer
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2722	"disable timer interrupts.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2723	WARNING:
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2724	the system will not operate correctly with timer interrupts
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2725	disabled, because no scheduling or timeouts are possible."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2726
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2727	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2728	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2729
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2730	disableUserInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2731	"disable userInterrupt processing;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2732	when disabled, no ^C processing takes place.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2733	WARNING:
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2734	If at all, use this only for debugged stand-alone applications, since
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2735	no exit to the debugger is possible with user interrupts disabled.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2736	We recommend setting up a handler for the signal instead of disabling it."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2737
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2738	self disableSignal:(self sigBREAK).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2739	self disableSignal:(self sigINT).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2740	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2741
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2742	enableAbortInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2743	"enable abort signalhandling, and make it a regular signalInterrupt.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2744	(the default will dump core and exit - which is not a good idea for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2745	end-user applications ...).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2746	This is especially useful, if linked-in C-libraries call abort() ..."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2747
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2748	self enableSignal:(self sigABRT)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2749	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2750
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2751	enableChildSignalInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2752	"enable childSignal interrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2753	(SIGCHLD, if the architecture supports it).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2754	After enabling, these signals will send the message
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2755	'childSignalInterrupt' to the ChildSignalInterruptHandler object."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2756
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2757	self enableSignal:(self sigCHLD)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2758	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2759
6389 8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2760	enableCrashSignalInterrupts
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2761	"enable powerFail signal exception interrupts (sigPWR).
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2762	After enabling, this signal will trigger the writing of a crash-image"
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2763
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2764	self enableSignal:(self sigPWR).
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2765	self enableSignal:(self sigHUP)
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2766	!
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2767
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2768	enableFpExceptionInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2769	"enable floating point exception interrupts (if the
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2770	architecture supports it).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2771	After enabling, fpu-exceptions will send the message
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2772	'fpuExceptionInterrupt' to the FPUExceptionInterruptHandler object."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2773
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2774	self enableSignal:(self sigFP)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2775	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2776
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2777	enableHardSignalInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2778	"enable hard signal exception interrupts (trap, buserror & segm. violation).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2779	After enabling, these exceptions will send the message
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2780	'signalInterrupt' to the SignalInterruptHandler object."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2781
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2782	"/ leads to trouble ...
6389 8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2783	"/ self enableSignal:(self sigPIPE).
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2784	"/ ... better to ignore them, and let it be handled as a writeErrorSignal.
6389 8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2785
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2786	self disableSignal:(self sigPIPE).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2787
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2788	self enableSignal:(self sigILL).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2789	self enableSignal:(self sigBUS).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2790	self enableSignal:(self sigSEGV).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2791	self enableSignal:(self sigFP).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2792	self enableSignal:(self sigEMT).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2793	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2794
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2795	enableIOInterruptsOn:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2796	"turn on IO interrupts for a filedescriptor"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2797
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2798	self subclassResonsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2799	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2800
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2801	enableQuitInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2802	"enable quitInterrupt (usually ^\) handling, and make it a userInterrupt.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2803	(the default will dump core and exit - which is not a good idea for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2804	end-user applications ...)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2805
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2806	self enableSignal:(self sigQUIT)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2807	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2808
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2809	enableSignal:signalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2810	"enable (Unix-)signal processing for signalNumber.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2811	Dont confuse Unix signals with smalltalk signals.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2812	The signal will be delivered to one of the standard handlers
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2813	(SIGINT, SIGQUIT, etc) or to a general handler, which
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2814	sends #signalInterrupt:.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2815
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2816	NOTICE that signal numbers are not portable between unix
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2817	systems - use OperatingSystem sigXXX to get the numeric value for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2818	a signal."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2819
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2820	self subclassResonsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2821	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2822
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2823	enableTimer:milliSeconds
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2824	"setup for a timerInterrupt, to be signalled after some (real) time."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2825
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2826	self subclassResonsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2827	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2828
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2829	enableUserInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2830	"enable userInterrupt (^C) handling;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2831	when enabled, ^C in the terminal window will send the message
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2832	'userInterrupt' to the UserInterruptHandler object."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2833
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2834	self enableSignal:(self sigINT).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2835	self enableSignal:(self sigBREAK).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2836	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2837
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2838	interruptPending
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2839	"return true, if an interrupt is pending. The returned value is
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2840	invalid if interrupts are not currently blocked, since otherwise
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2841	the interrupt is usually already handled before arriving here,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2842	or may be served while returning from here."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2843
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2844	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2845	extern OBJ __INTERRUPTPENDING();
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2846
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2847	RETURN ( __INTERRUPTPENDING() );
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2848	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2849	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2850
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2851	interruptsBlocked
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2852	"return true, if interrupt handling is currently disabled;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2853	false otherwise."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2854
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2855	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2856	extern OBJ __INTERRUPTS_BLOCKED();
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2857
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2858	RETURN ( __INTERRUPTS_BLOCKED() );
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2859	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2860	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2861
6536 bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2862	isFatalSignal:aNumber
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2863	"return true if a signal with number aNumber is a fatal signal,
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2864	i.e. some severe internal error occured"
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2865
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2866	^ self subclassResponsibility
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2867	!
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2868
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2869	killProcess:processId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2870	"kill an OS process.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2871	The process has a no chance to do some cleanup.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2872
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2873	WARNING: in order to avoid zombie processes (on unix),
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2874	you may have to fetch the processes exitstatus with
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2875	OperatingSystem>>getStatusOfProcess:aProcessId."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2876
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2877	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2878
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2879	"Modified: / 10.6.1998 / 12:00:07 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2880	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2881
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2882	killProcessGroup:processGroupId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2883	"kill an OS process group.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2884	The process has NO chance to do some cleanup.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2885
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2886	WARNING: in order to avoid zombie processes (on unix),
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2887	you may have to fetch the processes exitstatus with
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2888	OperatingSystem>>getStatusOfProcess:aProcessId."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2889
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2890	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2891
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2892	"Created: / 10.6.1998 / 12:00:26 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2893	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2894
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2895	nameForSignal:aSignalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2896	"for a given Unix signalnumber, return a descriptive string"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2897
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2898	aSignalNumber == self sigHUP ifTrue:[^ 'hangup'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2899	aSignalNumber == self sigINT ifTrue:[^ 'interrupt'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2900	aSignalNumber == self sigKILL ifTrue:[^ 'kill'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2901	aSignalNumber == self sigQUIT ifTrue:[^ 'quit'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2902	aSignalNumber == self sigILL ifTrue:[^ 'illegal instruction'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2903	aSignalNumber == self sigTRAP ifTrue:[^ 'trap'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2904	aSignalNumber == self sigABRT ifTrue:[^ 'abort'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2905	aSignalNumber == self sigIOT ifTrue:[^ 'iot trap'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2906	aSignalNumber == self sigEMT ifTrue:[^ 'emt trap'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2907	aSignalNumber == self sigFP ifTrue:[^ 'fp exception'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2908	aSignalNumber == self sigBUS ifTrue:[^ 'bus error'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2909	aSignalNumber == self sigSEGV ifTrue:[^ 'segmentation violation'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2910	aSignalNumber == self sigSYS ifTrue:[^ 'bad system call'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2911	aSignalNumber == self sigPIPE ifTrue:[^ 'broken pipe'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2912	aSignalNumber == self sigALRM ifTrue:[^ 'alarm timer'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2913	aSignalNumber == self sigTERM ifTrue:[^ 'termination'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2914	aSignalNumber == self sigSTOP ifTrue:[^ 'stop'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2915	aSignalNumber == self sigTSTP ifTrue:[^ 'tty stop'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2916	aSignalNumber == self sigCONT ifTrue:[^ 'continue'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2917	aSignalNumber == self sigCHLD ifTrue:[^ 'child death'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2918	aSignalNumber == self sigTTIN ifTrue:[^ 'background tty input'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2919	aSignalNumber == self sigTTOU ifTrue:[^ 'background tty output'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2920	aSignalNumber == self sigIO ifTrue:[^ 'io available'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2921	aSignalNumber == self sigXCPU ifTrue:[^ 'cpu time expired'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2922	aSignalNumber == self sigXFSZ ifTrue:[^ 'file size limit'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2923	aSignalNumber == self sigVTALRM ifTrue:[^ 'virtual alarm timer'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2924	aSignalNumber == self sigPROF ifTrue:[^ 'profiling timer'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2925	aSignalNumber == self sigWINCH ifTrue:[^ 'winsize changed'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2926	aSignalNumber == self sigLOST ifTrue:[^ 'resource lost'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2927	aSignalNumber == self sigUSR1 ifTrue:[^ 'user signal 1'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2928	aSignalNumber == self sigUSR2 ifTrue:[^ 'user signal 2'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2929	aSignalNumber == self sigMSG ifTrue:[^ 'HFT message'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2930	aSignalNumber == self sigPWR ifTrue:[^ 'power-fail'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2931	aSignalNumber == self sigPRE ifTrue:[^ 'programming exception'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2932	aSignalNumber == self sigGRANT ifTrue:[^ 'HFT access wanted'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2933	aSignalNumber == self sigRETRACT ifTrue:[^ 'HFT access relinquish'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2934	aSignalNumber == self sigSOUND ifTrue:[^ 'HFT sound complete'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2935	aSignalNumber == self sigDANGER ifTrue:[^ 'low on paging space'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2936
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2937	"notice: many systems map SIGPOLL and/or SIGUSR onto SIGIO
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2938	therefore, keep SIGIO always above the two below"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2939	aSignalNumber == self sigPOLL ifTrue:[^ 'io available'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2940	aSignalNumber == self sigURG ifTrue:[^ 'urgent'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2941
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2942	^ 'unknown signal'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2943
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2944	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2945	OperatingSystem nameForSignal:9
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2946	OperatingSystem nameForSignal:(OperatingSystem sigPOLL)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2947	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2948	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2949
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2950	operatingSystemSignal:signalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2951	"return the signal to be raised when an
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2952	operatingSystem-signal occurs, or nil"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2953
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2954	OSSignals notNil ifTrue:[
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2955	^ OSSignals at:signalNumber ifAbsent:[nil]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2956	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2957	^ nil
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2958	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2959
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2960	operatingSystemSignal:signalNumber install:aSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2961	"install a signal to be raised when an operatingSystem-signal occurs"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2962
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2963	OSSignals isNil ifTrue:[
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2964	OSSignals := Array new:32
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2965	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2966	OSSignals at:signalNumber put:aSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2967	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2968
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2969	sendSignal:signalNumber to:processId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2970	"send a unix signal to some process (maybe myself).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2971	Returns false if any error occurred, true otherwise.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2972
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2973	Do not confuse UNIX signals with Smalltalk-Signals.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2974
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2975	WARNING: in order to avoid zombie processes (on unix),
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2976	you may have to fetch the processes exitstatus with
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2977	OperatingSystem>>getStatusOfProcess:aProcessId
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2978	if the signal terminates that process."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2979
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2980	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2981	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2982
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2983	startSpyTimer
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2984	"trigger a spyInterrupt, to be signalled after some short (virtual) time.
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2985	Return true, if the spy-timerInterrupt was enabled.
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2986	This was used by the old MessageTally for profiling.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2987	On systems, where no virtual timer is available, use the real timer
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2988	(which is of course less correct).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2989	OBSOLETE: the new messageTally runs as a high prio process, not using
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2990	spy interrupts."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2991
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2992	^ false
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2993	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2994
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2995	stopSpyTimer
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2996	"stop spy timing - disable spy timer.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2997	OBSOLETE: the new messageTally runs as a high prio process, not using
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	2998	spy interrupts."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2999
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	3000	^ false
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3001	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3002
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3003	terminateProcess:processId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3004	"terminate a unix process.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3005	The process has a chance to do some cleanup.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3006
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3007	WARNING: in order to avoid zombie processes (on unix),
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3008	you may have to fetch the processes exitstatus with
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3009	OperatingSystem>>getStatusOfProcess:aProcessId."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3010
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3011	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3012	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3013
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3014	terminateProcessGroup:processGroupId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3015	"terminate a unix process group.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3016	The process has a chance to do some cleanup.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3017
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3018	WARNING: in order to avoid zombie processes (on unix),
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3019	you may have to fetch the processes exitstatus with
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3020	OperatingSystem>>getStatusOfProcess:aProcessId."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3021
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3022	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3023	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3024
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3025	unblockInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3026	"enable interrupt processing - if any interrupts are pending,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3027	these will be handled immediately.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3028	When unblocking interrupts, take care of nested block/unblock
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3029	calls - you must only unblock after a blockcall if they where
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3030	really not blocked before. See OperatingSystemclass>>blockInterrupts."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3031	%{
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3032	__UNBLOCKINTERRUPTS();
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3033	RETURN (nil);
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3034	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3035	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3036
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3037	!AbstractOperatingSystem class methodsFor:'misc'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3038
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3039	closePid:pid
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3040	"free pid resource"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3041
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3042	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3043	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3044
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3045	exit
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3046	"shutdown smalltalk immediately - this method does not return.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3047	Return 'good'-status (0) to the parent unix process."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3048
5429 f4a52365fc97 checkin from browser Claus Gittinger <cg@exept.de> parents: 5407 diff changeset	3049	self exit:0.
f4a52365fc97 checkin from browser Claus Gittinger <cg@exept.de> parents: 5407 diff changeset	3050
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3051	"OperatingSystem exit - dont evaluate this"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3052	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3053
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3054	exit:exitCode
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3055	"shutdown smalltalk immediately -
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3056	returning an exit-code to the parent unix process."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3057
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3058	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3059	int code = 1;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3060
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3061	if (__isSmallInteger(exitCode)) {
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3062	code = __intVal(exitCode);
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3063	}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3064	__mainExit(code);
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3065	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3066	"OperatingSystem exit:1 - dont evaluate this"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3067	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3068
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3069	exitWithCoreDump
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3070	"shutdown smalltalk immediately - dumping core.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3071	This always returns 'bad'-status to the parent unix process.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3072	Notice, that no cleanup is performed at all - you may have to
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3073	manually remove any tempfiles.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3074	Use this only for debugging ST/X itself"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3075
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3076	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3077	abort();
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3078	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3079	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3080	OperatingSystem exitWithCoreDump - dont evaluate this
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3081	"
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3082	!
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3083
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3084	getVMSSymbol:aSymbolString
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3085	"get a symbols value, or nil if there is none"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3086
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3087	^ nil
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3088
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3089	"Created: / 5.6.1998 / 19:02:50 / cg"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3090	"Modified: / 5.6.1998 / 19:03:15 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3091	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3092
7289 ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3093	!AbstractOperatingSystem class methodsFor:'obsolete'!
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3094
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3095	getNetworkMACAdresses
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3096	"backward compatibility; bad spelling"
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3097
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3098	<resource:#obsolete>
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3099
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3100	^ self getNetworkMACAddresses
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3101	!
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3102
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3103	getNetworkMACAdressesForIf:ifName
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3104	"backward compatibility; bad spelling"
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3105
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3106	<resource:#obsolete>
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3107
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3108	^ self getNetworkMACAddressesForIf:ifName
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3109	! !
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3110
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3111	!AbstractOperatingSystem class methodsFor:'os queries'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3112
3806 37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3113	getCCDefine
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3114	"return a string which was used to identify the C-Compiler used
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3115	when STX was compiled, and which should be passed down when compiling methods.
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3116	For example, on linux, this is '__GNUC__';
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3117	on windows, this is either '__MSC__' or '__BORLANDC__'"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3118
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3119	%{ /* NOCONTEXT */
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3120	#ifndef CC_DEFINE
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3121	# ifdef WIN32
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3122	# ifdef __BORLANDC__
3829 4690e0bc7ce7 added isWINDOWSNT query Claus Gittinger <cg@exept.de> parents: 3826 diff changeset	3123	# define CC_DEFINE "__BORLANDC__"
3806 37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3124	# else
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3125	# define CC_DEFINE "__MSC__"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3126	# endif
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3127	# else
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3128	# ifdef __GNUC__
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3129	# define CC_DEFINE "__GNUC__"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3130	# else
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3131	# define CC_DEFINE "__CC__"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3132	# endif
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3133	# endif
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3134	#endif
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3135	RETURN ( __MKSTRING(CC_DEFINE));
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3136	%}
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3137	"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3138	OperatingSystem getCCDefine
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3139	"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3140	!
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3141
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3142	getCPUDefine
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3143	"return a string which was used to identify this CPU type when STX was
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3144	compiled, and which should be passed down when compiling methods.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3145	For example, on linux, this may be '-Di386'; on a vax, this would be '-Dvax'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3146	This is normally not of interest to 'normal' users; however, it is passed
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3147	down to the c-compiler when methods are incrementally compiled to machine code."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3148
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3149	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3150	# ifndef CPU_DEFINE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3151	# define CPU_DEFINE "-DunknownCPU"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3152	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3153
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3154	RETURN ( __MKSTRING(CPU_DEFINE));
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3155	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3156	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3157	OperatingSystem getCPUDefine
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3158	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3159	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3160
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3161	getCPUType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3162	"return a string giving the type of machine we're running on.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3163	Here, the machine for which ST/X was compiled is returned
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3164	(i.e. for all x86's, the same i386 is returned).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3165	This may normally not be of any interest to you ..."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3166
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3167	\|cpu\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3168
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3169	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3170
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3171	# ifdef vax
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3172	# define CPU_SYMBOL @symbol(vax)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3173	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3174	# ifdef mips
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3175	# define CPU_SYMBOL @symbol(mips)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3176	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3177	# ifdef i386
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3178	# define CPU_SYMBOL @symbol(i386)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3179	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3180	# ifdef i860
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3181	# define CPU_SYMBOL @symbol(i860)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3182	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3183	# ifdef ns32k
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3184	# define CPU_SYMBOL @symbol(ns32k)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3185	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3186	# ifdef mc68k
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3187	# define CPU_SYMBOL @symbol(mc68k)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3188	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3189	# ifdef mc88k
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3190	# define CPU_SYMBOL @symbol(mc88k)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3191	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3192	# ifdef sparc
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3193	# define CPU_SYMBOL @symbol(sparc)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3194	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3195	# ifdef hppa
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3196	# define CPU_SYMBOL @symbol(hppa)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3197	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3198	# ifdef rs6000
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3199	# define CPU_SYMBOL @symbol(rs6000)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3200	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3201	# ifdef powerPC
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3202	# define CPU_SYMBOL @symbol(powerPC)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3203	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3204	# ifdef alpha
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3205	# define CPU_SYMBOL @symbol(alpha)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3206	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3207	# ifdef transputer
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3208	# define CPU_SYMBOL @symbol(transputer)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3209	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3210	# ifdef ibm370
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3211	# define CPU_SYMBOL @symbol(ibm370)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3212	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3213
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3214	# ifndef CPU_SYMBOL
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3215	# define CPU_SYMBOL @symbol(unknown)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3216	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3217
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3218	cpu = CPU_SYMBOL;
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3219	# undef CPU_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3220	%}.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3221	^ cpu
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3222
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3223	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3224	OperatingSystem getCPUType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3225	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3226
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3227	"examples: are we running on a ss-10/solaris ?"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3228	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3229	(OperatingSystem getCPUType = 'sparc')
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3230	and:[OperatingSystem getOSType = 'solaris']
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3231	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3232
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3233	"or on a pc/solaris ?"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3234	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3235	(OperatingSystem getCPUType = 'i386')
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3236	and:[OperatingSystem getOSType = 'solaris']
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3237	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3238	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3239
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3240	getDomainName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3241	"return the domain this host is in.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3242	Notice:
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3243	not all systems support this; on some, 'unknown' is returned."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3244
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3245	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3246	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3247
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3248	getEnvironment:aStringOrSymbol
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3249	"get an environment string"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3250
5407 d6729266a95b * empty log message * Claus Gittinger <cg@exept.de> parents: 5172 diff changeset	3251	^ self subclassResponsibility
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3252	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3253
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3254	getHostName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3255	"return the hostname we are running on - if there is
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3256	a HOST environment variable, we are much faster here ...
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3257	Notice:
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3258	not all systems support this; on some, 'unknown' is returned."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3259
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3260	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3261	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3262
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3263	getLocaleInfo
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3264	"return a dictionary filled with values from the locale information;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3265	Not all fields may be present, depending on the OS's setup and capabilities.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3266	Possible fields are:
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3267	decimalPoint <String>
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3268
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3269	thousandsSep <String>
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3270
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3271	internationalCurrencySymbol <String>
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3272
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3273	currencySymbol <String>
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3274
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3275	monetaryDecimalPoint <String>
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3276
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3277	monetaryThousandsSeparator <String>
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3278
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3279	positiveSign <String>
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3280
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3281	negativeSign <String>
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3282
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3283	internationalFractionalDigits <Integer>
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3284
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3285	fractionalDigits <Integer>
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3286
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3287	positiveSignPrecedesCurrencySymbol <Boolean>
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3288
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3289	negativeSignPrecedesCurrencySymbol <Boolean>
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3290
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3291	positiveSignSeparatedBySpaceFromCurrencySymbol <Boolean>
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3292
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3293	negativeSignSeparatedBySpaceFromCurrencySymbol <Boolean>
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3294
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3295	positiveSignPosition <Symbol>
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3296	one of: #parenthesesAround,
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3297	#signPrecedes,
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3298	#signSuceeds,
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3299	#signPrecedesCurrencySymbol,
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3300	#signSuceedsCurrencySymbol
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3301
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3302	negativeSignPosition <like above>
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3303
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3304	it is up to the application to deal with undefined values.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3305
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3306	Notice, that (for now), the system does not use this information;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3307	it should be used by applications as required.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3308	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3309
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3310	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3311	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3312
7289 ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3313	getNetworkMACAddresses
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3314	"return a dictionary with key:name of interface and
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3315	value:the MAC adress for each interface"
6363 4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3316
4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3317	self subclassResponsibility
4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3318	!
4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3319
7289 ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3320	getNetworkMACAddressesForIf:ifName
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3321	"return the MAC adress for interface ifName"
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3322
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3323	self getNetworkMACAddresses at:ifName
6363 4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3324	!
4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3325
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3326	getOSDefine
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3327	"return a string which was used to identify this machine when stx was
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3328	compiled, and which should be passed down when compiling methods.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3329	For example, on linux, this is '-DLINUX'."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3330
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3331	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3332
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3333	#ifndef OS_DEFINE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3334	# ifdef WIN32
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3335	# define OS_DEFINE "-DWIN32"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3336	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3337
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3338	# ifndef OS_DEFINE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3339	# define OS_DEFINE "-DunknownOS"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3340	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3341	#endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3342
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3343	RETURN ( __MKSTRING(OS_DEFINE));
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3344
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3345	#undef OS_DEFINE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3346	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3347	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3348	OperatingSystem getOSDefine
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3349	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3350	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3351
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3352	getOSType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3353	"return a string giving the type of OS we're running on.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3354	This can be used to adapt programs to certain environment
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3355	differences (for example: mail-lock strategy ...)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3356
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3357	\|os\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3358
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3359	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3360
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3361	# ifdef MSDOS
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3362	# define OS_SYMBOL @symbol(msdos)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3363	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3364
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3365	# ifdef WIN32
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3366	# define OS_SYMBOL @symbol(win32)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3367	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3368
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3369	# ifdef MSWINDOWS
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3370	# define OS_SYMBOL @symbol(mswindows)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3371	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3372
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3373	# ifdef VMS
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3374	# ifdef __openVMS__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3375	# define OS_SYMBOL @symbol(openVMS)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3376	# else
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3377	# define OS_SYMBOL @symbol(VMS)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3378	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3379	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3380
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3381	# ifdef MVS /* ;-) */
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3382	# define OS_SYMBOL @symbol(mvs)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3383	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3384
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3385	# ifdef OS2
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3386	# define OS_SYMBOL @symbol(os2)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3387	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3388
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3389	# ifdef sinix
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3390	# define OS_SYMBOL @symbol(sinix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3391	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3392
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3393	# ifdef ultrix
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3394	# define OS_SYMBOL @symbol(ultrix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3395	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3396
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3397	# ifdef sco
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3398	# define OS_SYMBOL @symbol(sco)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3399	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3400
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3401	# ifdef hpux
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3402	# define OS_SYMBOL @symbol(hpux)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3403	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3404
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3405	# ifdef LINUX
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3406	# define OS_SYMBOL @symbol(linux)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3407	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3408
6651 4bc133e27717 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	3409	# ifdef FREEBSD
4bc133e27717 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	3410	# define OS_SYMBOL @symbol(freeBSD)
4bc133e27717 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	3411	# endif
4bc133e27717 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	3412
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3413	# ifdef sunos
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3414	# define OS_SYMBOL @symbol(sunos)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3415	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3416
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3417	# ifdef solaris
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3418	# define OS_SYMBOL @symbol(solaris)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3419	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3420
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3421	# ifdef IRIS
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3422	# define OS_SYMBOL @symbol(irix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3423	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3424
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3425	# ifdef aix
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3426	# define OS_SYMBOL @symbol(aix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3427	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3428
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3429	# ifdef realIX
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3430	# define OS_SYMBOL @symbol(realIX)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3431	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3432
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3433	# ifdef __osf__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3434	# define OS_SYMBOL @symbol(osf)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3435	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3436
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3437	/*
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3438	* no concrete info; become somewhat vague ...
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3439	*/
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3440	# ifndef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3441	# ifdef MACH
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3442	# define OS_SYMBOL @symbol(mach)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3443	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3444	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3445
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3446	# ifndef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3447	# ifdef BSD
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3448	# define OS_SYMBOL @symbol(bsd)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3449	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3450
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3451	# ifdef SYSV
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3452	# ifdef SYSV3
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3453	# define OS_SYMBOL @symbol(sys5_3)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3454	# else
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3455	# ifdef SYSV4
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3456	# define OS_SYMBOL @symbol(sys5_4)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3457	# else
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3458	# define OS_SYMBOL @symbol(sys5)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3459	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3460	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3461	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3462	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3463
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3464	/*
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3465	* become very vague ...
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3466	*/
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3467	# ifndef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3468	# ifdef POSIX
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3469	# define OS_SYMBOL @symbol(posix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3470	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3471	# endif
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3472	# ifndef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3473	# ifdef UNIX
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3474	# define OS_SYMBOL @symbol(unix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3475	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3476	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3477
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3478	# ifndef OS_SYMBOL
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3479	# define OS_SYMBOL @symbol(unknown)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3480	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3481
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3482	os = OS_SYMBOL;
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3483
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3484	# undef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3485	%}.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3486	^ os
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3487
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3488	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3489	OperatingSystem getOSType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3490	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3491	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3492
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3493	getProcessId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3494	"return the (unix-)processId"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3495
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3496	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3497	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3498
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3499	getSystemID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3500	"if supported by the OS, return the systemID;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3501	a unique per machine identification.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3502	WARNING:
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3503	not all systems support this; on some, 'unknown' is returned."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3504
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3505	^ 'unknown'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3506
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3507	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3508	OperatingSystem getSystemID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3509	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3510	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3511
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3512	getSystemInfo
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3513	"return info on the system weare running on.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3514	If the system supports the uname system call, that info is returned;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3515	otherwise, some simulated info is returned.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3516
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3517	WARNING:
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3518	Do not depend on the amount and contents of the returned information, some
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3519	systems may return more/less than others. Also, the contents depends on the
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3520	OS, for example, linux returns 'ix86', while WIN32 returns 'x86'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3521
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3522	This method is mainly provided to augment error reports with some system
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3523	information.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3524	(in case of system/version specific OS errors, conditional workarounds and patches
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3525	may be based upon this info).
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3526	Your application should NOT depend upon this in any way.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3527
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3528	The returned info may (or may not) contain:
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3529	#system -> some operating system identification (irix, Linux, nt, win32s ...)
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3530	#version -> OS version (some os version identification)
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3531	#release -> OS release (3.5, 1.2.1 ...)
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3532	#node -> some host identification (hostname)
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3533	#domain -> domain name (hosts domain)
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3534	#machine -> type of machine (i586, mips ...)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3535	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3536
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3537	\|info\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3538
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3539	info := IdentityDictionary new.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3540	info at:#system put:(self getSystemType).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3541	info at:#node put:(self getHostName).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3542	info at:#machine put:(self getCPUType).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3543	info at:#architecture put:'unknown'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3544	info at:#domain put:self getDomainName.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3545	info at:#osType put:(self getOSType).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3546	^ info
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3547
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3548	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3549	OperatingSystem getSystemInfo
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3550	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3551	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3552
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3553	getSystemType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3554	"return a string giving the type of system we're running on.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3555	This is almost the same as getOSType, but the returned string
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3556	is slightly different for some systems (i.e. iris vs. irix).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3557	Dont depend on this - use getOSType. I dont really see a point
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3558	here ...
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3559	(except for slight differences between next/mach and other machs)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3560
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3561	^ self getOSType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3562
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3563	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3564	OperatingSystem getSystemType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3565	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3566	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3567
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3568	getWindowsDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3569	"internal interface - only for Windows based systems.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3570	Return the windows directory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3571	(which - depending on the system - may be \WINNT, \WINDOWS or whatever)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3572	On non-windows systems, nil is returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3573
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3574	^ nil
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3575
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3576	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3577	OperatingSystem getWindowsDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3578	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3579	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3580
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3581	getWindowsSystemDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3582	"internal interface - only for Windows based systems.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3583	Return the windows system directory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3584	(which - depending on the system - may be \WINNT\SYSTEM32,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3585	\WINDOWS\SYSTEM or whatever)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3586	On non-windows systems, nil is returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3587
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3588	^ nil
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3589
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3590	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3591	OperatingSystem getWindowsSystemDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3592	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3593	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3594
4207 89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3595	hasConsole
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3596	"return true, if there is some kind of console available
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3597	(i.e. for proper stdIn, stdOut and stdErr handling).
5918 0d8bc97e7106 * empty log message * Claus Gittinger <cg@exept.de> parents: 5861 diff changeset	3598	This only returns false when running under windows, and
4207 89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3599	the system is running as a pure windows application.
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3600	If false, the miniDebugger is useless and not used."
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3601
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3602	^ true
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3603	!
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3604
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3605	isBSDlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3606	"return true, if the OS we're running on is a 'real' unix."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3607
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3608	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3609	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3610
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3611	isMAClike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3612	"return true, if running on a macOS (but not on A/UX)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3613
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3614	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3615	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3616
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3617	isMSDOSlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3618	"return true, if the OS we're running on is msdos like
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3619	(in contrast to unix-like).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3620	This returns true for any of msdos, win32s, win95,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3621	winNT and os/2."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3622
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3623	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3624	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3625
3901 3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3626	isMSWINDOWSNTlike
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3627	"This returns true if running in a Windows-NT system."
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3628
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3629	^ false.
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3630	!
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3631
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3632	isMSWINDOWSlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3633	"return true, if running on a MS-Windows like system.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3634	This returns true for any of win32s, win95 and winNT."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3635
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3636	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3637	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3638
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3639	isOS2like
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3640	"return true, if the OS we're running on is OS2 like.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3641	Only returns true for a plain OS/2 system."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3642
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3643	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3644	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3645
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3646	isUNIXlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3647	"return true, if the OS we're running on is a unix like."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3648
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3649	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3650	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3651
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3652	isVMSlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3653	"return true, if the OS we're running in is VMS (or openVMS)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3654
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3655	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3656	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3657
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3658	maxFileNameLength
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3659	"return the max number of characters in a filename.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3660	CAVEAT:
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3661	Actually, the following is somewhat wrong - some systems
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3662	support different sizes, depending on the volume.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3663	We return a somewhat conservative number here.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3664	Another entry, to query for volume specific max
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3665	will be added in the future."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3666
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3667	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3668	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3669
6578 e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3670	maxNumberOfOpenFiles
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3671	"answer the maximum number of open files for this process"
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3672
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3673	^ self subclassResponsibility
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3674	!
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3675
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3676	maxPathLength
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3677	"return the max number of characters in a pathName."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3678
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3679	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3680	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3681
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3682	pathSeparator
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3683	"return the character which separates items in the PATH variable"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3684
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3685	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3686	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3687
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3688	platformName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3689	"return a string describing the OS platform very we're running on.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3690	This returns #unix for all unix derivatives.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3691	I.e. it is much less specific than getOSType or getSystemType."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3692
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3693	\|os\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3694
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3695	os := self getSystemType.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3696	os = 'win32' ifTrue:[ ^ #win32].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3697	os = 'os2' ifTrue:[ ^ #os2].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3698	os = 'macos' ifTrue:[ ^ #mac].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3699	os = 'VMS' ifTrue:[ ^ #vms].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3700	os = 'openVMS' ifTrue:[ ^ #vms].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3701	^ #unix
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3702
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3703	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3704	OperatingSystem platformName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3705	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3706
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3707	"Modified: 20.6.1997 / 17:37:26 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3708	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3709
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3710	setLocaleInfo:anInfoDictionary
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3711	"set the locale information; if set, this oerrides the OS's settings.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3712	(internal in ST/X only - the OS's settings remain unaffected)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3713	See description of fields in #getLocaleInfo.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3714
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3715	Notice, that (for now), the system does not use this information;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3716	it should be used by applications as required."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3717
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3718	LocaleInfo := anInfoDictionary
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3719
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3720	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3721	\|d\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3722
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3723	d := IdentityDictionary new.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3724	d at:#decimalPoint put:'.' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3725	d at:#thousandsSeparator put:',' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3726	d at:#currencySymbol put:'USD' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3727	d at:#monetaryDecimalPoint put:'.' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3728	d at:#monetaryThousandsSeparator put:'.' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3729	d at:#fractionalDigits put:2 .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3730	d at:#positiveSign put:'+' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3731	d at:#negativeSign put:'-' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3732	d at:#positiveSignPrecedesCurrencySymbol put:true .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3733	d at:#negativeSignPrecedesCurrencySymbol put:false .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3734	OperatingSystem setLocaleInfo:d
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3735	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3736	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3737
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3738	supportsChildInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3739	"return true, if the OS supports childProcess termination signalling
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3740	through interrupts (i.e. SIGCHILD)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3741
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3742	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3743
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3744	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3745	OperatingSystem supportsChildInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3746	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3747	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3748
3826 ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3749	supportsFileOwnerGroups
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3750	"return true, if the OS's file system supports file
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3751	group ownership - here, we are optimistic assuming that
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3752	we are running under a real OS.
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3753	Redefined in Win32OS to return false."
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3754
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3755	^ true
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3756
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3757	"Modified: / 10.9.1998 / 17:48:20 / cg"
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3758	"Created: / 10.9.1998 / 17:56:28 / cg"
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3759	!
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3760
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3761	supportsFileOwners
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3762	"return true, if the OS's file system supports file
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3763	ownership - here, we are optimistic assuming that
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3764	we are running under a real OS.
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3765	Redefined in Win32OS to return false."
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3766
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3767	^ true
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3768
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3769	"Modified: / 10.9.1998 / 17:48:20 / cg"
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3770	"Created: / 10.9.1998 / 17:56:11 / cg"
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3771	!
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3772
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3773	supportsIOInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3774	"return true, if the OS supports IO availability interrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3775	(i.e. SIGPOLL/SIGIO)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3776
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3777	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3778
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3779	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3780	OperatingSystem supportsIOInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3781	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3782	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3783
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3784	supportsNonBlockingIO
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3785	"return true, if the OS supports nonblocking IO."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3786
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3787	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3788
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3789	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3790	OperatingSystem supportsNonBlockingIO
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3791	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3792	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3793
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3794	supportsSelect
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3795	"return true, if the OS supports selecting on multiple
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3796	filedescriptors via select.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3797	If false is returned, ProcessorScheduler will poll in 50ms
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3798	intervals for I/O becoming ready."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3799
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3800	^ true
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3801
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3802	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3803	OperatingSystem supportsSelect
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3804	"
3901 3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3805	!
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3806
5099 bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3807	supportsSelectOnPipes
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3808	"return true, if the OS supports selecting on pipe
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3809	filedescriptors via select.
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3810	If false is returned, ProcessorScheduler will poll in 50ms
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3811	intervals for I/O becoming ready."
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3812
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3813	^ true
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3814
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3815	"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3816	OperatingSystem supportsSelectOnPipes
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3817	"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3818
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3819	"Modified: / 14.12.1999 / 19:40:32 / cg"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3820	"Created: / 14.12.1999 / 19:43:43 / cg"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3821	!
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3822
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3823	supportsSelectOnSockets
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3824	"return true, if the OS supports selecting on socket
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3825	filedescriptors via select.
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3826	If false is returned, ProcessorScheduler will poll in 50ms
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3827	intervals for I/O becoming ready."
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3828
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3829	^ true
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3830
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3831	"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3832	OperatingSystem supportsSelectOnSockets
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3833	"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3834
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3835	"Modified: / 14.12.1999 / 19:40:32 / cg"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3836	!
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3837
3901 3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3838	supportsVolumes
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3839	"return true, if the OS supports disk volumes.
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3840	False is returned for UNIX, true for MSDOS and VMS"
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3841
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3842	^ false
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3843
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3844	"Created: / 29.10.1998 / 13:20:37 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3845	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3846
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3847	!AbstractOperatingSystem class methodsFor:'path queries'!
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3848
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3849	defaultPackagePath
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3850	"return a default packagePath - thats a collection of
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3851	dirnames, where ST/X searches for its package subdirs.
5159 ca0524ab2576 defaultPackagePath initialization fixed Claus Gittinger <cg@exept.de> parents: 5148 diff changeset	3852	This method might be redefined in concrete OS's to add
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3853	OS-specific directory names."
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3854
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3855	\|pPath p homePath priv userPrivateSTXDir\|
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3856
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3857	"
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3858	the path is set to search files first locally
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3859	- this allows private stuff to override global stuff
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3860	"
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3861	pPath := OrderedCollection new.
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3862
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3863	"/
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3864	"/ the current (default) directory
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3865	"/
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3866	pPath add:(Filename currentDirectory name).
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3867
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3868	"/
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3869	"/ the users home (login) directory
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3870	"/
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3871	homePath := OperatingSystem getHomeDirectory.
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3872	homePath notNil ifTrue:[
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3873	(pPath includes:homePath) ifFalse:[
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3874	pPath add:homePath.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3875	].
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3876
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3877	"/
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3878	"/ a users private smalltalk directory in its home (login) directory
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3879	"/
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3880	OperatingSystem isUNIXlike ifTrue:[
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3881	priv := '.smalltalk'.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3882	] ifFalse:[
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3883	priv := 'smalltalk'.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3884	].
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3885	userPrivateSTXDir := homePath asFilename constructString:priv.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3886	(userPrivateSTXDir asFilename isDirectory) ifTrue:[
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3887	(pPath includes:userPrivateSTXDir) ifFalse:[
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3888	pPath add:userPrivateSTXDir
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3889	]
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3890	].
5654 96a2142a2c04 Use for packagePath Stefan Vogel <sv@exept.de> parents: 5646 diff changeset	3891	].
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3892
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3893	"/
5159 ca0524ab2576 defaultPackagePath initialization fixed Claus Gittinger <cg@exept.de> parents: 5148 diff changeset	3894	"/ STX_TOPDIR from the environment
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3895	"/
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3896	p := OperatingSystem getEnvironment:'STX_TOPDIR'.
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3897	p notNil ifTrue:[
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3898	(pPath includes:p) ifFalse:[
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3899	pPath add:p
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3900	].
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3901	].
5172 7129dedcdd3a * empty log message * Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	3902	pPath add:'/opt/smalltalk'.
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3903	pPath := pPath select:[:p \| (p asFilename construct:'packages') exists].
5161 22ed38191c36 checkin from browser Claus Gittinger <cg@exept.de> parents: 5159 diff changeset	3904	pPath := pPath collect:[:p \| (p asFilename constructString:'packages')].
5654 96a2142a2c04 Use for packagePath Stefan Vogel <sv@exept.de> parents: 5646 diff changeset	3905
96a2142a2c04 Use for packagePath Stefan Vogel <sv@exept.de> parents: 5646 diff changeset	3906	(p := OperatingSystem getEnvironment:'STX_PACKAGEPATH') notNil ifTrue:[
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3907	p := p asCollectionOfSubstringsSeparatedBy:$:.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3908	p reverseDo:[:dir\|
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3909	(pPath includes:dir) ifFalse:[
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3910	pPath addFirst:dir.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3911	].
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3912	].
5654 96a2142a2c04 Use for packagePath Stefan Vogel <sv@exept.de> parents: 5646 diff changeset	3913	].
96a2142a2c04 Use for packagePath Stefan Vogel <sv@exept.de> parents: 5646 diff changeset	3914
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3915	^ pPath
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3916
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3917	"
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3918	self defaultPackagePath
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3919	"
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3920
5148 1a4b6b99888d * empty log message * Claus Gittinger <cg@exept.de> parents: 5143 diff changeset	3921	"Modified: / 24.12.1999 / 00:31:29 / cg"
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3922	!
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3923
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3924	defaultSystemPath
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3925	"return a default systemPath - thats a collection of
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3926	dirnames, where ST/X searches for its files.
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3927	This method is redefined in concrete OS's to add
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3928	OS-specific directory names."
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3929
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3930	\|sysPath p homePath priv userPrivateSTXDir\|
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3931
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3932	"
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3933	the path is set to search files first locally
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3934	- this allows private stuff to override global stuff
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3935	"
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3936	sysPath := OrderedCollection new.
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3937
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3938	"/
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3939	"/ the current (default) directory
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3940	"/
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3941	sysPath add:(Filename currentDirectory name).
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3942
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3943	"/
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3944	"/ the users home (login) directory
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3945	"/
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3946	homePath := OperatingSystem getHomeDirectory.
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3947	homePath notNil ifTrue:[
5646 5dfccce8e880 no longer automatically add the home-dir to the systemPath Claus Gittinger <cg@exept.de> parents: 5486 diff changeset	3948	"/ NO LONGER
5dfccce8e880 no longer automatically add the home-dir to the systemPath Claus Gittinger <cg@exept.de> parents: 5486 diff changeset	3949	"/ (sysPath includes:homePath) ifFalse:[
5dfccce8e880 no longer automatically add the home-dir to the systemPath Claus Gittinger <cg@exept.de> parents: 5486 diff changeset	3950	"/ sysPath add:homePath.
5dfccce8e880 no longer automatically add the home-dir to the systemPath Claus Gittinger <cg@exept.de> parents: 5486 diff changeset	3951	"/ ].
5dfccce8e880 no longer automatically add the home-dir to the systemPath Claus Gittinger <cg@exept.de> parents: 5486 diff changeset	3952	"/
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3953	"/
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3954	"/ a users private smalltalk directory in its home (login) directory
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3955	"/
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3956	OperatingSystem isUNIXlike ifTrue:[
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3957	priv := '.smalltalk'.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3958	] ifFalse:[
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3959	priv := 'smalltalk'.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3960	].
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3961	userPrivateSTXDir := homePath asFilename constructString:priv.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3962	(userPrivateSTXDir asFilename isDirectory) ifTrue:[
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3963	(sysPath includes:userPrivateSTXDir) ifFalse:[
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3964	sysPath add:userPrivateSTXDir
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3965	]
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3966	].
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3967	].
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3968
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3969	"/
5036 a967da9d41ac checkin from browser Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	3970	"/ SMALLTALK_LIBDIR, STX_LIBDIR and STX_TOPDIR from the environment
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3971	"/
5646 5dfccce8e880 no longer automatically add the home-dir to the systemPath Claus Gittinger <cg@exept.de> parents: 5486 diff changeset	3972	#( 'SMALLTALK_LIBDIR'
5dfccce8e880 no longer automatically add the home-dir to the systemPath Claus Gittinger <cg@exept.de> parents: 5486 diff changeset	3973	'STX_LIBDIR'
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3974	'STX_TOPDIR'
5646 5dfccce8e880 no longer automatically add the home-dir to the systemPath Claus Gittinger <cg@exept.de> parents: 5486 diff changeset	3975	) do:[:each \|
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3976	p := OperatingSystem getEnvironment:each.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3977	p notNil ifTrue:[
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3978	(sysPath includes:p) ifFalse:[
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3979	sysPath add:p
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3980	]
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	3981	].
5036 a967da9d41ac checkin from browser Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	3982	].
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3983	^ sysPath
5148 1a4b6b99888d * empty log message * Claus Gittinger <cg@exept.de> parents: 5143 diff changeset	3984
1a4b6b99888d * empty log message * Claus Gittinger <cg@exept.de> parents: 5143 diff changeset	3985	"Modified: / 24.12.1999 / 00:30:27 / cg"
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3986	! !
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3987
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3988	!AbstractOperatingSystem class methodsFor:'private'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3989
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3990	osProcessStatusClass
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3991	^ self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3992
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3993	"Created: / 12.6.1998 / 16:30:29 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3994	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3995
7258 9ccdbee7d1ad method category rename Claus Gittinger <cg@exept.de> parents: 7238 diff changeset	3996	!AbstractOperatingSystem class methodsFor:'private-OS execution helpers'!
6614 bed21ae9a498 fixed command i/o shuffling Claus Gittinger <cg@exept.de> parents: 6613 diff changeset	3997
bed21ae9a498 fixed command i/o shuffling Claus Gittinger <cg@exept.de> parents: 6613 diff changeset	3998	shuffleAllFrom:anInStream to:anOutStream lineWise:lineWise lockWith:aLock
7071 f064e8109832 must close ALL files in forked child process ca parents: 7069 diff changeset	3999	anInStream readWait.
6614 bed21ae9a498 fixed command i/o shuffling Claus Gittinger <cg@exept.de> parents: 6613 diff changeset	4000	[anInStream atEnd] whileFalse:[
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4001	anInStream readWait.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4002	aLock
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4003	critical:[
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4004	self
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4005	shuffleFrom:anInStream
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4006	to:anOutStream
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4007	lineWise:lineWise
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4008	]
6614 bed21ae9a498 fixed command i/o shuffling Claus Gittinger <cg@exept.de> parents: 6613 diff changeset	4009	]
bed21ae9a498 fixed command i/o shuffling Claus Gittinger <cg@exept.de> parents: 6613 diff changeset	4010	!
bed21ae9a498 fixed command i/o shuffling Claus Gittinger <cg@exept.de> parents: 6613 diff changeset	4011
bed21ae9a498 fixed command i/o shuffling Claus Gittinger <cg@exept.de> parents: 6613 diff changeset	4012	shuffleFrom:anInStream to:anOutStream lineWise:lineWise
bed21ae9a498 fixed command i/o shuffling Claus Gittinger <cg@exept.de> parents: 6613 diff changeset	4013	\|data nShuffled\|
bed21ae9a498 fixed command i/o shuffling Claus Gittinger <cg@exept.de> parents: 6613 diff changeset	4014
bed21ae9a498 fixed command i/o shuffling Claus Gittinger <cg@exept.de> parents: 6613 diff changeset	4015	lineWise ifTrue:[
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4016	anInStream readWait.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4017	data := anInStream nextLine.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4018	nShuffled := data size.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4019	nShuffled > 0 ifTrue:[
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4020	anOutStream nextPutLine:data
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4021	]
6614 bed21ae9a498 fixed command i/o shuffling Claus Gittinger <cg@exept.de> parents: 6613 diff changeset	4022	] ifFalse:[
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4023	data := anInStream nextAvailable:1024.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4024	nShuffled := data size.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4025	nShuffled > 0 ifTrue:[
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4026	anOutStream nextPutAll:data
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4027	]
6614 bed21ae9a498 fixed command i/o shuffling Claus Gittinger <cg@exept.de> parents: 6613 diff changeset	4028	].
bed21ae9a498 fixed command i/o shuffling Claus Gittinger <cg@exept.de> parents: 6613 diff changeset	4029	^ nShuffled
bed21ae9a498 fixed command i/o shuffling Claus Gittinger <cg@exept.de> parents: 6613 diff changeset	4030	!
bed21ae9a498 fixed command i/o shuffling Claus Gittinger <cg@exept.de> parents: 6613 diff changeset	4031
bed21ae9a498 fixed command i/o shuffling Claus Gittinger <cg@exept.de> parents: 6613 diff changeset	4032	shuffleRestFrom:anInStream to:anOutStream lineWise:lineWise
bed21ae9a498 fixed command i/o shuffling Claus Gittinger <cg@exept.de> parents: 6613 diff changeset	4033	[
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4034	self
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4035	shuffleFrom:anInStream
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4036	to:anOutStream
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4037	lineWise:lineWise.
6614 bed21ae9a498 fixed command i/o shuffling Claus Gittinger <cg@exept.de> parents: 6613 diff changeset	4038	] doUntil:[anInStream atEnd].
bed21ae9a498 fixed command i/o shuffling Claus Gittinger <cg@exept.de> parents: 6613 diff changeset	4039	! !
bed21ae9a498 fixed command i/o shuffling Claus Gittinger <cg@exept.de> parents: 6613 diff changeset	4040
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4041	!AbstractOperatingSystem class methodsFor:'shared memory access'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4042
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4043	shmAttach:id address:addr flags:flags
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4044	"low level entry to shmat()-system call.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4045	Not supported on all operatingSystems"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4046
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	4047	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	4048
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	4049	"Modified: / 19.5.1999 / 14:21:35 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4050	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4051
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4052	shmDetach:addr
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4053	"low level entry to shmdt()-system call.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4054	Not supported on all operatingSystems"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4055
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	4056	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	4057
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	4058	"Modified: / 19.5.1999 / 14:21:37 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4059	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4060
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4061	shmGet:key size:size flags:flags
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4062	"low level entry to shmget()-system call.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4063	This is not for public use and not supported with all operatingSystems.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4064	- use the provided wrapper class SharedExternalBytes instead."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4065
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	4066	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	4067
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	4068	"Modified: / 19.5.1999 / 14:21:41 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4069	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4070
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4071	!AbstractOperatingSystem class methodsFor:'time and date'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4072
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4073	computeDatePartsOf:osTime for:aBlock
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4074	"compute year, month and day from the OS time, osTime
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4075	and evaluate the argument, a 3-arg block with these.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4076	Conversion is to localtime including any daylight saving adjustments."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4077
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4078	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4079	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4080
4377 59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	4081	computeOSTimeFromUTCYear:y month:m day:d hour:h minute:min second:s millisecond:millis
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	4082	"return the OS-dependent time for the given time and day.
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	4083	The arguments are assumed to be in UTC Time"
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	4084
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	4085	self subclassResponsibility
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	4086
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	4087	"Created: / 13.7.1999 / 12:44:03 / stefan"
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	4088	!
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	4089
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4090	computeOSTimeFromYear:y month:m day:d hour:h minute:min seconds:s millis:millis
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4091	"return the OS-dependent time for the given time and day.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4092	The arguments are assumed to be in localtime including
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4093	any daylight saving adjustings."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4094
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4095	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4096	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4097
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4098	computeTimeAndDateFrom:osTime
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4099	"given an OS-dependent time in osTime, return an Array
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4100	containing (full-) year, month, day, hour, minute and seconds,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4101	offset to UTC, daylight savings time flag, milliseconds,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4102	dayInYear (1..) and dayInWeek (1..).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4103	Conversion is to localtime including any daylight saving adjustments."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4104
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4105	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4106	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4107
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4108	computeTimePartsOf:osTime for:aBlock
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4109	"compute hours, minutes, seconds and milliseconds from the osTime
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4110	and evaluate the argument, a 4-arg block with these.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4111	Conversion is to localtime including any daylight saving adjustments."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4112
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4113	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4114	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4115
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4116	computeUTCTimeAndDateFrom:osTime
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4117	"given an OS-dependent time in osTime, return an Array
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4118	containing year, month, day, hour, minute and seconds,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4119	offset to UTC, daylight savings time flag, milliseconds,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4120	dayInYear (1..) and dayInWeek (1..).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4121	Conversion is to UTC."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4122
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4123	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4124	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4125
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4126	computeUTCTimePartsOf:osTime for:aBlock
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4127	"compute hours, minutes, seconds and milliseconds from the osTime
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4128	and evaluate the argument, a 4-arg block with these.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4129	Conversion is to UTC."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4130
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4131	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4132	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4133
3689 f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	4134	getMicrosecondTime
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	4135	"This returns the microsecond timers value - if available.
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	4136	On some machines, times with this precision may not be available,
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	4137	on those, the returned value may be rounded towards some internal
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	4138	clock resolution value."
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	4139
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	4140	"/ fallBack - use getMillisecondTime, which must be implemented
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	4141	"/ for all OS's
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	4142
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	4143	^ self getMillisecondTime * 1000
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	4144
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	4145	"Created: / 30.7.1998 / 16:38:26 / cg"
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	4146	!
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	4147
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4148	getMillisecondTime
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4149	"This returns the millisecond timers value.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4150	The range is limited to 0..1fffffff (i.e. the SmallInteger range) to avoid
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4151	LargeInteger arithmetic when doing timeouts and delays.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4152	Since this value is wrapping around in regular intervals, this can only be used for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4153	short relative time deltas.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4154	Use the millisecondTimeXXX:-methods to compare and add time deltas - these know about the wrap.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4155
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4156	BAD DESIGN:
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4157	This should be changed to return some instance of RelativeTime,
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4158	and these computations moved there.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4159
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4160	Dont use this method in application code since it is an internal (private)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4161	interface. For compatibility with ST-80, use Time millisecondClockValue.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4162	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4163
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4164	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4165	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4166
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4167	getOSTime
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4168	"This returns the OS time.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4169	The base of the returned value is not consistent across
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4170	different OS's - some return the number of millis since jan, 1st 1970;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4171	others since 1900. The Time classes are prepared for this, and
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4172	converts as appropriate (by using my fromOSTime: conversion methods).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4173
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4174	Dont use this method in application code since it is an internal (private)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4175	interface. For compatibility with ST-80, use Time>>millisecondClockValue.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4176	or use instances of Time, Date or AbsoluteTime to work with.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4177	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4178
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4179	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4180	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4181
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4182	maximumMillisecondTimeDelta
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4183	"this returns the maximum delta supported by millisecondCounter
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4184	based methods. The returned value is half the value at which the
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4185	timer wraps."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4186
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4187	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4188	RETURN ( __MKSMALLINT(0x0FFFFFFF) );
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4189	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4190	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4191
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4192	millisecondDelay:millis
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4193	"delay execution for millis milliseconds or until the next event
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4194	arrives.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4195	All lower priority threads will also sleep for the duration,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4196	interrupts (and therefore, higher prio processes) are
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4197	still handled.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4198	Better use a Delay, to only delay the calling thread.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4199	(however, a delay cannot be used in the event handler or scheduler)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4200
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4201	\|now then delta\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4202
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4203	now := self getMillisecondTime.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4204	then := self millisecondTimeAdd:now and:millis.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4205
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4206	[self millisecondTime:then isAfter:now] whileTrue:[
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4207	delta := self millisecondTimeDeltaBetween:then and:now.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4208	self selectOnAnyReadable:nil writable:nil exception:nil withTimeOut:delta.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4209	now := self getMillisecondTime.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4210	]
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4211
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4212	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4213	OperatingSystem millisecondDelay:2000
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4214	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4215	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4216
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4217	millisecondTime:msTime1 isAfter:msTime2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4218	"return true if msTime1 is after msTime2, false if not.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4219	The two arguments are supposed to be millisecond times
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4220	(such as returned getMillisecondTime) which wrap at 16r1FFFFFFF.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4221
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4222	This should really be moved to some RelativeTime class."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4223
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4224	(msTime1 > msTime2) ifTrue:[
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4225	((msTime1 - msTime2) >= 16r10000000) ifTrue:[
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4226	^ false
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4227	].
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4228	^ true
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4229	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4230	((msTime2 - msTime1) > 16r10000000) ifTrue:[
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4231	^ true
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4232	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4233	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4234	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4235
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4236	millisecondTimeAdd:msTime1 and:msTime2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4237	"Add two millisecond times (such as returned getMillisecondTime).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4238	The returned value is msTime1 + msTime2 where a wrap occurs at:16r1FFFFFFF.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4239
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4240	This should really be moved to some RelativeTime class."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4241
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4242	\|sum\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4243
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4244	sum := msTime1 + msTime2.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4245	(sum > 16r1FFFFFFF) ifTrue:[^ sum - 16r20000000].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4246	(sum < 0) ifTrue:[^ sum + 16r20000000].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4247	^ sum
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4248	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4249
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4250	millisecondTimeDeltaBetween:msTime1 and:msTime2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4251	"subtract two millisecond times (such as returned getMillisecondTime)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4252	and return the difference. Since milli-times wrap (at 16r01FFFFFFF),
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4253	some special handling is built-in here.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4254	The returned value is msTime1 - msTime2. The returned value is invalid
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4255	if the delta is >= 0x10000000.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4256
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4257	This should really be moved to some RelativeTime class;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4258	better yet: create a subclass of Integer named LimitedRangeInteger."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4259
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4260	(msTime1 > msTime2) ifTrue:[
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4261	^ msTime1 - msTime2
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4262	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4263	^ msTime1 + 16r10000000 - msTime2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4264
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4265	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4266	OperatingSystem millisecondTimeAdd:16r0FFFFFFF and:1
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4267	OperatingSystem millisecondTimeAdd:16r0FFFFFFF and:(16 / 3)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4268	OperatingSystem millisecondTimeAdd:16r0FFFFFFF and:1000
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4269
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4270	OperatingSystem millisecondTimeDeltaBetween:0 and:16r0FFFFFFF
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4271	OperatingSystem millisecondTimeDeltaBetween:(13/3) and:16r0FFFFFFF
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4272	OperatingSystem millisecondTimeDeltaBetween:999 and:16r0FFFFFFF
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4273
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4274	OperatingSystem millisecondTime:0 isAfter:16r0FFFFFFF
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4275	OperatingSystem millisecondTime:(13/3) isAfter:16r0FFFFFFF
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4276	OperatingSystem millisecondTime:999 isAfter:16r0FFFFFFF
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4277
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4278	OperatingSystem millisecondTime:0 isAfter:0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4279	OperatingSystem millisecondTime:(13/3) isAfter:0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4280	OperatingSystem millisecondTime:999 isAfter:0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4281
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4282	OperatingSystem millisecondTime:1 isAfter:0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4283	OperatingSystem millisecondTime:(13/3) isAfter:2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4284	OperatingSystem millisecondTime:999 isAfter:900
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4285
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4286	\|t1 t2\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4287
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4288	t1 := Time millisecondClockValue.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4289	(Delay forMilliseconds:1) wait.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4290	t2 := Time millisecondClockValue.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4291	OperatingSystem millisecondTimeDeltaBetween:t2 and:t1
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4292	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4293	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4294
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4295	sleep:numberOfSeconds
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4296	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4297
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4298	"cease ANY action for some time. This suspends the whole smalltalk
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4299	(unix-) process for some time.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4300	Not really useful since not even low-prio processes and interrupt
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4301	handling will run during the sleep.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4302	Use either OperatingSystem>>millisecondDelay: (which makes all
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4303	threads sleep, but handles interrupts) or use a Delay (which makes
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4304	only the calling thread sleep)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4305
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4306	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4307	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4308
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4309	!AbstractOperatingSystem class methodsFor:'users & groups'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4310
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4311	getEffectiveGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4312	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4313
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4314	"return the current users (thats you) effective numeric group id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4315	This is only different from getGroupID, if you have ST/X running
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4316	as a setuid program (of which you should think about twice)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4317
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4318	^ self getGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4319
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4320	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4321	OperatingSystem getEffectiveGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4322	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4323	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4324
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4325	getEffectiveUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4326	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4327
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4328	"return the current users (thats you) effective numeric user id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4329	This is only different from getUserID, if you have ST/X running
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4330	as a setuid program (of which you should think about twice)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4331
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4332	^ self getUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4333
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4334	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4335	OperatingSystem getEffectiveUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4336	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4337	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4338
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4339	getFullUserName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4340	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4341
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4342	"return a string with the users full name (thats you) - if available.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4343	If not, return the login name as a fallBack."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4344
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4345	^ self getFullUserNameFromID:(self getUserID)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4346
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4347	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4348	OperatingSystem getFullUserName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4349	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4350
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4351	"Modified: 24.1.1997 / 11:31:55 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4352	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4353
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4354	getFullUserNameFromID:userID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4355	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4356
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4357	"return a string with the users full name - if available.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4358	If not, return the login name as a fallBack."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4359
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4360	^ self getUserNameFromID:userID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4361
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4362	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4363	OperatingSystem getFullUserNameFromID:0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4364	OperatingSystem getFullUserNameFromID:(OperatingSystem getUserID)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4365
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4366	OperatingSystem getUserNameFromID:(OperatingSystem getUserID)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4367	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4368
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4369	"Modified: 15.7.1996 / 12:44:21 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4370	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4371
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4372	getGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4373	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4374
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4375	"return the current users (thats you) numeric group id"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4376
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4377	^ 1 "/ just a dummy for systems which do not have userIDs
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4378
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4379	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4380	OperatingSystem getGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4381	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4382	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4383
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4384	getGroupNameFromID:aNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4385	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4386
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4387	"return the group-name-string for a given numeric group-id"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4388
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4389	^ '???' "/ just a dummy for systems which do not have groups
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4390
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4391	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4392	OperatingSystem getGroupNameFromID:0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4393	OperatingSystem getGroupNameFromID:10
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4394	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4395	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4396
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4397	getHomeDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4398	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4399
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4400	"return the name of the users home directory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4401	(i.e. yours)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4402
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4403	^ self getEnvironment:'HOME'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4404
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4405	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4406	OperatingSystem getHomeDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4407	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4408
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4409	"Modified: 24.1.1997 / 11:32:13 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4410	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4411
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4412	getLoginName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4413	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4414
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4415	"return a string with the users login name (thats yours)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4416
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4417	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4418	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4419
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4420	getUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4421	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4422
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4423	"return the current users (thats you) numeric user id"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4424
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4425	^ 1 "just a dummy for systems which do not have userIDs"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4426
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4427	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4428	OperatingSystem getUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4429	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4430	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4431
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4432	getUserNameFromID:aNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4433	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4434
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4435	"return the user-name-string for a given numeric user-id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4436	This is the login name, not the fullName."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4437
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4438	"/ fallBack dummy
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4439
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4440	aNumber == self getUserID ifTrue:[
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4441	^ self getLoginName
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4442	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4443
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4444	^ '? (' , aNumber printString , ')'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4445
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4446	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4447	OperatingSystem getUserNameFromID:0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4448	OperatingSystem getUserNameFromID:100
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4449	OperatingSystem getUserNameFromID:9991
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4450	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4451	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4452
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4453	userInfoOf:aNameOrID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4454	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4455
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4456	"return a dictionary filled with userinfo. The argument can be either
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4457	a string with the users name or its numeric id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4458	Notice, that not all systems provide (all of) this info;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4459	DOS systems return nothing;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4460	non-SYSV4 systems have no age/comment.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4461	Portable applications may want to check the systemType and NOT depend
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4462	on all keys to be present in the returned dictionary.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4463	Another notice: on some systems (SYSV4), the gecos field includes multiple
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4464	entries (i.e. not just the name), separated by commas. You may want to
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4465	extract any substring, up to the first comma to get the real life name."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4466
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4467	\|info\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4468
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4469	"/ fallBack dummy
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4470	info := IdentityDictionary new.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4471	info at:#name put:(self getLoginName).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4472	info at:#dir put:(self getHomeDirectory).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4473	^ info
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4474
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4475	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4476	OperatingSystem userInfoOf:'root'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4477	OperatingSystem userInfoOf:1
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4478	OperatingSystem userInfoOf:'claus'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4479	OperatingSystem userInfoOf:'fooBar'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4480	OperatingSystem userInfoOf:(OperatingSystem getUserID)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4481	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4482	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4483
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4484	!AbstractOperatingSystem class methodsFor:'waiting for events'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4485
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4486	blockingChildProcessWait
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4487	"return true, if childProcessWait: blocks, if no children are ready.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4488	On those systems, we must be somewhat careful when looking out for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4489	a subprocesses status (to avoid blocking)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4490
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4491	^ true
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4492	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4493
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4494	childProcessWait:blocking pid:pidToWait
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4495	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4496
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4497	"get status changes from child processes.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4498	Return an OSProcessStatus or nil, if no process has terminated.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4499	If blocking is true, we wait until a process changed state,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4500	otherwise we return immediately.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4501	Note that win32 needs to know the HANDLE of the process on which
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4502	it waits. In case of an error, THIS ALWAYS WAITS and then times out."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4503
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4504	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4505	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4506
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4507	numAvailableForReadOn:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4508	"return the number of bytes available for reading, without blocking."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4509
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4510	"/ fallBack for systems which do not provide this info
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4511	^ (self readCheck:fd) ifTrue:[1] ifFalse:[0]
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4512	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4513
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4514	readCheck:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4515	"return true, if data is available on a filedescriptor
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4516	(i.e. read is possible without blocking).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4517	This depends on a working select or FIONREAD to be provided by the OS."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4518
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4519	self supportsSelect ifFalse:[
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4520	"/ mhmh - what should we do then ?
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4521	"/ For now, return true as if data was present,
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4522	"/ and let the thread fall into the read.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4523	"/ It will then (hopefully) be desceduled there and
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4524	"/ effectively polling for input.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4525
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4526	^ true
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4527	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4528
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4529	(self selectOnAnyReadable:(Array with:fd)
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4530	writable:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4531	exception:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4532	withTimeOut:0) == fd
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4533	ifTrue:[^ true].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4534	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4535	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4536
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4537	readWriteCheck:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4538	"return true, if filedescriptor can be read or written without blocking.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4539	This is actually only used with sockets, to wait for a connect to
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4540	be finished."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4541
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4542	self supportsSelect ifFalse:[
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4543	"/ mhmh - what should we do then ?
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4544	"/ For now, return true as if data was present,
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4545	"/ and let the thread fall into the write.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4546	"/ It will then (hopefully) be desceduled there and
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4547	"/ effectively polling for output.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4548	^ true
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4549	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4550
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4551	(self selectOnAnyReadable:(Array with:fd)
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4552	writable:(Array with:fd)
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4553	exception:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4554	withTimeOut:0) == fd
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4555	ifTrue:[^ true].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4556	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4557	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4558
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4559	selectOn:fd1 and:fd2 withTimeOut:millis
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4560	"wait for any fd to become ready; timeout after t milliseconds.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4561	A zero timeout-time will immediately return (i.e. poll).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4562	Return fd if i/o ok, nil if timed-out or interrupted.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4563	Obsolete:
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4564	This is a leftover method and will vanish."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4565
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4566	^ self selectOnAnyReadable:(Array with:fd1 with:fd2)
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4567	writable:(Array with:fd1 with:fd2)
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4568	exception:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4569	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4570	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4571
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4572	selectOn:fd withTimeOut:millis
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4573	"wait for aFileDesriptor to become ready; timeout after t milliseconds.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4574	Return true, if i/o ok, false if timed-out or interrupted.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4575	With 0 as timeout argument, this can be used to check for availability
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4576	of read-data.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4577	Experimental."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4578
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4579	^ self selectOnAnyReadable:(Array with:fd)
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4580	writable:(Array with:fd)
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4581	exception:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4582	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4583	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4584
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4585	selectOnAny:fdArray withTimeOut:millis
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4586	"wait for any fd in fdArray (an Array of integers) to become ready;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4587	timeout after t milliseconds. An empty set will always wait.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4588	Return first ready fd if i/o ok, nil if timed-out or interrupted.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4589	Experimental."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4590
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4591	^ self selectOnAnyReadable:fdArray
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4592	writable:fdArray
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4593	exception:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4594	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4595	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4596
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4597	selectOnAnyReadable:fdArray withTimeOut:millis
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4598	"wait for any fd in fdArray (an Array of integers) to become ready for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4599	reading. Timeout after t milliseconds. An empty set will always wait.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4600	A zero timeout-time will immediately return (i.e. poll).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4601	Return first ready fd if i/o ok, nil if timed-out or interrupted.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4602	Experimental."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4603
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4604	^ self selectOnAnyReadable:fdArray
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4605	writable:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4606	exception:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4607	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4608	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4609
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4610	selectOnAnyReadable:readFdArray writable:writeFdArray exception:exceptFdArray withTimeOut:millis
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4611	"wait for any fd in readFdArray (an Array of integers) to become ready for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4612	reading, writeFdArray to become ready for writing, or exceptFdArray to
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4613	arrive exceptional data (i.e. out-of-band data).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4614	Timeout after t milliseconds or, if the timeout time is 0, immediately..
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4615	Empty fd-sets will always wait. Zero time can be used to poll file-
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4616	descriptors (i.e. to check if I/O possible without blocking).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4617	Return first ready fd if I/O ok, nil if timed-out or interrupted."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4618
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4619	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4620	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4621
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4622	setBlocking:aBoolean on:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4623	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4624
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4625	"set/clear the blocking attribute - if set (which is the default)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4626	a read on the fileDescriptor will block until data is available.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4627	If cleared, a read operation will immediately return with a value of
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4628	nil."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4629
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4630	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4631	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4632
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4633	writeCheck:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4634	"return true, if filedescriptor can be written without blocking"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4635
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4636	self supportsSelect ifFalse:[
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4637	"/ mhmh - what should we do then ?
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4638	"/ For now, return true as if data was present,
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4639	"/ and let the thread fall into the write.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4640	"/ It will then (hopefully) be desceduled there and
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4641	"/ effectively polling for output.
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4642	^ true
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4643	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4644
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4645	(self selectOnAnyReadable:nil
6706 d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4646	writable:(Array with:fd)
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4647	exception:nil
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4648	withTimeOut:0) == fd
d0c8dfdf57e6 shuffler does a readWait, to be responsive when reading penk parents: 6651 diff changeset	4649	ifTrue:[^ true].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4650	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4651	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4652
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4653	!AbstractOperatingSystem class methodsFor:'documentation'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4654
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4655	version
7295 9ddb9543e369 category Claus Gittinger <cg@exept.de> parents: 7289 diff changeset	4656	^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.94 2003-05-19 09:07:23 cg Exp $'
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4657	! !
6772 6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	4658
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4659	AbstractOperatingSystem initialize!

author	Claus Gittinger <cg@exept.de>
	Tue, 17 Jun 2003 11:12:22 +0200
changeset 7385	852e84340d2b
parent 7295	9ddb9543e369
child 7400	d4f8a683181c
permissions	-rw-r--r--