hg/stx-libbasic: AbstractOperatingSystem.st@eb87399baea3 (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
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 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
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	24	Object subclass:#PrinterInfo
d8547710430c printer stuff fm parents: 9380 diff changeset	25	instanceVariableNames:'printerName attributes documentProperties printerInfo2'
d8547710430c printer stuff fm parents: 9380 diff changeset	26	classVariableNames:''
d8547710430c printer stuff fm parents: 9380 diff changeset	27	poolDictionaries:''
d8547710430c printer stuff fm parents: 9380 diff changeset	28	privateIn:AbstractOperatingSystem
d8547710430c printer stuff fm parents: 9380 diff changeset	29	!
d8547710430c printer stuff fm parents: 9380 diff changeset	30
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	31	Object subclass:#TimeInfo
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	32	instanceVariableNames:'year month day hours minutes seconds utcOffset dst milliseconds
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	33	dayInYear dayInWeek'
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	34	classVariableNames:''
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	35	poolDictionaries:''
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	36	privateIn:AbstractOperatingSystem
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	37	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	38
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	39	!AbstractOperatingSystem primitiveDefinitions!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	40	%{
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	41
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	42	#include "stxOSDefs.h"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	43
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	44	%}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	45	! !
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	46
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	47	!AbstractOperatingSystem class methodsFor:'documentation'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	48
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	49	copyright
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	50	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	51	COPYRIGHT (c) 1988 by Claus Gittinger
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	52	All Rights Reserved
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	53
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	54	This software is furnished under a license and may be used
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	55	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	56	inclusion of the above copyright notice. This software may not
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	57	be provided or otherwise made available to, or used by, any
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	58	other person. No title to or ownership of the software is
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	59	hereby transferred.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	60	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	61	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	62
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	63	documentation
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	64	"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	65	this class realizes services common to the supported operating systems;
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	66	typically, services which can be implemented based upon more primitive
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	67	functions, or which can be implemented in a portable way (but probably
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	68	less performant) are implemented here.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	69
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	70	[Class variables:]
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	71	ConcreteClass <Class> the real OS class
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	72
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	73	LocaleInfo <Dictionary> if non nil, that is taken instead of the operating
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	74	systems locale definitions (allows for overwriting
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	75	these, or provide a compatible info on systems which do
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	76	not support locales)
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	77
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	78	LastErrorNumber <Integer> the last value of errno
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	79
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	80	OSSignals <Array> Array of signals to be raised for corresponding
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	81	OperatingSystem signals.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	82
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	83	PipeFailed <Boolean> set if a fork (or popen) has failed;
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	84	ST/X will avoid doing more forks/popens
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	85	if this flag is set, for a slightly
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	86	smoother operation.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	87
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	88	ErrorSignal <Signal> Parentsignal of all OS error signals.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	89	not directly raised.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	90
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	91	AccessDeniedErrorSignal misc concrete error reporting signals
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	92	FileNotFoundErrorSignal
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	93	UnsupportedOperationSignal
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	94	InvalidArgumentsSignal
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	95
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	96	[author:]
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	97	Claus Gittinger
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	98
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	99	[see also:]
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	100	OSProcessStatus
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	101	Filename Date Time
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	102	ExternalStream FileStream PipeStream Socket
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	103	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	104	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	105
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	106	examples
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	107	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	108	various queries
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	109	[exBegin]
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	110	Transcript
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	111	showCR:'hello ' , (OperatingSystem getLoginName)
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	112	[exEnd]
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	113
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	114	[exBegin]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	115	OperatingSystem isUNIXlike ifTrue:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	116	Transcript showCR:'this is some UNIX-like OS'
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	117	] ifFalse:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	118	Transcript showCR:'this OS is not UNIX-like'
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	119	]
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	120	[exEnd]
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	121
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	122	[exBegin]
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	123	Transcript
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	124	showCR:'this machine is called ' , OperatingSystem getHostName
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	125	[exEnd]
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	126
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	127	[exBegin]
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	128	Transcript
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	129	showCR:('this machine is in the '
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	130	, OperatingSystem getDomainName
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	131	, ' domain')
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	132	[exEnd]
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	133
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	134	[exBegin]
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	135	Transcript
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	136	showCR:('this machine''s CPU is a '
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	137	, OperatingSystem getCPUType
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	138	)
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	139	[exEnd]
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	140
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	141	[exBegin]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	142	Transcript showCR:'executing ls command ...'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	143	OperatingSystem executeCommand:'ls'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	144	Transcript showCR:'... done.'.
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	145	[exEnd]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	146
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	147	locking a file
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	148	(should be executed on two running smalltalks - not in two threads):
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	149	[exBegin]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	150	\|f\|
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	f := 'testFile' asFilename readWriteStream.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	153
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	154	10 timesRepeat:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	155	'about to lock ...' printCR.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	156	[
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	157	OperatingSystem
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	158	lockFD:(f fileDescriptor)
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	159	shared:false
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	160	blocking:false
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	161	] whileFalse:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	162	'process ' print. OperatingSystem getProcessId print. ' is waiting' printCR.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	163	Delay waitForSeconds:1
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	164	].
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	165	'LOCKED ...' printCR.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	166	Delay waitForSeconds:10.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	167	'unlock ...' printCR.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	168	(OperatingSystem
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	169	unlockFD:(f fileDescriptor)) printCR.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	170	Delay waitForSeconds:3.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	171	]
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	172	[exBegin]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	173	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	174	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	175
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	176	!AbstractOperatingSystem class methodsFor:'initialization'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	177
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	178	initResources
8715 631211fda967 ResourcePack not required. Claus Gittinger <cg@exept.de> parents: 8669 diff changeset	179	"/ allow for ResourcePack class to be missing (non-GUI smalltalks)
631211fda967 ResourcePack not required. Claus Gittinger <cg@exept.de> parents: 8669 diff changeset	180	ResourcePack notNil ifTrue:[
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	181	Resources := ResourcePack forPackage:(self package).
8715 631211fda967 ResourcePack not required. Claus Gittinger <cg@exept.de> parents: 8669 diff changeset	182	]
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	183	!
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	184
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	185	initialize
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	186	"initialize the class"
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	self initializeConcreteClass.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	189
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	190	ErrorSignal isNil ifTrue:[
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	191	OSErrorHolder initialize.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	192	ErrorSignal := OsError.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	193	InvalidArgumentsSignal := OsInvalidArgumentsError.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	194	AccessDeniedErrorSignal := OSErrorHolder noPermissionsSignal.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	195	FileNotFoundErrorSignal := OSErrorHolder nonexistentSignal.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	196	UnsupportedOperationSignal := OSErrorHolder unsupportedOperationSignal.
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	197	].
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	198	Smalltalk addDependent:self. "/ to catch language changes
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	199	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	200
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	201	initializeConcreteClass
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	202	\|osType cls\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	203
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	204	osType := self getSystemType.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	205	osType = 'win32' ifTrue:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	206	cls := Win32OperatingSystem
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	207	] ifFalse:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	208	osType = 'os2' ifTrue:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	209	cls := OS2OperatingSystem
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	210	] ifFalse:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	211	osType = 'macos' ifTrue:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	212	cls := MacOperatingSystem
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	213	] ifFalse:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	214	((osType = 'VMS') or:[osType = 'openVMS']) ifTrue:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	215	cls := OpenVMSOperatingSystem
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	216	] ifFalse:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	217	cls := UnixOperatingSystem
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	218	]
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	219	]
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	220	]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	221	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	222	OperatingSystem := ConcreteClass := cls.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	223	! !
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	!AbstractOperatingSystem class methodsFor:'OS signal constants'!
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	sigABRT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	228	"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	229	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	230
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	231	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	232	!
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	sigALRM
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	235	"return the signal number for SIGALRM - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	236	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	237
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	238	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	239	!
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	sigBREAK
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	242	"return the signal number for SIGBREAK - 0 if not supported.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	243	This is an MSDOS specific signal"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	244
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	245	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	246	!
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	sigBUS
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	249	"return the signal number for SIGBUS - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	250	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	251
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	252	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	253	!
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	sigCHLD
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	256	"return the signal number for SIGCHLD - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	257	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	258
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	259	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	260	!
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	sigCONT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	263	"return the signal number for SIGCONT - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	264	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	265
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	266	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	267	!
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	sigDANGER
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	270	"return the signal number for SIGDANGER - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	271	(seems to be an AIX special)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	272
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	273	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	274	!
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	sigEMT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	277	"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	278	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	279
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	280	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	281	!
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	sigFP
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	284	"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	285	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	286
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	287	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	288	!
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	sigGRANT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	291	"return the signal number for SIGGRANT - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	292	(seems to be an AIX special)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	293
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	294	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	295	!
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	sigHUP
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	298	"return the signal number for SIGHUP
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	299	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	300
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	301	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	302	!
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	sigILL
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	305	"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	306	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	307
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	308	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	309	!
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	sigINT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	312	"return the signal number for SIGINT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	313	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	314
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	315	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	316	!
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	sigIO
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	319	"return the signal number for SIGIO - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	320	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	321
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	322	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	323	!
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	sigIOT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	326	"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	327	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	328
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	329	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	330	!
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	sigKILL
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	333	"return the signal number for SIGKILL
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	334	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	335
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	336	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	337	!
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	sigLOST
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	340	"return the signal number for SIGLOST - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	341	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	342
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	343	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	344	!
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	sigMIGRATE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	347	"return the signal number for SIGMIGRATE - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	348	(seems to be an AIX special)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	349
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	350	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	351	!
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	sigMSG
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	354	"return the signal number for SIGMSG - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	355	(seems to be an AIX special)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	356
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	357	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	358	!
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	sigPIPE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	361	"return the signal number for SIGPIPE - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	362	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	363
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	364	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	365	!
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	sigPOLL
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	368	"return the signal number for SIGPOLL - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	369	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	370
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	371	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	372	!
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	sigPRE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	375	"return the signal number for SIGPRE - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	376	(seems to be an AIX special)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	377
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	378	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	379	!
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	sigPROF
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	382	"return the signal number for SIGPROF - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	383	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	384
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	385	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	386	!
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	sigPWR
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	389	"return the signal number for SIGPWR - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	390	(not available on all systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	391
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	392	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	393	!
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	sigQUIT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	396	"return the signal number for SIGQUIT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	397	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	398
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	399	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	400	!
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	sigRETRACT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	403	"return the signal number for SIGRETRACT - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	404	(seems to be an AIX special)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	405
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	406	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	407	!
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	sigSAK
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	410	"return the signal number for SIGSAK - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	411	(seems to be an AIX special)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	412
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	413	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	414	!
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	sigSEGV
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	417	"return the signal number for SIGSEGV - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	418	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	419
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	420	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	421	!
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	sigSOUND
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	424	"return the signal number for SIGSOUND - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	425	(seems to be an AIX special)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	426
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	427	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	428	!
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	sigSTOP
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	431	"return the signal number for SIGSTOP - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	432	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	433
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	434	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	435	!
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	sigSYS
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	438	"return the signal number for SIGSYS - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	439	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	440
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	441	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	442	!
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	sigTERM
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	445	"return the signal number for SIGTERM - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	446	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	447
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	448	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	449	!
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	sigTRAP
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	452	"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	453	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	454
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	455	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	456	!
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	sigTSTP
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	459	"return the signal number for SIGTSTP - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	460	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	461
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	462	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	463	!
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	sigTTIN
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	466	"return the signal number for SIGTTIN - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	467	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	468
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	469	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	470	!
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	sigTTOU
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	473	"return the signal number for SIGTTOU - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	474	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	475
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	476	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	477	!
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	sigURG
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	480	"return the signal number for SIGURG - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	481	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	482
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	483	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	484	!
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	sigUSR1
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	487	"return the signal number for SIGUSR1 - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	488	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	489
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	490	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	491	!
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	sigUSR2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	494	"return the signal number for SIGUSR2 - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	495	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	496
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	497	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	498	!
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	sigVTALRM
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	501	"return the signal number for SIGVTALRM - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	502	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	503
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	504	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	505	!
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	sigWINCH
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	508	"return the signal number for SIGWINCH - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	509	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	510
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	511	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	512	!
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	sigXCPU
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	515	"return the signal number for SIGXCPU - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	516	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	517
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	518	^ 0
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	521	sigXFSZ
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	522	"return the signal number for SIGXFSZ - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	523	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	524
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	525	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	526	! !
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	!AbstractOperatingSystem class methodsFor:'Signal constants'!
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	accessDeniedErrorSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	531	"return the signal raised when a (file-) access is denied."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	532
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	533	^ AccessDeniedErrorSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	534	!
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	errorSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	537	"return the parent signal of all OS signals."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	538
8497 1e6d5f80d91b use class based signals Stefan Vogel <sv@exept.de> parents: 8474 diff changeset	539	^ OsError
3576 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	"Modified: 22.4.1996 / 13:11:31 / cg"
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	544	fileNotFoundErrorSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	545	"return the signal raised when a file was not found."
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	^ FileNotFoundErrorSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	548	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	549
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	550	invalidArgumentsSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	551	"return the signal which is raised for invalid arguments.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	552	Currently, this is never raised."
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	^ InvalidArgumentsSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	555
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	556	"Created: 13.9.1997 / 10:46:47 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	557	"Modified: 13.9.1997 / 10:47:03 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	558	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	559
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	560	unsupportedOperationSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	561	"return the signal which is raised when an operation
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	562	is attempted, which is not supported by the OS.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	563	(For example, creating a link on VMS or MSDOS)"
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	^ UnsupportedOperationSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	566	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	567
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	568	!AbstractOperatingSystem class methodsFor:'change & update'!
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	569
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	570	update:something with:aParameter from:changedObject
7497 cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7492 diff changeset	571	"Smalltalk notifies us about changes"
cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7492 diff changeset	572
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	573	((something == #Language) or:[something == #LanguageTerritory]) ifTrue:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	574	self initResources
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	575	]
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	576	! !
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	577
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	578	!AbstractOperatingSystem class methodsFor:'error messages'!
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	clearLastErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	581	"return the last errors number.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	582	See also: #lastErrorSymbol and #lastErrorString.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	583	Notice: having a single error number is a bad idea in a multithreaded
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	584	environment - this interface will change."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	585
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	586	LastErrorNumber := nil.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	587
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	AbstractOperatingSystem clearLastErrorNumber
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	"Created: 12.4.1996 / 09:28:58 / stefan"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	593	"Modified: 12.4.1996 / 09:38:51 / stefan"
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	596	currentErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	597	"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	598	Notice, that the value of this flag is only valid immediately
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	599	after the error occurred - it gets updated with every other
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	600	request to the OS.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	601	Use lastErrorNumber - currentErrorNumber is invalidated by
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	602	many, many internal calls."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	603
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	604	^ self lastErrorNumber
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	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	607	OperatingSystem currentErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	608	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	609	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	610
6284 5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	611	errorHolderForNumber:anInteger
5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	612
5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	613	^ self subclassResponsibility
5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	614	!
5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	615
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	616	errorNumberFor:aSymbol
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	617	"given a symbolic error, return the numeric;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	618	(i.e. errorNumberFor:#EBADF returns EBADF's value).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	619	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	620
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	621	^ -1
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	622	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	623
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	624	errorStringForSymbol:errorSymbol
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	625	"return an errorMessage for an errorSymbol
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	626	(as kept in an osErrorHolder)."
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	627
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	628	Resources isNil ifTrue:[
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	629	self initResources.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	630	Resources isNil ifTrue:[
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	631	^ errorSymbol
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	632	]
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	633	].
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	634	^ Resources at:errorSymbol ifAbsent:errorSymbol
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	635
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	636	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	637	OperatingSystem errorStringForSymbol:#EPERM
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	638	OperatingSystem errorStringForSymbol:(OperatingSystem errorSymbolForNumber:4)
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	639	"
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	640	!
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	641
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	642	errorSymbolAndTextForNumber:errNr
6284 5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	643	"do not use - temporary for backward compatibility.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	644	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	645	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	646
6284 5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	647	\|holder errSym\|
5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	648
5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	649	holder := self errorHolderForNumber:errNr.
5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	650	errSym := holder errorSymbol.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	651	^ Array
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	652	with:errSym
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	653	with:(self errorStringForSymbol:errSym)
3576 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	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	656	OperatingSystem errorSymbolAndTextForNumber:(OperatingSystem errorNumberFor:#EPERM)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	657	OperatingSystem errorSymbolAndTextForNumber:(OperatingSystem errorNumberFor:#EIO)
6287 f1a8f0ac8048 * empty log message * Stefan Vogel <sv@exept.de> parents: 6284 diff changeset	658	OperatingSystem errorSymbolAndTextForNumber:(OperatingSystem errorNumberFor:#ENXIO)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	659	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	660	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	661
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	662	errorSymbolForNumber:errNr
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	663	"return a symbol for a unix errorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	664	(as returned by a system call)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	665
6284 5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	666	^ (self errorHolderForNumber:errNr) errorSymbol
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	OperatingSystem errorSymbolForNumber:4
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	670	OperatingSystem errorSymbolForNumber:2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	671	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	672	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	673
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	674	errorTextForNumber:errNr
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	675	"return a message string from a unix errorNumber
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	676	(as returned by a system call).
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	677	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	678	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	679
6284 5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	680	^ (self errorHolderForNumber:errNr) errorString
3576 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	OperatingSystem errorTextForNumber:4
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	684	OperatingSystem errorTextForNumber:(OperatingSystem errorNumberFor:#EPERM)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	685	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	686	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	687
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	688	lastErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	689	"return the last errors number.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	690	See also: #lastErrorSymbol and #lastErrorString.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	691	Notice: having a single error number is a bad idea in a multithreaded
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	692	environment - this interface will change."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	693
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	694	^ LastErrorNumber
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	OperatingSystem lastErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	698	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	699	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	700
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	701	lastErrorString
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	702	"return a message string describing the last error.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	703	See also: #lastErrorNumber and #lastErrorSymbol.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	704	Notice: having a single error number is a bad idea in a multithreaded
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	705	environment - this interface will change."
3576 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	LastErrorNumber isNil ifTrue:[^ nil].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	708	^ self errorTextForNumber:LastErrorNumber
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	OperatingSystem lastErrorString
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	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	714
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	715	lastErrorSymbol
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	716	"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	717	See also: #lastErrorNumber and #lastErrorString.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	718	Notice: having a single error number is a bad idea in a multithreaded
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	719	environment - this interface will change."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	720
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	721	LastErrorNumber isNil ifTrue:[^ nil].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	722	^ self errorSymbolForNumber:LastErrorNumber
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 lastErrorSymbol
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	726	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	727	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	728
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	729	!AbstractOperatingSystem class methodsFor:'executing OS commands-implementation'!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	730
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	731	exec:aCommandPath withArguments:argArray environment:env fileDescriptors:fds fork:doFork newPgrp:newGrp inDirectory:aDirectory
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	732	"execute an OS command"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	733
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	734	^ self subclassResponsibility
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	735
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	736	"Created: / 12.11.1998 / 14:46:15 / cg"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	737	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	738
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	739	fork
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	740	"fork a new (HEAVY-weight) unix process.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	741	Not supported with MSDOS & VMS systems.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	742	Dont confuse this with Block>>fork, which creates
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	743	lightweight smalltalk processes. This method will return
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	744	0 to the child process, and a non-zero number (which is the childs
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	745	unix-process-id) to the parent (original) process.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	746
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	747	In normal situations, you dont need to use this low level entry; see
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	748	#startProcess: and #executCommand: for higher level interfaces."
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	749
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	750	"/
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	751	"/ not supported by OS
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	752	"/
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	753
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	754	^ UnsupportedOperationSignal raise
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	755	!
7637 6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	756
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	757	startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream
7637 6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	758	errorTo:anExternalErrStream auxFrom:anExternalAuxStreamOrNil environment:environment inDirectory:dir
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	759	"start executing the OS command as specified by the argument, aCommandString
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	760	as a separate process; do not wait for the command to finish.
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	761	The commandString is passed to a shell for execution - see the description of
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	762	'sh -c' in your UNIX manual ('cmd.com' in your MSDOS manual).
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	763	The command gets stdIn, stdOut and stdErr assigned from the arguments;
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	764	each may be nil.
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	765	Return the processId if successful, nil otherwise.
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	766	Use #monitorPid:action: for synchronization and exec status return,
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	767	or #killProcess: to stop it."
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	768
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	769	"raise an error: must be redefined in concrete subclass(es)"
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	770
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	771	^ self subclassResponsibility
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	772	! !
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	773
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	774	!AbstractOperatingSystem class methodsFor:'executing OS commands-private'!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	775
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	776	shuffleAllFrom:anInStream to:anOutStream lineWise:lineWise lockWith:aLock
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	777
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	778	lineWise ifFalse:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	779	^ anInStream copyToEndInto:anOutStream.
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	780	].
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	781	[anInStream atEnd] whileFalse:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	782	aLock critical:[
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	783	self
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	784	shuffleFrom:anInStream
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	785	to:anOutStream
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	786	lineWise:lineWise
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	787	]
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	788	]
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	789	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	790
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	791	shuffleFrom:anInStream to:anOutStream lineWise:lineWise
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	792	"copy data from anInStream to anOutStream.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	793	Caller makes sure, than anInStream does not block.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	794	anOutstream should have been set to non-blocking-mode"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	795
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	796	lineWise ifTrue:[
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	797	\|data\|
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	798
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	799	data := anInStream nextLine.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	800	data notNil ifTrue:[
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	801	anOutStream nextPutLine:data
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	802	] .
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	803	] ifFalse:[
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	804	anInStream copyToEndInto:anOutStream.
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	805	].
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	806	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	807
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	808	shuffleRestFrom:anInStream to:anOutStream lineWise:lineWise
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	809	[anInStream atEnd] whileFalse:[
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	810	self
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	811	shuffleFrom:anInStream
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	812	to:anOutStream
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	813	lineWise:lineWise.
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	814	].
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	815	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	816
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	817	startProcess:aCommandString
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	818	"start executing the OS command as specified by the argument, aCommandString
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	819	as a separate process; do not wait for the command to finish.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	820	The commandString is passed to a shell for execution - see the description of
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	821	'sh -c' in your UNIX manual.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	822	Return the processId if successful, nil otherwise.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	823	Use #waitForProcess: for synchronization and exec status return,
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	824	or #killProcess: to stop it."
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	825
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	826	^ self
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	827	startProcess:aCommandString
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	828	inputFrom:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	829	outputTo:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	830	errorTo:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	831	auxFrom:nil
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	832	inDirectory:nil
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	833
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	834	"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	835	\|pid\|
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	836
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	837	pid := OperatingSystem startProcess:'sleep 2; echo 1; sleep 2; echo 2'.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	838	(Delay forSeconds:3) wait.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	839	OperatingSystem killProcess:pid.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	840	"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	841	"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	842	\|pid\|
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	843
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	844	pid := OperatingSystem startProcess:'dir/l'.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	845	(Delay forSeconds:1) wait.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	846	OperatingSystem killProcess:pid.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	847	"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	848	"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	849	\|pid\|
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	850
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	851	pid := OperatingSystem
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	852	startProcess:'dir/l'
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	853	inputFrom:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	854	outputTo:Stdout
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	855	errorTo:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	856	inDirectory:nil.
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	857	(Delay forSeconds:2) wait.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	858	OperatingSystem killProcess:pid.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	859	"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	860
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	861	"Modified: / 21.3.1997 / 10:04:35 / dq"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	862	"Modified: / 10.11.1998 / 21:03:50 / cg"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	863	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	864
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	865	startProcess:aCommandString inDirectory:aDirectory
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	866	"start executing the OS command as specified by the argument, aCommandString
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	867	as a separate process; do not wait for the command to finish.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	868	The commandString is passed to a shell for execution - see the description of
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	869	'sh -c' in your UNIX manual.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	870	Return the processId if successful, nil otherwise.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	871	Use #waitForProcess: for synchronization and exec status return,
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	872	or #killProcess: to stop it."
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	873
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	874	^ self
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	875	startProcess:aCommandString
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	876	inputFrom:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	877	outputTo:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	878	errorTo:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	879	auxFrom:nil
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	880	inDirectory:aDirectory
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	881	"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	882	\|pid\|
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	883
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	884	pid := OperatingSystem startProcess:'sleep 2; echo 1; sleep 2; echo 2'.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	885	(Delay forSeconds:3) wait.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	886	OperatingSystem killProcess:pid.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	887	"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	888
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	889	"Modified: / 21.3.1997 / 10:04:35 / dq"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	890	"Modified: / 28.1.1998 / 14:13:33 / md"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	891	"Modified: / 10.11.1998 / 20:59:33 / cg"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	892	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	893
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	894	startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream errorTo:anExternalErrStream
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	895	"start executing the OS command as specified by the argument, aCommandString
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	896	as a separate process; do not wait for the command to finish.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	897	The commandString is passed to a shell for execution - see the description of
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	898	'sh -c' in your UNIX manual ('cmd.com' in your MSDOS manual).
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	899	The command gets stdIn, stdOut and stdErr assigned from the arguments;
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	900	each may be nil.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	901	Return the processId if successful, nil otherwise.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	902	Use #monitorPid:action: for synchronization and exec status return,
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	903	or #killProcess: to stop it."
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	904
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	905	^ self
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	906	startProcess:aCommandString
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	907	inputFrom:anExternalInStream
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	908	outputTo:anExternalOutStream
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	909	errorTo:anExternalErrStream
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	910	auxFrom:nil
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	911	inDirectory:nil
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	912
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	913	"Modified: / 10.11.1998 / 20:59:05 / cg"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	914	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	915
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	916	startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	917	errorTo:anExternalErrStream auxFrom:anAuxiliaryStream inDirectory:dir
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	918
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	919	^ self
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	920	startProcess:aCommandString
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	921	inputFrom:anExternalInStream
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	922	outputTo:anExternalOutStream
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	923	errorTo:anExternalErrStream
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	924	auxFrom:anAuxiliaryStream
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	925	environment:nil
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	926	inDirectory:dir
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	927	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	928
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	929	startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream errorTo:anExternalErrStream inDirectory:dir
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	930	"start executing the OS command as specified by the argument, aCommandString
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	931	as a separate process; do not wait for the command to finish.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	932	The commandString is passed to a shell for execution - see the description of
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	933	'sh -c' in your UNIX manual ('cmd.com' in your MSDOS manual).
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	934	The command gets stdIn, stdOut and stdErr assigned from the arguments;
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	935	each may be nil.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	936	Return the processId if successful, nil otherwise.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	937	Use #monitorPid:action: for synchronization and exec status return,
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	938	or #killProcess: to stop it."
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	939
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	940	^ self
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	941	startProcess:aCommandString
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	942	inputFrom:anExternalInStream
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	943	outputTo:anExternalOutStream
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	944	errorTo:anExternalErrStream
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	945	auxFrom:nil
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	946	inDirectory:dir
7637 6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	947	! !
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	948
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	949	!AbstractOperatingSystem class methodsFor:'executing OS commands-public'!
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	950
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	951	executeCommand:aCommandString
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	952	"execute the unix command specified by the argument, aCommandString.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	953	The commandString is passed to a shell for execution - see the description of
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	954	'sh -c' in your UNIX manual.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	955	Return true if successful, false otherwise."
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	956
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	957	^ self
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	958	executeCommand:aCommandString
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	959	inputFrom:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	960	outputTo:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	961	errorTo:nil
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	962	auxFrom:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	963	inDirectory:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	964	lineWise:false
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	965	onError:[:status\| false]
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	966
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	967	"unix:
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	968
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	969	OperatingSystem executeCommand:'sleep 30'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	970	OperatingSystem executeCommand:'pwd'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	971	OperatingSystem executeCommand:'ls -l'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	972	OperatingSystem executeCommand:'invalidCommand'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	973	OperatingSystem executeCommand:'rm /tmp/foofoofoofoo'.
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	974	"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	975
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	976	"msdos:
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	977
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	978	OperatingSystem executeCommand:'dir'
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	979	OperatingSystem executeCommand:'dir /w'
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	980	"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	981
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	982	"vms:
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	983
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	984	OperatingSystem executeCommand:'dir'
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	985	OperatingSystem executeCommand:'purge'
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	986	OperatingSystem executeCommand:'cc foo.c'
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	987	"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	988
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	989	"Modified: / 7.1.1997 / 19:29:55 / stefan"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	990	"Modified: / 10.11.1998 / 20:55:37 / cg"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	991	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	992
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	993	executeCommand:aCommandString errorTo:errorStream
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	994	"execute the unix command specified by the argument, aCommandString.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	995	The commandString is passed to a shell for execution - see the description of
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	996	'sh -c' in your UNIX manual.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	997	Return true if successful, false otherwise."
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	998
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	999	^ self
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1000	executeCommand:aCommandString
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1001	inputFrom:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1002	outputTo:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1003	errorTo:errorStream
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1004	auxFrom:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1005	inDirectory:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1006	lineWise:false
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1007	onError:[:status\| false]
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1008
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1009	"unix:
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1010
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1011	OperatingSystem executeCommand:'ls -l' errorTo:Transcript.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1012	OperatingSystem executeCommand:'invalidCommand' errorTo:Transcript.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1013	OperatingSystem executeCommand:'rm /tmp/foofoofoofoo' errorTo:Transcript.
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1014	"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1015	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1016
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1017	executeCommand:aCommandString inDirectory:aDirectory
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1018	"execute the unix command specified by the argument, aCommandString.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1019	The commandString is passed to a shell for execution - see the description of
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1020	'sh -c' in your UNIX manual.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1021	Return true if successful, false otherwise."
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1022
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1023	^ self
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1024	executeCommand:aCommandString
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1025	inputFrom:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1026	outputTo:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1027	errorTo:nil
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1028	auxFrom:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1029	inDirectory:aDirectory
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1030	lineWise:false
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1031	onError:[:exitStatus\| false]
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1032
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1033	"Modified: / 10.11.1998 / 20:54:37 / cg"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1034	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1035
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1036	executeCommand:aCommandString inDirectory:aDirectory onError:aBlock
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1037	"execute the unix command specified by the argument, aCommandString.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1038	The commandString is passed to a shell for execution - see the description of
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1039	'sh -c' in your UNIX manual.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1040	Return true if successful, the value from aBlock if not.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1041	If not successfull, aBlock is called with an OsProcessStatus
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1042	(containing the exit status) as argument."
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1043
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1044	^ self
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1045	executeCommand:aCommandString
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1046	inputFrom:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1047	outputTo:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1048	errorTo:nil
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1049	auxFrom:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1050	inDirectory:aDirectory
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1051	lineWise:false
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1052	onError:aBlock
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1053
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1054	"Modified: / 10.11.1998 / 20:54:37 / cg"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1055	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1056
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1057	executeCommand:aCommandString inputFrom:anInStream outputTo:anOutStream
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1058	errorTo:anErrStream auxFrom:anAuxStream environment:environmentDictionary
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1059	inDirectory:dirOrNil lineWise:lineWise onError:aBlock
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1060
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1061	"execute the unix command specified by the argument, aCommandString.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1062	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	1063	'sh -c' in your UNIX manual.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1064	Return true if successful, or the value of aBlock if not.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1065	If not successfull, aBlock is called with an OsProcessStatus
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1066	(containing the exit status) as argument.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1067	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	1068	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	1069	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	1070	those internal stream(s).
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1071	Nil stream args will execute the command connected to ST/X's standard input, output or
7488 5afbbabd4ae4 More fixes for executeCommand... Stefan Vogel <sv@exept.de> parents: 7484 diff changeset	1072	error resp. - i.e. usually, i/o will be from/to the terminal.
5afbbabd4ae4 More fixes for executeCommand... Stefan Vogel <sv@exept.de> parents: 7484 diff changeset	1073
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1074	Set lineWise to true, if both error and output is sent to the same stream
7497 cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7492 diff changeset	1075	and you don't want lines to be mangled. Set lineWise = false to
cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7492 diff changeset	1076	avoid vlocking on pipes"
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1077
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1078	\|pid exitStatus sema pIn pOut pErr pAux externalInStream externalOutStream externalErrStream externalAuxStream
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1079	shuffledInStream shuffledOutStream shuffledErrStream shuffledAuxStream
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1080	inputShufflerProcess outputShufflerProcess errorShufflerProcess auxShufflerProcess stopShufflers
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1081	inStreamToClose outStreamToClose errStreamToClose auxStreamToClose terminateLock\|
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1082
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1083	terminateLock := Semaphore forMutualExclusion.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1084	((externalInStream := anInStream) notNil
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1085	and:[externalInStream isExternalStream not]) ifTrue:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1086	pIn := NonPositionableExternalStream makePipe.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1087	inStreamToClose := externalInStream := pIn at:1.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1088	shuffledInStream := pIn at:2.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1089	anInStream isBinary ifTrue:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1090	shuffledInStream binary
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1091	].
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1092	lineWise ifFalse:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1093	shuffledInStream blocking:false.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1094	].
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1095
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1096	"/ start a reader process, shuffling data from the given
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1097	"/ inStream to the pipe (which is connected to the commands input)
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1098	inputShufflerProcess :=
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1099	[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1100	[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1101	[anInStream atEnd] whileFalse:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1102	self shuffleFrom:anInStream to:shuffledInStream lineWise:lineWise.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1103	shuffledInStream flush
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1104	]
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1105	] ensure:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1106	shuffledInStream close
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1107	]
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1108	] forkNamed:'cmd input shuffler'.
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1109	].
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1110	((externalOutStream := anOutStream) notNil
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1111	and:[externalOutStream isExternalStream not]) ifTrue:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1112	pOut := NonPositionableExternalStream makePipe.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1113	shuffledOutStream := (pOut at:1).
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1114	anOutStream isBinary ifTrue:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1115	shuffledOutStream binary
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1116	].
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1117	outStreamToClose := externalOutStream := pOut at:2.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1118	outputShufflerProcess :=
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1119	[
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1120	self shuffleAllFrom:shuffledOutStream to:anOutStream lineWise:lineWise lockWith:terminateLock.
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1121	] forkNamed:'cmd output shuffler'.
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1122	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1123	(externalErrStream := anErrStream) notNil ifTrue:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1124	anErrStream == anOutStream ifTrue:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1125	externalErrStream := externalOutStream
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1126	] ifFalse:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1127	anErrStream isExternalStream ifFalse:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1128	pErr := NonPositionableExternalStream makePipe.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1129	shuffledErrStream := (pErr at:1).
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1130	anErrStream isBinary ifTrue:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1131	shuffledErrStream binary
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1132	].
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1133	errStreamToClose := externalErrStream := pErr at:2.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1134	errorShufflerProcess :=
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1135	[
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1136	self shuffleAllFrom:shuffledErrStream to:anErrStream lineWise:lineWise lockWith:terminateLock.
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1137	] forkNamed:'cmd err-output shuffler'.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1138	]
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1139	]
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1140	].
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1141	((externalAuxStream := anAuxStream) notNil
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1142	and:[externalAuxStream isExternalStream not]) ifTrue:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1143	pAux := NonPositionableExternalStream makePipe.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1144	auxStreamToClose := externalAuxStream := pAux at:1.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1145	shuffledAuxStream := pAux at:2.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1146	shuffledAuxStream blocking:false.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1147	anAuxStream isBinary ifTrue:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1148	shuffledAuxStream binary
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1149	].
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1150
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1151	"/ start a reader process, shuffling data from the given
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1152	"/ auxStream to the pipe (which is connected to the commands aux)
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1153	auxShufflerProcess :=
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1154	[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1155	[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1156	[anAuxStream atEnd] whileFalse:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1157	self shuffleFrom:anAuxStream to:shuffledAuxStream lineWise:false.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1158	shuffledAuxStream flush
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1159	]
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1160	] ensure:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1161	shuffledAuxStream close
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1162	]
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1163	] forkNamed:'cmd aux shuffler'.
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1164	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1165
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1166	sema := Semaphore new name:'OS command wait'.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1167	pid := Processor
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1168	monitor:[
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1169	self
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1170	startProcess:aCommandString
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1171	inputFrom:externalInStream
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1172	outputTo:externalOutStream
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1173	errorTo:externalErrStream
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1174	auxFrom:externalAuxStream
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1175	environment:environmentDictionary
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1176	inDirectory:dirOrNil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1177	]
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1178	action:[:status \|
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1179	status stillAlive ifFalse:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1180	exitStatus := status.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1181	sema signal.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1182	self closePid:pid
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1183	]
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1184	].
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1185
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1186	inStreamToClose notNil ifTrue:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1187	inStreamToClose close
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1188	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1189	errStreamToClose notNil ifTrue:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1190	errStreamToClose close
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1191	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1192	outStreamToClose notNil ifTrue:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1193	outStreamToClose close
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1194	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1195	auxStreamToClose notNil ifTrue:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1196	auxStreamToClose close
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1197	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1198
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1199	stopShufflers := [
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1200	inputShufflerProcess notNil ifTrue:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1201	terminateLock critical:[inputShufflerProcess terminate].
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1202	inputShufflerProcess waitUntilTerminated
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1203	].
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1204	auxShufflerProcess notNil ifTrue:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1205	terminateLock critical:[auxShufflerProcess terminate].
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1206	auxShufflerProcess waitUntilTerminated
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1207	].
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1208	outputShufflerProcess notNil ifTrue:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1209	terminateLock critical:[outputShufflerProcess terminate].
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1210	outputShufflerProcess waitUntilTerminated.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1211	self shuffleRestFrom:shuffledOutStream to:anOutStream lineWise:lineWise.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1212	shuffledOutStream close.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1213	].
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1214	errorShufflerProcess notNil ifTrue:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1215	terminateLock critical:[errorShufflerProcess terminate].
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1216	errorShufflerProcess waitUntilTerminated.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1217	self shuffleRestFrom:shuffledErrStream to:anErrStream lineWise:lineWise.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1218	shuffledErrStream close.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1219	].
7497 cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7492 diff changeset	1220	].
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1221
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1222	pid notNil ifTrue:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1223	[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1224	sema wait.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1225	] ifCurtailed:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1226	"/ terminate the os-command (and all of its forked commands)
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1227	self terminateProcessGroup:pid.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1228	self terminateProcess:pid.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1229	self closePid:pid.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1230	stopShufflers value.
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1231	]
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1232	] ifFalse:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1233	exitStatus := self osProcessStatusClass processCreationFailure
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1234	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1235	stopShufflers value.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1236	exitStatus success ifFalse:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1237	^ aBlock value:exitStatus
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1238	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1239	^ true
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1240
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1241	"
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1242	\|outStream errStream\|
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1243
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1244	outStream := '' writeStream.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1245
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1246	OperatingSystem executeCommand:'ls -l'
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1247	inputFrom:'abc' readStream
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1248	outputTo:outStream
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1249	errorTo:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1250	inDirectory:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1251	lineWise:true
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1252	onError:[:exitStatus \| ^ false].
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1253	outStream contents
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1254	"
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1255
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1256	"
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1257	\|outStream errStream\|
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1258
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1259	outStream := #[] writeStream.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1260
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1261	OperatingSystem executeCommand:'cat'
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1262	inputFrom:(ByteArray new:5000000) readStream
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1263	outputTo:outStream
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1264	errorTo:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1265	inDirectory:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1266	lineWise:false
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1267	onError:[:exitStatus \| ^ false].
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1268	outStream size
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1269	"
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1270
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1271	"
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1272	\|outStream errStream\|
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1273
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1274	outStream := '' writeStream.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1275
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1276	OperatingSystem executeCommand:'gpg -s --batch --no-tty --passphrase-fd 0 /tmp/passwd'
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1277	inputFrom:'bla' readStream
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1278	outputTo:outStream
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1279	errorTo:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1280	inDirectory:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1281	lineWise:true
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1282	onError:[:exitStatus \| false].
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1283	outStream contents
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1284	"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1285	!
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1286
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1287	executeCommand:aCommandString inputFrom:anInStream outputTo:anOutStream errorTo:anErrStream auxFrom:anAuxStream inDirectory:dirOrNil lineWise:lineWise onError:aBlock
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1288	^ self
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1289	executeCommand:aCommandString
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1290	inputFrom:anInStream
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1291	outputTo:anOutStream
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1292	errorTo:anErrStream
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1293	auxFrom:anAuxStream
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1294	environment:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1295	inDirectory:dirOrNil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1296	lineWise:lineWise
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1297	onError:aBlock
7110 808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1298	!
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1299
8655 499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1300	executeCommand:aCommandString inputFrom:inputStreamOrNil outputTo:outStreamOrNil errorTo:errStreamOrNil inDirectory:aDirectory
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1301	"much like #executeCommand:, but changes the current directory
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1302	for the command. Since this is OS specific, use this instead of
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1303	hardwiring any 'cd ..' command strings into your applictions."
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1304
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1305	^ self
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1306	executeCommand:aCommandString
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1307	inputFrom:inputStreamOrNil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1308	outputTo:outStreamOrNil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1309	errorTo:errStreamOrNil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1310	auxFrom:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1311	inDirectory:aDirectory
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1312	lineWise:false
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1313	onError:[:status\| false]
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1314
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1315	"
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1316	OperatingSystem executeCommand:'tdump date.obj' inDirectory:'c:\winstx\stx\libbasic\objbc'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1317	OperatingSystem executeCommand:'xxdir date.obj' inDirectory:'c:\winstx\stx\libbasic\objbc'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1318	OperatingSystem executeCommand:'dir' inDirectory:'c:\'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1319	OperatingSystem executeCommand:'dir'
8655 499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1320	"
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1321
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1322	"Modified: / 20.1.1998 / 17:03:03 / md"
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1323	"Modified: / 10.11.1998 / 20:28:10 / cg"
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1324	"Created: / 10.11.1998 / 21:05:45 / cg"
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1325	!
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1326
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1327	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	1328	"execute the unix command specified by the argument, aCommandString.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1329	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	1330	'sh -c' in your UNIX manual.
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1331	Return true if successful, the value from aBlock if not.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1332	If not successfull, aBlock is called with an OsProcessStatus
4847 6d3b5959198f enhanced executeCommand; Claus Gittinger <cg@exept.de> parents: 4377 diff changeset	1333	(containing the exit status) as argument.
6d3b5959198f enhanced executeCommand; Claus Gittinger <cg@exept.de> parents: 4377 diff changeset	1334	The given in, out and err streams may be arbitrary (Smalltalk-) streams;
6d3b5959198f enhanced executeCommand; Claus Gittinger <cg@exept.de> parents: 4377 diff changeset	1335	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	1336	extra pipes and shuffler processes are created, which stuff the data into
6d3b5959198f enhanced executeCommand; Claus Gittinger <cg@exept.de> parents: 4377 diff changeset	1337	those internal stream(s).
7059 6781d12b989a Fix #executeCommand:.... Stefan Vogel <sv@exept.de> parents: 6793 diff changeset	1338	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	1339	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	1340
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1341	^ self
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1342	executeCommand:aCommandString
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1343	inputFrom:anInStream
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1344	outputTo:anOutStream
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1345	errorTo:anErrStream
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1346	auxFrom:nil
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1347	inDirectory:dirOrNil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1348	lineWise:lineWise
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1349	onError:aBlock
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1350	!
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1351
6162 5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1352	executeCommand:aCommandString inputFrom:anInStream outputTo:anOutStream errorTo:anErrStream inDirectory:dirOrNil onError:aBlock
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1353	"execute the unix command specified by the argument, aCommandString.
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1354	The commandString is passed to a shell for execution - see the description of
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1355	'sh -c' in your UNIX manual.
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1356	Return true if successful, the value from aBlock if not.
6162 5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1357	If not successfull, aBlock is called with an OsProcessStatus
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1358	(containing the exit status) as argument.
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1359	The given in, out and err streams may be arbitrary (Smalltalk-) streams;
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1360	if any is not an external stream (which is required by the command),
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1361	extra pipes and shuffler processes are created, which stuff the data into
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1362	those internal stream(s).
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1363	Nil stream args will execute the command connected to ST/X's input, output or
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1364	error resp. - i.e. i/o will be from/to the xterminal"
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1365
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1366	^ self
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1367	executeCommand:aCommandString
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1368	inputFrom:anInStream
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1369	outputTo:anOutStream
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1370	errorTo:anErrStream
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1371	auxFrom:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1372	inDirectory:dirOrNil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1373	lineWise:false
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1374	onError:aBlock
6162 5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1375
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1376	"
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1377	OperatingSystem
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1378	executeCommand:'dir'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1379	inputFrom:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1380	outputTo:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1381	errorTo:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1382	inDirectory:'c:'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1383	onError:[:status \| Transcript flash]
6162 5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1384
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1385	OperatingSystem
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1386	executeCommand:'foo'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1387	inputFrom:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1388	outputTo:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1389	errorTo:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1390	inDirectory:'/etc'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1391	onError:[:status \| Transcript flash]
6162 5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1392
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1393	\|s\|
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1394	s := '' writeStream.
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1395	OperatingSystem
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1396	executeCommand:'ls -l'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1397	inputFrom:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1398	outputTo:s
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1399	errorTo:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1400	onError:[:status \| Transcript flash].
6162 5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1401	Transcript showCR:s contents.
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1402
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1403	\|s\|
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1404	s := '' writeStream.
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1405	OperatingSystem
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1406	executeCommand:'sh foo'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1407	inputFrom:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1408	outputTo:s
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1409	errorTo:s
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1410	onError:[:status \| Transcript flash].
6162 5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1411	Transcript showCR:s contents.
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1412	"
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1413
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1414	"Modified: / 25.3.1997 / 11:02:02 / stefan"
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1415	"Modified: / 28.1.1998 / 14:46:36 / md"
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1416	"Modified: / 10.11.1998 / 20:48:08 / cg"
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1417	"Created: / 10.11.1998 / 20:51:11 / cg"
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1418	!
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1419
6610 02a2d5b5cfe0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6605 diff changeset	1420	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	1421	"execute the unix command specified by the argument, aCommandString.
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1422	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	1423	'sh -c' in your UNIX manual.
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1424	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	1425	If not successfull, aBlock is called with an OsProcessStatus
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1426	(containing the exit status) as argument."
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1427
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1428	^ self
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1429	executeCommand:aCommandString
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1430	inputFrom:anInStream
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1431	outputTo:anOutStream
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1432	errorTo:anErrStream
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1433	auxFrom:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1434	inDirectory:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1435	lineWise:false
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1436	onError:aBlock
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1437
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1438	"
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1439	OperatingSystem
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1440	executeCommand:'dir'
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1441	inputFrom:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1442	outputTo:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1443	errorTo:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1444	onError:[:status \| Transcript flash]
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1445
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1446	OperatingSystem
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1447	executeCommand:'foo'
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1448	inputFrom:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1449	outputTo:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1450	errorTo:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1451	onError:[:status \| Transcript flash]
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1452	"
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1453	"
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1454	\|outStr errStr\|
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1455
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1456	outStr := '' writeStream.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1457	errStr := '' writeStream.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1458	OperatingSystem
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1459	executeCommand:'ls'
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1460	inputFrom:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1461	outputTo:outStr
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1462	errorTo:errStr
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1463	onError:[:status \| Transcript flash].
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1464	Transcript show:'out:'; showCR:outStr contents.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1465	Transcript show:'err:'; showCR:errStr contents.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1466	"
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1467	"
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1468	\|outStr errStr\|
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1469
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1470	outStr := '' writeStream.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1471	errStr := '' writeStream.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1472	OperatingSystem
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1473	executeCommand:'ls /fooBar'
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1474	inputFrom:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1475	outputTo:outStr
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1476	errorTo:errStr
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1477	onError:[:status \| Transcript flash].
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1478	Transcript show:'out:'; showCR:outStr contents.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1479	Transcript show:'err:'; showCR:errStr contents.
6610 02a2d5b5cfe0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6605 diff changeset	1480	"
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1481
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1482	"Modified: / 10.11.1998 / 20:51:39 / cg"
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1483	!
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1484
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1485	executeCommand:aCommandString onError:aBlock
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1486	"execute the unix command specified by the argument, aCommandString.
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1487	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	1488	'sh -c' in your UNIX manual.
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1489	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	1490	If not successfull, aBlock is called with an OsProcessStatus
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1491	(containing the exit status) as argument."
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1492
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1493	^ self
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1494	executeCommand:aCommandString
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1495	inputFrom:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1496	outputTo:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1497	errorTo:nil
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1498	auxFrom:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1499	inDirectory:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1500	lineWise:false
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1501	onError:aBlock
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1502
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1503	"unix:
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1504
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1505	OperatingSystem executeCommand:'sleep 30' onError:[].
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1506	OperatingSystem executeCommand:'pwd' onError:[:status\|status inspect].
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1507	OperatingSystem executeCommand:'ls -l' onError:[].
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1508	OperatingSystem executeCommand:'invalidCommand' onError:[:status\| status inspect].
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1509	OperatingSystem executeCommand:'rm /tmp/foofoofoofoo'onError:[:status \| status inspect].
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1510
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1511	OperatingSystem executeCommand:'dir' onError:[].
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1512	OperatingSystem executeCommand:'foo' onError:[].
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1513
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1514	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1515
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1516	"Modified: / 25.3.1997 / 11:06:43 / stefan"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1517	"Modified: / 28.1.1998 / 14:46:56 / md"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1518	"Created: / 5.6.1998 / 19:02:09 / cg"
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1519	"Modified: / 10.11.1998 / 20:55:02 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1520	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1521
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1522	executeCommand:aCommandString onError:aBlock inDirectory:aDirectory
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1523	"OBSOLETE for backward compatibility.
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1524	execute the unix command specified by the argument, aCommandString.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1525	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	1526	'sh -c' in your UNIX manual.
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1527	Return true if successful, the value from aBlock if not.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1528	If not successfull, aBlock is called with an OsProcessStatus
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1529	(containing the exit status) as argument."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1530
5861 24ee164045bd Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 5857 diff changeset	1531	<resource:#obsolete>
24ee164045bd Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 5857 diff changeset	1532
4849 439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1533	self obsoleteMethodWarning:'use executeCommand:inDirectory:onError:'.
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1534
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1535	^ self
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1536	executeCommand:aCommandString
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1537	inputFrom:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1538	outputTo:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1539	errorTo:nil
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1540	auxFrom:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1541	inDirectory:aDirectory
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1542	lineWise:false
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1543	onError:aBlock
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1544
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1545	"Modified: / 10.11.1998 / 20:54:37 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1546	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1547
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1548	executeCommand:aCommandString outputTo:anOutStreamOrNil
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1549	"execute the unix command specified by the argument, aCommandString.
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1550	The commandString is passed to a shell for execution - see the description of
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1551	'sh -c' in your UNIX manual.
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1552	Return true if successful, false otherwise."
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1553
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1554	^ self
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1555	executeCommand:aCommandString
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1556	inputFrom:nil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1557	outputTo:anOutStreamOrNil
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1558	errorTo:nil
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1559	auxFrom:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1560	inDirectory:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1561	lineWise:false
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1562	onError:[:status\| false]
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1563
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1564	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1565	String streamContents:[:s\|OperatingSystem
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1566	executeCommand:'ls'
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1567	outputTo:s
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1568	]
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1569	"
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1570
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1571	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1572	String streamContents:[:s\|OperatingSystem
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1573	executeCommand:'pwd'
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1574	outputTo:s
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1575	]
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1576	"
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1577	!
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1578
4849 439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1579	executeCommand:aCommandString outputTo:outStreamOrNil errorTo:errStreamOrNil inDirectory:aDirectory
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1580	"much like #executeCommand:, but changes the current directory
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1581	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	1582	hardwiring any 'cd ..' command strings into your applictions."
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1583
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1584	^ self
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1585	executeCommand:aCommandString
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1586	inputFrom:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1587	outputTo:outStreamOrNil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1588	errorTo:errStreamOrNil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1589	auxFrom:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1590	inDirectory:aDirectory
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1591	lineWise:false
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1592	onError:[:status\| false]
4849 439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1593
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1594	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1595	OperatingSystem executeCommand:'tdump date.obj' inDirectory:'c:\winstx\stx\libbasic\objbc'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1596	OperatingSystem executeCommand:'xxdir date.obj' inDirectory:'c:\winstx\stx\libbasic\objbc'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1597	OperatingSystem executeCommand:'dir' inDirectory:'c:\'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1598	OperatingSystem executeCommand:'dir'
4849 439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1599	"
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1600
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1601	"Modified: / 20.1.1998 / 17:03:03 / md"
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1602	"Modified: / 10.11.1998 / 20:28:10 / cg"
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1603	"Created: / 10.11.1998 / 21:05:45 / cg"
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1604	!
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1605
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1606	getCommandOutputFrom:aCommand
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1607	"execute a simple command (such as hostname) and
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1608	return the commands first line of output as a string (forget stdErr).
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1609	If the command generates multiple output lines, only the first line is returned.
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1610	If the commands does not generate any output, an empty string is returned;
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1611	if the command fails, nil is returned."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1612
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1613	\|result\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1614
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1615	result := self getCommandOutputFrom:aCommand maxNumberOfLines:1 errorDisposition:#discard.
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1616	result notNil ifTrue:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1617	^ result firstIfEmpty:['']
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1618	].
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1619	^ result
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1620
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1621	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1622	OperatingSystem getCommandOutputFrom:'hostname'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1623	OperatingSystem getCommandOutputFrom:'pwd'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1624	OperatingSystem getCommandOutputFrom:'sleep 1'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1625	OperatingSystem getCommandOutputFrom:'foo'
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1626	"
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1627
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1628	!
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1629
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1630	getCommandOutputFrom:aCommand maxNumberOfLines:numLinesOrNil errorDisposition:errorDisposition
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1631	"execute a simple command (such as hostname) and
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1632	return the commands output as a collection of strings,
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1633	but only up to the given number of lines (if non-nil).
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1634	If the command generates more output, only the first nLines are returned
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1635	(but the command is allowed to finish execution).
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1636	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	1637	if the command fails, nil is returned.
433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1638	errorDisposition controls where the stdErr output should go,
433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1639	and may be one of #discard, #inline or #stderr (default).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1640	#discard causes stderr to be discarded (/dev/null),
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1641	#inline causes it to be written to smalltalks own stdout and
433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1642	#stderr causes it to be written to smalltalks own stderr.
433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1643	Nil is treated like #stderr"
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1644
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1645	\|result\|
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1646
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	1647	PipeFailed ~~ true ifTrue:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1648	PipeStream openErrorSignal handle:[:ex \|
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1649	PipeFailed := true.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1650	'OperatingSystem [warning]: cannot fork/popen' errorPrintCR.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1651	ex return.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1652	] do:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1653	\|p line\|
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1654
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1655	p := PipeStream
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1656	readingFrom:aCommand
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1657	errorDisposition:errorDisposition
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1658	inDirectory:nil.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1659	result := StringCollection new.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1660	[p atEnd] whileFalse:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1661	line := p nextLine.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1662	(numLinesOrNil isNil
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1663	or:[result size < numLinesOrNil]) ifTrue:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1664	result add:line
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1665	].
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1666	].
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1667	p close.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1668	p exitStatus success ifFalse:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1669	result isEmpty ifTrue:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1670	result := nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1671	]
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1672	].
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1673	].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1674	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1675	^ result
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1676
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1677	"
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1678	OperatingSystem getCommandOutputFrom:'ls' maxNumberOfLines:1
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1679	OperatingSystem getCommandOutputFrom:'ls' maxNumberOfLines:10
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1680	OperatingSystem getCommandOutputFrom:'ls' maxNumberOfLines:nil
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1681	OperatingSystem getCommandOutputFrom:'foo' maxNumberOfLines:nil
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1682	"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1683
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1684	"Modified: / 19.5.1999 / 14:25:02 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1685	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1686
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1687	getFullCommandOutputFrom:aCommand
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1688	"execute a command and
5483 1d81b1ad42d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5482 diff changeset	1689	return the commands output as a collection of strings (ignoring stdErr).
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1690	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	1691	if the command fails, nil is returned."
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1692
5483 1d81b1ad42d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5482 diff changeset	1693	^ self getCommandOutputFrom:aCommand maxNumberOfLines:nil errorDisposition:#discard
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1694
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1695	"
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1696	OperatingSystem getFullCommandOutputFrom:'mt status'
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1697	"
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1698
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1699	! !
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1700
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1701	!AbstractOperatingSystem class methodsFor:'executing OS commands-queries'!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1702
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1703	canExecuteCommand:aCommandString
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1704	"return true, if the OS can execute aCommand.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1705	For now, this only works with UNIX."
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1706
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1707	\|fn fullPath\|
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1708
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1709	fullPath := (self pathOfCommand:aCommandString).
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1710	fullPath isNil ifTrue:[^ false].
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1711	fn := fullPath asFilename.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1712	^ fn exists and:[fn isExecutableProgram].
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1713
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1714	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1715	OperatingSystem canExecuteCommand:'fooBar'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1716	OperatingSystem canExecuteCommand:'ls'
9380 31213ffdf7c1 comment Michael Beyl <mb@exept.de> parents: 9021 diff changeset	1717	OperatingSystem canExecuteCommand:'cvs'
8801 02d568c0e298 comment Claus Gittinger <cg@exept.de> parents: 8784 diff changeset	1718	OperatingSystem canExecuteCommand:'diff'
9380 31213ffdf7c1 comment Michael Beyl <mb@exept.de> parents: 9021 diff changeset	1719	OperatingSystem canExecuteCommand:'cvs.exe'
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1720	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1721
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1722	"Created: 4.11.1995 / 19:13:54 / cg"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1723	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1724
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1725	commandAndArgsForOSCommand:aCommandString
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1726	"get a shell and shell arguments for command execution"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1727
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1728	self subclassResponsibility
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1729	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1730
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1731	executableFileExtensions
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1732	"return a collection of extensions for executable program files.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1733	Only req'd for msdos & vms like systems ..."
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1734
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1735	^ #('')
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1736
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1737	"Created: 2.5.1997 / 11:42:29 / cg"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1738	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1739
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1740	nameOfSTXExecutable
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1741	"return the name of the running ST/X executable program.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1742	Usually, 'stx' is returned -
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1743	but may be different for standAlone apps (or winstx.exe)."
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1744
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1745	%{
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1746	extern char *__stxExecutableName__();
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1747
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1748	RETURN (__MKSTRING(__stxExecutableName__()));
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1749	%}
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1750	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1751	OperatingSystem nameOfSTXExecutable
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1752	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1753	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1754
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1755	pathOfCommand:aCommand
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1756	"find where aCommand's executable file is;
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1757	return its full pathName if there is such a command, otherwise
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1758	return nil."
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1759
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1760	^ self subclassResponsibility
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1761	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1762
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1763	pathOfSTXExecutable
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1764	"return the full path of the running ST/X executable program.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1765	Usually, '.../stx' is returned -
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1766	but may be different for standAlone apps (or winstx.exe)."
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1767
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1768	^ self pathOfCommand:(self nameOfSTXExecutable)
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1769
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1770	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1771	OperatingSystem pathOfSTXExecutable
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1772	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1773	! !
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1774
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1775	!AbstractOperatingSystem class methodsFor:'executing OS commands-wrappers'!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1776
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1777	exec:aCommandPath withArguments:argArray
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1778	"execute the OS command specified by the argument, aCommandPath, with
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1779	arguments in argArray (no arguments, if nil).
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1780	If successful, this method does NOT return and smalltalk is gone.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1781	If not successful, it does return.
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1782	Can be used on UNIX with fork or on other systems to chain to another program."
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1783
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1784	^ self
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1785	exec:aCommandPath
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1786	withArguments:argArray
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1787	environment:nil
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1788	fileDescriptors:#(0 1 2)
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1789	fork:false
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1790	newPgrp:false
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1791	inDirectory:nil
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1792
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1793	"/ never reached ...
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1794
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1795	"Modified: / 12.11.1998 / 14:44:26 / cg"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1796	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1797
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1798	exec:aCommandPath withArguments:argArray fileDescriptors:fileDescriptors fork:doFork newPgrp:newPgrp inDirectory:aDirectory
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1799	^ self
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1800	exec:aCommandPath
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1801	withArguments:argArray
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1802	environment:nil
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1803	fileDescriptors:fileDescriptors
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1804	fork:doFork
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1805	newPgrp:newPgrp
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1806	inDirectory:aDirectory
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1807	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1808
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1809	exec:aCommandPath withArguments:argArray fork:doFork
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1810	"execute an OS command without I/O redirection.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1811	The command reads its input and writes its output
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1812	from/to whatever terminal device ST/X was started
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1813	(typically, the terminal window)"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1814
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1815	^ self
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1816	exec:aCommandPath
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1817	withArguments:argArray
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1818	environment:nil
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1819	fileDescriptors:#(0 1 2)
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1820	fork:doFork
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1821	newPgrp:false
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1822	inDirectory:nil
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1823
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1824	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1825	\|id\|
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1826
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1827	id := OperatingSystem fork.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1828	id == 0 ifTrue:[
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1829	'I am the child'.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1830	OperatingSystem
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1831	exec:'/bin/ls'
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1832	withArguments:#('ls' '/tmp')
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1833	fork:false.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1834	'not reached'.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1835	]
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1836	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1837
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1838	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1839	\|id\|
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1840
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1841	id := OperatingSystem fork.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1842	id == 0 ifTrue:[
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1843	'I am the child'.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1844	OperatingSystem
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1845	exec:'/bin/sh'
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1846	withArguments:#('sh' '-c' 'sleep 2;echo 1;sleep 2;echo 2')
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1847	fork:false.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1848	'not reached'.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1849	].
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1850	id printNL.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1851	(Delay forSeconds:3.5) wait.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1852	'killing ...' printNL.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1853	OperatingSystem sendSignal:(OperatingSystem sigTERM) to:id.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1854	OperatingSystem sendSignal:(OperatingSystem sigKILL) to:id
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1855	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1856
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1857	"Modified: / 15.7.1997 / 15:54:32 / stefan"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1858	"Modified: / 12.11.1998 / 14:44:46 / cg"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1859	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1860
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1861	exec:aCommandPath withArguments:argArray fork:doFork inDirectory:aDirectory
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1862	"execute an OS command without I/O redirection.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1863	The command reads its input and writes its output
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1864	from/to whatever terminal device ST/X was started
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1865	(typically, the terminal window)"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1866
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1867	^ self
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1868	exec:aCommandPath
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1869	withArguments:argArray
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1870	environment:nil
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1871	fileDescriptors:#(0 1 2)
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1872	fork:doFork
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1873	newPgrp:false
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1874	inDirectory:aDirectory
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1875
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1876	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1877	\|id\|
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1878
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1879	id := OperatingSystem fork.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1880	id == 0 ifTrue:[
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1881	'I am the child'.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1882	OperatingSystem
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1883	exec:'/bin/ls'
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1884	withArguments:#('ls' '/tmp')
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1885	fork:false.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1886	'not reached'.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1887	]
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1888	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1889
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1890	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1891	\|id\|
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1892
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1893	id := OperatingSystem fork.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1894	id == 0 ifTrue:[
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1895	'I am the child'.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1896	OperatingSystem
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1897	exec:'/bin/sh'
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1898	withArguments:#('sh' '-c' 'sleep 2;echo 1;sleep 2;echo 2')
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1899	fork:false.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1900	'not reached'.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1901	].
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1902	id printNL.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1903	(Delay forSeconds:3.5) wait.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1904	'killing ...' printNL.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1905	OperatingSystem sendSignal:(OperatingSystem sigTERM) to:id.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1906	OperatingSystem sendSignal:(OperatingSystem sigKILL) to:id
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1907	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1908
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1909	"Created: / 28.1.1998 / 14:14:03 / md"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1910	"Modified: / 28.1.1998 / 14:14:45 / md"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1911	"Modified: / 12.11.1998 / 14:45:06 / cg"
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1912	! !
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1913
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1914	!AbstractOperatingSystem class methodsFor:'file access'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1915
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1916	closeFd:anInteger
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1917	"low level close of a filedescriptor"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1918
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1919	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1920	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1921
7699 9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	1922	copyFromFd:inFd toFd:outFd startIndex:startIdx count:count
9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	1923	"directly copy from one FD to another (if supported by the OS)"
9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	1924
9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	1925	^ 0 "/ not supported
9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	1926	!
9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	1927
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1928	createDirectory:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1929	"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	1930	path, or relative to the current directory.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1931	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	1932	This is a low-level entry - use Filename protocol for compatibility."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1933
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1934	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1935	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1936
6292 f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	1937	createFileForReadAppend:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	1938	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	1939	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	1940
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	1941	createFileForReadWrite:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	1942	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	1943	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	1944
3758 1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1945	createHardLinkFrom:oldPath to:newPath
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1946	"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	1947	Return true if successful, false if not."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1948
3758 1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1949	"/
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1950	"/ assume that this OperatingSystem does not support links
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1951	"/
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1952	^ UnsupportedOperationSignal raise
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1953
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1954	"Created: / 13.8.1998 / 21:37:12 / cg"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1955	"Modified: / 13.8.1998 / 21:38:39 / cg"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1956	!
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1957
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1958	createSymbolicLinkFrom:oldPath to:newPath
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1959	"make a link from the file 'oldPath' to the file 'newPath'.
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1960	The link will be a soft (symbolic) link.
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1961	Return true if successful, false if not."
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1962
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1963	"/
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1964	"/ assume that this OperatingSystem does not support symbolic links
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1965	"/
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1966	^ UnsupportedOperationSignal raise
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1967
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1968	"Created: / 13.8.1998 / 21:38:24 / cg"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1969	"Modified: / 13.8.1998 / 21:38:43 / cg"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1970	!
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1971
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1972	linkFile:oldPath to:newPath
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1973	"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	1974	Return true if successful, false if not.
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1975	This method has been renamed - it remains in existance for
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1976	backward compatibility."
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1977
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1978	^ self createHardLinkFrom:oldPath to:newPath
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1979
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1980	"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1981	OperatingSystem linkFile:'foo' to:'bar'
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
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	1984	"Modified: / 13.8.1998 / 21:37:24 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1985	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1986
6291 c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	1987	openFile:pathName withMode:openModeSymbol attributes:attributeSpec
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1988	"open a file, return an os specific fileHandle.
6291 c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	1989	openmode is a symbol defining the way to open
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	1990	valid modes are:
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1991	#read
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1992	#write
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1993	#readWrite
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1994	#appendWrite
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1995	#appendReadWrite
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1996	#createWrite
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	1997	#createReadWrite
6291 c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	1998
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	1999	attributeSpec is an additional argument, currently only used with VMS
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2000	- 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	2001
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2002	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	2003	attributes (see fopen description).
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2004	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	2005	This argument is ignored in UNIX & MSDOS systems.
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2006
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2007	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	2008	which is proprietrary to the operatingSystem."
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2009
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2010	self subclassResponsibility
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2011	!
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2012
6292 f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2013	openFileForAppend:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2014	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2015	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2016
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2017	openFileForRead:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2018	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2019	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2020
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2021	openFileForReadAppend:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2022	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2023	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2024
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2025	openFileForReadWrite:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2026	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2027	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2028
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2029	openFileForWrite:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2030	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2031	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2032
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2033	recursiveCopyDirectory:fullPathName to:destinationPathName
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2034	"copy the directory named 'fullPathName' and all contained
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2035	files/directories recursively to destinationPathName.
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2036	Return true if successful.
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2037	Here, false is returned and the caller should be prepared
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2038	for a fallBack solution.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2039	Notice:
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2040	this is not a public interface; instead, it is used
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2041	internally by the Filename class, to try a fast copy
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2042	before doing things manually.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2043	Please use Filename recursiveCopyTo:"
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2044
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2045	^ false
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2046
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2047	"
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2048	OperatingSystem recursiveCopyDirectory:'.' to:'/tmp/foo'
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2049	OperatingSystem recursiveRemoveDirectory:'/tmp/foo'
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2050	"
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2051
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2052	"Modified: / 5.5.1999 / 13:29:16 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2053	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2054
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2055	recursiveCreateDirectory:dirName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2056	"create a directory - with all parent dirs if needed.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2057	Return true if successful, false otherwise. If false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2058	is returned, a partial created tree may be left,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2059	which is not cleaned-up here."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2060
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2061	self createDirectory:dirName.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2062	(self isDirectory:dirName) ifFalse:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2063	(self recursiveCreateDirectory:(dirName asFilename directoryName)) ifFalse:[^ false].
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2064	^ self createDirectory:dirName
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2065	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2066	^ true
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2067
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2068	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2069	OperatingSystem recursiveCreateDirectory:'foo/bar/baz'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2070	OperatingSystem recursiveRemoveDirectory:'foo'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2071	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2072
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2073	"Modified: 7.3.1996 / 15:26:22 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2074	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2075
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2076	recursiveRemoveDirectory:fullPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2077	"remove the directory named 'fullPathName' and all contained files/directories.
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2078	Return true if successful.
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2079	Here, false is returned and the caller should be prepared
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2080	for a fallBack solution.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2081	Notice:
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2082	this is not a public interface; instead, it is used
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2083	internally by the Filename class, to try a fast remove
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2084	before doing things manually.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2085	Please use Filename recursiveRemoveDirectory:"
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2086
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2087	^ false
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2088
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2089	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2090	OperatingSystem recursiveCreateDirectory:'foo/bar/baz'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2091	OperatingSystem recursiveRemoveDirectory:'foo'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2092	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2093
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2094	"Modified: / 5.5.1999 / 13:30:11 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2095	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2096
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2097	removeDirectory:fullPathName
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2098	"remove the directory named 'fullPathName'.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2099	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	2100	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	2101	This is a lowLevel entry - use Filename protocol for compatibility."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2102
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2103	self subclassResponsibility
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	removeFile:fullPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2107	"remove the file named 'fullPathName'; return true if successful.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2108	This is a lowLevel entry - use Filename protocol for compatibility."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2109
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2110	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2111	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2112
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2113	renameFile:oldPath to:newPath
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2114	"rename the file 'oldPath' to 'newPath'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2115	Someone else has to care for the names to be correct and
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2116	correct for the OS used - therefore, this should not be called
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2117	directlt. Instead, use Filename protocol to rename; this cares for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2118	any invalid names.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2119	Returns true if successful, false if not"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2120
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2121	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2124	truncateFile:aPathName to:newSize
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2125	"change a files size return true on success, false on failure.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2126	This may not be supported on all architectures.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2127
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2128	This is a low-level entry - use Filename protocol."
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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2131	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2132
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2133	!AbstractOperatingSystem class methodsFor:'file access rights'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2134
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2135	accessMaskFor:aSymbol
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2136	"return the access bits mask for numbers as returned by
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2137	OperatingSystem>>accessModeOf:
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2138	and expected by OperatingSystem>>changeAccessModeOf:to:.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2139	Since these numbers are OS dependent, always use the mask
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2140	(never hardcode 8rxxx into your code)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2141
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2142	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2143	!
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	accessModeOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2146	"return a number representing access rights rwxrwxrwx for owner,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2147	group and others. Return nil if such a file does not exist.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2148	Notice that the returned number is OS dependent - use the
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2149	modeMasks as returned by OperatingSystem>>accessMaskFor:"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2150
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2151	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2152	this could have been implemented as:
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2153	(self infoOf:aPathName) at:#mode
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2154	but for huge directory searches the code below is faster
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	^ (self infoOf:aPathName) at:#mode
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2158
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2159	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2160	(OperatingSystem accessModeOf:'/') printStringRadix:8
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2161	"
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2164	changeAccessModeOf:aPathName to:modeBits
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2165	"change the access rights of aPathName to the OS dependent modeBits.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2166	You should construct this mask using accessMaskFor, to be OS
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2167	independent. Return true if changed,
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2168	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	2169
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2170	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2171	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2172
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2173	!AbstractOperatingSystem class methodsFor:'file locking'!
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	lockFD:aFileDescriptor shared:isSharedReadLock blocking:blockIfLocked
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2176	"set a lock on the file represented by aFileDescriptor.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2177	(such as returned by ExternalStream>>fileDescriptor).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2178	On some systems, only advisory locks are available -
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2179	these depends on other accessors to also perform the locking operation.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2180	If they do not, they may still access the file
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2181	(on some systems, locks are mandatory, on others, they are advisory).
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2182	The isSharedReadLock argument (if true) specifies if multiple readers
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2183	are to be allowed - if false, they are not.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2184	On some systems, all locks are non-exclusive locks.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2185
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2186	Returns true, if the lock was aquired, false otherwise.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2187
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2188	Notice, that not all OS's support these locks;
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2189	on some, this may simply be a no-op.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2190	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	2191	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	2192	argument."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2193
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2194	^ false
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	supportsFileLinks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2198	"return true, if the OS supports file links (hard links).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2199	Typically, only unix returns true here."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2200
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2201	^ false
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2204	supportsFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2205	"return true, if the OS supports file locking"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2206
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2207	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2208
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2209	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2210	OperatingSystem supportsFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2211	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2212	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2213
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2214	supportsNonBlockingFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2215	"return true, if the OS supports nonBlocking file locking
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2216	(i.e. with immediate return instead of waiting for the lock)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2217
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2218	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2219
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	OperatingSystem supportsNonBlockingFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2222	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2223	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2224
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2225	supportsSharedLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2226	"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	2227	file locking. Assume false here - redefined in concrete classes."
3576 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	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2230
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2231	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2232	OperatingSystem supportsNonBlockingFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2233	"
4147 1096115c96c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 4146 diff changeset	2234
1096115c96c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 4146 diff changeset	2235	"Modified: / 5.5.1999 / 01:08:03 / cg"
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2238	supportsSymbolicLinks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2239	"return true, if the OS supports symbolic links on files/directories.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2240	Typically, only Unix returns true here"
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	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2243	!
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	unlockFD:aFileDescriptor
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2246	"clear a file lock on the file represented by aFileDescriptor,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2247	which was previously aquired by #lockFD:.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2248	Return false, if the unlock failed
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2249	(which may happens when a wrong fd is passed,
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2250	no lock was set previously, or the systsem does not support locks).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2251	Notice, that not all OS's support file locks;
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2252	on some, this may simply be a no-op."
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2253
3826 ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	2254	^ false
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	2255
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	2256	"Modified: / 10.9.1998 / 17:54:15 / cg"
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2259	!AbstractOperatingSystem class methodsFor:'file queries'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2260
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2261	caseSensitiveFilenames
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2262	"return true, if the OS has caseSensitive file naming.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2263	On MSDOS, this will return false;
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2264	on a real OS, we return true."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2265
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2266	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2267	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2268
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2269	compressPath:pathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2270	"return the pathName compressed - that is, remove all ..-entries
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2271	and . entries. This does not always (in case of symbolic links)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2272	return the true pathName and is therefore used as a fallback
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2273	if realPath and popen failed."
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	self subclassResponsibility
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	directoryNameOf:aPath
5861 24ee164045bd Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 5857 diff changeset	2279	<resource:#obsolete>
24ee164045bd Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 5857 diff changeset	2280
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2281	self obsoleteMethodWarning:'use asFilename directoryName'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2282	^ aPath asFilename directoryName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2283	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2284
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2285	fileSeparator
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2286	"return the character used to separate names in a path.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2287	This character differs for MSDOS and other systems,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2288	(but those are currently not supported - so this is some
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2289	preparation for the future)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2290
3736 718513f3284e checkin from browser Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	2291	^ $/ "/ 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	2292	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2293
4224 5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2294	getDiskInfoOf:aDirectoryPath
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2295	"return some disk info.
4224 5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2296	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	2297	not guaranteed to be consistent across architectures.
4226 429b13ce2028 * empty log message * Claus Gittinger <cg@exept.de> parents: 4224 diff changeset	2298	On unix and msdos, the information returned is (at least):
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2299	freeBytes
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2300	totalBytes
4224 5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2301	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	2302	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	2303	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	2304	"
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2305
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2306	^ nil
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2307
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2308	"
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2309	OperatingSystem getDiskInfoOf:'/'
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2310	OperatingSystem getDiskInfoOf:'.'
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2311	"
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2312
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2313	"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	2314	!
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2315
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2316	getDriveList
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2317	"return a list of volumes in the system.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2318	On unix, no such thing like a volume exists
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2319	- there, a syntetic list with root, home & current is returned.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2320	On MSDOS, a list of drive letters is (eventually) returned.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2321	On VMS, a list of volumes is (eventually) returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2322
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2323	"/
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	2324	"/ default: return an array filled with
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2325	"/ root, home and current directories.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2326	"/
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2327	^ Array
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2328	with:'/'
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2329	with:(self getHomeDirectory)
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2330	with:(Filename currentDirectory pathName)
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	2331
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	2332	"Modified: / 5.5.1999 / 01:06:26 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2333	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2334
4852 ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2335	getMountedVolumes
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2336	"return info about mounted volumes.
4852 ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2337	The amount of information returned depends upon the OS, and is
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2338	not guaranteed to be consistent across architectures.
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2339	On unix, the information returned is (at least):
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2340	mountPoint - mount point
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2341	fileSystem - device or NFS-remotePath
4852 ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2342	"
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2343
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2344	^ #()
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2345
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2346	"
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2347	OperatingSystem getMountedVolumes
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2348	"
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2349
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2350	"Modified: / 22.5.1999 / 00:36:06 / cg"
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2351	!
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2352
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2353	getNullDevice
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2354	"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	2355
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2356	^ nil
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2357
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2358	"Created: / 19.5.1999 / 12:24:59 / cg"
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2359	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2360
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2361	idOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2362	"return the fileNumber (i.e. inode number) of a file.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2363
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2364	Not all operatingSystems may provide this - on those that do not,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2365	some dummy id will be returned.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2366	On unix, this information can be used to check for two files being
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2367	physically identical, even if found in different directories
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2368	(i.e. if they are hardLinked)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2369
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2370	\|i id\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2371
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2372	id := self primIdOf:aPathName.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2373	id notNil ifTrue:[^ id].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2374
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2375	i := self infoOf:aPathName.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2376	i notNil ifTrue:[^ i id].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2377	^ nil.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2378
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2379	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2380	OperatingSystem idOf:'/'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2381	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2382	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2383
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2384	infoOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2385	"return some object filled with info for the file 'aPathName';
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2386	the info (for which corresponding access methods are understood by
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2387	the returned object) is:
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2388	type - a symbol giving the files type
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2389	mode - numeric access mode
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2390	uid - owners user id
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2391	gid - owners group id
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2392	size - files size
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2393	id - files number (i.e. inode number)
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2394	accessed - last access time (as Timestamp)
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2395	modified - last modification time (as Timestamp)
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2396	statusChanged - last status change time (as Timestamp)
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2397	alternativeName - (windows only: the MSDOS name of the file)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2398
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2399	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	2400	all of the information.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2401	Return nil if such a file does not exist.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2402	For symbolic links (if supported by the OS),
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2403	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	2404	use #linkInfoOf: to get info about the link itself.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2405	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2406
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2407	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2408	!
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	isDirectory:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2411	"return true, if 'aPathName' is a valid directory path name.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2412	(i.e. exists and is a directory).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2413	This also returns true for symbolic links pointing to a directory;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2414	if you need to check for this, use #linkInfo:."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2415
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2416	^ (self infoOf:aPathName) type == #directory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2417	!
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	isExecutable:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2420	"return true, if the given file is executable.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2421	For symbolic links, the pointed-to-file is checked."
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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2424	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2425
6772 6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	2426	isMountPoint:aPathName
6781 97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2427	"return true, if the given file is a mounted fileSystems mountPoint"
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2428
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2429	^ self mountPoints contains:[:mountInfo \| mountInfo mountPointPath = aPathName].
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2430
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2431	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2432	OperatingSystem isMountPoint:'/phys/qnx'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2433	OperatingSystem isMountPoint:'/proc'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2434	OperatingSystem isMountPoint:'/'
6781 97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2435	"
6772 6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	2436	!
6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	2437
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2438	isReadable:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2439	"return true, if the file/dir 'aPathName' is readable.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2440	For symbolic links, the pointed-to-file is checked."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2441
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2442	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2443	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2444
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2445	isSymbolicLink:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2446	"return true, if the given file is a symbolic link"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2447
8474 f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2448	\|info\|
f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2449
f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2450	info := self linkInfoOf:aPathName.
f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2451	^ info notNil and:[info isSymbolicLink]
f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2452
f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2453	"
f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2454	OperatingSystem isSymbolicLink:'Makefile'
f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2455	OperatingSystem isSymbolicLink:'/usr/tmp'
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2456	"
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	isValidPath:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2460	"return true, if 'aPathName' is a valid path name
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2461	(i.e. the file or directory exists)"
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2466	isWritable:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2467	"return true, if the given file is writable.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2468	For symbolic links, the pointed-to-file is checked."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2469
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2470	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2471	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2472
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2473	linkInfoOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2474	"return a dictionary filled with info for the file 'aPathName',
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2475	IFF aPathName is a symbolic link.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2476	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	2477	(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	2478
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2479	The contents of the dictionary gives info about the link itself,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2480	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	2481	in case of a symbolic link."
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2482
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2483	self subclassResponsibility
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
5031 50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2486	mimeTypeForFilename:aFilename
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2487	"given a filename, return a corresponding mimeType.
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2488	This is placed here, to allow for OS-specific configuration
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2489	files and/or the win32 registry to be consultet.
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2490	Returns nil if no mimeType for the given name is known."
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2491
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2492	^ nil
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2493	!
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2494
4240 e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2495	mimeTypeForSuffix:aFileSuffix
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2496	"given a file suffix, return a corresponding mimeType.
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2497	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	2498	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	2499	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	2500
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2501	^ nil
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2502	!
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2503
6781 97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2504	mountPoints
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2505	"return a collection of mountPoints (aka. topDirectories of mounted file systems)"
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2506
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2507	^ #() "/ dont know here
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2508	!
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2509
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2510	parentDirectoryName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2511	"return the name used to refer to parent directories.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2512	In MSDOS, Unix and other systems this is '..', but maybe different
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2513	for other systems.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2514	(but those are currently not supported - so this is some
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2515	preparation for the future)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2516
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2517	^ '..'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2518	!
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	pathNameOf:pathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2521	"return the pathName of the argument, aPathString,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2522	- thats the full pathname of the directory, starting at '/'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2523	This method needs the path to be valid
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2524	(i.e. all directories must exist, be readable and executable).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2525	Notice: if symbolic links are involved, the result may look different
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2526	from what you expect."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2527
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2528	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2529	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2530
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2531	primIdOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2532	"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	2533
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2534	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2535	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2536
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2537	primPathNameOf:pathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2538	"return the pathName of the argument, aPathString,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2539	- thats the full pathname of the directory, starting at '/'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2540	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	2541	realPath library function.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2542	Notice: if symbolic links are involved, the result may look different
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2543	from what you expect."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2544
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2545	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2546	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2547
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2548	timeOfLastAccess:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2549	"return the time, when the file was last accessed.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2550	For nonexistent files, nil is returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2551
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2552	^ (self infoOf:aPathName) accessTime
3576 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	timeOfLastChange:aPathName
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2556	"return the time, when the file was last changed.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2557	For nonexistent files, nil is returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2558
6793 0d3e3fd18a70 modified -> modificationTime Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	2559	^ (self infoOf:aPathName) modificationTime
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2560	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2561
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2562	typeOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2563	"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	2564	nil is returned.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2565	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	2566
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2567	^ (self infoOf:aPathName) type
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2568	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2569
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2570	volumeNameOf:aPathString
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2571	"return the volumeName of the argument, aPath
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2572	- thats the name of the volume where aPath is.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2573	Not all OperatingSystems support/use volumes; on unix,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2574	this always returns an empty string."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2575
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2576	^ ''
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2577	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2578
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2579	!AbstractOperatingSystem class methodsFor:'interprocess communication'!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2580
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2581	createCOMFileForVMSCommand:aCommandString in:aDirectory
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2582	"this is only implemented/required for VMS systems, to execute commands"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2583
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2584	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2585
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2586	"Created: / 19.5.1999 / 12:16:31 / cg"
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2587	"Modified: / 19.5.1999 / 14:22:05 / cg"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2588	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2589
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2590	createMailBox
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2591	"this is only implemented/required for VMS systems, to emulate pipes"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2592
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2593	^ UnsupportedOperationSignal raise
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2594
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2595	"Created: / 19.5.1999 / 12:14:56 / cg"
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2596	"Modified: / 19.5.1999 / 14:22:22 / cg"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2597	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2598
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2599	destroyMailBox:mbx
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2600	"this is only implemented/required for VMS systems, to emulate pipes"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2601
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2602	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2603
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2604	"Created: / 19.5.1999 / 12:16:43 / cg"
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2605	"Modified: / 19.5.1999 / 14:22:33 / cg"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2606	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2607
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2608	mailBoxNameOf:mbx
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2609	"this is only implemented/required for VMS systems, to emulate pipes"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2610
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2611	^ UnsupportedOperationSignal raise
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2612
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2613	"Created: / 19.5.1999 / 12:14:56 / cg"
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2614	"Modified: / 19.5.1999 / 14:22:40 / cg"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2615	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2616
8967 30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2617	makeBidirectionalPipe
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2618	"answer an array with 2 filedescriptors representing
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2619	the two ends of a bidirectional pipe - see also #makePipe"
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2620
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2621	^ self subclassResponsibility
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2622	!
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2623
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2624	makePipe
8967 30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2625	"answer an array with 2 filedescriptors representing
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2626	the two ends of a unidirectional pipe- see also #makeSocketPair"
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2627
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2628	^ self subclassResponsibility
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2629	!
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2630
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2631	shutdownBidirectionalPipeOutput:fileDescriptor
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2632	"inform the other end of the bidirectional pipe represented by fileDescriptor, that
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2633	we will send no more data to the pipe, i.e. EOF is reached"
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2634
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2635	^ self subclassResponsibility
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2636	! !
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2637
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2638	!AbstractOperatingSystem class methodsFor:'interrupts & signals'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2639
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2640	blockInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2641	"disable interrupt processing - if disabled, incoming
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2642	interrupts will be registered and handled as soon as
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2643	interrupts are reenabled by OperatingSystemclass>>unblockInterrupts.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2644	Returns the previous blocking status i.e. true if interrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2645	where already blocked. You need this information for proper
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2646	unblocking, in case of nested block/unblock calls."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2647
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2648	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2649	RETURN ( __BLOCKINTERRUPTS() );
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2650	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2651	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2652
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2653	defaultSignal:signalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2654	"revert to the default action on arrival of a (Unix-)signal.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2655	Dont confuse Unix signals with smalltalk signals.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2656	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	2657	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	2658	default for SIGQUIT (^ \) is to dump core.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2659	Also, NOTICE that signal numbers are not portable between unix
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2660	systems - use OperatingSystem sigXXX to get the numeric value for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2661	a signal."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2662
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2663	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2664	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2665
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2666	disableChildSignalInterrupts
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2667	"disable childSignal interrupts
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2668	(SIGCHLD, if the architecture supports it).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2669	We have to set the signal back to default, because ignoring
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2670	SIGCHLD breaks wait & co"
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	^ self defaultSignal:(self sigCHLD)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2673
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2674	"Created: 5.1.1996 / 15:45:28 / stefan"
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	disableIOInterruptsOn:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2678	"turn off IO interrupts for a filedescriptor"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2679
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2680	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2681	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2682
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2683	disableSignal:signalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2684	"disable (Unix-) signal processing for signalNumber.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2685	Dont confuse Unix signals with smalltalk signals.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2686	WARNING: for some signals, it is no good idea to disable
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2687	them; for example, disabling the SIGINT signal turns off ^C
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2688	handling.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2689	Also, NOTICE that signal numbers are not portable between unix
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2690	systems - use OperatingSystem sigXXX to get the numeric value for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2691	a signal.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2692	Use only for fully debugged stand alone applications."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2693
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2694	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2697	disableTimer
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2698	"disable timer interrupts.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2699	WARNING:
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2700	the system will not operate correctly with timer interrupts
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2701	disabled, because no scheduling or timeouts are possible."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2702
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2703	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2704	!
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	disableUserInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2707	"disable userInterrupt processing;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2708	when disabled, no ^C processing takes place.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2709	WARNING:
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2710	If at all, use this only for debugged stand-alone applications, since
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2711	no exit to the debugger is possible with user interrupts disabled.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2712	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	2713
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2714	self disableSignal:(self sigBREAK).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2715	self disableSignal:(self sigINT).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2716	!
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	enableAbortInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2719	"enable abort signalhandling, and make it a regular signalInterrupt.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2720	(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	2721	end-user applications ...).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2722	This is especially useful, if linked-in C-libraries call abort() ..."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2723
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2724	self enableSignal:(self sigABRT)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2725	!
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	enableChildSignalInterrupts
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2728	"enable childSignal interrupts
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2729	(SIGCHLD, if the architecture supports it).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2730	After enabling, these signals will send the message
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2731	'childSignalInterrupt' to the ChildSignalInterruptHandler object."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2732
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2733	self enableSignal:(self sigCHLD)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2734	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2735
6389 8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2736	enableCrashSignalInterrupts
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2737	"enable powerFail signal exception interrupts (sigPWR).
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2738	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	2739
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2740	self enableSignal:(self sigPWR).
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2741	self enableSignal:(self sigHUP)
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2742	!
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2743
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2744	enableFpExceptionInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2745	"enable floating point exception interrupts (if the
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2746	architecture supports it).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2747	After enabling, fpu-exceptions will send the message
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2748	'fpuExceptionInterrupt' to the FPUExceptionInterruptHandler object."
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	self enableSignal:(self sigFP)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2751	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2752
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2753	enableHardSignalInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2754	"enable hard signal exception interrupts (trap, buserror & segm. violation).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2755	After enabling, these exceptions will send the message
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2756	'signalInterrupt' to the SignalInterruptHandler object."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2757
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2758	"/ leads to trouble ...
6389 8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2759	"/ self enableSignal:(self sigPIPE).
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2760	"/ ... 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	2761
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2762	self disableSignal:(self sigPIPE).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2763
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2764	self enableSignal:(self sigILL).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2765	self enableSignal:(self sigBUS).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2766	self enableSignal:(self sigSEGV).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2767	self enableSignal:(self sigFP).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2768	self enableSignal:(self sigEMT).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2769	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2770
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2771	enableIOInterruptsOn:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2772	"turn on IO interrupts for a filedescriptor"
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 subclassResonsibility
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	enableQuitInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2778	"enable quitInterrupt (usually ^\) handling, and make it a userInterrupt.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2779	(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	2780	end-user applications ...)"
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	self enableSignal:(self sigQUIT)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2783	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2784
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2785	enableSignal:signalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2786	"enable (Unix-)signal processing for signalNumber.
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2787	Don't confuse Unix signals with smalltalk signals.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2788	The signal will be delivered to one of the standard handlers
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2789	(SIGINT, SIGQUIT, etc) or to a general handler, which
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2790	sends #signalInterrupt:.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2791
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2792	NOTICE that signal numbers are not portable between unix
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2793	systems - use OperatingSystem sigXXX to get the numeric value for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2794	a signal."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2795
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2796	self subclassResponsibility
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2799	enableTimer:milliSeconds
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2800	"setup for a timerInterrupt, to be signalled after some (real) time."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2801
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2802	self subclassResonsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2803	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2804
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2805	enableUserInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2806	"enable userInterrupt (^C) handling;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2807	when enabled, ^C in the terminal window will send the message
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2808	'userInterrupt' to the UserInterruptHandler object."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2809
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2810	self enableSignal:(self sigINT).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2811	self enableSignal:(self sigBREAK).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2812	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2813
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2814	interruptPending
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2815	"return true, if an interrupt is pending. The returned value is
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2816	invalid if interrupts are not currently blocked, since otherwise
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2817	the interrupt is usually already handled before arriving here,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2818	or may be served while returning from here."
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	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2821	extern OBJ __INTERRUPTPENDING();
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	RETURN ( __INTERRUPTPENDING() );
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2824	%}
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2827	interruptsBlocked
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2828	"return true, if interrupt handling is currently disabled;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2829	false otherwise."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2830
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2831	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2832	extern OBJ __INTERRUPTS_BLOCKED();
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	RETURN ( __INTERRUPTS_BLOCKED() );
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2835	%}
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
6536 bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2838	isFatalSignal:aNumber
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2839	"return true if a signal with number aNumber is a fatal signal,
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2840	i.e. some severe internal error occured"
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2841
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2842	^ self subclassResponsibility
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2843	!
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2844
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2845	killProcess:processId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2846	"kill an OS process.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2847	The process has a no chance to do some cleanup.
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	WARNING: in order to avoid zombie processes (on unix),
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2850	you may have to fetch the processes exitstatus with
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2851	OperatingSystem>>getStatusOfProcess:aProcessId."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2852
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2853	self subclassResponsibility
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	"Modified: / 10.6.1998 / 12:00:07 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2856	!
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	killProcessGroup:processGroupId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2859	"kill an OS process group.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2860	The process has NO chance to do some cleanup.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2861
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2862	WARNING: in order to avoid zombie processes (on unix),
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2863	you may have to fetch the processes exitstatus with
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2864	OperatingSystem>>getStatusOfProcess:aProcessId."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2865
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2866	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2867
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2868	"Created: / 10.6.1998 / 12:00:26 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2869	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2870
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2871	nameForSignal:aSignalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2872	"for a given Unix signalnumber, return a descriptive string"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2873
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2874	aSignalNumber == self sigHUP ifTrue:[^ 'hangup'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2875	aSignalNumber == self sigINT ifTrue:[^ 'interrupt'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2876	aSignalNumber == self sigKILL ifTrue:[^ 'kill'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2877	aSignalNumber == self sigQUIT ifTrue:[^ 'quit'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2878	aSignalNumber == self sigILL ifTrue:[^ 'illegal instruction'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2879	aSignalNumber == self sigTRAP ifTrue:[^ 'trap'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2880	aSignalNumber == self sigABRT ifTrue:[^ 'abort'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2881	aSignalNumber == self sigIOT ifTrue:[^ 'iot trap'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2882	aSignalNumber == self sigEMT ifTrue:[^ 'emt trap'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2883	aSignalNumber == self sigFP ifTrue:[^ 'fp exception'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2884	aSignalNumber == self sigBUS ifTrue:[^ 'bus error'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2885	aSignalNumber == self sigSEGV ifTrue:[^ 'segmentation violation'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2886	aSignalNumber == self sigSYS ifTrue:[^ 'bad system call'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2887	aSignalNumber == self sigPIPE ifTrue:[^ 'broken pipe'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2888	aSignalNumber == self sigALRM ifTrue:[^ 'alarm timer'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2889	aSignalNumber == self sigTERM ifTrue:[^ 'termination'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2890	aSignalNumber == self sigSTOP ifTrue:[^ 'stop'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2891	aSignalNumber == self sigTSTP ifTrue:[^ 'tty stop'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2892	aSignalNumber == self sigCONT ifTrue:[^ 'continue'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2893	aSignalNumber == self sigCHLD ifTrue:[^ 'child death'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2894	aSignalNumber == self sigTTIN ifTrue:[^ 'background tty input'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2895	aSignalNumber == self sigTTOU ifTrue:[^ 'background tty output'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2896	aSignalNumber == self sigIO ifTrue:[^ 'io available'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2897	aSignalNumber == self sigXCPU ifTrue:[^ 'cpu time expired'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2898	aSignalNumber == self sigXFSZ ifTrue:[^ 'file size limit'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2899	aSignalNumber == self sigVTALRM ifTrue:[^ 'virtual alarm timer'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2900	aSignalNumber == self sigPROF ifTrue:[^ 'profiling timer'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2901	aSignalNumber == self sigWINCH ifTrue:[^ 'winsize changed'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2902	aSignalNumber == self sigLOST ifTrue:[^ 'resource lost'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2903	aSignalNumber == self sigUSR1 ifTrue:[^ 'user signal 1'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2904	aSignalNumber == self sigUSR2 ifTrue:[^ 'user signal 2'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2905	aSignalNumber == self sigMSG ifTrue:[^ 'HFT message'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2906	aSignalNumber == self sigPWR ifTrue:[^ 'power-fail'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2907	aSignalNumber == self sigPRE ifTrue:[^ 'programming exception'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2908	aSignalNumber == self sigGRANT ifTrue:[^ 'HFT access wanted'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2909	aSignalNumber == self sigRETRACT ifTrue:[^ 'HFT access relinquish'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2910	aSignalNumber == self sigSOUND ifTrue:[^ 'HFT sound complete'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2911	aSignalNumber == self sigDANGER ifTrue:[^ 'low on paging space'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2912
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2913	"notice: many systems map SIGPOLL and/or SIGUSR onto SIGIO
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2914	therefore, keep SIGIO always above the two below"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2915	aSignalNumber == self sigPOLL ifTrue:[^ 'io available'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2916	aSignalNumber == self sigURG ifTrue:[^ 'urgent'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2917
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2918	^ 'unknown signal'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2919
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2920	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2921	OperatingSystem nameForSignal:9
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2922	OperatingSystem nameForSignal:(OperatingSystem sigPOLL)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2923	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2924	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2925
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2926	operatingSystemSignal:signalNumber
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2927	"return the signal to be raised when an
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2928	operatingSystem-signal occurs, or nil"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2929
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2930	OSSignals notNil ifTrue:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2931	^ OSSignals at:signalNumber ifAbsent:[nil]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2932	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2933	^ nil
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2934	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2935
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2936	operatingSystemSignal:signalNumber install:aSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2937	"install a signal to be raised when an operatingSystem-signal occurs"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2938
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2939	OSSignals isNil ifTrue:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2940	OSSignals := Array new:32
3576 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	OSSignals at:signalNumber put:aSignal
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	sendSignal:signalNumber to:processId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2946	"send a unix signal to some process (maybe myself).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2947	Returns false if any error occurred, true otherwise.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2948
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2949	Do not confuse UNIX signals with Smalltalk-Signals."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2950
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2951	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2952	!
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	startSpyTimer
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2955	"trigger a spyInterrupt, to be signalled after some short (virtual) time.
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2956	Return true, if the spy-timerInterrupt was enabled.
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2957	This was used by the old MessageTally for profiling.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2958	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	2959	(which is of course less correct).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2960	OBSOLETE: the new messageTally runs as a high prio process, not using
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2961	spy interrupts."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2962
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2963	^ false
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2964	!
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	stopSpyTimer
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2967	"stop spy timing - disable spy timer.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2968	OBSOLETE: the new messageTally runs as a high prio process, not using
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2969	spy interrupts."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2970
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2971	^ false
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2974	terminateProcess:processId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2975	"terminate a unix process.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2976	The process has a chance to do some cleanup.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2977
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2978	WARNING: in order to avoid zombie processes (on unix),
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2979	you may have to fetch the processes exitstatus with
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2980	OperatingSystem>>getStatusOfProcess:aProcessId."
3576 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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2983	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2984
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2985	terminateProcessGroup:processGroupId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2986	"terminate a unix process group.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2987	The process has a chance to do some cleanup.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2988
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2989	WARNING: in order to avoid zombie processes (on unix),
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2990	you may have to fetch the processes exitstatus with
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	2991	OperatingSystem>>getStatusOfProcess:aProcessId."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2992
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2993	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2996	unblockInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2997	"enable interrupt processing - if any interrupts are pending,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2998	these will be handled immediately.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2999	When unblocking interrupts, take care of nested block/unblock
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3000	calls - you must only unblock after a blockcall if they where
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3001	really not blocked before. See OperatingSystemclass>>blockInterrupts."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3002	%{
8505 4456ffd20005 #unblockInterrupts returns the prvious blocking state Stefan Vogel <sv@exept.de> parents: 8497 diff changeset	3003	RETURN(__UNBLOCKINTERRUPTS());
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3004	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3005	! !
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	!AbstractOperatingSystem class methodsFor:'misc'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3008
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3009	closePid:pid
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3010	"free pid resource"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3011
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3012	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3015	exit
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3016	"shutdown smalltalk immediately - this method does not return.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3017	Return 'good'-status (0) to the parent unix process."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3018
5429 f4a52365fc97 checkin from browser Claus Gittinger <cg@exept.de> parents: 5407 diff changeset	3019	self exit:0.
f4a52365fc97 checkin from browser Claus Gittinger <cg@exept.de> parents: 5407 diff changeset	3020
8804 b7eefb374b37 spelling in comments Stefan Vogel <sv@exept.de> parents: 8801 diff changeset	3021	"OperatingSystem exit - don't evaluate this"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3022	!
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	exit:exitCode
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3025	"shutdown smalltalk immediately -
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3026	returning an exit-code to the parent unix process."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3027
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3028	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3029	int code = 1;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3030
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3031	if (__isSmallInteger(exitCode)) {
8804 b7eefb374b37 spelling in comments Stefan Vogel <sv@exept.de> parents: 8801 diff changeset	3032	code = __intVal(exitCode);
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3033	}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3034	__mainExit(code);
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3035	%}
8804 b7eefb374b37 spelling in comments Stefan Vogel <sv@exept.de> parents: 8801 diff changeset	3036	"OperatingSystem exit:1 - don't evaluate this"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3037	!
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	exitWithCoreDump
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3040	"shutdown smalltalk immediately - dumping core.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3041	This always returns 'bad'-status to the parent unix process.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3042	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	3043	manually remove any tempfiles.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3044	Use this only for debugging ST/X itself"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3045
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3046	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3047	abort();
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3048	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3049	"
8804 b7eefb374b37 spelling in comments Stefan Vogel <sv@exept.de> parents: 8801 diff changeset	3050	OperatingSystem exitWithCoreDump - don't evaluate this
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3051	"
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3052	!
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3053
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3054	getVMSSymbol:aSymbolString
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3055	"get a symbols value, or nil if there is none"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3056
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3057	^ nil
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3058
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3059	"Created: / 5.6.1998 / 19:02:50 / cg"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3060	"Modified: / 5.6.1998 / 19:03:15 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3061	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3062
7289 ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3063	!AbstractOperatingSystem class methodsFor:'obsolete'!
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3064
8236 ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3065	baseNameOf:aPath
ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3066	<resource:#obsolete>
ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3067
ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3068	self obsoleteMethodWarning:'use asFilename baseName'.
ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3069	^ aPath asFilename baseName
7289 ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3070	! !
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3071
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3072	!AbstractOperatingSystem class methodsFor:'os queries'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3073
3806 37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3074	getCCDefine
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3075	"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	3076	when STX was compiled, and which should be passed down when compiling methods.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3077	For example, on linux, this is '__GNUC__';
3806 37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3078	on windows, this is either '__MSC__' or '__BORLANDC__'"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3079
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3080	%{ /* NOCONTEXT */
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3081	#ifndef CC_DEFINE
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3082	# ifdef WIN32
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3083	# ifdef __BORLANDC__
3829 4690e0bc7ce7 added isWINDOWSNT query Claus Gittinger <cg@exept.de> parents: 3826 diff changeset	3084	# define CC_DEFINE "__BORLANDC__"
3806 37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3085	# else
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3086	# define CC_DEFINE "__MSC__"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3087	# endif
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3088	# else
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3089	# ifdef __GNUC__
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3090	# define CC_DEFINE "__GNUC__"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3091	# else
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3092	# define CC_DEFINE "__CC__"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3093	# endif
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3094	# endif
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3095	#endif
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3096	RETURN ( __MKSTRING(CC_DEFINE));
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3097	%}
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3098	"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3099	OperatingSystem getCCDefine
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3100	"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3101	!
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3102
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3103	getCPUDefine
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3104	"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	3105	compiled, and which should be passed down when compiling methods.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3106	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	3107	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	3108	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	3109
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3110	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3111	# ifndef CPU_DEFINE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3112	# define CPU_DEFINE "-DunknownCPU"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3113	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3114
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3115	RETURN ( __MKSTRING(CPU_DEFINE));
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3116	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3117	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3118	OperatingSystem getCPUDefine
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3119	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3120	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3121
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3122	getCPUType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3123	"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	3124	Here, the machine for which ST/X was compiled is returned
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3125	(i.e. for all x86's, the same i386 is returned).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3126	This may normally not be of any interest to you ..."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3127
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3128	\|cpu\|
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3129
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3130	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3131
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3132	# ifdef __vax__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3133	# define CPU_SYMBOL @symbol(vax)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3134	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3135	# ifdef __mips__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3136	# define CPU_SYMBOL @symbol(mips)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3137	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3138	# ifdef __i386__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3139	# define CPU_SYMBOL @symbol(i386)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3140	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3141	# ifdef __i860__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3142	# define CPU_SYMBOL @symbol(i860)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3143	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3144	# ifdef __ns32k__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3145	# define CPU_SYMBOL @symbol(ns32k)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3146	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3147	# ifdef __mc68k__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3148	# define CPU_SYMBOL @symbol(mc68k)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3149	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3150	# ifdef __mc88k__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3151	# define CPU_SYMBOL @symbol(mc88k)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3152	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3153	# ifdef __sparc__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3154	# define CPU_SYMBOL @symbol(sparc)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3155	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3156	# ifdef __hppa__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3157	# define CPU_SYMBOL @symbol(hppa)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3158	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3159	# ifdef __rs6000__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3160	# define CPU_SYMBOL @symbol(rs6000)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3161	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3162	# ifdef __powerPC__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3163	# define CPU_SYMBOL @symbol(powerPC)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3164	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3165	# ifdef __alpha__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3166	# define CPU_SYMBOL @symbol(alpha)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3167	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3168	# ifdef __transputer__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3169	# define CPU_SYMBOL @symbol(transputer)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3170	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3171	# ifdef __ibm370__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3172	# define CPU_SYMBOL @symbol(ibm370)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3173	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3174	# ifdef __s390__
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3175	# define CPU_SYMBOL @symbol(s390)
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3176	# endif
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3177	# ifdef __arm__
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3178	# define CPU_SYMBOL @symbol(arm)
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3179	# endif
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3180	# ifdef __ia64__
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3181	# define CPU_SYMBOL @symbol(ia64)
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3182	# endif
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3183
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3184	# ifndef CPU_SYMBOL
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3185	# define CPU_SYMBOL @symbol(unknown)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3186	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3187
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3188	cpu = CPU_SYMBOL;
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3189	# undef CPU_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3190	%}.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3191	^ cpu
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3192
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3193	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3194	OperatingSystem getCPUType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3195	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3196
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3197	"examples: are we running on a ss-10/solaris ?"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3198	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3199	(OperatingSystem getCPUType = 'sparc')
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3200	and:[OperatingSystem getOSType = 'solaris']
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3201	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3202
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3203	"or on a pc/solaris ?"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3204	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3205	(OperatingSystem getCPUType = 'i386')
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3206	and:[OperatingSystem getOSType = 'solaris']
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3207	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3208	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3209
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3210	getDomainName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3211	"return the domain this host is in.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3212	Notice:
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3213	not all systems support this; on some, 'unknown' is returned."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3214
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3215	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3216	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3217
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3218	getEnvironment:aStringOrSymbol
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3219	"get an environment string"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3220
5407 d6729266a95b * empty log message * Claus Gittinger <cg@exept.de> parents: 5172 diff changeset	3221	^ self subclassResponsibility
3576 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	getHostName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3225	"return the hostname we are running on - if there is
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3226	a HOST environment variable, we are much faster here ...
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3227	Notice:
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3228	not all systems support this; on some, 'unknown' is returned."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3229
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3230	self subclassResponsibility
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
7778 cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3233	getLanguage
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3234	"get the LANGUAGE setting (example: de_DE.iso8859-15@euro)"
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3235
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3236	^ self getEnvironment:'LANG'.
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3237	!
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3238
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3239	getLocaleInfo
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3240	"return a dictionary filled with values from the locale information;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3241	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	3242	Possible fields are:
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3243	decimalPoint <String>
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3244
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3245	thousandsSep <String>
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3246
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3247	internationalCurrencySymbol <String>
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3248
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3249	currencySymbol <String>
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3250
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3251	monetaryDecimalPoint <String>
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3252
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3253	monetaryThousandsSeparator <String>
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3254
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3255	positiveSign <String>
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3256
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3257	negativeSign <String>
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3258
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3259	internationalFractionalDigits <Integer>
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3260
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3261	fractionalDigits <Integer>
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3262
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3263	positiveSignPrecedesCurrencySymbol <Boolean>
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3264
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3265	negativeSignPrecedesCurrencySymbol <Boolean>
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3266
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3267	positiveSignSeparatedBySpaceFromCurrencySymbol <Boolean>
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3268
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3269	negativeSignSeparatedBySpaceFromCurrencySymbol <Boolean>
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3270
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3271	positiveSignPosition <Symbol>
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3272	one of: #parenthesesAround,
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3273	#signPrecedes,
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3274	#signSuceeds,
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3275	#signPrecedesCurrencySymbol,
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3276	#signSuceedsCurrencySymbol
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3277
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3278	negativeSignPosition <like above>
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3279
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3280	it is up to the application to deal with undefined values.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3281
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3282	Notice, that (for now), the system does not use this information;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3283	it should be used by applications as required.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3284	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3285
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3286	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3287	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3288
8997 e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3289	getNetworkAddresses
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3290	"return a dictionary with key:name of interface and
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3291	value:the network address for each interface"
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3292
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3293	self subclassResponsibility
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3294	!
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3295
7289 ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3296	getNetworkMACAddresses
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3297	"return a dictionary with key:name of interface and
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3298	value:the MAC adress for each interface"
6363 4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3299
4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3300	self subclassResponsibility
4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3301	!
4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3302
7289 ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3303	getNetworkMACAddressesForIf:ifName
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3304	"return the MAC adress for interface ifName"
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3305
8641 1b45626f0e50 noMacAddress fallBack (NT4.0) Claus Gittinger <cg@exept.de> parents: 8587 diff changeset	3306	self getNetworkMACAddresses at:ifName ifAbsent:nil
1b45626f0e50 noMacAddress fallBack (NT4.0) Claus Gittinger <cg@exept.de> parents: 8587 diff changeset	3307
1b45626f0e50 noMacAddress fallBack (NT4.0) Claus Gittinger <cg@exept.de> parents: 8587 diff changeset	3308	"Modified: / 17-11-2004 / 01:43:35 / cg"
6363 4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3309	!
4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3310
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3311	getOSDefine
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3312	"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	3313	compiled, and which should be passed down when compiling methods.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3314	For example, on linux, this is '-DLINUX'."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3315
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3316	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3317
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3318	#ifndef OS_DEFINE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3319	# ifdef WIN32
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3320	# define OS_DEFINE "-DWIN32"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3321	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3322
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3323	# ifndef OS_DEFINE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3324	# define OS_DEFINE "-DunknownOS"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3325	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3326	#endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3327
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3328	RETURN ( __MKSTRING(OS_DEFINE));
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3329
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3330	#undef OS_DEFINE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3331	%}
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	OperatingSystem getOSDefine
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3334	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3335	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3336
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3337	getOSType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3338	"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	3339	This can be used to adapt programs to certain environment
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3340	differences (for example: mail-lock strategy ...)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3341
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3342	\|os\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3343
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3344	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3345
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3346	# ifdef MSDOS
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3347	# define OS_SYMBOL @symbol(msdos)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3348	# endif
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	# ifdef WIN32
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3351	# define OS_SYMBOL @symbol(win32)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3352	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3353
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3354	# ifdef MSWINDOWS
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3355	# define OS_SYMBOL @symbol(mswindows)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3356	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3357
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3358	# ifdef VMS
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3359	# ifdef __openVMS__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3360	# define OS_SYMBOL @symbol(openVMS)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3361	# else
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3362	# define OS_SYMBOL @symbol(VMS)
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	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3365
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3366	# ifdef MVS /* ;-) */
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3367	# define OS_SYMBOL @symbol(mvs)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3368	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3369
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3370	# ifdef OS2
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3371	# define OS_SYMBOL @symbol(os2)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3372	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3373
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3374	# ifdef sinix
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3375	# define OS_SYMBOL @symbol(sinix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3376	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3377
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3378	# ifdef ultrix
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3379	# define OS_SYMBOL @symbol(ultrix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3380	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3381
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3382	# ifdef sco
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3383	# define OS_SYMBOL @symbol(sco)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3384	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3385
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3386	# ifdef hpux
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3387	# define OS_SYMBOL @symbol(hpux)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3388	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3389
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3390	# ifdef LINUX
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3391	# define OS_SYMBOL @symbol(linux)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3392	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3393
6651 4bc133e27717 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	3394	# ifdef FREEBSD
4bc133e27717 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	3395	# define OS_SYMBOL @symbol(freeBSD)
4bc133e27717 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	3396	# endif
4bc133e27717 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	3397
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3398	# ifdef sunos
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3399	# define OS_SYMBOL @symbol(sunos)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3400	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3401
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3402	# ifdef solaris
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3403	# define OS_SYMBOL @symbol(solaris)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3404	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3405
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3406	# ifdef IRIS
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3407	# define OS_SYMBOL @symbol(irix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3408	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3409
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3410	# ifdef aix
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3411	# define OS_SYMBOL @symbol(aix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3412	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3413
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3414	# ifdef realIX
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3415	# define OS_SYMBOL @symbol(realIX)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3416	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3417
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3418	# ifdef __osf__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3419	# define OS_SYMBOL @symbol(osf)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3420	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3421
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3422	/*
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3423	* no concrete info; become somewhat vague ...
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3424	*/
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3425	# ifndef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3426	# ifdef MACH
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3427	# define OS_SYMBOL @symbol(mach)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3428	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3429	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3430
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3431	# ifndef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3432	# ifdef BSD
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3433	# define OS_SYMBOL @symbol(bsd)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3434	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3435
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3436	# ifdef SYSV
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3437	# ifdef SYSV3
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3438	# define OS_SYMBOL @symbol(sys5_3)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3439	# else
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3440	# ifdef SYSV4
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3441	# define OS_SYMBOL @symbol(sys5_4)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3442	# else
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3443	# define OS_SYMBOL @symbol(sys5)
3576 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	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3446	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3447	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3448
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3449	/*
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3450	* become very vague ...
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3451	*/
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3452	# ifndef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3453	# ifdef POSIX
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3454	# define OS_SYMBOL @symbol(posix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3455	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3456	# endif
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3457	# ifndef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3458	# ifdef UNIX
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3459	# define OS_SYMBOL @symbol(unix)
3576 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
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3463	# ifndef OS_SYMBOL
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3464	# define OS_SYMBOL @symbol(unknown)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3465	# endif
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	os = OS_SYMBOL;
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3468
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3469	# undef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3470	%}.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3471	^ os
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3472
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3473	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3474	OperatingSystem getOSType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3475	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3476	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3477
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3478	getProcessId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3479	"return the (unix-)processId"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3480
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3481	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3482	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3483
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3484	getSystemID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3485	"if supported by the OS, return the systemID;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3486	a unique per machine identification.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3487	WARNING:
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3488	not all systems support this; on some, 'unknown' is returned."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3489
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3490	^ 'unknown'
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	OperatingSystem getSystemID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3494	"
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3497	getSystemInfo
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3498	"return info on the system weare running on.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3499	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	3500	otherwise, some simulated info is returned.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3501
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3502	WARNING:
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3503	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	3504	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	3505	OS, for example, linux returns 'ix86', while WIN32 returns 'x86'.
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	This method is mainly provided to augment error reports with some system
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3508	information.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3509	(in case of system/version specific OS errors, conditional workarounds and patches
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3510	may be based upon this info).
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3511	Your application should NOT depend upon this in any way.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3512
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3513	The returned info may (or may not) contain:
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3514	#system -> some operating system identification (irix, Linux, nt, win32s ...)
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3515	#version -> OS version (some os version identification)
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3516	#release -> OS release (3.5, 1.2.1 ...)
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3517	#node -> some host identification (hostname)
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3518	#domain -> domain name (hosts domain)
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3519	#machine -> type of machine (i586, mips ...)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3520	"
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	\|info\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3523
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3524	info := IdentityDictionary new.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3525	info at:#system put:(self getSystemType).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3526	info at:#node put:(self getHostName).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3527	info at:#machine put:(self getCPUType).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3528	info at:#architecture put:'unknown'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3529	info at:#domain put:self getDomainName.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3530	info at:#osType put:(self getOSType).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3531	^ info
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3532
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3533	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3534	OperatingSystem getSystemInfo
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3538	getSystemType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3539	"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	3540	This is almost the same as getOSType, but the returned string
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3541	is slightly different for some systems (i.e. iris vs. irix).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3542	Dont depend on this - use getOSType. I dont really see a point
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3543	here ...
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3544	(except for slight differences between next/mach and other machs)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3545
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3546	^ self getOSType
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 getSystemType
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	getWindowsDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3554	"internal interface - only for Windows based systems.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3555	Return the windows directory
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3556	(which - depending on the system - may be \WINNT, \WINDOWS or whatever)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3557	On non-windows systems, nil is returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3558
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3559	^ nil
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	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3562	OperatingSystem getWindowsDirectory
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	!
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	getWindowsSystemDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3567	"internal interface - only for Windows based systems.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3568	Return the windows system directory
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3569	(which - depending on the system - may be \WINNT\SYSTEM32,
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3570	\WINDOWS\SYSTEM or whatever)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3571	On non-windows systems, nil is returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3572
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3573	^ nil
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3574
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	OperatingSystem getWindowsSystemDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3577	"
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
4207 89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3580	hasConsole
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3581	"return true, if there is some kind of console available
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3582	(i.e. for proper stdIn, stdOut and stdErr handling).
5918 0d8bc97e7106 * empty log message * Claus Gittinger <cg@exept.de> parents: 5861 diff changeset	3583	This only returns false when running under windows, and
4207 89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3584	the system is running as a pure windows application.
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3585	If false, the miniDebugger is useless and not used."
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3586
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3587	^ true
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3588	!
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3589
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3590	isBSDlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3591	"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	3592
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3593	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3594	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3595
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3596	isMAClike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3597	"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	3598
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3599	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3600	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3601
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3602	isMSDOSlike
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3603	"return true, if the OS we're running on is msdos like
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3604	(in contrast to unix-like).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3605	This returns true for any of msdos, win32s, win95,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3606	winNT and os/2."
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
3901 3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3611	isMSWINDOWSNTlike
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3612	"This returns true if running in a Windows-NT system."
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3613
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3614	^ false.
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3615	!
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3616
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3617	isMSWINDOWSlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3618	"return true, if running on a MS-Windows like system.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3619	This returns true for any of win32s, win95 and winNT."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3620
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3621	^ false
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3624	isOS2like
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3625	"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	3626	Only returns true for a plain OS/2 system."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3627
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3628	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3629	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3630
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3631	isUNIXlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3632	"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	3633
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3634	^ false
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3637	isVMSlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3638	"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	3639
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3640	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3641	!
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	maxFileNameLength
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3644	"return the max number of characters in a filename.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3645	CAVEAT:
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3646	Actually, the following is somewhat wrong - some systems
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3647	support different sizes, depending on the volume.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3648	We return a somewhat conservative number here.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3649	Another entry, to query for volume specific max
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	3650	will be added in the future."
3576 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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3653	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3654
6578 e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3655	maxNumberOfOpenFiles
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3656	"answer the maximum number of open files for this process"
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3657
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3658	^ self subclassResponsibility
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3659	!
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3660
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3661	maxPathLength
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3662	"return the max number of characters in a pathName."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3663
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3664	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3665	!
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	pathSeparator
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3668	"return the character which separates items in the PATH variable"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3669
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3670	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3671	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3672
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3673	platformName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3674	"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	3675	This returns #unix for all unix derivatives.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3676	I.e. it is much less specific than getOSType or getSystemType."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3677
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3678	\|os\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3679
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3680	os := self getSystemType.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3681	os = 'win32' ifTrue:[ ^ #win32].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3682	os = 'os2' ifTrue:[ ^ #os2].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3683	os = 'macos' ifTrue:[ ^ #mac].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3684	os = 'VMS' ifTrue:[ ^ #vms].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3685	os = 'openVMS' ifTrue:[ ^ #vms].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3686	^ #unix
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	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3689	OperatingSystem platformName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3690	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3691
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3692	"Modified: 20.6.1997 / 17:37:26 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3693	!
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	setLocaleInfo:anInfoDictionary
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3696	"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	3697	(internal in ST/X only - the OS's settings remain unaffected)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3698	See description of fields in #getLocaleInfo.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3699
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3700	Notice, that (for now), the system does not use this information;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3701	it should be used by applications as required."
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	LocaleInfo := anInfoDictionary
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3704
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	\|d\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3707
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3708	d := IdentityDictionary new.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3709	d at:#decimalPoint put:'.' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3710	d at:#thousandsSeparator put:',' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3711	d at:#currencySymbol put:'USD' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3712	d at:#monetaryDecimalPoint put:'.' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3713	d at:#monetaryThousandsSeparator put:'.' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3714	d at:#fractionalDigits put:2 .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3715	d at:#positiveSign put:'+' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3716	d at:#negativeSign put:'-' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3717	d at:#positiveSignPrecedesCurrencySymbol put:true .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3718	d at:#negativeSignPrecedesCurrencySymbol put:false .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3719	OperatingSystem setLocaleInfo:d
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	!
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	supportsChildInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3724	"return true, if the OS supports childProcess termination signalling
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3725	through interrupts (i.e. SIGCHILD)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3726
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3727	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3728
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3729	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3730	OperatingSystem supportsChildInterrupts
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3731	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3732	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3733
3826 ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3734	supportsFileOwnerGroups
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3735	"return true, if the OS's file system supports file
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3736	group ownership - here, we are optimistic assuming that
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3737	we are running under a real OS.
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3738	Redefined in Win32OS to return false."
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3739
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3740	^ true
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3741
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3742	"Modified: / 10.9.1998 / 17:48:20 / cg"
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3743	"Created: / 10.9.1998 / 17:56:28 / cg"
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3744	!
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3745
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3746	supportsFileOwners
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3747	"return true, if the OS's file system supports file
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3748	ownership - here, we are optimistic assuming that
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3749	we are running under a real OS.
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3750	Redefined in Win32OS to return false."
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3751
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3752	^ true
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3753
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3754	"Modified: / 10.9.1998 / 17:48:20 / cg"
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3755	"Created: / 10.9.1998 / 17:56:11 / cg"
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
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3758	supportsIOInterrupts
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3759	"return true, if the OS supports IO availability interrupts
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3760	(i.e. SIGPOLL/SIGIO)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3761
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3762	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3763
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3764	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3765	OperatingSystem supportsIOInterrupts
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3766	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3767	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3768
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3769	supportsNonBlockingIO
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3770	"return true, if the OS supports nonblocking IO."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3771
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3772	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3773
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3774	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3775	OperatingSystem supportsNonBlockingIO
3576 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	!
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	supportsSelect
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3780	"return true, if the OS supports selecting on multiple
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3781	filedescriptors via select.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3782	If false is returned, ProcessorScheduler will poll in 50ms
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3783	intervals for I/O becoming ready."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3784
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3785	^ true
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	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3788	OperatingSystem supportsSelect
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3789	"
3901 3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3790	!
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3791
5099 bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3792	supportsSelectOnPipes
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3793	"return true, if the OS supports selecting on pipe
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3794	filedescriptors via select.
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3795	If false is returned, ProcessorScheduler will poll in 50ms
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3796	intervals for I/O becoming ready."
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3797
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3798	^ true
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3799
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3800	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3801	OperatingSystem supportsSelectOnPipes
5099 bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3802	"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3803
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3804	"Modified: / 14.12.1999 / 19:40:32 / cg"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3805	"Created: / 14.12.1999 / 19:43:43 / cg"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3806	!
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3807
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3808	supportsSelectOnSockets
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3809	"return true, if the OS supports selecting on socket
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3810	filedescriptors via select.
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3811	If false is returned, ProcessorScheduler will poll in 50ms
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3812	intervals for I/O becoming ready."
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3813
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3814	^ true
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	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3817	OperatingSystem supportsSelectOnSockets
5099 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
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3820	"Modified: / 14.12.1999 / 19:40:32 / 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
3901 3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3823	supportsVolumes
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3824	"return true, if the OS supports disk volumes.
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3825	False is returned for UNIX, true for MSDOS and VMS"
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3826
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3827	^ false
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3828
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3829	"Created: / 29.10.1998 / 13:20:37 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3830	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3831
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3832	!AbstractOperatingSystem class methodsFor:'path queries'!
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3833
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3834	defaultPackagePath
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3835	"return a default packagePath - thats a collection of
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3836	dirnames, where ST/X searches for its package subdirs.
5159 ca0524ab2576 defaultPackagePath initialization fixed Claus Gittinger <cg@exept.de> parents: 5148 diff changeset	3837	This method might be redefined in concrete OS's to add
7770 9b54b69d4a21 comment Claus Gittinger <cg@exept.de> parents: 7739 diff changeset	3838	OS-specific directory names.
9b54b69d4a21 comment Claus Gittinger <cg@exept.de> parents: 7739 diff changeset	3839	If you set the STX_PACKAGEPATH shell variable, ensure that some of its component
9b54b69d4a21 comment Claus Gittinger <cg@exept.de> parents: 7739 diff changeset	3840	points to the directory which contains the stx/libbasic directory."
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3841
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3842	\|pPath p homePath priv userPrivateSTXDir\|
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3843
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3844	"
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3845	the path is set to search files first locally
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3846	- this allows private stuff to override global stuff
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3847	"
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3848	pPath := OrderedCollection new.
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3849
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3850	"/
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3851	"/ the current (default) directory
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3852	"/
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3853	pPath add:(Filename currentDirectory name).
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	"/
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3856	"/ the users home (login) directory
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	homePath := OperatingSystem getHomeDirectory.
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3859	homePath notNil ifTrue:[
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3860	(pPath includes:homePath) ifFalse:[
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3861	pPath add:homePath.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3862	].
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3863
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3864	"/
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3865	"/ a users private smalltalk directory in its home (login) directory
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3866	"/
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3867	OperatingSystem isUNIXlike ifTrue:[
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3868	priv := '.smalltalk'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3869	] ifFalse:[
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3870	priv := 'smalltalk'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3871	].
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3872	userPrivateSTXDir := homePath asFilename constructString:priv.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3873	(userPrivateSTXDir asFilename isDirectory) ifTrue:[
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3874	(pPath includes:userPrivateSTXDir) ifFalse:[
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3875	pPath add:userPrivateSTXDir
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3876	]
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3877	].
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3878	].
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3879
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3880	"/
5159 ca0524ab2576 defaultPackagePath initialization fixed Claus Gittinger <cg@exept.de> parents: 5148 diff changeset	3881	"/ STX_TOPDIR from the environment
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3882	"/
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3883	p := OperatingSystem getEnvironment:'STX_TOPDIR'.
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3884	p notNil ifTrue:[
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3885	(pPath includes:p) ifFalse:[
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3886	pPath add:p
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3887	].
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3888	].
5172 7129dedcdd3a * empty log message * Claus Gittinger <cg@exept.de> parents: 5169 diff changeset	3889	pPath add:'/opt/smalltalk'.
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3890	pPath := pPath select:[:p \| (p asFilename construct:'packages') exists].
5161 22ed38191c36 checkin from browser Claus Gittinger <cg@exept.de> parents: 5159 diff changeset	3891	pPath := pPath collect:[:p \| (p asFilename constructString:'packages')].
5654 96a2142a2c04 Use for packagePath Stefan Vogel <sv@exept.de> parents: 5646 diff changeset	3892
96a2142a2c04 Use for packagePath Stefan Vogel <sv@exept.de> parents: 5646 diff changeset	3893	(p := OperatingSystem getEnvironment:'STX_PACKAGEPATH') notNil ifTrue:[
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3894	p := p asCollectionOfSubstringsSeparatedBy:$:.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3895	p reverseDo:[:dir\|
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3896	(pPath includes:dir) ifFalse:[
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3897	pPath addFirst:dir.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3898	].
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3899	].
5654 96a2142a2c04 Use for packagePath Stefan Vogel <sv@exept.de> parents: 5646 diff changeset	3900	].
96a2142a2c04 Use for packagePath Stefan Vogel <sv@exept.de> parents: 5646 diff changeset	3901
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3902	^ pPath
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3903
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3904	"
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3905	self defaultPackagePath
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3906	"
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3907
5148 1a4b6b99888d * empty log message * Claus Gittinger <cg@exept.de> parents: 5143 diff changeset	3908	"Modified: / 24.12.1999 / 00:31:29 / cg"
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3909	!
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3910
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3911	defaultSystemPath
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3912	"return a default systemPath - thats a collection of
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3913	dirnames, where ST/X searches for its files.
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3914	This method is redefined in concrete OS's to add
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3915	OS-specific directory names."
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3916
9021 6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	3917	\|sysPath p appDir homePath priv userPrivateSTXDir\|
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3918
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3919	"
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3920	the path is set to search files first locally
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3921	- this allows private stuff to override global stuff
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3922	"
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3923	sysPath := OrderedCollection new.
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3924
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3925	"/
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3926	"/ the current (default) directory
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3927	"/
9014 f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	3928	sysPath add:(Filename currentDirectory pathName).
4146 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	"/
9021 6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	3931	"/ the executable's directory (WIN32 only)
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	3932	"/
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	3933	OperatingSystem isMSWINDOWSlike ifTrue:[
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	3934	appDir := Smalltalk commandName asFilename directory pathName.
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	3935	(sysPath includes:appDir) ifFalse:[
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	3936	sysPath add:appDir.
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	3937	].
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	3938	].
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	3939
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	3940	"/
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3941	"/ the users home (login) directory
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	homePath := OperatingSystem getHomeDirectory.
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3944	homePath notNil ifTrue:[
9014 f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	3945	"/
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	3946	"/ a users private smalltalk directory in its home (login) directory
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	3947	"/
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	3948	OperatingSystem isUNIXlike ifTrue:[
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	3949	priv := '.smalltalk'.
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	3950	] ifFalse:[
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	3951	priv := 'smalltalk'.
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	3952	].
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	3953	userPrivateSTXDir := homePath asFilename constructString:priv.
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	3954	(userPrivateSTXDir asFilename isDirectory) ifTrue:[
9021 6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	3955	userPrivateSTXDir := userPrivateSTXDir asFilename pathName.
9014 f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	3956	(sysPath includes:userPrivateSTXDir) ifFalse:[
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	3957	sysPath add:userPrivateSTXDir
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	3958	]
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	3959	].
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3960	].
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3961
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3962	"/
5036 a967da9d41ac checkin from browser Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	3963	"/ SMALLTALK_LIBDIR, STX_LIBDIR and STX_TOPDIR from the environment
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3964	"/
9014 f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	3965	#(
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	3966	'SMALLTALK_LIBDIR'
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	3967	'STX_LIBDIR'
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	3968	'STX_TOPDIR'
5646 5dfccce8e880 no longer automatically add the home-dir to the systemPath Claus Gittinger <cg@exept.de> parents: 5486 diff changeset	3969	) do:[:each \|
9014 f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	3970	p := OperatingSystem getEnvironment:each.
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	3971	p notNil ifTrue:[
9021 6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	3972	p := p asFilename pathName.
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	3973	(p asFilename isDirectory) ifTrue:[
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	3974	(sysPath includes:p) ifFalse:[
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	3975	sysPath add:p
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	3976	]
9014 f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	3977	]
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	3978	].
5036 a967da9d41ac checkin from browser Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	3979	].
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3980	^ sysPath
5148 1a4b6b99888d * empty log message * Claus Gittinger <cg@exept.de> parents: 5143 diff changeset	3981
1a4b6b99888d * empty log message * Claus Gittinger <cg@exept.de> parents: 5143 diff changeset	3982	"Modified: / 24.12.1999 / 00:30:27 / cg"
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3983	! !
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	3984
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	3985	!AbstractOperatingSystem class methodsFor:'printing support'!
d8547710430c printer stuff fm parents: 9380 diff changeset	3986
d8547710430c printer stuff fm parents: 9380 diff changeset	3987	getPrinterInfoFor: aPrinterName
d8547710430c printer stuff fm parents: 9380 diff changeset	3988	self subclassResponsibility
d8547710430c printer stuff fm parents: 9380 diff changeset	3989
d8547710430c printer stuff fm parents: 9380 diff changeset	3990	"Created: / 27-07-2006 / 12:14:18 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	3991	!
d8547710430c printer stuff fm parents: 9380 diff changeset	3992
d8547710430c printer stuff fm parents: 9380 diff changeset	3993	getPrinters
d8547710430c printer stuff fm parents: 9380 diff changeset	3994	"return a collection of PrinterInfos"
d8547710430c printer stuff fm parents: 9380 diff changeset	3995
d8547710430c printer stuff fm parents: 9380 diff changeset	3996	self subclassResponsibility
d8547710430c printer stuff fm parents: 9380 diff changeset	3997
d8547710430c printer stuff fm parents: 9380 diff changeset	3998	"Created: / 27-07-2006 / 12:17:31 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	3999	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	4000
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4001	!AbstractOperatingSystem class methodsFor:'private'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4002
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4003	osProcessStatusClass
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4004	^ self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4005
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4006	"Created: / 12.6.1998 / 16:30:29 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4007	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4008
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	4009	!AbstractOperatingSystem class methodsFor:'queries-sockets'!
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4010
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4011	domainCodeOf:aSymbolOrInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4012	"return the numeric AF_xxx code of a given symbolic domain name.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4013	Return nil for invalid or unsupported domains.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4014	For backward compatibility, the obsolete (non-AF-prefixed) names
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4015	are still supported for a while - this support will vanish."
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4016
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4017	\|domainCode\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4018
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4019	%{ /NOCONTEXT/
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4020
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4021	if (__isSmallInteger(aSymbolOrInteger) \|\| aSymbolOrInteger == nil) {
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4022	RETURN (aSymbolOrInteger);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4023	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4024
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4025	#ifdef AF_INET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4026	else if ((aSymbolOrInteger == @symbol(AF_INET)) \|\| (aSymbolOrInteger == @symbol(inet)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4027	domainCode = __mkSmallInteger(AF_INET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4028	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4029	#ifdef AF_INET6
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4030	else if ((aSymbolOrInteger == @symbol(AF_INET6)) \|\| (aSymbolOrInteger == @symbol(inet6)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4031	domainCode = __mkSmallInteger(AF_INET6);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4032	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4033	#ifdef AF_UNIX
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4034	else if ((aSymbolOrInteger == @symbol(AF_UNIX)) \|\| (aSymbolOrInteger == @symbol(unix)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4035	domainCode = __mkSmallInteger(AF_UNIX);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4036	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4037	#ifdef AF_APPLETALK
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4038	else if ((aSymbolOrInteger == @symbol(AF_APPLETALK)) \|\| (aSymbolOrInteger == @symbol(appletalk)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4039	domainCode = __mkSmallInteger(AF_APPLETALK);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4040	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4041	#ifdef AF_DECnet
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4042	else if ((aSymbolOrInteger == @symbol(AF_DECnet)) \|\| (aSymbolOrInteger == @symbol(decnet)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4043	domainCode = __mkSmallInteger(AF_DECnet);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4044	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4045	#ifdef AF_NS
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4046	else if ((aSymbolOrInteger == @symbol(AF_NS)) \|\| (aSymbolOrInteger == @symbol(ns)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4047	domainCode = __mkSmallInteger(AF_NS);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4048	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4049	#ifdef AF_X25
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4050	else if ((aSymbolOrInteger == @symbol(AF_X25)) \|\| (aSymbolOrInteger == @symbol(x25)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4051	domainCode = __mkSmallInteger(AF_X25);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4052	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4053	#ifdef AF_SNA
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4054	else if (aSymbolOrInteger == @symbol(AF_SNA))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4055	domainCode = __mkSmallInteger(AF_SNA);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4056	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4057	#ifdef AF_RAW
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4058	else if ((aSymbolOrInteger == @symbol(AF_RAW)) \|\| (aSymbolOrInteger == @symbol(raw)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4059	domainCode = __mkSmallInteger(AF_RAW);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4060	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4061	#ifdef AF_ISO
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4062	else if ((aSymbolOrInteger == @symbol(AF_ISO)) \|\| (aSymbolOrInteger == @symbol(iso)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4063	domainCode = __mkSmallInteger(AF_ISO);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4064	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4065	#ifdef AF_ECMA
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4066	else if (aSymbolOrInteger == @symbol(AF_ECMA))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4067	domainCode = __mkSmallInteger(AF_ECMA);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4068	#endif
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4069	#ifdef AF_NETBIOS
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4070	else if ((aSymbolOrInteger == @symbol(AF_NETBIOS)) \|\| (aSymbolOrInteger == @symbol(netbios)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4071	domainCode = __mkSmallInteger(AF_NETBIOS);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4072	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4073	#ifdef AF_NETBEUI
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4074	else if (aSymbolOrInteger == @symbol(AF_NETBEUI))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4075	domainCode = __mkSmallInteger(AF_NETBEUI);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4076	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4077	#ifdef AF_IPX
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4078	else if (aSymbolOrInteger == @symbol(AF_IPX))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4079	domainCode = __mkSmallInteger(AF_IPX);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4080	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4081	#ifdef AF_AX25
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4082	else if (aSymbolOrInteger == @symbol(AF_AX25))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4083	domainCode = __mkSmallInteger(AF_AX25);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4084	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4085	#ifdef AF_NETROM
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4086	else if (aSymbolOrInteger == @symbol(AF_NETROM))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4087	domainCode = __mkSmallInteger(AF_NETROM);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4088	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4089	#ifdef AF_BRIDGE
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4090	else if (aSymbolOrInteger == @symbol(AF_BRIDGE))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4091	domainCode = __mkSmallInteger(AF_BRIDGE);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4092	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4093	#ifdef AF_BSC
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4094	else if (aSymbolOrInteger == @symbol(AF_BSC))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4095	domainCode = __mkSmallInteger(AF_BSC);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4096	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4097	#ifdef AF_ROSE
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4098	else if (aSymbolOrInteger == @symbol(AF_ROSE))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4099	domainCode = __mkSmallInteger(AF_ROSE);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4100	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4101	#ifdef AF_IRDA
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4102	else if ((aSymbolOrInteger == @symbol(AF_IRDA)) \|\| (aSymbolOrInteger == @symbol(irda)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4103	domainCode = __mkSmallInteger(AF_IRDA);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4104	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4105	#ifdef AF_BAN
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4106	else if (aSymbolOrInteger == @symbol(AF_BAN))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4107	domainCode = __mkSmallInteger(AF_BAN);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4108	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4109	#ifdef AF_VOICEVIEW
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4110	else if (aSymbolOrInteger == @symbol(AF_VOICEVIEW))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4111	domainCode = __mkSmallInteger(AF_VOICEVIEW);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4112	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4113	#ifdef AF_ATM
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4114	else if (aSymbolOrInteger == @symbol(AF_ATM))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4115	domainCode = __mkSmallInteger(AF_ATM);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4116	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4117	#ifdef AF_ATMPVC
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4118	else if (aSymbolOrInteger == @symbol(AF_ATMPVC))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4119	domainCode = __mkSmallInteger(AF_ATMPVC);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4120	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4121	#ifdef AF_ATMSVC
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4122	else if (aSymbolOrInteger == @symbol(AF_ATMSVC))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4123	domainCode = __mkSmallInteger(AF_ATMSVC);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4124	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4125	#ifdef AF_SECURITY
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4126	else if (aSymbolOrInteger == @symbol(AF_SECURITY))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4127	domainCode = __mkSmallInteger(AF_SECURITY);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4128	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4129	#ifdef AF_KEY
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4130	else if (aSymbolOrInteger == @symbol(AF_KEY))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4131	domainCode = __mkSmallInteger(AF_KEY);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4132	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4133	#ifdef AF_NETLINK
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4134	else if (aSymbolOrInteger == @symbol(AF_NETLINK))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4135	domainCode = __mkSmallInteger(AF_NETLINK);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4136	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4137	#ifdef AF_PACKET
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4138	else if (aSymbolOrInteger == @symbol(AF_PACKET))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4139	domainCode = __mkSmallInteger(AF_PACKET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4140	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4141	#ifdef AF_ASH
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4142	else if (aSymbolOrInteger == @symbol(AF_ASH))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4143	domainCode = __mkSmallInteger(AF_ASH);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4144	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4145	#ifdef AF_ECONET
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4146	else if (aSymbolOrInteger == @symbol(AF_ECONET))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4147	domainCode = __mkSmallInteger(AF_ECONET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4148	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4149	#ifdef AF_IMPLINK
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4150	else if (aSymbolOrInteger == @symbol(AF_IMPLINK))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4151	domainCode = __mkSmallInteger(AF_IMPLINK);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4152	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4153	#ifdef AF_PUP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4154	else if (aSymbolOrInteger == @symbol(AF_PUP))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4155	domainCode = __mkSmallInteger(AF_PUP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4156	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4157	#ifdef AF_CHAOS
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4158	else if (aSymbolOrInteger == @symbol(AF_CHAOS))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4159	domainCode = __mkSmallInteger(AF_CHAOS);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4160	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4161	#ifdef AF_DLI
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4162	else if (aSymbolOrInteger == @symbol(AF_DLI))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4163	domainCode = __mkSmallInteger(AF_DLI);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4164	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4165	#ifdef AF_LAT
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4166	else if (aSymbolOrInteger == @symbol(AF_LAT))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4167	domainCode = __mkSmallInteger(AF_LAT);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4168	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4169	#ifdef AF_HYLINK
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4170	else if (aSymbolOrInteger == @symbol(AF_HYLINK))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4171	domainCode = __mkSmallInteger(AF_HYLINK);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4172	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4173	#ifdef AF_FIREFOX
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4174	else if (aSymbolOrInteger == @symbol(AF_FIREFOX))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4175	domainCode = __mkSmallInteger(AF_FIREFOX);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4176	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4177	#ifdef AF_CLUSTER
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4178	else if (aSymbolOrInteger == @symbol(AF_CLUSTER))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4179	domainCode = __mkSmallInteger(AF_CLUSTER);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4180	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4181	#ifdef AF_12844
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4182	else if (aSymbolOrInteger == @symbol(AF_12844))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4183	domainCode = __mkSmallInteger(AF_12844);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4184	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4185	#ifdef AF_NETDES
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4186	else if (aSymbolOrInteger == @symbol(AF_NETDES))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4187	domainCode = __mkSmallInteger(AF_NETDES);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4188	#endif
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4189	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4190
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4191	^ domainCode.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4192
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4193	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4194	self domainCodeOf:#AF_INET
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4195	self domainCodeOf:#AF_INET6
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4196	self domainCodeOf:#AF_UNIX
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4197	self domainCodeOf:#AF_APPLETALK
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4198	self domainCodeOf:#AF_DECNET
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4199	"
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4200	"for backward compatibility only:
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4201	self domainCodeOf:#inet
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4202	self domainCodeOf:#inet6
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4203	self domainCodeOf:#unix
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4204	self domainCodeOf:#appletalk
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4205	self domainCodeOf:#decnet
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4206	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4207	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4208
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4209	domainSymbolOf:anInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4210	"return the symbolic domainName of a given numeric AF_xxx code.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4211	Return nil for invalid or unsupported domains."
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4212
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4213	\|domainSymbol\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4214
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4215	%{ /NOCONTEXT/
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4216
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4217	if (__isSmallInteger(anInteger)) {
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4218	switch(__intVal(anInteger)) {
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4219	#ifdef AF_INET
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4220	case AF_INET:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4221	domainSymbol = @symbol(AF_INET);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4222	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4223	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4224	#ifdef AF_INET6
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4225	case AF_INET6:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4226	domainSymbol = @symbol(AF_INET6);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4227	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4228	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4229	#ifdef AF_UNIX
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4230	case AF_UNIX:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4231	domainSymbol = @symbol(AF_UNIX);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4232	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4233	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4234	#ifdef AF_APPLETALK
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4235	case AF_APPLETALK:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4236	domainSymbol = @symbol(AF_APPLETALK);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4237	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4238	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4239	#ifdef AF_DECnet
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4240	case AF_DECnet:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4241	domainSymbol = @symbol(AF_DECnet);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4242	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4243	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4244	#ifdef AF_NS
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4245	case AF_NS:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4246	domainSymbol = @symbol(AF_NS);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4247	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4248	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4249	#ifdef AF_X25
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4250	case AF_X25:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4251	domainSymbol = @symbol(AF_X25);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4252	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4253	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4254	#ifdef AF_SNA
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4255	case AF_SNA:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4256	domainSymbol = @symbol(AF_SNA);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4257	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4258	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4259	#ifdef AF_RAW
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4260	case AF_RAW:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4261	domainSymbol = @symbol(AF_RAW);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4262	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4263	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4264	#ifdef AF_ISO
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4265	case AF_ISO:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4266	domainSymbol = @symbol(AF_ISO);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4267	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4268	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4269	#ifdef AF_ECMA
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4270	case AF_ECMA:
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4271	domainSymbol = @symbol(AF_ECMA);
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4272	break;
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4273	#endif
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4274	#ifdef AF_NETBIOS
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4275	case AF_NETBIOS:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4276	domainSymbol = @symbol(AF_NETBIOS);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4277	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4278	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4279	#ifdef AF_IPX
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4280	case AF_IPX:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4281	domainSymbol = @symbol(AF_IPX);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4282	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4283	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4284	#ifdef AF_AX25
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4285	case AF_AX25:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4286	domainSymbol = @symbol(AF_AX25);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4287	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4288	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4289	#ifdef AF_NETROM
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4290	case AF_NETROM:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4291	domainSymbol = @symbol(AF_NETROM);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4292	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4293	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4294	#ifdef AF_BRIDGE
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4295	case AF_BRIDGE:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4296	domainSymbol = @symbol(AF_BRIDGE);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4297	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4298	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4299	#ifdef AF_BSC
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4300	case AF_BSC:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4301	domainSymbol = @symbol(AF_BSC);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4302	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4303	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4304	#ifdef AF_ROSE
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4305	case AF_ROSE:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4306	domainSymbol = @symbol(AF_ROSE);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4307	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4308	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4309	#ifdef AF_IRDA
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4310	case AF_IRDA:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4311	domainSymbol = @symbol(AF_IRDA);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4312	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4313	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4314	#ifdef AF_BAN
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4315	case AF_BAN:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4316	domainSymbol = @symbol(AF_BAN);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4317	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4318	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4319	#ifdef AF_VOICEVIEW
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4320	case AF_VOICEVIEW:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4321	domainSymbol = @symbol(AF_VOICEVIEW);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4322	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4323	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4324	#ifdef AF_ATM
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4325	case AF_ATM:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4326	domainSymbol = @symbol(AF_ATM);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4327	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4328	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4329	#ifdef AF_ATMPVC
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4330	case AF_ATMPVC:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4331	domainSymbol = @symbol(AF_ATMPVC);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4332	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4333	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4334	#ifdef AF_ATMSVC
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4335	case AF_ATMSVC:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4336	domainSymbol = @symbol(AF_ATMSVC);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4337	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4338	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4339	#ifdef AF_SECURITY
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4340	case AF_SECURITY:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4341	domainSymbol = @symbol(AF_SECURITY);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4342	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4343	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4344	#ifdef AF_KEY
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4345	case AF_KEY:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4346	domainSymbol = @symbol(AF_KEY);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4347	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4348	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4349	#ifdef AF_NETLINK
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4350	case AF_NETLINK:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4351	domainSymbol = @symbol(AF_NETLINK);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4352	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4353	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4354	#ifdef AF_PACKET
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4355	case AF_PACKET:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4356	domainSymbol = @symbol(AF_PACKET);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4357	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4358	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4359	#ifdef AF_ASH
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4360	case AF_ASH:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4361	domainSymbol = @symbol(AF_ASH);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4362	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4363	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4364	#ifdef AF_ECONET
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4365	case AF_ECONET:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4366	domainSymbol = @symbol(AF_ECONET);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4367	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4368	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4369	#ifdef AF_IMPLINK
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4370	case AF_IMPLINK:
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4371	domainSymbol = @symbol(AF_IMPLINK);
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4372	break;
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4373	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4374	#ifdef AF_PUP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4375	case AF_PUP:
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4376	domainSymbol = @symbol(AF_PUP);
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4377	break;
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4378	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4379	#ifdef AF_CHAOS
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4380	case AF_CHAOS:
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4381	domainSymbol = @symbol(AF_CHAOS);
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4382	break;
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4383	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4384	#ifdef AF_DLI
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4385	case AF_DLI:
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4386	domainSymbol = @symbol(AF_DLI);
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4387	break;
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4388	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4389	#ifdef AF_LAT
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4390	case AF_LAT:
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4391	domainSymbol = @symbol(AF_LAT);
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4392	break;
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4393	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4394	#ifdef AF_HYLINK
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4395	case AF_HYLINK:
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4396	domainSymbol = @symbol(AF_HYLINK);
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4397	break;
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4398	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4399	#ifdef AF_FIREFOX
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4400	case AF_FIREFOX:
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4401	domainSymbol = @symbol(AF_FIREFOX);
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4402	break;
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4403	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4404	#ifdef AF_CLUSTER
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4405	case AF_CLUSTER:
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4406	domainSymbol = @symbol(AF_CLUSTER);
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4407	break;
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4408	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4409	#ifdef AF_12844
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4410	case AF_12844:
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4411	domainSymbol = @symbol(AF_12844);
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4412	break;
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4413	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4414	#ifdef AF_NETDES
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4415	case AF_NETDES:
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4416	domainSymbol = @symbol(AF_NETDES);
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4417	break;
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4418	#endif
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4419	}
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4420	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4421	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4422
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4423	^ domainSymbol.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4424
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4425	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4426	self domainSymbolOf:(self domainCodeOf:#inet)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4427	self domainSymbolOf:(self domainCodeOf:#inet6)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4428	self domainSymbolOf:(self domainCodeOf:#unix)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4429	self domainSymbolOf:(self domainCodeOf:#appletalk)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4430	self domainSymbolOf:(self domainCodeOf:#decnet)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4431	self domainSymbolOf:(self domainCodeOf:#raw)
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4432	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4433	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4434
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4435	protocolCodeOf:aSymbolOrInteger
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4436	"return the numeric IPPROTO_xxx code of a given symbolic protocol name.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4437	Return nil for invalid or unsupported protocols.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4438	For backward compatibility, the obsolete (non-IPPROTO-prefixed) names
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4439	are still supported for a while - this support will vanish."
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4440
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4441	\|protocolCode\|
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4442
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4443	%{ /NOCONTEXT/
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4444
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4445	if (__isSmallInteger(aSymbolOrInteger) \|\| aSymbolOrInteger == nil) {
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4446	RETURN (aSymbolOrInteger);
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4447	}
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4448
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4449	#ifdef IPPROTO_IP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4450	else if ((aSymbolOrInteger == @symbol(IPPROTO_IP)) \|\| (aSymbolOrInteger == @symbol(ip)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4451	protocolCode = __mkSmallInteger(IPPROTO_IP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4452	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4453	#ifdef IPPROTO_ICMP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4454	else if ((aSymbolOrInteger == @symbol(IPPROTO_ICMP)) \|\| (aSymbolOrInteger == @symbol(icmp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4455	protocolCode = __mkSmallInteger(IPPROTO_ICMP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4456	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4457	#ifdef IPPROTO_IGMP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4458	else if ((aSymbolOrInteger == @symbol(IPPROTO_IGMP)) \|\| (aSymbolOrInteger == @symbol(igmp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4459	protocolCode = __mkSmallInteger(IPPROTO_IGMP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4460	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4461	#ifdef IPPROTO_GGP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4462	else if ((aSymbolOrInteger == @symbol(IPPROTO_GGP)) \|\| (aSymbolOrInteger == @symbol(ggp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4463	protocolCode = __mkSmallInteger(IPPROTO_GGP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4464	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4465	#ifdef IPPROTO_TCP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4466	else if ((aSymbolOrInteger == @symbol(IPPROTO_TCP)) \|\| (aSymbolOrInteger == @symbol(tcp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4467	protocolCode = __mkSmallInteger(IPPROTO_TCP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4468	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4469	#ifdef IPPROTO_UDP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4470	else if ((aSymbolOrInteger == @symbol(IPPROTO_UDP)) \|\| (aSymbolOrInteger == @symbol(udp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4471	protocolCode = __mkSmallInteger(IPPROTO_UDP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4472	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4473	#ifdef IPPROTO_IDP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4474	else if ((aSymbolOrInteger == @symbol(IPPROTO_IDP)) \|\| (aSymbolOrInteger == @symbol(idp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4475	protocolCode = __mkSmallInteger(IPPROTO_IDP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4476	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4477	#ifdef IPPROTO_ND
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4478	else if ((aSymbolOrInteger == @symbol(IPPROTO_ND)) \|\| (aSymbolOrInteger == @symbol(nd)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4479	protocolCode = __mkSmallInteger(IPPROTO_ND);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4480	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4481	#ifdef IPPROTO_RAW
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4482	else if ((aSymbolOrInteger == @symbol(IPPROTO_RAW)) \|\| (aSymbolOrInteger == @symbol(raw)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4483	protocolCode = __mkSmallInteger(IPPROTO_RAW);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4484	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4485	%}.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4486
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4487	^ protocolCode.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4488
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4489	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4490	self protocolCodeOf:#IPPROTO_UDP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4491	self protocolCodeOf:#IPPROTO_TCP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4492	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4493	"for backward compatibility only:
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4494	self protocolCodeOf:#udp
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4495	self protocolCodeOf:#tcp
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4496	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4497	!
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4498
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4499	protocolSymbolOf:anInteger
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4500	"return the symbolic protocolName of a given numeric IPPROTO_xxx code.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4501	Return nil for invalid or unsupported protocols."
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4502
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4503	\|protocolSymbol\|
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4504
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4505	%{ /NOCONTEXT/
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4506
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4507	if (__isSmallInteger(anInteger)) {
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4508	switch(__intVal(anInteger)) {
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4509	#ifdef IPPROTO_IP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4510	case IPPROTO_IP:
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4511	// protocolSymbol = @symbol(IPPROTO_IP);
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4512	protocolSymbol = @symbol(ip);
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4513	break;
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4514	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4515	#ifdef IPPROTO_ICMP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4516	case IPPROTO_ICMP:
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4517	// protocolSymbol = @symbol(IPPROTO_ICMP);
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4518	protocolSymbol = @symbol(icmp);
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4519	break;
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4520	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4521	#ifdef IPPROTO_IGMP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4522	case IPPROTO_IGMP:
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4523	// protocolSymbol = @symbol(IPPROTO_IGMP);
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4524	protocolSymbol = @symbol(igmp);
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4525	break;
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4526	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4527	#ifdef IPPROTO_GGP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4528	case IPPROTO_GGP:
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4529	// protocolSymbol = @symbol(IPPROTO_GGP);
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4530	protocolSymbol = @symbol(ggp);
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4531	break;
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4532	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4533	#ifdef IPPROTO_TCP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4534	case IPPROTO_TCP:
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4535	// protocolSymbol = @symbol(IPPROTO_TCP);
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4536	protocolSymbol = @symbol(tcp);
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4537	break;
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4538	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4539	#ifdef IPPROTO_PUP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4540	case IPPROTO_PUP:
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4541	// protocolSymbol = @symbol(IPPROTO_PUP);
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4542	protocolSymbol = @symbol(pup);
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4543	break;
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4544	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4545	#ifdef IPPROTO_UDP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4546	case IPPROTO_UDP:
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4547	// protocolSymbol = @symbol(IPPROTO_UDP);
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4548	protocolSymbol = @symbol(udp);
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4549	break;
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4550	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4551	#ifdef IPPROTO_IDP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4552	case IPPROTO_IDP:
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4553	// protocolSymbol = @symbol(IPPROTO_IDP);
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4554	protocolSymbol = @symbol(idp);
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4555	break;
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4556	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4557	#ifdef IPPROTO_ND
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4558	case IPPROTO_ND:
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4559	// protocolSymbol = @symbol(IPPROTO_ND);
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4560	protocolSymbol = @symbol(nd);
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4561	break;
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4562	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4563	#ifdef IPPROTO_RAW
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4564	case IPPROTO_RAW:
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4565	// protocolSymbol = @symbol(IPPROTO_RAW);
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4566	protocolSymbol = @symbol(raw);
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4567	break;
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4568	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4569	}
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4570	}
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4571	%}.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4572
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4573	^ protocolSymbol.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4574
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4575	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4576	self protocolSymbolOf:(self protocolCodeOf:#tcp)
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4577	self protocolSymbolOf:(self protocolCodeOf:#udp)
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4578	self protocolSymbolOf:(self protocolCodeOf:#raw)
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4579	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4580	!
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4581
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4582	socketAddressSizeOfDomain:aSymbolOrInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4583	"Return the os-specific size of a socket address for a domain aSymbolOrInteger.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4584	Return nil, if unknown or unsupported."
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4585
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4586	\|socketSize domainCode\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4587
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4588	domainCode := OperatingSystem domainCodeOf:aSymbolOrInteger.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4589
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4590	%{
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4591	if (__isSmallInteger(domainCode)) {
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4592	switch (__intVal(domainCode)) {
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4593	#ifdef AF_INET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4594	case AF_INET:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4595	socketSize = __mkSmallInteger( sizeof(struct sockaddr_in) );
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4596	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4597	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4598	#ifdef AF_INET6
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4599	case AF_INET6:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4600	socketSize = __mkSmallInteger( sizeof(struct sockaddr_in6) );
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4601	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4602	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4603	#ifdef AF_UNIX
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4604	case AF_UNIX:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4605	socketSize = __mkSmallInteger( sizeof(struct sockaddr_un) );
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4606	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4607	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4608	#ifdef AF_APPLETALK
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4609	case AF_APPLETALK:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4610	socketSize = __mkSmallInteger( sizeof(struct sockaddr_at) );
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4611	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4612	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4613	#ifdef AF_DECnet
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4614	case AF_DECnet:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4615	socketSize = __mkSmallInteger( sizeof(struct sockaddr_dn) );
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4616	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4617	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4618	#ifdef AF_NS
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4619	case AF_NS:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4620	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ns) );
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4621	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4622	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4623	#ifdef AF_X25
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4624	case AF_X25:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4625	socketSize = __mkSmallInteger( sizeof(struct sockaddr_x25) );
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4626	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4627	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4628	#ifdef AF_SNA
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4629	case AF_SNA:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4630	socketSize = __mkSmallInteger( sizeof(struct sockaddr_sna) );
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4631	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4632	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4633	#ifdef AF_RAW
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4634	case AF_RAW:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4635	socketSize = __mkSmallInteger( sizeof(struct sockaddr_raw) );
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4636	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4637	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4638	#ifdef AF_ISO
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4639	case AF_ISO:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4640	socketSize = __mkSmallInteger( sizeof(struct sockaddr_iso) );
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4641	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4642	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4643	#ifdef AF_ECMA
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4644	# if 0
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4645	case AF_ECMA:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4646	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ecma) );
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4647	break;
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4648	# endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4649	#endif
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4650	#ifdef AF_NETBIOS
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4651	case AF_NETBIOS:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4652	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netbios) );
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4653	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4654	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4655	#ifdef AF_NETBEUI
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4656	case AF_NETBEUI:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4657	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netbeui) );
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4658	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4659	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4660	#ifdef AF_IPX
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4661	case AF_IPX:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4662	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ipx) );
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4663	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4664	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4665	#ifdef AF_AX25
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4666	case AF_AX25:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4667	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ax25) );
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4668	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4669	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4670	#ifdef AF_NETROM
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4671	case AF_NETROM:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4672	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netrom) );
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4673	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4674	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4675	#ifdef AF_BRIDGE
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4676	case AF_BRIDGE:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4677	socketSize = __mkSmallInteger( sizeof(struct sockaddr_bridge) );
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4678	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4679	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4680	#ifdef AF_BSC
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4681	case AF_BSC:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4682	socketSize = __mkSmallInteger( sizeof(struct sockaddr_bsc) );
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4683	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4684	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4685	#ifdef AF_ROSE
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4686	case AF_ROSE:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4687	socketSize = __mkSmallInteger( sizeof(struct sockaddr_rose) );
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4688	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4689	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4690	#ifdef AF_IRDA
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4691	case AF_IRDA:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4692	socketSize = __mkSmallInteger( sizeof(struct sockaddr_irda) );
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4693	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4694	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4695	#ifdef AF_BAN
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4696	case AF_BAN:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4697	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ban) );
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4698	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4699	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4700	#ifdef AF_VOICEVIEW
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4701	case AF_VOICEVIEW:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4702	socketSize = __mkSmallInteger( sizeof(struct sockaddr_voiceview) );
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4703	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4704	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4705	#ifdef AF_ATM
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4706	case AF_ATM:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4707	socketSize = __mkSmallInteger( sizeof(struct sockaddr_atm) );
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4708	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4709	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4710	#ifdef AF_ATMPVC
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4711	case AF_ATMPVC:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4712	socketSize = __mkSmallInteger( sizeof(struct sockaddr_atmpvc) );
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4713	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4714	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4715	#ifdef AF_ATMSVC
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4716	case AF_ATMSVC:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4717	socketSize = __mkSmallInteger( sizeof(struct sockaddr_atmsvc) );
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4718	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4719	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4720	#ifdef AF_NETLINK
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4721	case AF_NETLINK:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4722	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netlink) );
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4723	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4724	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4725	#ifdef AF_PACKET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4726	case AF_PACKET:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4727	socketSize = __mkSmallInteger( sizeof(struct sockaddr_packet) );
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4728	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4729	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4730	#ifdef AF_ASH
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4731	case AF_ASH:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4732	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ash) );
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4733	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4734	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4735	#ifdef AF_ECONET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4736	case AF_ECONET:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4737	socketSize = __mkSmallInteger( sizeof(struct sockaddr_eco) );
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4738	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4739	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4740	#ifdef AF_IMPLINK
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4741	case AF_IMPLINK:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4742	socketSize = __mkSmallInteger( sizeof(struct sockaddr_implink) );
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4743	break;
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4744	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4745	#ifdef AF_PUP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4746	# if 0
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4747	case AF_PUP:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4748	socketSize = __mkSmallInteger( sizeof(struct sockaddr_pup) );
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4749	break;
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4750	# endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4751	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4752	#ifdef AF_CHAOS
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4753	case AF_CHAOS:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4754	socketSize = __mkSmallInteger( sizeof(struct sockaddr_chaos) );
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4755	break;
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4756	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4757	#ifdef AF_DLI
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4758	case AF_DLI:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4759	socketSize = __mkSmallInteger( sizeof(struct sockaddr_dli) );
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4760	break;
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4761	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4762	#ifdef AF_LAT
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4763	case AF_LAT:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4764	socketSize = __mkSmallInteger( sizeof(struct sockaddr_lat) );
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4765	break;
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4766	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4767	#ifdef AF_HYLINK
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4768	case AF_HYLINK:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4769	socketSize = __mkSmallInteger( sizeof(struct sockaddr_hylink) );
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4770	break;
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4771	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4772	#ifdef AF_FIREFOX
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4773	case AF_FIREFOX:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4774	socketSize = __mkSmallInteger( sizeof(struct sockaddr_firefox) );
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4775	break;
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4776	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4777	#ifdef AF_CLUSTER
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4778	case AF_CLUSTER:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4779	socketSize = __mkSmallInteger( sizeof(struct sockaddr_cluster) );
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4780	break;
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4781	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4782	#ifdef AF_12844
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4783	case AF_12844:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4784	socketSize = __mkSmallInteger( sizeof(struct sockaddr_12844) );
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4785	break;
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4786	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4787	#ifdef AF_NETDES
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4788	case AF_NETDES:
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4789	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netdes) );
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4790	break;
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4791	#endif
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4792	}
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4793	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4794	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4795	^ socketSize
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4796
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4797	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4798	self socketAddressSizeOfDomain:#'AF_INET'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4799	self socketAddressSizeOfDomain:#'AF_UNIX'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4800	self socketAddressSizeOfDomain:#'Foo'
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4801	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4802	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4803
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4804	socketTypeCodeOf:aSymbolOrInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4805	"return the numeric SOCK_xxx code of a given symbolic socket type name.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4806	Return nil for invalid or unsupported socket types."
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4807
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4808	\|typeCode\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4809
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4810	%{ /NOCONTEXT/
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4811
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4812	if (__isSmallInteger(aSymbolOrInteger) \|\| aSymbolOrInteger == nil) {
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4813	typeCode = aSymbolOrInteger;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4814	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4815
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4816	#ifdef SOCK_STREAM
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4817	else if ((aSymbolOrInteger == @symbol(stream)) \|\| (aSymbolOrInteger == @symbol(SOCK_STREAM)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4818	typeCode = __mkSmallInteger(SOCK_STREAM);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4819	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4820	#ifdef SOCK_DGRAM
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4821	else if ((aSymbolOrInteger == @symbol(datagram)) \|\| (aSymbolOrInteger == @symbol(SOCK_DGRAM)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4822	typeCode = __mkSmallInteger(SOCK_DGRAM);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4823	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4824	#ifdef SOCK_RAW
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4825	else if ((aSymbolOrInteger == @symbol(raw)) \|\| (aSymbolOrInteger == @symbol(SOCK_RAW)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4826	typeCode = __mkSmallInteger(SOCK_RAW);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4827	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4828	#ifdef SOCK_RDM
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4829	else if ((aSymbolOrInteger == @symbol(rdm)) \|\| (aSymbolOrInteger == @symbol(SOCK_RDM)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4830	typeCode = __mkSmallInteger(SOCK_RDM);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4831	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4832	#ifdef SOCK_SEQPACKET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4833	else if ((aSymbolOrInteger == @symbol(seqpacket)) \|\| (aSymbolOrInteger == @symbol(SOCK_SEQPACKET)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4834	typeCode = __mkSmallInteger(SOCK_SEQPACKET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4835	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4836	#ifdef SOCK_PACKET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4837	else if ((aSymbolOrInteger == @symbol(packet)) \|\| (aSymbolOrInteger == @symbol(SOCK_PACKET)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4838	typeCode = __mkSmallInteger(SOCK_PACKET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4839	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4840	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4841
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4842	^ typeCode.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4843
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4844	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4845	self socketTypeCodeOf:#stream
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4846	self socketTypeCodeOf:#datagram
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4847	self socketTypeCodeOf:#raw
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4848	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4849	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4850
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4851	socketTypeSymbolOf:anInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4852	"return the symbolic typeName of a given numeric SOCK_xxx socket type code.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4853	Return nil for invalid or unsupported socket types."
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4854
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4855	\|socketTypeSymbol\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4856
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4857	%{ /NOCONTEXT/
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4858
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4859	if (__isSmallInteger(anInteger)) {
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4860	switch(__intVal(anInteger)) {
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4861	#ifdef SOCK_STREAM
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4862	case SOCK_STREAM:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4863	socketTypeSymbol = @symbol(SOCK_STREAM);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4864	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4865	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4866	#ifdef SOCK_DGRAM
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4867	case SOCK_DGRAM:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4868	socketTypeSymbol = @symbol(SOCK_DGRAM);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4869	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4870	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4871	#ifdef SOCK_RAW
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4872	case SOCK_RAW:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4873	socketTypeSymbol = @symbol(SOCK_RAW);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4874	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4875	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4876	#ifdef SOCK_RDM
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4877	case SOCK_RDM:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4878	socketTypeSymbol = @symbol(SOCK_RDM);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4879	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4880	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4881	#ifdef SOCK_SEQPACKET
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4882	case SOCK_SEQPACKET:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4883	socketTypeSymbol = @symbol(SOCK_SEQPACKET);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4884	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4885	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4886	#ifdef SOCK_PACKET
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4887	case SOCK_PACKET:
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4888	socketTypeSymbol = @symbol(SOCK_PACKET);
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4889	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4890	#endif
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	4891	}
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4892	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4893	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4894	^ socketTypeSymbol.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4895	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4896
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4897	supportedProtocolFamilies
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4898	"return a collection of supported protocol families.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4899	This list specifies what the Socket class supports -
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4900	socket creation may still fail, if your system was built without it.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4901	For backward compatibility, the returned list includes the old
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4902	(non-AF-prefixed) symbols; these will vanish."
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4903
7713 c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	4904	^ #(
c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	4905	#AF_INET #inet
c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	4906	#AF_UNIX #unix
c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	4907	#AF_INET6 #inet6
c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	4908	#AF_APPLETALK #appletalk
c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	4909	#AF_DECnet #decnet
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4910	#AF_NS #ns
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4911	#AF_X25 #x25
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4912	#AF_SNA
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4913	#AF_RAW
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4914	#AF_ISO
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4915	#AF_ECMA
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4916	#AF_NETBIOS #netbios
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4917	#AF_IPX
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4918	#AF_AX25
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4919	#AF_NETROM
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4920	#AF_BRIDGE
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4921	#AF_BSC
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4922	#AF_ROSE
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4923	#AF_IRDA #irda
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4924	#AF_NETLINK
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4925	#AF_NETLINK
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4926	#AF_NETBEUI
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4927	#AF_ATM
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4928	#AF_ATMPVC
7713 c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	4929	#AF_ATMSVC
c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	4930	#AF_BAN
c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	4931	#AF_VOICEVIEW
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4932	#AF_ECONET
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4933	#AF_IMPLINK
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4934	#AF_PUP
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4935	#AF_CHAOS
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4936	#AF_DLI
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4937	#AF_LAT
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4938	#AF_HYLINK
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4939	#AF_FIREFOX
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4940	#AF_CLUSTER
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4941	#AF_12844
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4942	#AF_NETDES
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4943	) select:[:sym \| (AbstractOperatingSystem domainCodeOf:sym) isNumber ]
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4944
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4945	"
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4946	AbstractOperatingSystem supportedProtocolFamilies
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4947	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4948	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4949
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4950	supportedSocketTypes
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4951	"return the symbolic typeName of a given numeric SOCK_xxx socket type code.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4952	Return nil for invalid or unsupported socket types."
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4953
7713 c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	4954	^ #(
c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	4955	#SOCK_STREAM
c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	4956	#SOCK_DGRAM
c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	4957	#SOCK_RAW
c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	4958	#SOCK_RDM
c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	4959	#SOCK_SEQPACKET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4960	#SOCK_PACKET
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4961	) select:[:sym \| (AbstractOperatingSystem socketTypeCodeOf:sym) isNumber ]
7713 c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	4962
c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	4963	"
c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	4964	AbstractOperatingSystem supportedSocketTypes
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4965	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4966	! !
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4967
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4968	!AbstractOperatingSystem class methodsFor:'shared memory access'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4969
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4970	shmAttach:id address:addr flags:flags
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4971	"low level entry to shmat()-system call.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4972	Not supported on all operatingSystems"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4973
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	4974	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	4975
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	4976	"Modified: / 19.5.1999 / 14:21:35 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4977	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4978
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4979	shmDetach:addr
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4980	"low level entry to shmdt()-system call.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4981	Not supported on all operatingSystems"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4982
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	4983	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	4984
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	4985	"Modified: / 19.5.1999 / 14:21:37 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4986	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4987
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4988	shmGet:key size:size flags:flags
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4989	"low level entry to shmget()-system call.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4990	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	4991	- use the provided wrapper class SharedExternalBytes instead."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4992
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	4993	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	4994
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	4995	"Modified: / 19.5.1999 / 14:21:41 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4996	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4997
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4998	!AbstractOperatingSystem class methodsFor:'time and date'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4999
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5000	computeDatePartsOf:osTime for:aBlock
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5001	"compute year, month and day from the OS time, osTime
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5002	and evaluate the argument, a 3-arg block with these.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5003	Conversion is to localtime including any daylight saving adjustments."
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5004
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5005	<resource:#obsolete>
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5006
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5007	\|i\|
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5008
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5009	self obsoleteMethodWarning:'use #computeTimeAndDateFrom:osTime'.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5010
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5011	i := self computeTimeAndDateFrom:osTime.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5012	aBlock value:i year value:i month value:i day
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5013
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5014	"
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5015	OperatingSystem computeDatePartsOf:0 for:[:y :m :d \|
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5016	y printCR. m printCR. d printCR
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5017	]
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5018	"
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5019	!
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5020
4377 59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5021	computeOSTimeFromUTCYear:y month:m day:d hour:h minute:min second:s millisecond:millis
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5022	"return the OS-dependent time for the given time and day.
4377 59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5023	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	5024
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5025	self subclassResponsibility
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5026
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5027	"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	5028	!
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5029
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5030	computeOSTimeFromYear:y month:m day:d hour:h minute:min seconds:s millis:millis
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5031	"return the OS-dependent time for the given time and day.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5032	The arguments are assumed to be in localtime including
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5033	any daylight saving adjustings."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5034
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5035	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5036	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5037
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5038	computeTimeAndDateFrom:osTime
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5039	"given an OS-dependent time in osTime, return an Array
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5040	containing (full-) year, month, day, hour, minute and seconds,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5041	offset to UTC, daylight savings time flag, milliseconds,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5042	dayInYear (1..) and dayInWeek (1..).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5043	Conversion is to localtime including any daylight saving adjustments."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5044
7733 f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5045	\|divMod ret\|
f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5046
f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5047	divMod := osTime divMod:1000.
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5048	ret := self timeInfoFromSeconds:(divMod at:1) milliseconds:(divMod at:2) localTime:true.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5049	^ ret
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5050
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5051	"
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5052	OperatingSystem computeTimeAndDateFrom:0
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5053	OperatingSystem computeTimeAndDateFrom:1011
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5054	"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5055	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5056
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5057	computeTimePartsOf:osTime for:aBlock
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5058	"compute hours, minutes, seconds and milliseconds from the local osTime
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5059	and evaluate the argument, a 4-arg block with these.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5060	Conversion is to localtime including any daylight saving adjustments."
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5061
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5062	<resource:#obsolete>
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5063
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5064	\|hours minutes seconds millis i\|
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5065
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5066	self obsoleteMethodWarning:'use #computeTimeAndDateFrom:osTime'.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5067
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5068	i := self computeTimeAndDateFrom:osTime.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5069	hours := i hours.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5070	minutes := i minutes.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5071	seconds := i seconds.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5072	millis := i milliseconds.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5073
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5074	aBlock value:hours value:minutes value:seconds value:millis
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5075
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5076	"
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5077	OperatingSystem computeTimePartsOf:100 for:[:h :m :s :milli \|
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5078	Transcript show:h; space; show:m; space; show:s; space; showCR:milli.
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5079	]
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5080	"
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5081	!
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5082
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5083	computeUTCTimeAndDateFrom:osTime
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5084	"given an OS-dependent time in osTime, return an Array
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5085	containing:
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5086	(full-) year,
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5087	month, (1..)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5088	day, (1..)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5089	hour, (0..23)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5090	minute (0..59)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5091	seconds, (0..59)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5092	offset to UTC, (seconds)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5093	daylight savings time flag,
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5094	milliseconds, (0..999)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5095	dayInYear (1..)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5096	dayInWeek (1..).
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5097	Conversion is to utc."
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5098
7733 f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5099	\|divMod ret\|
f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5100
f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5101	divMod := osTime divMod:1000.
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5102	ret := self timeInfoFromSeconds:(divMod at:1) milliseconds:(divMod at:2) localTime:false.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5103	^ ret
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5104
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5105	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5106	OperatingSystem computeUTCTimeAndDateFrom:0
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5107	OperatingSystem computeUTCTimeAndDateFrom:1011
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5108	"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5109	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5110
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5111	computeUTCTimePartsOf:osTime for:aBlock
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5112	"compute hours, minutes, seconds and milliseconds from the osTime
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5113	and evaluate the argument, a 4-arg block with these.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5114	Conversion is to UTC."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5115
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5116	<resource:#obsolete>
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5117
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5118	\|hours minutes seconds millis i\|
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5119
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5120	self obsoleteMethodWarning:'use #computeTimeAndDateFrom:osTime'.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5121
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5122	i := self computeUTCTimeAndDateFrom:osTime.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5123	hours := i hours.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5124	minutes := i minutes.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5125	seconds := i seconds.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5126	millis := i milliseconds.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5127
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5128	aBlock value:hours value:minutes value:seconds value:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5129	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5130
3689 f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5131	getMicrosecondTime
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5132	"This returns the microsecond timers value - if available.
3689 f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5133	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	5134	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	5135	clock resolution value."
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5136
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5137	"/ fallBack - use getMillisecondTime, which must be implemented
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5138	"/ for all OS's
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5139
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5140	^ self getMillisecondTime * 1000
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5141
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5142	"Created: / 30.7.1998 / 16:38:26 / cg"
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5143	!
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5144
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5145	getMillisecondTime
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5146	"This returns the millisecond timers value.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5147	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	5148	LargeInteger arithmetic when doing timeouts and delays.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5149	Since this value is wrapping around in regular intervals, this can only be used for
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5150	short relative time deltas.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5151	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	5152
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5153	BAD DESIGN:
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5154	This should be changed to return some instance of RelativeTime,
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5155	and these computations moved there.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5156
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5157	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	5158	interface. For compatibility with ST-80, use Time millisecondClockValue.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5159	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5160
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5161	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5162	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5163
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5164	getOSTime
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5165	"This returns the OS time.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5166	The base of the returned value is not consistent across
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5167	different OS's - some return the number of millis since jan, 1st 1970;
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5168	others since 1900. The Time classes are prepared for this, and
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5169	converts as appropriate (by using my fromOSTime: conversion methods).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5170
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5171	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	5172	interface. For compatibility with ST-80, use Time>>millisecondClockValue.
8250 83c16e036200 Use Timestamp/#asTimestamp instead of AbsoluteTime/#asAbsoluteTime Stefan Vogel <sv@exept.de> parents: 8236 diff changeset	5173	or use instances of Time, Date or Timestamp to work with.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5174	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5175
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5176	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5177	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5178
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5179	maximumMillisecondTimeDelta
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5180	"this returns the maximum delta supported by millisecondCounter
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5181	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	5182	timer wraps."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5183
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5184	%{ /* NOCONTEXT */
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	5185	RETURN ( __mkSmallInteger(0x0FFFFFFF) );
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5186	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5187	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5188
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5189	millisecondDelay:millis
7681 7c63f0b47f0d oops: millisecondDelay: was duplicated Claus Gittinger <cg@exept.de> parents: 7656 diff changeset	5190	"delay execution for millis milliseconds or until the next event arrives.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5191	All other threads proceed as usual.
7849 40819a29fdcd comment ca parents: 7835 diff changeset	5192	Better use a Delay, however, a delay cannot be used in the event handler or scheduler."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5193
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5194	\|now then delta\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5195
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5196	now := self getMillisecondTime.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5197	then := self millisecondTimeAdd:now and:millis.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5198
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5199	[self millisecondTime:then isAfter:now] whileTrue:[
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5200	delta := self millisecondTimeDeltaBetween:then and:now.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5201	self selectOnAnyReadable:nil writable:nil exception:nil withTimeOut:delta.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5202	now := self getMillisecondTime.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5203	]
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5204
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5205	"
7849 40819a29fdcd comment ca parents: 7835 diff changeset	5206	OperatingSystem millisecondDelay:5000
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5207	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5208	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5209
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5210	millisecondTime:msTime1 isAfter:msTime2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5211	"return true if msTime1 is after msTime2, false if not.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5212	The two arguments are supposed to be millisecond times
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5213	(such as returned getMillisecondTime) which wrap at 16r1FFFFFFF.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5214
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5215	This should really be moved to some RelativeTime class."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5216
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5217	(msTime1 > msTime2) ifTrue:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5218	((msTime1 - msTime2) >= 16r10000000) ifTrue:[
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5219	^ false
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5220	].
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5221	^ true
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5222	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5223	((msTime2 - msTime1) > 16r10000000) ifTrue:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5224	^ true
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5225	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5226	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5227	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5228
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5229	millisecondTimeAdd:msTime1 and:msTime2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5230	"Add two millisecond times (such as returned getMillisecondTime).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5231	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	5232
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5233	This should really be moved to some RelativeTime class."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5234
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5235	\|sum\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5236
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5237	sum := msTime1 + msTime2.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5238	(sum > 16r1FFFFFFF) ifTrue:[^ sum - 16r20000000].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5239	(sum < 0) ifTrue:[^ sum + 16r20000000].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5240	^ sum
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5241	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5242
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5243	millisecondTimeDeltaBetween:msTime1 and:msTime2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5244	"subtract two millisecond times (such as returned getMillisecondTime)
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5245	and return the difference. Since milli-times wrap (at 16r01FFFFFFF),
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5246	some special handling is built-in here.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5247	The returned value is msTime1 - msTime2. The returned value is invalid
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5248	if the delta is >= 0x10000000.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5249
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5250	This should really be moved to some RelativeTime class;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5251	better yet: create a subclass of Integer named LimitedRangeInteger."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5252
8808 40ccab1cd68f millisecondTimeDelltBetween: handle 0 millis between Claus Gittinger <cg@exept.de> parents: 8804 diff changeset	5253	(msTime1 >= msTime2) ifTrue:[
40ccab1cd68f millisecondTimeDelltBetween: handle 0 millis between Claus Gittinger <cg@exept.de> parents: 8804 diff changeset	5254	^ msTime1 - msTime2
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5255	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5256	^ msTime1 + 16r10000000 - msTime2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5257
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5258	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5259	OperatingSystem millisecondTimeAdd:16r0FFFFFFF and:1
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5260	OperatingSystem millisecondTimeAdd:16r0FFFFFFF and:(16 / 3)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5261	OperatingSystem millisecondTimeAdd:16r0FFFFFFF and:1000
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5262
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5263	OperatingSystem millisecondTimeDeltaBetween:0 and:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5264	OperatingSystem millisecondTimeDeltaBetween:(13/3) and:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5265	OperatingSystem millisecondTimeDeltaBetween:999 and:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5266
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5267	OperatingSystem millisecondTime:0 isAfter:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5268	OperatingSystem millisecondTime:(13/3) isAfter:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5269	OperatingSystem millisecondTime:999 isAfter:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5270
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5271	OperatingSystem millisecondTime:0 isAfter:0
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5272	OperatingSystem millisecondTime:(13/3) isAfter:0
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5273	OperatingSystem millisecondTime:999 isAfter:0
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5274
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5275	OperatingSystem millisecondTime:1 isAfter:0
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5276	OperatingSystem millisecondTime:(13/3) isAfter:2
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5277	OperatingSystem millisecondTime:999 isAfter:900
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5278
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5279	\|t1 t2\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5280
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5281	t1 := Time millisecondClockValue.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5282	(Delay forMilliseconds:1) wait.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5283	t2 := Time millisecondClockValue.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5284	OperatingSystem millisecondTimeDeltaBetween:t2 and:t1
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5285	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5286	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5287
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5288	sleep:numberOfSeconds
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5289	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5290
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5291	"cease ANY action for some time. This suspends the whole smalltalk
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5292	(unix-) process for some time.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5293	Not really useful since not even low-prio processes and interrupt
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5294	handling will run during the sleep.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5295	Use either OperatingSystem>>millisecondDelay: (which makes all
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5296	threads sleep, but handles interrupts) or use a Delay (which makes
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5297	only the calling thread sleep)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5298
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5299	self subclassResponsibility
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5300	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5301
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5302	timeInfoClass
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5303	^ TimeInfo
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5304	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5305
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5306	timeInfoFromSeconds:osSeconds localTime:isLocalTime
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5307	"return a timeInfo structure containing values for the given OS-second value.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5308	An internal helper"
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5309
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5310	^ self timeInfoFromSeconds:osSeconds milliseconds:0 localTime:isLocalTime
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5311	!
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5312
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5313	timeInfoFromSeconds:osSeconds milliseconds:osMilliSeconds localTime:isLocalTime
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5314	"return a timeInfo structure containing values for the given OS-second value.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5315	An internal helper"
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5316
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5317	self subclassResponsibility
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5318	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5319
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5320	!AbstractOperatingSystem class methodsFor:'users & groups'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5321
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5322	getEffectiveGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5323	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5324
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5325	"return the current users (thats you) effective numeric group id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5326	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	5327	as a setuid program (of which you should think about twice)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5328
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5329	^ self getGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5330
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5331	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5332	OperatingSystem getEffectiveGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5333	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5334	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5335
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5336	getEffectiveUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5337	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5338
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5339	"return the current users (thats you) effective numeric user id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5340	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	5341	as a setuid program (of which you should think about twice)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5342
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5343	^ self getUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5344
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5345	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5346	OperatingSystem getEffectiveUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5347	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5348	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5349
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5350	getFullUserName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5351	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5352
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5353	"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	5354	If not, return the login name as a fallBack."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5355
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5356	^ self getFullUserNameFromID:(self getUserID)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5357
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5358	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5359	OperatingSystem getFullUserName
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5360	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5361
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5362	"Modified: 24.1.1997 / 11:31:55 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5363	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5364
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5365	getFullUserNameFromID:userID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5366	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5367
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5368	"return a string with the users full name - if available.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5369	If not, return the login name as a fallBack."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5370
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5371	^ self getUserNameFromID:userID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5372
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5373	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5374	OperatingSystem getFullUserNameFromID:0
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5375	OperatingSystem getFullUserNameFromID:(OperatingSystem getUserID)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5376
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5377	OperatingSystem getUserNameFromID:(OperatingSystem getUserID)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5378	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5379
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5380	"Modified: 15.7.1996 / 12:44:21 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5381	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5382
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5383	getGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5384	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5385
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5386	"return the current users (thats you) numeric group id"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5387
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5388	^ 1 "/ just a dummy for systems which do not have userIDs
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5389
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5390	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5391	OperatingSystem getGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5392	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5393	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5394
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5395	getGroupNameFromID:aNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5396	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5397
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5398	"return the group-name-string for a given numeric group-id"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5399
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5400	^ '???' "/ just a dummy for systems which do not have groups
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5401
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5402	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5403	OperatingSystem getGroupNameFromID:0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5404	OperatingSystem getGroupNameFromID:10
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5405	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5406	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5407
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5408	getHomeDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5409	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5410
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5411	"return the name of the users home directory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5412	(i.e. yours)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5413
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5414	^ self getEnvironment:'HOME'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5415
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5416	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5417	OperatingSystem getHomeDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5418	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5419
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5420	"Modified: 24.1.1997 / 11:32:13 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5421	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5422
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5423	getLoginName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5424	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5425
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5426	"return a string with the users login name (thats yours)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5427
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5428	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5429	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5430
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5431	getUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5432	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5433
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5434	"return the current users (thats you) numeric user id"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5435
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5436	^ 1 "just a dummy for systems which do not have userIDs"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5437
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5438	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5439	OperatingSystem getUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5440	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5441	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5442
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5443	getUserNameFromID:aNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5444	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5445
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5446	"return the user-name-string for a given numeric user-id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5447	This is the login name, not the fullName."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5448
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5449	"/ fallBack dummy
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5450
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5451	aNumber == self getUserID ifTrue:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5452	^ self getLoginName
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5453	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5454
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5455	^ '? (' , aNumber printString , ')'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5456
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5457	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5458	OperatingSystem getUserNameFromID:0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5459	OperatingSystem getUserNameFromID:100
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5460	OperatingSystem getUserNameFromID:9991
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5461	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5462	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5463
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5464	userInfoOf:aNameOrID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5465	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5466
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5467	"return a dictionary filled with userinfo. The argument can be either
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5468	a string with the users name or its numeric id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5469	Notice, that not all systems provide (all of) this info;
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5470	DOS systems return nothing;
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5471	non-SYSV4 systems have no age/comment.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5472	Portable applications may want to check the systemType and NOT depend
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5473	on all keys to be present in the returned dictionary.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5474	Another notice: on some systems (SYSV4), the gecos field includes multiple
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5475	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	5476	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	5477
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5478	\|info\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5479
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5480	"/ fallBack dummy
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5481	info := IdentityDictionary new.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5482	info at:#name put:(self getLoginName).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5483	info at:#dir put:(self getHomeDirectory).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5484	^ info
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5485
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5486	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5487	OperatingSystem userInfoOf:'root'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5488	OperatingSystem userInfoOf:1
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5489	OperatingSystem userInfoOf:'claus'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5490	OperatingSystem userInfoOf:'fooBar'
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5491	OperatingSystem userInfoOf:(OperatingSystem getUserID)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5492	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5493	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5494
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5495	!AbstractOperatingSystem class methodsFor:'waiting for events'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5496
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5497	blockingChildProcessWait
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5498	"return true, if childProcessWait: blocks, if no children are ready.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5499	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	5500	a subprocesses status (to avoid blocking)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5501
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5502	^ true
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5503	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5504
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5505	childProcessWait:blocking pid:pidToWait
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5506	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5507
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5508	"get status changes from child processes.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5509	Return an OSProcessStatus or nil, if no process has terminated.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5510	If blocking is true, we wait until a process changed state,
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5511	otherwise we return immediately.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5512	Note that win32 needs to know the HANDLE of the process on which
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5513	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	5514
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5515	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5516	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5517
7802 79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5518	isBlockingOn:fd
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5519	"{ Pragma: +optSpace }"
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5520
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5521	"return the blocking attribute - if set (which is the default)
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5522	a read on the fileDescriptor will block until data is available.
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5523	If clear, a read operation will immediately return with a value nil.
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5524	Also affects write operations, which may perform partial writes when
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5525	blocking is off"
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5526
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5527	self subclassResponsibility
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5528	!
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5529
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5530	numAvailableForReadOn:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5531	"return the number of bytes available for reading, without blocking."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5532
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5533	"/ fallBack for systems which do not provide this info
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5534	^ (self readCheck:fd) ifTrue:[1] ifFalse:[0]
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5535	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5536
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5537	readCheck:fd
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5538	"return true, if data is available on a filedescriptor
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5539	(i.e. read is possible without blocking).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5540	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	5541
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5542	self supportsSelect ifFalse:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5543	"/ mhmh - what should we do then ?
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5544	"/ For now, return true as if data was present,
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5545	"/ and let the thread fall into the read.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5546	"/ It will then (hopefully) be descheduled there and
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5547	"/ effectively polling for input.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5548
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5549	^ true
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5550	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5551
7683 a2e65f15769d return boolean directly Stefan Vogel <sv@exept.de> parents: 7681 diff changeset	5552	^ (self selectOnAnyReadable:(Array with:fd)
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5553	writable:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5554	exception:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5555	withTimeOut:0) == fd
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5556	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5557
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5558	readWriteCheck:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5559	"return true, if filedescriptor can be read or written without blocking.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5560	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	5561	be finished."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5562
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5563	self supportsSelect ifFalse:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5564	"/ mhmh - what should we do then ?
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5565	"/ For now, return true as if data was present,
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5566	"/ and let the thread fall into the write.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5567	"/ It will then (hopefully) be desceduled there and
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5568	"/ effectively polling for output.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5569	^ true
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5570	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5571
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5572	(self selectOnAnyReadable:(Array with:fd)
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5573	writable:(Array with:fd)
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5574	exception:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5575	withTimeOut:0) == fd
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5576	ifTrue:[^ true].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5577	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5578	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5579
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5580	selectOn:fd1 and:fd2 withTimeOut:millis
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5581	"wait for any fd to become ready; timeout after t milliseconds.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5582	A zero timeout-time will immediately return (i.e. poll).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5583	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	5584	Obsolete:
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5585	This is a leftover method and will vanish."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5586
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5587	^ self selectOnAnyReadable:(Array with:fd1 with:fd2)
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5588	writable:(Array with:fd1 with:fd2)
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5589	exception:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5590	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5591	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5592
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5593	selectOn:fd withTimeOut:millis
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5594	"wait for aFileDesriptor to become ready; timeout after t milliseconds.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5595	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	5596	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	5597	of read-data.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5598	Experimental."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5599
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5600	^ self selectOnAnyReadable:(Array with:fd)
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5601	writable:(Array with:fd)
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5602	exception:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5603	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5604	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5605
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5606	selectOnAny:fdArray withTimeOut:millis
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5607	"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	5608	timeout after t milliseconds. An empty set will always wait.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5609	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	5610	Experimental."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5611
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5612	^ self selectOnAnyReadable:fdArray
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5613	writable:fdArray
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5614	exception:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5615	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5616	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5617
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5618	selectOnAnyReadable:fdArray withTimeOut:millis
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5619	"wait for any fd in fdArray (an Array of integers) to become ready for
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5620	reading. Timeout after t milliseconds. An empty set will always wait.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5621	A zero timeout-time will immediately return (i.e. poll).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5622	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	5623	Experimental."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5624
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5625	^ self selectOnAnyReadable:fdArray
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5626	writable:nil
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5627	exception:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5628	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5629	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5630
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5631	selectOnAnyReadable:readFdArray writable:writeFdArray exception:exceptFdArray
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5632	readableInto:readableResultFdArray writableInto:writableResultFdArray
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5633	exceptionInto:exceptionResultFdArray
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5634	withTimeOut:millis
7510 46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	5635
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5636	"wait for any fd in readFdArray (an Array of integers) to become ready for reading,
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5637	writeFdArray to become ready for writing,
7510 46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	5638	or exceptFdArray to arrive exceptional data (i.e. out-of-band data).
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	5639	Timeout after t milliseconds or - if the timeout time is 0 - immediately..
7492 f2bf4935e7eb New select for fair scheduling (not giving low filedescriptors Stefan Vogel <sv@exept.de> parents: 7488 diff changeset	5640	Empty fd-sets will always wait. Zero time can be used to poll file-
f2bf4935e7eb New select for fair scheduling (not giving low filedescriptors Stefan Vogel <sv@exept.de> parents: 7488 diff changeset	5641	descriptors (i.e. to check if I/O possible without blocking).
7510 46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	5642	The corresponding filedescriptors which are ready are returned in readableResultFdArray,
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	5643	writableResultFdArray and exceptionResultFdArray respectively.
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	5644
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	5645	Return the (overall) number of selected filedescriptors.
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	5646	readableResultFdArray, writableResultFdArray and exceptionResultFdArray will
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	5647	get a nil-value stored into the slot after the last valid fileDescriptor;
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	5648	Thus, the caller can simply scan these arrays upTo the end or a nil value."
7492 f2bf4935e7eb New select for fair scheduling (not giving low filedescriptors Stefan Vogel <sv@exept.de> parents: 7488 diff changeset	5649
f2bf4935e7eb New select for fair scheduling (not giving low filedescriptors Stefan Vogel <sv@exept.de> parents: 7488 diff changeset	5650	self subclassResponsibility
f2bf4935e7eb New select for fair scheduling (not giving low filedescriptors Stefan Vogel <sv@exept.de> parents: 7488 diff changeset	5651	!
f2bf4935e7eb New select for fair scheduling (not giving low filedescriptors Stefan Vogel <sv@exept.de> parents: 7488 diff changeset	5652
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5653	selectOnAnyReadable:readFdArray writable:writeFdArray exception:exceptFdArray withTimeOut:millis
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5654	"wait for any fd in readFdArray (an Array of integers) to become ready for
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5655	reading, writeFdArray to become ready for writing, or exceptFdArray to
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5656	arrive exceptional data (i.e. out-of-band data).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5657	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	5658	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	5659	descriptors (i.e. to check if I/O possible without blocking).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5660	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	5661
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5662	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5663	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5664
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5665	setBlocking:aBoolean on:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5666	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5667
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5668	"set/clear the blocking attribute - if set (which is the default)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5669	a read on the fileDescriptor will block until data is available.
7803 2238df4944ca comments; Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	5670	If cleared, a read operation will immediately return with a value of nil.
2238df4944ca comments; Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	5671	Also affects write operations, which may perform partial writes when
2238df4944ca comments; Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	5672	blocking is off"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5673
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5674	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5675	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5676
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5677	writeCheck:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5678	"return true, if filedescriptor can be written without blocking"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5679
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5680	self supportsSelect ifFalse:[
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5681	"/ mhmh - what should we do then ?
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5682	"/ For now, return true as if data was present,
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5683	"/ and let the thread fall into the write.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5684	"/ It will then (hopefully) be desceduled there and
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5685	"/ effectively polling for output.
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5686	^ true
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5687	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5688
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5689	(self selectOnAnyReadable:nil
7711 e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5690	writable:(Array with:fd)
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5691	exception:nil
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5692	withTimeOut:0) == fd
e0d218633f7f * empty log message * Claus Gittinger <cg@exept.de> parents: 7710 diff changeset	5693	ifTrue:[^ true].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5694	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5695	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5696
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	5697	!AbstractOperatingSystem::PrinterInfo class methodsFor:'constants'!
d8547710430c printer stuff fm parents: 9380 diff changeset	5698
d8547710430c printer stuff fm parents: 9380 diff changeset	5699	paperSizeNameForNumber:aNumber
d8547710430c printer stuff fm parents: 9380 diff changeset	5700	^ self paperSizeNumberToNameMapping at:aNumber
d8547710430c printer stuff fm parents: 9380 diff changeset	5701
d8547710430c printer stuff fm parents: 9380 diff changeset	5702	"
d8547710430c printer stuff fm parents: 9380 diff changeset	5703	self paperSizeNameForNumber:1
d8547710430c printer stuff fm parents: 9380 diff changeset	5704	"
d8547710430c printer stuff fm parents: 9380 diff changeset	5705
d8547710430c printer stuff fm parents: 9380 diff changeset	5706	"Created: / 31-07-2006 / 15:35:36 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5707	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5708
d8547710430c printer stuff fm parents: 9380 diff changeset	5709	paperSizeNameForNumber:aNumber ifAbsent: aBlock
d8547710430c printer stuff fm parents: 9380 diff changeset	5710	^ self paperSizeNumberToNameMapping at:aNumber ifAbsent: aBlock
d8547710430c printer stuff fm parents: 9380 diff changeset	5711
d8547710430c printer stuff fm parents: 9380 diff changeset	5712	"
d8547710430c printer stuff fm parents: 9380 diff changeset	5713	self paperSizeNameForNumber:11212 ifAbsent: [nil]
d8547710430c printer stuff fm parents: 9380 diff changeset	5714	"
d8547710430c printer stuff fm parents: 9380 diff changeset	5715
d8547710430c printer stuff fm parents: 9380 diff changeset	5716	"Created: / 31-07-2006 / 15:35:36 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5717	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5718
d8547710430c printer stuff fm parents: 9380 diff changeset	5719	paperSizeNames
d8547710430c printer stuff fm parents: 9380 diff changeset	5720	\|codes\|
d8547710430c printer stuff fm parents: 9380 diff changeset	5721	codes := self paperSizeNumberToNameTable values asSortedCollection:[:a :b \| a < b].
d8547710430c printer stuff fm parents: 9380 diff changeset	5722	^codes collect:[:each \| self paperSizeNameForNumber: each]
d8547710430c printer stuff fm parents: 9380 diff changeset	5723
d8547710430c printer stuff fm parents: 9380 diff changeset	5724	"Created: / 31-07-2006 / 15:35:36 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5725	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5726
d8547710430c printer stuff fm parents: 9380 diff changeset	5727	paperSizeNumberForName:aName
d8547710430c printer stuff fm parents: 9380 diff changeset	5728	^ self paperSizeNumberToNameMapping at:aName
d8547710430c printer stuff fm parents: 9380 diff changeset	5729
d8547710430c printer stuff fm parents: 9380 diff changeset	5730	"
d8547710430c printer stuff fm parents: 9380 diff changeset	5731	self paperSizeNumberForName:'Letter, 8 1/2- by 11-inches'
d8547710430c printer stuff fm parents: 9380 diff changeset	5732	"
d8547710430c printer stuff fm parents: 9380 diff changeset	5733
d8547710430c printer stuff fm parents: 9380 diff changeset	5734	"Created: / 31-07-2006 / 15:35:37 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5735	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5736
d8547710430c printer stuff fm parents: 9380 diff changeset	5737	paperSizeNumberToNameMapping
d8547710430c printer stuff fm parents: 9380 diff changeset	5738	\|d\|
d8547710430c printer stuff fm parents: 9380 diff changeset	5739
d8547710430c printer stuff fm parents: 9380 diff changeset	5740	d := self paperSizeNumberToNameTable.
d8547710430c printer stuff fm parents: 9380 diff changeset	5741
d8547710430c printer stuff fm parents: 9380 diff changeset	5742	d keys copy do:[:k \| d at:(d at:k) put:k].
d8547710430c printer stuff fm parents: 9380 diff changeset	5743	^ d.
d8547710430c printer stuff fm parents: 9380 diff changeset	5744
d8547710430c printer stuff fm parents: 9380 diff changeset	5745	"Created: / 31-07-2006 / 15:35:37 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5746	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5747
d8547710430c printer stuff fm parents: 9380 diff changeset	5748	paperSizeNumberToNameTable
d8547710430c printer stuff fm parents: 9380 diff changeset	5749
d8547710430c printer stuff fm parents: 9380 diff changeset	5750	^Dictionary withKeysAndValues:
d8547710430c printer stuff fm parents: 9380 diff changeset	5751	#(
d8547710430c printer stuff fm parents: 9380 diff changeset	5752	'Letter, 8 1/2- by 11-inches' 1 "/ Letter
d8547710430c printer stuff fm parents: 9380 diff changeset	5753	'Legal 8 1/2- by 14-inches' 5 "/ Legal
d8547710430c printer stuff fm parents: 9380 diff changeset	5754	'10- by 14-inch sheet' 16 "/ 10x14
d8547710430c printer stuff fm parents: 9380 diff changeset	5755	'11- by 17-inch sheet' 17 "/ 11x17
d8547710430c printer stuff fm parents: 9380 diff changeset	5756	"/ '12X11' "/ Windows 98/Me, Windows NT 4.0 and later: 12- by 11-inch sheet
d8547710430c printer stuff fm parents: 9380 diff changeset	5757	'A3 sheet, 297- by 420-millimeters' 8 "/ A3
d8547710430c printer stuff fm parents: 9380 diff changeset	5758	'A3 rotated sheet, 420- by 297-millimeters' 67 "/ A3_rotated
d8547710430c printer stuff fm parents: 9380 diff changeset	5759	'A4 sheet, 210- by 297-millimeters' 9 "/ A4
d8547710430c printer stuff fm parents: 9380 diff changeset	5760	'A4 rotated sheet, 297- by 210-millimeters' 55 "/ A4_rotated
d8547710430c printer stuff fm parents: 9380 diff changeset	5761	'A4 small sheet, 210- by 297-millimeters' 10 "/ A4 small
d8547710430c printer stuff fm parents: 9380 diff changeset	5762	'A5 sheet, 148- by 210-millimeters' 11 "/ A5
d8547710430c printer stuff fm parents: 9380 diff changeset	5763	'A5 rotated sheet, 210- by 148-millimeters' 61 "/ A5 rotated
d8547710430c printer stuff fm parents: 9380 diff changeset	5764	"/ 'a6' "/ Windows 98/Me, Windows NT 4.0 and later: A6 sheet, 105- by 148-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5765	"/ 'a6_rotated' "/ Windows 98/Me, Windows NT 4.0 and later: A6 rotated sheet, 148- by 105-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5766	'B4 sheet, 250- by 354-millimeters' 12 "/ B4
d8547710430c printer stuff fm parents: 9380 diff changeset	5767	"/ b4_jis_rotated Windows 98/Me, Windows NT 4.0 and later: B4 (JIS) rotated sheet, 364- by 257-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5768	'B5 sheet, 182- by 257-millimeter paper' 13 "/ B5
d8547710430c printer stuff fm parents: 9380 diff changeset	5769	"/ b5_jis_rotated Windows 98/Me, Windows NT 4.0 and later: B5 (JIS) rotated sheet, 257- by 182-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5770	"/ b6_jis Windows 98/Me, Windows NT 4.0 and later: B6 (JIS) sheet, 128- by 182-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5771	"/ b6_jis_rotated Windows 98/Me, Windows NT 4.0 and later: B6 (JIS) rotated sheet, 182- by 128-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5772	"/ csheet C Sheet, 17- by 22-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	5773	"/ dbl_japanese_postcard Windows 98/Me, Windows NT 4.0 and later: Double Japanese Postcard, 200- by 148-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5774	"/ dbl_japanese_postcard_rotated Windows 98/Me, Windows NT 4.0 and later: Double Japanese Postcard Rotated, 148- by 200-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5775	"/ dsheet D Sheet, 22- by 34-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	5776	'#9 Envelope, 3 7/8- by 8 7/8-inches' 19 "/ env_9
d8547710430c printer stuff fm parents: 9380 diff changeset	5777	'#10 Envelope, 4 1/8- by 9 1/2-inches' 20 "/ env_10
d8547710430c printer stuff fm parents: 9380 diff changeset	5778	'#11 Envelope, 4 1/2- by 10 3/8-inches' 21 "/ env_11
d8547710430c printer stuff fm parents: 9380 diff changeset	5779	'#12 Envelope, 4 3/4- by 11-inches' 22 "/ env_12
d8547710430c printer stuff fm parents: 9380 diff changeset	5780	'#14 Envelope, 5- by 11 1/2-inches' 23 "/ env_15
d8547710430c printer stuff fm parents: 9380 diff changeset	5781	'C5 Envelope, 162- by 229-millimeters' 28 "/ env_c5
d8547710430c printer stuff fm parents: 9380 diff changeset	5782	'C3 Envelope, 324- by 458-millimeters' 29 "/ env_c3
d8547710430c printer stuff fm parents: 9380 diff changeset	5783	'C4 Envelope, 229- by 324-millimeters' 30 "/ env_c4
d8547710430c printer stuff fm parents: 9380 diff changeset	5784	'C6 Envelope, 114- by 162-millimeters' 31 "/ env_c6
d8547710430c printer stuff fm parents: 9380 diff changeset	5785	'C65 Envelope, 114- by 229-millimeters' 32 "/ env_c65
d8547710430c printer stuff fm parents: 9380 diff changeset	5786	'B4 Envelope, 250- by 353-millimeters' 33 "/ env_b4
d8547710430c printer stuff fm parents: 9380 diff changeset	5787	'B5 Envelope, 176- by 250-millimeters' 34 "/ env_b5
d8547710430c printer stuff fm parents: 9380 diff changeset	5788	'B6 Envelope, 176- by 125-millimeters' 35 "/ env_b6
d8547710430c printer stuff fm parents: 9380 diff changeset	5789	'DL Envelope, 110- by 220-millimeters' 27 "/ env_dl
d8547710430c printer stuff fm parents: 9380 diff changeset	5790	'Italy Envelope, 110- by 230-millimeters' 36 "/ env_italy
d8547710430c printer stuff fm parents: 9380 diff changeset	5791	'Monarch Envelope, 3 7/8- by 7 1/2-inches' 37 "/ env_monarch
d8547710430c printer stuff fm parents: 9380 diff changeset	5792	"/ env_personal 6 3/4 Envelope, 3 5/8- by 6 1/2-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	5793	"/ esheet E Sheet, 34- by 44-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	5794	"/ executive Executive, 7 1/4- by 10 1/2-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	5795	"/ fanfold_us US Std Fanfold, 14 7/8- by 11-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	5796	"/ fanfold_std_german German Std Fanfold, 8 1/2- by 12-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	5797	"/ fanfold_lgl_german German Legal Fanfold, 8 - by 13-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	5798	"/ folio Folio, 8 1/2- by 13-inch paper
d8547710430c printer stuff fm parents: 9380 diff changeset	5799	"/ japanese_postcard_rotated Windows 98/Me, Windows NT 4.0 and later: Japanese Postcard Rotated, 148- by 100-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5800	"/ jenv_chou3 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Chou #3
d8547710430c printer stuff fm parents: 9380 diff changeset	5801	"/ jenv_chou3_rotated Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Chou #3 Rotated
d8547710430c printer stuff fm parents: 9380 diff changeset	5802	"/ jenv_chou4 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Chou #4
d8547710430c printer stuff fm parents: 9380 diff changeset	5803	"/ jenv_chou4_rotated Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Chou #4 Rotated
d8547710430c printer stuff fm parents: 9380 diff changeset	5804	"/ jenv_kaku2 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Kaku #2
d8547710430c printer stuff fm parents: 9380 diff changeset	5805	"/ jenv_kaku2_rotated Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Kaku #2 Rotated
d8547710430c printer stuff fm parents: 9380 diff changeset	5806	"/ jenv_kaku3 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Kaku #3
d8547710430c printer stuff fm parents: 9380 diff changeset	5807	"/ jenv_kaku3_rotated Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Kaku #3 Rotated
d8547710430c printer stuff fm parents: 9380 diff changeset	5808	"/ jenv_you4 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope You #4
d8547710430c printer stuff fm parents: 9380 diff changeset	5809	"/ jenv_you4_rotated Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope You #4 Rotated
d8547710430c printer stuff fm parents: 9380 diff changeset	5810	"/ last Windows 2000/XP: PENV_10_ROTATED
d8547710430c printer stuff fm parents: 9380 diff changeset	5811	'Ledger, 17- by 11-inches' 4 "/ ledger
d8547710430c printer stuff fm parents: 9380 diff changeset	5812	'Letter Rotated 11 by 8 1/2 11 inches' 54 "/ letter_rotated
d8547710430c printer stuff fm parents: 9380 diff changeset	5813	"/ lettersmall Letter Small, 8 1/2- by 11-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	5814	"/ note Note, 8 1/2- by 11-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	5815	"/ p16k Windows 98/Me, Windows NT 4.0 and later: PRC 16K, 146- by 215-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5816	"/ p16k_rotated Windows 98/Me, Windows NT 4.0 and later: PRC 16K Rotated, 215- by 146-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5817	"/ p32k Windows 98/Me, Windows NT 4.0 and later: PRC 32K, 97- by 151-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5818	"/ p32k_rotated Windows 98/Me, Windows NT 4.0 and later: PRC 32K Rotated, 151- by 97-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5819	"/ p32kbig Windows 98/Me, Windows NT 4.0 and later: PRC 32K(Big) 97- by 151-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5820	"/ p32kbig_rotated Windows 98/Me, Windows NT 4.0 and later: PRC 32K(Big) Rotated, 151- by 97-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5821	"/ penv_1 Windows 98/Me, Windows NT 4.0 and later: PRC Envelope #1, 102- by 165-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5822	"/ penv_1_rotated Windows 98/Me, Windows NT 4.0 and later: PRC Envelope #1 Rotated, 165- by 102-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5823	"/ penv_2 Windows 98/Me, Windows NT 4.0 and later: PRC Envelope #2, 102- by 176-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5824	"/ penv_2_rotated Windows 98/Me, Windows NT 4.0 and later: PRC Envelope #2 Rotated, 176- by 102-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5825	"/ penv_3 Windows 98/Me, Windows NT 4.0 and later: PRC Envelope #3, 125- by 176-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5826	"/ penv_3_rotated Windows 98/Me, Windows NT 4.0 and later: PRC Envelope #3 Rotated, 176- by 125-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5827	"/ penv_4 Windows 98/Me, Windows NT 4.0 and later: PRC Envelope #4, 110- by 208-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5828	"/ penv_4_rotated Windows 98/Me, Windows NT 4.0 and later: PRC Envelope #4 Rotated, 208- by 110-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5829	"/ penv_5 Windows 98/Me, Windows NT 4.0 and later: PRC Envelope #5, 110- by 220-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5830	"/ penv_5_rotated Windows 98/Me, Windows NT 4.0 and later: PRC Envelope #5 Rotated, 220- by 110-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5831	"/ penv_6 Windows 98/Me, Windows NT 4.0 and later: PRC Envelope #6, 120- by 230-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5832	"/ penv_6_rotated Windows 98/Me, Windows NT 4.0 and later: PRC Envelope #6 Rotated, 230- by 120-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5833	"/ penv_7 Windows 98/Me, Windows NT 4.0 and later: PRC Envelope #7, 160- by 230-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5834	"/ penv_7_rotated Windows 98/Me, Windows NT 4.0 and later: PRC Envelope #7 Rotated, 230- by 160-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5835	"/ penv_8 Windows 98/Me, Windows NT 4.0 and later: PRC Envelope #8, 120- by 309-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5836	"/ penv_8_rotated Windows 98/Me, Windows NT 4.0 and later: PRC Envelope #8 Rotated, 309- by 120-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5837	"/ penv_9 Windows 98/Me, Windows NT 4.0 and later: PRC Envelope #9, 229- by 324-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5838	"/ penv_9_rotated Windows 98/Me, Windows NT 4.0 and later: PRC Envelope #9 Rotated, 324- by 229-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5839	"/ penv_10 Windows 98/Me, Windows NT 4.0 and later: PRC Envelope #10, 324- by 458-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5840	"/ penv_10_rotated Windows 98/Me, Windows NT 4.0 and later: PRC Envelope #10 Rotated, 458- by 324-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	5841	"/ quarto Quarto, 215- by 275-millimeter paper
d8547710430c printer stuff fm parents: 9380 diff changeset	5842	"/ statement Statement, 5 1/2- by 8 1/2-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	5843	"/ tabloid Tabloid, 11- by 17-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	5844	).
d8547710430c printer stuff fm parents: 9380 diff changeset	5845
d8547710430c printer stuff fm parents: 9380 diff changeset	5846	"Created: / 31-07-2006 / 15:35:37 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5847	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5848
d8547710430c printer stuff fm parents: 9380 diff changeset	5849	statusNumberToDescriptionForNumber:aNumber
d8547710430c printer stuff fm parents: 9380 diff changeset	5850	^ self statusNumberToDescriptionMapping at:aNumber ifAbsent:[aNumber printString]
d8547710430c printer stuff fm parents: 9380 diff changeset	5851
d8547710430c printer stuff fm parents: 9380 diff changeset	5852	"
d8547710430c printer stuff fm parents: 9380 diff changeset	5853	self statusNumberToDescriptionForNumber:1
d8547710430c printer stuff fm parents: 9380 diff changeset	5854	"
d8547710430c printer stuff fm parents: 9380 diff changeset	5855
d8547710430c printer stuff fm parents: 9380 diff changeset	5856	"Created: / 01-08-2006 / 14:31:18 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5857	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5858
d8547710430c printer stuff fm parents: 9380 diff changeset	5859	statusNumberToDescriptionMapping
d8547710430c printer stuff fm parents: 9380 diff changeset	5860	\|d\|
d8547710430c printer stuff fm parents: 9380 diff changeset	5861
d8547710430c printer stuff fm parents: 9380 diff changeset	5862	d := self statusNumberToDescriptionTable.
d8547710430c printer stuff fm parents: 9380 diff changeset	5863
d8547710430c printer stuff fm parents: 9380 diff changeset	5864	d keys copy do:[:k \| d at:(d at:k) put:k].
d8547710430c printer stuff fm parents: 9380 diff changeset	5865	^ d.
d8547710430c printer stuff fm parents: 9380 diff changeset	5866
d8547710430c printer stuff fm parents: 9380 diff changeset	5867	"Created: / 01-08-2006 / 14:31:05 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5868	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5869
d8547710430c printer stuff fm parents: 9380 diff changeset	5870	statusNumberToDescriptionTable
d8547710430c printer stuff fm parents: 9380 diff changeset	5871
d8547710430c printer stuff fm parents: 9380 diff changeset	5872	^Dictionary withKeysAndValues:
d8547710430c printer stuff fm parents: 9380 diff changeset	5873	#( 'Ready' 0 "/ PRINTER_STATUS_READY
d8547710430c printer stuff fm parents: 9380 diff changeset	5874	'Paused' 1 "/ PRINTER_STATUS_PAUSED
d8547710430c printer stuff fm parents: 9380 diff changeset	5875	'Error' 2 "/ PRINTER_STATUS_ERROR
d8547710430c printer stuff fm parents: 9380 diff changeset	5876	'Deleting...' 4 "/ PRINTER_STATUS_PENDING_DELETION
d8547710430c printer stuff fm parents: 9380 diff changeset	5877	'Paper Jam' 8 "/ PRINTER_STATUS_PAPER_JAM
d8547710430c printer stuff fm parents: 9380 diff changeset	5878	'Paper Out' 16 "/ PRINTER_STATUS_PAPER_OUT
d8547710430c printer stuff fm parents: 9380 diff changeset	5879	'Manual Feed Required' 32 "/ PRINTER_STATUS_MANUAL_FEED
d8547710430c printer stuff fm parents: 9380 diff changeset	5880	'Paper Problem' 64 "/ PRINTER_STATUS_PAPER_PROBLEM
d8547710430c printer stuff fm parents: 9380 diff changeset	5881	'Offline' 128 "/ PRINTER_STATUS_OFFLINE
d8547710430c printer stuff fm parents: 9380 diff changeset	5882	'Downloading Job' 256 "/ PRINTER_STATUS_IO_ACTIVE
d8547710430c printer stuff fm parents: 9380 diff changeset	5883	'Busy' 512 "/ PRINTER_STATUS_BUSY
d8547710430c printer stuff fm parents: 9380 diff changeset	5884	'Printing' 1024 "/ PRINTER_STATUS_PRINTING
d8547710430c printer stuff fm parents: 9380 diff changeset	5885	'Output Bill Full' 2048 "/ PRINTER_STATUS_OUTPUT_BIN_FULL
d8547710430c printer stuff fm parents: 9380 diff changeset	5886	'Not Available' 4096 "/ PRINTER_STATUS_NOT_AVAILABLE
d8547710430c printer stuff fm parents: 9380 diff changeset	5887	'Waiting' 8192 "/ PRINTER_STATUS_WAITING
d8547710430c printer stuff fm parents: 9380 diff changeset	5888	'Processing Job' 16384 "/ PRINTER_STATUS_PROCESSING
d8547710430c printer stuff fm parents: 9380 diff changeset	5889	'Initializing' 32768 "/ PRINTER_STATUS_INITIALIZING
d8547710430c printer stuff fm parents: 9380 diff changeset	5890	'Warming Up' 65536 "/ PRINTER_STATUS_WARMING_UP
d8547710430c printer stuff fm parents: 9380 diff changeset	5891	'Toner Low' 131072 "/ PRINTER_STATUS_TONER_LOW
d8547710430c printer stuff fm parents: 9380 diff changeset	5892	'Toner Out' 262144 "/ PRINTER_STATUS_NO_TONER
d8547710430c printer stuff fm parents: 9380 diff changeset	5893	'Page too Complex' 524288 "/ PRINTER_STATUS_PAGE_PUNT
d8547710430c printer stuff fm parents: 9380 diff changeset	5894	'User Intervention Required'1048576 "/ PRINTER_STATUS_USER_INTERVENTION
d8547710430c printer stuff fm parents: 9380 diff changeset	5895	'Out of Memory' 2097152 "/ PRINTER_STATUS_OUT_OF_MEMORY
d8547710430c printer stuff fm parents: 9380 diff changeset	5896	'Door Open' 4194304 "/ PRINTER_STATUS_DOOR_OPEN
d8547710430c printer stuff fm parents: 9380 diff changeset	5897	'Unable to connect' 8388608 "/ PRINTER_STATUS_SERVER_UNKNOWN
d8547710430c printer stuff fm parents: 9380 diff changeset	5898	'Power Save Mode' 16777216 "/ PRINTER_STATUS_POWER_SAVE
d8547710430c printer stuff fm parents: 9380 diff changeset	5899	).
d8547710430c printer stuff fm parents: 9380 diff changeset	5900
d8547710430c printer stuff fm parents: 9380 diff changeset	5901	"Created: / 01-08-2006 / 14:23:33 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5902	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	5903
d8547710430c printer stuff fm parents: 9380 diff changeset	5904	!AbstractOperatingSystem::PrinterInfo methodsFor:'accessing'!
d8547710430c printer stuff fm parents: 9380 diff changeset	5905
d8547710430c printer stuff fm parents: 9380 diff changeset	5906	attributes
d8547710430c printer stuff fm parents: 9380 diff changeset	5907	^ attributes
d8547710430c printer stuff fm parents: 9380 diff changeset	5908
d8547710430c printer stuff fm parents: 9380 diff changeset	5909	"Created: / 27-07-2006 / 12:16:59 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5910	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5911
d8547710430c printer stuff fm parents: 9380 diff changeset	5912	collate
d8547710430c printer stuff fm parents: 9380 diff changeset	5913	^self documentProperties collate = 1
d8547710430c printer stuff fm parents: 9380 diff changeset	5914
d8547710430c printer stuff fm parents: 9380 diff changeset	5915	"Created: / 01-08-2006 / 09:56:14 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5916	"Modified: / 01-08-2006 / 11:49:18 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5917	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5918
d8547710430c printer stuff fm parents: 9380 diff changeset	5919	collate: aBoolean
d8547710430c printer stuff fm parents: 9380 diff changeset	5920	\|integer\|
d8547710430c printer stuff fm parents: 9380 diff changeset	5921	integer:= aBoolean
d8547710430c printer stuff fm parents: 9380 diff changeset	5922	ifTrue:[1] "DMCOLLATE_TRUE"
d8547710430c printer stuff fm parents: 9380 diff changeset	5923	ifFalse:[0]. "DMCOLLATE_FALSE"
d8547710430c printer stuff fm parents: 9380 diff changeset	5924	self documentProperties collate: integer
d8547710430c printer stuff fm parents: 9380 diff changeset	5925
d8547710430c printer stuff fm parents: 9380 diff changeset	5926	"Created: / 01-08-2006 / 09:56:01 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5927	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5928
d8547710430c printer stuff fm parents: 9380 diff changeset	5929	comment
d8547710430c printer stuff fm parents: 9380 diff changeset	5930
d8547710430c printer stuff fm parents: 9380 diff changeset	5931	^self printerInfo2 pComment
d8547710430c printer stuff fm parents: 9380 diff changeset	5932
d8547710430c printer stuff fm parents: 9380 diff changeset	5933	"Created: / 01-08-2006 / 15:06:20 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5934	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5935
d8547710430c printer stuff fm parents: 9380 diff changeset	5936	copies
d8547710430c printer stuff fm parents: 9380 diff changeset	5937	^self documentProperties copies
d8547710430c printer stuff fm parents: 9380 diff changeset	5938
d8547710430c printer stuff fm parents: 9380 diff changeset	5939	"Created: / 31-07-2006 / 13:46:53 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5940	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5941
d8547710430c printer stuff fm parents: 9380 diff changeset	5942	copies: anInteger
d8547710430c printer stuff fm parents: 9380 diff changeset	5943
d8547710430c printer stuff fm parents: 9380 diff changeset	5944	self documentProperties copies: anInteger
d8547710430c printer stuff fm parents: 9380 diff changeset	5945
d8547710430c printer stuff fm parents: 9380 diff changeset	5946	"Created: / 31-07-2006 / 13:54:55 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5947	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5948
d8547710430c printer stuff fm parents: 9380 diff changeset	5949	documentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	5950
d8547710430c printer stuff fm parents: 9380 diff changeset	5951	^documentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	5952
d8547710430c printer stuff fm parents: 9380 diff changeset	5953	"Created: / 28-07-2006 / 11:50:04 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5954	"Modified: / 31-07-2006 / 13:06:24 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5955	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5956
d8547710430c printer stuff fm parents: 9380 diff changeset	5957	documentProperties: aDevModeStructure
d8547710430c printer stuff fm parents: 9380 diff changeset	5958
d8547710430c printer stuff fm parents: 9380 diff changeset	5959	documentProperties := aDevModeStructure.
d8547710430c printer stuff fm parents: 9380 diff changeset	5960
d8547710430c printer stuff fm parents: 9380 diff changeset	5961	"Created: / 28-07-2006 / 11:47:31 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5962	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5963
d8547710430c printer stuff fm parents: 9380 diff changeset	5964	driverName
d8547710430c printer stuff fm parents: 9380 diff changeset	5965
d8547710430c printer stuff fm parents: 9380 diff changeset	5966	^self attributes at:#driverName
d8547710430c printer stuff fm parents: 9380 diff changeset	5967
d8547710430c printer stuff fm parents: 9380 diff changeset	5968	"Created: / 01-08-2006 / 15:33:08 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5969	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5970
d8547710430c printer stuff fm parents: 9380 diff changeset	5971	location
d8547710430c printer stuff fm parents: 9380 diff changeset	5972
d8547710430c printer stuff fm parents: 9380 diff changeset	5973	^self printerInfo2 pLocation
d8547710430c printer stuff fm parents: 9380 diff changeset	5974
d8547710430c printer stuff fm parents: 9380 diff changeset	5975	"Created: / 01-08-2006 / 15:06:28 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5976	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5977
d8547710430c printer stuff fm parents: 9380 diff changeset	5978	longName
d8547710430c printer stuff fm parents: 9380 diff changeset	5979	^attributes at:#longName
d8547710430c printer stuff fm parents: 9380 diff changeset	5980	ifAbsent:['']
d8547710430c printer stuff fm parents: 9380 diff changeset	5981
d8547710430c printer stuff fm parents: 9380 diff changeset	5982	"Created: / 28-07-2006 / 12:06:32 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5983	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5984
d8547710430c printer stuff fm parents: 9380 diff changeset	5985	medium
d8547710430c printer stuff fm parents: 9380 diff changeset	5986
d8547710430c printer stuff fm parents: 9380 diff changeset	5987	^self attributes at:#medium
d8547710430c printer stuff fm parents: 9380 diff changeset	5988
d8547710430c printer stuff fm parents: 9380 diff changeset	5989	"Created: / 01-08-2006 / 15:34:26 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5990	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5991
d8547710430c printer stuff fm parents: 9380 diff changeset	5992	orientation
d8547710430c printer stuff fm parents: 9380 diff changeset	5993	^self documentProperties orientation
d8547710430c printer stuff fm parents: 9380 diff changeset	5994
d8547710430c printer stuff fm parents: 9380 diff changeset	5995	"Created: / 28-07-2006 / 16:44:26 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5996	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5997
d8547710430c printer stuff fm parents: 9380 diff changeset	5998	orientation: anInteger
d8547710430c printer stuff fm parents: 9380 diff changeset	5999	^self documentProperties orientation: anInteger
d8547710430c printer stuff fm parents: 9380 diff changeset	6000
d8547710430c printer stuff fm parents: 9380 diff changeset	6001	"Created: / 28-07-2006 / 17:22:44 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6002	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6003
d8547710430c printer stuff fm parents: 9380 diff changeset	6004	pDriverName
d8547710430c printer stuff fm parents: 9380 diff changeset	6005
d8547710430c printer stuff fm parents: 9380 diff changeset	6006	^self printerInfo2 pDriverName
d8547710430c printer stuff fm parents: 9380 diff changeset	6007
d8547710430c printer stuff fm parents: 9380 diff changeset	6008	"Created: / 01-08-2006 / 15:33:08 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6009	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6010
d8547710430c printer stuff fm parents: 9380 diff changeset	6011	paperSize
d8547710430c printer stuff fm parents: 9380 diff changeset	6012
d8547710430c printer stuff fm parents: 9380 diff changeset	6013	^self documentProperties paperSize
d8547710430c printer stuff fm parents: 9380 diff changeset	6014
d8547710430c printer stuff fm parents: 9380 diff changeset	6015	"Created: / 31-07-2006 / 15:23:29 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6016	"Modified: / 31-07-2006 / 16:25:58 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6017	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6018
d8547710430c printer stuff fm parents: 9380 diff changeset	6019	paperSize: anInteger
d8547710430c printer stuff fm parents: 9380 diff changeset	6020
d8547710430c printer stuff fm parents: 9380 diff changeset	6021	self documentProperties paperSize: anInteger
d8547710430c printer stuff fm parents: 9380 diff changeset	6022
d8547710430c printer stuff fm parents: 9380 diff changeset	6023	"Created: / 31-07-2006 / 15:23:20 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6024	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6025
d8547710430c printer stuff fm parents: 9380 diff changeset	6026	paperSizeName
d8547710430c printer stuff fm parents: 9380 diff changeset	6027	^ self class paperSizeNameForNumber:self paperSize ifAbsent:[nil].
d8547710430c printer stuff fm parents: 9380 diff changeset	6028
d8547710430c printer stuff fm parents: 9380 diff changeset	6029	"Created: / 31-07-2006 / 15:35:12 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6030	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6031
d8547710430c printer stuff fm parents: 9380 diff changeset	6032	paperSizeName: aString
d8547710430c printer stuff fm parents: 9380 diff changeset	6033
d8547710430c printer stuff fm parents: 9380 diff changeset	6034	self paperSize: (self class paperSizeNumberForName: aString)
d8547710430c printer stuff fm parents: 9380 diff changeset	6035
d8547710430c printer stuff fm parents: 9380 diff changeset	6036	"Created: / 31-07-2006 / 16:07:03 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6037	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6038
d8547710430c printer stuff fm parents: 9380 diff changeset	6039	printQuality
d8547710430c printer stuff fm parents: 9380 diff changeset	6040	^self documentProperties printQuality
d8547710430c printer stuff fm parents: 9380 diff changeset	6041
d8547710430c printer stuff fm parents: 9380 diff changeset	6042	"Created: / 04-08-2006 / 13:10:06 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6043	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6044
d8547710430c printer stuff fm parents: 9380 diff changeset	6045	printerName
d8547710430c printer stuff fm parents: 9380 diff changeset	6046	^ printerName
d8547710430c printer stuff fm parents: 9380 diff changeset	6047
d8547710430c printer stuff fm parents: 9380 diff changeset	6048	"Created: / 27-07-2006 / 12:16:59 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6049	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6050
d8547710430c printer stuff fm parents: 9380 diff changeset	6051	printerName:printerNameArg attributes:attributesArg
d8547710430c printer stuff fm parents: 9380 diff changeset	6052
d8547710430c printer stuff fm parents: 9380 diff changeset	6053	printerName := printerNameArg.
d8547710430c printer stuff fm parents: 9380 diff changeset	6054	attributes := attributesArg.
d8547710430c printer stuff fm parents: 9380 diff changeset	6055
d8547710430c printer stuff fm parents: 9380 diff changeset	6056	"Created: / 27-07-2006 / 12:29:18 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6057	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6058
d8547710430c printer stuff fm parents: 9380 diff changeset	6059	remotePrinterHost
d8547710430c printer stuff fm parents: 9380 diff changeset	6060	^attributes at:#remotePrinterHost
d8547710430c printer stuff fm parents: 9380 diff changeset	6061	ifAbsent:['']
d8547710430c printer stuff fm parents: 9380 diff changeset	6062
d8547710430c printer stuff fm parents: 9380 diff changeset	6063	"Created: / 28-07-2006 / 16:30:13 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6064	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6065
d8547710430c printer stuff fm parents: 9380 diff changeset	6066	remotePrinterName
d8547710430c printer stuff fm parents: 9380 diff changeset	6067	^attributes at:#remotePrinterName
d8547710430c printer stuff fm parents: 9380 diff changeset	6068	ifAbsent:['']
d8547710430c printer stuff fm parents: 9380 diff changeset	6069
d8547710430c printer stuff fm parents: 9380 diff changeset	6070	"Created: / 28-07-2006 / 16:30:06 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6071	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6072
d8547710430c printer stuff fm parents: 9380 diff changeset	6073	status
d8547710430c printer stuff fm parents: 9380 diff changeset	6074
d8547710430c printer stuff fm parents: 9380 diff changeset	6075	self isAvailable ifFalse:[^''].
d8547710430c printer stuff fm parents: 9380 diff changeset	6076	^self class statusNumberToDescriptionForNumber: self getPrinterInfo2 status
d8547710430c printer stuff fm parents: 9380 diff changeset	6077
d8547710430c printer stuff fm parents: 9380 diff changeset	6078	"Created: / 01-08-2006 / 13:48:58 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6079	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6080
d8547710430c printer stuff fm parents: 9380 diff changeset	6081	userFriendlyName
d8547710430c printer stuff fm parents: 9380 diff changeset	6082	^self remotePrinterName isEmpty
d8547710430c printer stuff fm parents: 9380 diff changeset	6083	ifTrue:[self printerName]
d8547710430c printer stuff fm parents: 9380 diff changeset	6084	ifFalse:[self remotePrinterName, ' on ', self remotePrinterHost]
d8547710430c printer stuff fm parents: 9380 diff changeset	6085
d8547710430c printer stuff fm parents: 9380 diff changeset	6086	"Created: / 03-08-2006 / 12:50:09 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6087	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6088
d8547710430c printer stuff fm parents: 9380 diff changeset	6089	!AbstractOperatingSystem::PrinterInfo methodsFor:'dc creation'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6090
d8547710430c printer stuff fm parents: 9380 diff changeset	6091	createDC
d8547710430c printer stuff fm parents: 9380 diff changeset	6092
d8547710430c printer stuff fm parents: 9380 diff changeset	6093	^OperatingSystem createPrinterDC:self driverName
d8547710430c printer stuff fm parents: 9380 diff changeset	6094	device:self printerName
d8547710430c printer stuff fm parents: 9380 diff changeset	6095	output:self medium
d8547710430c printer stuff fm parents: 9380 diff changeset	6096	initData:self documentProperties.
d8547710430c printer stuff fm parents: 9380 diff changeset	6097
d8547710430c printer stuff fm parents: 9380 diff changeset	6098	"Created: / 02-08-2006 / 16:51:02 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6099	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6100
d8547710430c printer stuff fm parents: 9380 diff changeset	6101	!AbstractOperatingSystem::PrinterInfo methodsFor:'dialogs'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6102
d8547710430c printer stuff fm parents: 9380 diff changeset	6103	openPropertiesDialog
d8547710430c printer stuff fm parents: 9380 diff changeset	6104	"Returns true if the documentProperties have been accepted. Otherwise, returns false"
d8547710430c printer stuff fm parents: 9380 diff changeset	6105	\|h newDocumentProperties\|
d8547710430c printer stuff fm parents: 9380 diff changeset	6106
d8547710430c printer stuff fm parents: 9380 diff changeset	6107	h := OperatingSystem openPrinter: self printerName.
d8547710430c printer stuff fm parents: 9380 diff changeset	6108	newDocumentProperties := OperatingSystem documentPropertiesDialogFor:nil
d8547710430c printer stuff fm parents: 9380 diff changeset	6109	hPrinter:h
d8547710430c printer stuff fm parents: 9380 diff changeset	6110	pDeviceName: self printerName
d8547710430c printer stuff fm parents: 9380 diff changeset	6111	devModeInput:self documentProperties.
d8547710430c printer stuff fm parents: 9380 diff changeset	6112	(newDocumentProperties allSatisfy:[:el \| el = 0])
d8547710430c printer stuff fm parents: 9380 diff changeset	6113	ifTrue:[^false].
d8547710430c printer stuff fm parents: 9380 diff changeset	6114	self documentProperties: newDocumentProperties.
d8547710430c printer stuff fm parents: 9380 diff changeset	6115	OperatingSystem closePrinter:h.
d8547710430c printer stuff fm parents: 9380 diff changeset	6116	^true
d8547710430c printer stuff fm parents: 9380 diff changeset	6117
d8547710430c printer stuff fm parents: 9380 diff changeset	6118	"Created: / 28-07-2006 / 11:44:01 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6119	"Modified: / 01-08-2006 / 11:55:49 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6120	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6121
d8547710430c printer stuff fm parents: 9380 diff changeset	6122	!AbstractOperatingSystem::PrinterInfo methodsFor:'modifying'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6123
d8547710430c printer stuff fm parents: 9380 diff changeset	6124	setLandscapeOrientation
d8547710430c printer stuff fm parents: 9380 diff changeset	6125	"DMORIENT_LANDSCAPE = 2"
d8547710430c printer stuff fm parents: 9380 diff changeset	6126	self documentProperties orientation: 2
d8547710430c printer stuff fm parents: 9380 diff changeset	6127
d8547710430c printer stuff fm parents: 9380 diff changeset	6128	"Created: / 28-07-2006 / 15:53:35 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6129	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6130
d8547710430c printer stuff fm parents: 9380 diff changeset	6131	setNumberOfCopies: n
d8547710430c printer stuff fm parents: 9380 diff changeset	6132
d8547710430c printer stuff fm parents: 9380 diff changeset	6133	self documentProperties copies: n
d8547710430c printer stuff fm parents: 9380 diff changeset	6134
d8547710430c printer stuff fm parents: 9380 diff changeset	6135	"Created: / 28-07-2006 / 16:04:04 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6136	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6137
d8547710430c printer stuff fm parents: 9380 diff changeset	6138	setPortraitOrientation
d8547710430c printer stuff fm parents: 9380 diff changeset	6139	"DMORIENT_PORTRAIT = 1"
d8547710430c printer stuff fm parents: 9380 diff changeset	6140	self documentProperties orientation: 1
d8547710430c printer stuff fm parents: 9380 diff changeset	6141
d8547710430c printer stuff fm parents: 9380 diff changeset	6142	"Created: / 28-07-2006 / 15:49:45 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6143	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6144
d8547710430c printer stuff fm parents: 9380 diff changeset	6145	!AbstractOperatingSystem::PrinterInfo methodsFor:'printing & storing'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6146
d8547710430c printer stuff fm parents: 9380 diff changeset	6147	printOn:aStream
d8547710430c printer stuff fm parents: 9380 diff changeset	6148	aStream nextPutAll:(self class name); nextPutAll:'('.
d8547710430c printer stuff fm parents: 9380 diff changeset	6149	printerName printOn:aStream.
d8547710430c printer stuff fm parents: 9380 diff changeset	6150	aStream nextPutAll:')'.
d8547710430c printer stuff fm parents: 9380 diff changeset	6151
d8547710430c printer stuff fm parents: 9380 diff changeset	6152	"Created: / 27-07-2006 / 12:30:28 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6153	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6154
d8547710430c printer stuff fm parents: 9380 diff changeset	6155	!AbstractOperatingSystem::PrinterInfo methodsFor:'private'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6156
d8547710430c printer stuff fm parents: 9380 diff changeset	6157	getDocumentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6158	"Returns a aDevModeStructure"
d8547710430c printer stuff fm parents: 9380 diff changeset	6159	\|h devMode \|
d8547710430c printer stuff fm parents: 9380 diff changeset	6160
d8547710430c printer stuff fm parents: 9380 diff changeset	6161	h := OperatingSystem openPrinter: self printerName.
d8547710430c printer stuff fm parents: 9380 diff changeset	6162	devMode := OperatingSystem getDocumentProperties:nil
d8547710430c printer stuff fm parents: 9380 diff changeset	6163	hPrinter:h
d8547710430c printer stuff fm parents: 9380 diff changeset	6164	pDeviceName: self printerName.
d8547710430c printer stuff fm parents: 9380 diff changeset	6165	OperatingSystem closePrinter: h.
d8547710430c printer stuff fm parents: 9380 diff changeset	6166	^devMode
d8547710430c printer stuff fm parents: 9380 diff changeset	6167
d8547710430c printer stuff fm parents: 9380 diff changeset	6168	"Created: / 28-07-2006 / 11:49:33 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6169	"Modified: / 31-07-2006 / 10:33:04 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6170	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6171
d8547710430c printer stuff fm parents: 9380 diff changeset	6172	getPrinterInfo2
d8547710430c printer stuff fm parents: 9380 diff changeset	6173	"Returns a aPrinterInfo2 structure"
d8547710430c printer stuff fm parents: 9380 diff changeset	6174
d8547710430c printer stuff fm parents: 9380 diff changeset	6175	printerInfo2 := OperatingSystem getPrinterInfo2: self printerName.
d8547710430c printer stuff fm parents: 9380 diff changeset	6176	^printerInfo2
d8547710430c printer stuff fm parents: 9380 diff changeset	6177
d8547710430c printer stuff fm parents: 9380 diff changeset	6178	"Created: / 01-08-2006 / 13:50:55 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6179	"Modified: / 01-08-2006 / 15:11:03 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6180	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6181
d8547710430c printer stuff fm parents: 9380 diff changeset	6182	printerInfo2
d8547710430c printer stuff fm parents: 9380 diff changeset	6183	"Returns a aPrinterInfo2 structure"
d8547710430c printer stuff fm parents: 9380 diff changeset	6184	printerInfo2 isNil ifTrue:[self getPrinterInfo2.].
d8547710430c printer stuff fm parents: 9380 diff changeset	6185	^printerInfo2
d8547710430c printer stuff fm parents: 9380 diff changeset	6186
d8547710430c printer stuff fm parents: 9380 diff changeset	6187	"Created: / 01-08-2006 / 15:10:18 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6188	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6189
d8547710430c printer stuff fm parents: 9380 diff changeset	6190	setDocumentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6191	"Sets a aDevModeStructure or nil if the printer is not available"
d8547710430c printer stuff fm parents: 9380 diff changeset	6192
d8547710430c printer stuff fm parents: 9380 diff changeset	6193	self documentProperties: self getDocumentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6194
d8547710430c printer stuff fm parents: 9380 diff changeset	6195	"Created: / 31-07-2006 / 13:04:58 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6196	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6197
d8547710430c printer stuff fm parents: 9380 diff changeset	6198	!AbstractOperatingSystem::PrinterInfo methodsFor:'queries'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6199
d8547710430c printer stuff fm parents: 9380 diff changeset	6200	isAvailable
d8547710430c printer stuff fm parents: 9380 diff changeset	6201
d8547710430c printer stuff fm parents: 9380 diff changeset	6202	^self documentProperties notNil
d8547710430c printer stuff fm parents: 9380 diff changeset	6203
d8547710430c printer stuff fm parents: 9380 diff changeset	6204	"Created: / 31-07-2006 / 13:08:58 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6205	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6206
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6207	!AbstractOperatingSystem::TimeInfo methodsFor:'accessing'!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6208
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6209	at:index
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6210	"backward compatibility"
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6211
8357 64be78ef1e77 Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 8250 diff changeset	6212	<resource: #obsolete>
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6213	self obsoleteMethodWarning:'use accessor for index ', index printString.
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6214
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6215	index == 1 ifTrue:[
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6216	^ self year.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6217	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6218	index == 2 ifTrue:[
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6219	^ self month.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6220	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6221	index == 3 ifTrue:[
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6222	^ self day.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6223	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6224	index == 4 ifTrue:[
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6225	^ self hours.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6226	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6227	index == 5 ifTrue:[
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6228	^ self minutes.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6229	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6230	index == 6 ifTrue:[
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6231	^ self seconds.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6232	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6233	index == 7 ifTrue:[
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6234	^ self utcOffset.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6235	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6236	index == 8 ifTrue:[
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6237	^ self dst.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6238	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6239	index == 9 ifTrue:[
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6240	^ self milliseconds.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6241	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6242	index == 10 ifTrue:[
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6243	^ self dayInYear.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6244	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6245	index == 11 ifTrue:[
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6246	^ self dayInWeek.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6247	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6248	self subscriptBoundsError:index
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6249	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6250
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6251	day
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6252	^ day
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6253	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6254
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6255	dayInWeek
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6256	^ dayInWeek
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6257	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6258
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6259	dayInYear
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6260	^ dayInYear
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6261	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6262
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6263	dst
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6264	^ dst
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6265	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6266
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6267	hours
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6268	^ hours
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6269	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6270
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6271	milliseconds
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6272	^ milliseconds
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6273	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6274
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6275	milliseconds:something
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6276	milliseconds := something.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6277	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6278
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6279	minutes
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6280	^ minutes
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6281	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6282
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6283	month
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6284	^ month
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6285	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6286
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6287	seconds
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6288	^ seconds
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6289	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6290
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6291	utcOffset
8887 0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6292	"return the difference between UTC (Greenwich Mean Time) and the local time in seconds.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6293	If daylight saving time applies to ourself, take that into account.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6294	Add utcOffset to convert from local time to UTC time.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6295	Subtract utcOffset to convert from UTC time to local time.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6296
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6297	If utcOffset is negative, the local timezone is east of Greenwich.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6298	If utcOffset is positive, the local timezone is west of Greenwich."
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6299
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6300	^ utcOffset
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6301	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6302
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6303	year
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6304	^ year
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6305	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6306
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6307	year:yearArg month:monthArg day:dayArg hours:hoursArg minutes:minutesArg seconds:secondsArg milliseconds:millisecondsArg utcOffset:utcOffsetArg dst:dstArg dayInYear:dayInYearArg dayInWeek:dayInWeekArg
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6308	"set instance variables (automatically generated)"
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6309
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6310	year := yearArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6311	month := monthArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6312	day := dayArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6313	hours := hoursArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6314	minutes := minutesArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6315	seconds := secondsArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6316	milliseconds := millisecondsArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6317	utcOffset := utcOffsetArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6318	dst := dstArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6319	dayInYear := dayInYearArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6320	dayInWeek := dayInWeekArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6321	!
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6322
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6323	year:yearArg month:monthArg day:dayArg hours:hoursArg minutes:minutesArg seconds:secondsArg utcOffset:utcOffsetArg dst:dstArg dayInYear:dayInYearArg dayInWeek:dayInWeekArg
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6324	"set instance variables (automatically generated)"
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6325
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6326	year := yearArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6327	month := monthArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6328	day := dayArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6329	hours := hoursArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6330	minutes := minutesArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6331	seconds := secondsArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6332	utcOffset := utcOffsetArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6333	dst := dstArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6334	dayInYear := dayInYearArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6335	dayInWeek := dayInWeekArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6336	! !
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6337
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6338	!AbstractOperatingSystem class methodsFor:'documentation'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6339
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6340	version
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6341	^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.152 2006-08-07 13:13:15 fm Exp $'
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6342	! !
6772 6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	6343
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6344	AbstractOperatingSystem initialize!

author	Claus Gittinger <cg@exept.de>
	Fri, 18 Aug 2006 16:23:48 +0200
changeset 9586	eb87399baea3
parent 9476	d8547710430c
child 9697	d079abe6b6e6
permissions	-rw-r--r--