hg/stx-libbasic: AbstractOperatingSystem.st@80eb31a5a622 (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
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 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	"
5407 d6729266a95b * empty log message * Claus Gittinger <cg@exept.de> parents: 5172 diff changeset	12	"{ Package: 'stx:libbasic' }"
d6729266a95b * empty log message * Claus Gittinger <cg@exept.de> parents: 5172 diff changeset	13
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	14	Object subclass:#AbstractOperatingSystem
17814 b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	15	instanceVariableNames:''
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	16	classVariableNames:'ConcreteClass LastErrorNumber LocaleInfo OSSignals PipeFailed
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	17	ErrorSignal AccessDeniedErrorSignal FileNotFoundErrorSignal
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	18	InvalidArgumentsSignal UnsupportedOperationSignal Resources'
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	19	poolDictionaries:''
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	20	category:'System-Support'
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	21	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	22
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	23	Object subclass:#PrinterInfo
17814 b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	24	instanceVariableNames:'printerName attributes documentProperties printerInfo2'
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	25	classVariableNames:''
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	26	poolDictionaries:''
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	27	privateIn:AbstractOperatingSystem
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	28	!
d8547710430c printer stuff fm parents: 9380 diff changeset	29
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	30	Object subclass:#TimeInfo
17814 b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	31	instanceVariableNames:'year month day hours minutes seconds utcOffset dst milliseconds
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	32	dayInYear dayInWeek'
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	33	classVariableNames:''
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	34	poolDictionaries:''
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	35	privateIn:AbstractOperatingSystem
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	36	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	37
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	38	Object subclass:#TimeZoneInfo
17814 b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	39	instanceVariableNames:'bias name standardYear standardMonth standardDay standardWeekDay
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	40	standardHour standardMinute standardBias daylightName
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	41	standardDate daylightDate daylightYear daylightMonth daylightDay
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	42	daylightWeekDay daylightHour daylightMinute daylightBias'
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	43	classVariableNames:''
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	44	poolDictionaries:''
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	45	privateIn:AbstractOperatingSystem
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	46	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	47
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	48	!AbstractOperatingSystem primitiveDefinitions!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	49	%{
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	50
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	51	#include "stxOSDefs.h"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	52
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	53	%}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	54	! !
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	55
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	56	!AbstractOperatingSystem class methodsFor:'documentation'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	57
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	58	copyright
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	59	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	60	COPYRIGHT (c) 1988 by Claus Gittinger
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	61	All Rights Reserved
3576 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	This software is furnished under a license and may be used
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	64	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	65	inclusion of the above copyright notice. This software may not
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	66	be provided or otherwise made available to, or used by, any
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	67	other person. No title to or ownership of the software is
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	68	hereby transferred.
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	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	71
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	72	documentation
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	73	"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	74	this class realizes services common to the supported operating systems;
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	75	typically, services which can be implemented based upon more primitive
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	76	functions, or which can be implemented in a portable way (but probably
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	77	less performant) are implemented here.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	78
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	79	[Class variables:]
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	80	ConcreteClass <Class> the real OS class
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	81
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	82	LocaleInfo <Dictionary> if non nil, that is taken instead of the operating
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	83	systems locale definitions (allows for overwriting
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	84	these, or provide a compatible info on systems which do
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	85	not support locales)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	86
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	87	LastErrorNumber <Integer> the last value of errno
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	88
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	89	OSSignals <Array> Array of signals to be raised for corresponding
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	90	OperatingSystem signals.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	91
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	92	PipeFailed <Boolean> set if a fork (or popen) has failed;
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	93	ST/X will avoid doing more forks/popens
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	94	if this flag is set, for a slightly
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	95	smoother operation.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	96
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	97	ErrorSignal <Signal> Parentsignal of all OS error signals.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	98	not directly raised.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	99
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	100	AccessDeniedErrorSignal misc concrete error reporting signals
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	101	FileNotFoundErrorSignal
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	102	UnsupportedOperationSignal
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	103	InvalidArgumentsSignal
3576 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	[author:]
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	106	Claus Gittinger
3576 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	[see also:]
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	109	OSProcessStatus
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	110	Filename Date Time
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	111	ExternalStream FileStream PipeStream Socket
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	112	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	113	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	114
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	115	examples
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	116	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	117	various queries
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	118	[exBegin]
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	119	Transcript
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	120	showCR:'hello ' , (OperatingSystem getLoginName)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	121	[exEnd]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	122
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	123	[exBegin]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	124	OperatingSystem isUNIXlike ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	125	Transcript showCR:'this is some UNIX-like OS'
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	126	] ifFalse:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	127	Transcript showCR:'this OS is not UNIX-like'
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	128	]
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	129	[exEnd]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	130
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	131	[exBegin]
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	132	Transcript
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	133	showCR:'this machine is called ' , OperatingSystem getHostName
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	134	[exEnd]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	135
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	136	[exBegin]
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	137	Transcript
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	138	showCR:('this machine is in the '
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	139	, OperatingSystem getDomainName
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	140	, ' domain')
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	141	[exEnd]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	142
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	143	[exBegin]
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	144	Transcript
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	145	showCR:('this machine''s CPU is a '
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	146	, OperatingSystem getCPUType
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	147	)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	148	[exEnd]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	149
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	150	[exBegin]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	151	Transcript showCR:'executing ls command ...'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	152	OperatingSystem executeCommand:'ls'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	153	Transcript showCR:'... done.'.
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	154	[exEnd]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	155
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	156	locking a file
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	157	(should be executed on two running smalltalks - not in two threads):
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	158	[exBegin]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	159	\|f\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	160
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	161	f := 'testFile' asFilename readWriteStream.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	162
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	163	10 timesRepeat:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	164	'about to lock ...' printCR.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	165	[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	166	OperatingSystem
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	167	lockFD:(f fileDescriptor)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	168	shared:false
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	169	blocking:false
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	170	] whileFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	171	'process ' print. OperatingSystem getProcessId print. ' is waiting' printCR.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	172	Delay waitForSeconds:1
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	173	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	174	'LOCKED ...' printCR.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	175	Delay waitForSeconds:10.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	176	'unlock ...' printCR.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	177	(OperatingSystem
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	178	unlockFD:(f fileDescriptor)) printCR.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	179	Delay waitForSeconds:3.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	180	]
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	181	[exBegin]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	182	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	183	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	184
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	185	!AbstractOperatingSystem class methodsFor:'initialization'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	186
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	187	initResources
8715 631211fda967 ResourcePack not required. Claus Gittinger <cg@exept.de> parents: 8669 diff changeset	188	"/ allow for ResourcePack class to be missing (non-GUI smalltalks)
10734 47c85e53a9d0 handle & ignore error when loading resources; Claus Gittinger <cg@exept.de> parents: 10733 diff changeset	189
8715 631211fda967 ResourcePack not required. Claus Gittinger <cg@exept.de> parents: 8669 diff changeset	190	ResourcePack notNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	191	Error handle:[:ex \|
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	192	'OS [warning]: error when reading resources for libbasic:' errorPrintCR.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	193	'OS [info]: 'errorPrint. ex description errorPrintCR.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	194	'OS [info]: backtrace: ' errorPrintCR.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	195	self withErrorStreamDo:[:s \|
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	196	ex suspendedContext fullPrintAllOn:s.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	197	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	198	] do:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	199	Resources := ResourcePack forPackage:(self package).
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	200	].
8715 631211fda967 ResourcePack not required. Claus Gittinger <cg@exept.de> parents: 8669 diff changeset	201	]
10734 47c85e53a9d0 handle & ignore error when loading resources; Claus Gittinger <cg@exept.de> parents: 10733 diff changeset	202
17841 7abcc4aef871 Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17834 diff changeset	203	"Modified: / 21-04-2011 / 12:48:02 / cg"
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	204	!
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	205
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	206	initialize
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	207	"initialize the class"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	208
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	209	self initializeConcreteClass.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	210
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	211	ErrorSignal isNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	212	OSErrorHolder initialize.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	213	ErrorSignal := OsError.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	214	InvalidArgumentsSignal := OsInvalidArgumentsError.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	215	AccessDeniedErrorSignal := OSErrorHolder noPermissionsSignal.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	216	FileNotFoundErrorSignal := OSErrorHolder nonexistentSignal.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	217	UnsupportedOperationSignal := OSErrorHolder unsupportedOperationSignal.
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	218	].
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	219	Smalltalk addDependent:self. "/ to catch language changes
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	220	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	221
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	222	initializeConcreteClass
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	223	\|osType cls\|
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	osType := self getSystemType.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	226	osType = 'win32' ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	227	cls := Win32OperatingSystem
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	228	] ifFalse:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	229	osType = 'os2' ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	230	cls := OS2OperatingSystem
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	231	] ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	232	osType = 'macos' ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	233	cls := MacOperatingSystem
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	234	] ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	235	((osType = 'VMS') or:[osType = 'openVMS']) ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	236	cls := OpenVMSOperatingSystem
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	237	] ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	238	cls := UnixOperatingSystem
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	239	]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	240	]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	241	]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	242	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	243	OperatingSystem := ConcreteClass := cls.
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	246	!AbstractOperatingSystem class methodsFor:'OS signal constants'!
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	sigABRT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	249	"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	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	sigALRM
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	256	"return the signal number for SIGALRM - 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	sigBREAK
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	263	"return the signal number for SIGBREAK - 0 if not supported.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	264	This is an MSDOS specific signal"
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	sigBUS
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	270	"return the signal number for SIGBUS - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	271	(the numeric value is not the same across unix-systems)"
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	sigCHLD
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	277	"return the signal number for SIGCHLD - 0 if not supported
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	sigCONT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	284	"return the signal number for SIGCONT - 0 if not supported
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	sigDANGER
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	291	"return the signal number for SIGDANGER - 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	sigEMT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	298	"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	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	sigFP
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	305	"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	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	sigGRANT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	312	"return the signal number for SIGGRANT - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	313	(seems to be an AIX special)"
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	sigHUP
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	319	"return the signal number for SIGHUP
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	sigILL
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	326	"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	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	sigINT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	333	"return the signal number for SIGINT
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	sigIO
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	340	"return the signal number for SIGIO - 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	sigIOT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	347	"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	348	(the numeric value is not the same across unix-systems)"
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	sigKILL
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	354	"return the signal number for SIGKILL
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	355	(the numeric value is not the same across unix-systems)"
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	sigLOST
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	361	"return the signal number for SIGLOST - 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	sigMIGRATE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	368	"return the signal number for SIGMIGRATE - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	369	(seems to be an AIX special)"
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	sigMSG
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	375	"return the signal number for SIGMSG - 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	sigPIPE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	382	"return the signal number for SIGPIPE - 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	sigPOLL
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	389	"return the signal number for SIGPOLL - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	390	(the numeric value is not the same across unix-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	sigPRE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	396	"return the signal number for SIGPRE - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	397	(seems to be an AIX special)"
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	sigPROF
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	403	"return the signal number for SIGPROF - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	404	(the numeric value is not the same across unix-systems)"
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	sigPWR
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	410	"return the signal number for SIGPWR - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	411	(not available on all systems)"
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	sigQUIT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	417	"return the signal number for SIGQUIT
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	sigRETRACT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	424	"return the signal number for SIGRETRACT - 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	sigSAK
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	431	"return the signal number for SIGSAK - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	432	(seems to be an AIX special)"
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	sigSEGV
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	438	"return the signal number for SIGSEGV - 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	sigSOUND
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	445	"return the signal number for SIGSOUND - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	446	(seems to be an AIX special)"
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	sigSTOP
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	452	"return the signal number for SIGSTOP - 0 if not supported
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	sigSYS
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	459	"return the signal number for SIGSYS - 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	sigTERM
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	466	"return the signal number for SIGTERM - 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	sigTRAP
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	473	"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	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	sigTSTP
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	480	"return the signal number for SIGTSTP - 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	sigTTIN
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	487	"return the signal number for SIGTTIN - 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	sigTTOU
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	494	"return the signal number for SIGTTOU - 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	sigURG
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	501	"return the signal number for SIGURG - 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	sigUSR1
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	508	"return the signal number for SIGUSR1 - 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	sigUSR2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	515	"return the signal number for SIGUSR2 - 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	sigVTALRM
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	522	"return the signal number for SIGVTALRM - 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	sigWINCH
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	529	"return the signal number for SIGWINCH - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	530	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	531
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	532	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	533	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	534
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	535	sigXCPU
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	536	"return the signal number for SIGXCPU - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	537	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	538
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	539	^ 0
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	542	sigXFSZ
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	543	"return the signal number for SIGXFSZ - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	544	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	545
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	546	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	547	! !
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	!AbstractOperatingSystem class methodsFor:'Signal constants'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	550
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	551	accessDeniedErrorSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	552	"return the signal raised when a (file-) access is denied."
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	^ AccessDeniedErrorSignal
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	557	errorSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	558	"return the parent signal of all OS signals."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	559
8497 1e6d5f80d91b use class based signals Stefan Vogel <sv@exept.de> parents: 8474 diff changeset	560	^ OsError
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	561
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	562	"Modified: 22.4.1996 / 13:11:31 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	563	!
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	fileNotFoundErrorSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	566	"return the signal raised when a file was not found."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	567
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	568	^ FileNotFoundErrorSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	569	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	570
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	571	invalidArgumentsSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	572	"return the signal which is raised for invalid arguments.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	573	Currently, this is never raised."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	574
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	575	^ InvalidArgumentsSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	576
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	577	"Created: 13.9.1997 / 10:46:47 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	578	"Modified: 13.9.1997 / 10:47:03 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	579	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	580
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	581	unsupportedOperationSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	582	"return the signal which is raised when an operation
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	583	is attempted, which is not supported by the OS.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	584	(For example, creating a link on VMS or MSDOS)"
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	^ UnsupportedOperationSignal
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
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	589	!AbstractOperatingSystem class methodsFor:'change & update'!
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	590
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	591	update:something with:aParameter from:changedObject
7497 cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7492 diff changeset	592	"Smalltalk notifies us about changes"
cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7492 diff changeset	593
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	594	((something == #Language) or:[something == #LanguageTerritory]) ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	595	self initResources
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	596	]
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	597	! !
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	598
17807 06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	599	!AbstractOperatingSystem class methodsFor:'dummy shell operations'!
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	600
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	601	openApplicationForDocument:aFilenameOrString operation:operationSymbol
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	602	"open a windows-shell application to present the document contained in aFilenameOrString.
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	603	This looks for the files extension, and is typically used to present help-files,
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	604	html documents, pdf documents etc.
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	605	operationSymbol is one of:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	606	open
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	607	edit
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	608	explore
17834 04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	609	"
17807 06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	610
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	611	"/ use a fileBrowser
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	612	UserPreferences current fileBrowserClass openOn:aFilenameOrString
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	613
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	614	"
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	615	self openApplicationForDocument: Filename currentDirectory operation:#open
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	616	self openApplicationForDocument: '..\..\doc\books\ArtOfSmalltalk\artMissing186187Fix1.pdf' asFilename operation:#open
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	617
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	618	self openApplicationForDocument: 'C:\WINDOWS\Help\clipbrd.chm' asFilename operation:#open
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	619	"
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	620
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	621	"Created: / 29-10-2010 / 12:16:38 / cg"
17834 04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	622	"Modified: / 05-02-2011 / 16:13:42 / cg"
17807 06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	623	! !
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	624
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	625	!AbstractOperatingSystem class methodsFor:'error messages'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	626
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	627	clearLastErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	628	"return the last errors number.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	629	See also: #lastErrorSymbol and #lastErrorString.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	630	Notice: having a single error number is a bad idea in a multithreaded
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	631	environment - this interface will change."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	632
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	633	LastErrorNumber := nil.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	634
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	635	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	636	AbstractOperatingSystem clearLastErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	637	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	638
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	639	"Created: 12.4.1996 / 09:28:58 / stefan"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	640	"Modified: 12.4.1996 / 09:38:51 / stefan"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	641	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	642
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	643	currentErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	644	"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	645	Notice, that the value of this flag is only valid immediately
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	646	after the error occurred - it gets updated with every other
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	647	request to the OS.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	648	Use lastErrorNumber - currentErrorNumber is invalidated by
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	649	many, many internal calls."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	650
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	651	^ self lastErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	652
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	653	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	654	OperatingSystem currentErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	655	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	656	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	657
6284 5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	658	errorHolderForNumber:anInteger
5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	659
5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	660	^ self subclassResponsibility
5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	661	!
5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	662
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	663	errorNumberFor:aSymbol
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	664	"given a symbolic error, return the numeric;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	665	(i.e. errorNumberFor:#EBADF returns EBADF's value).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	666	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	667
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	668	^ -1
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	669	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	670
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	671	errorStringForSymbol:errorSymbol
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	672	"return an errorMessage for an errorSymbol
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	673	(as kept in an osErrorHolder)."
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	674
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	675	Resources isNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	676	"/ do not care to load resource strings, if the error happens durig early initialization
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	677	Smalltalk isInitialized ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	678	^ errorSymbol
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	679	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	680	self initResources.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	681	Resources isNil ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	682	^ errorSymbol
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	683	]
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	684	].
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	685	^ Resources at:errorSymbol ifAbsent:errorSymbol
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	686
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	687	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	688	OperatingSystem errorStringForSymbol:#EPERM
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	689	OperatingSystem errorStringForSymbol:(OperatingSystem errorSymbolForNumber:4)
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	690	"
10733 c83c02dae4f8 handle & ignore error when loading resources; Claus Gittinger <cg@exept.de> parents: 10684 diff changeset	691
17841 7abcc4aef871 Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17834 diff changeset	692	"Modified: / 21-04-2011 / 13:13:29 / cg"
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	693	!
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	694
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	695	errorSymbolAndTextForNumber:errNr
6284 5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	696	"do not use - temporary for backward compatibility.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	697	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	698	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	699
6284 5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	700	\|holder errSym\|
5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	701
5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	702	holder := self errorHolderForNumber:errNr.
5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	703	errSym := holder errorSymbol.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	704	^ Array
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	705	with:errSym
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	706	with:(self errorStringForSymbol:errSym)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	707
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	708	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	709	OperatingSystem errorSymbolAndTextForNumber:(OperatingSystem errorNumberFor:#EPERM)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	710	OperatingSystem errorSymbolAndTextForNumber:(OperatingSystem errorNumberFor:#EIO)
6287 f1a8f0ac8048 * empty log message * Stefan Vogel <sv@exept.de> parents: 6284 diff changeset	711	OperatingSystem errorSymbolAndTextForNumber:(OperatingSystem errorNumberFor:#ENXIO)
3576 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	errorSymbolForNumber:errNr
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	716	"return a symbol for a unix errorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	717	(as returned by a system call)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	718
6284 5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	719	^ (self errorHolderForNumber:errNr) errorSymbol
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	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	722	OperatingSystem errorSymbolForNumber:4
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	723	OperatingSystem errorSymbolForNumber:2
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	!
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	errorTextForNumber:errNr
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	728	"return a message string from a unix errorNumber
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	729	(as returned by a system call).
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	730	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	731	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	732
6284 5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	733	^ (self errorHolderForNumber:errNr) errorString
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	734
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	735	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	736	OperatingSystem errorTextForNumber:4
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	737	OperatingSystem errorTextForNumber:(OperatingSystem errorNumberFor:#EPERM)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	738	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	739	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	740
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	741	lastErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	742	"return the last errors number.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	743	See also: #lastErrorSymbol and #lastErrorString.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	744	Notice: having a single error number is a bad idea in a multithreaded
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	745	environment - this interface will change."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	746
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	747	^ LastErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	748
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	749	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	750	OperatingSystem lastErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	751	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	752	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	753
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	754	lastErrorString
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	755	"return a message string describing the last error.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	756	See also: #lastErrorNumber and #lastErrorSymbol.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	757	Notice: having a single error number is a bad idea in a multithreaded
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	758	environment - this interface will change."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	759
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	760	LastErrorNumber isNil ifTrue:[^ nil].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	761	^ self errorTextForNumber:LastErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	762
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	763	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	764	OperatingSystem lastErrorString
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	765	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	766	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	767
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	768	lastErrorSymbol
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	769	"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	770	See also: #lastErrorNumber and #lastErrorString.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	771	Notice: having a single error number is a bad idea in a multithreaded
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	772	environment - this interface will change."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	773
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	774	LastErrorNumber isNil ifTrue:[^ nil].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	775	^ self errorSymbolForNumber:LastErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	776
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	777	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	778	OperatingSystem lastErrorSymbol
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	779	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	780	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	781
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	782	!AbstractOperatingSystem class methodsFor:'executing OS commands-implementation'!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	783
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	784	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	785	"execute an OS command"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	786
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	787	^ self subclassResponsibility
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	"Created: / 12.11.1998 / 14:46:15 / cg"
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
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	792	fork
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	793	"fork a new (HEAVY-weight) unix process.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	794	Not supported with MSDOS & VMS systems.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	795	Dont confuse this with Block>>fork, which creates
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	796	lightweight smalltalk processes. This method will return
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	797	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	798	unix-process-id) to the parent (original) process.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	799
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	800	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	801	#startProcess: and #executCommand: for higher level interfaces."
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	802
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	803	"/
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	804	"/ not supported by OS
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	^ UnsupportedOperationSignal raise
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	808	!
7637 6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	809
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	810	startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream
7637 6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	811	errorTo:anExternalErrStream auxFrom:anExternalAuxStreamOrNil environment:environment inDirectory:dir
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	812	"start executing the OS command as specified by the argument, aCommandString
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	813	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	814	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	815	'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	816	The command gets stdIn, stdOut and stdErr assigned from the arguments;
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	817	each may be nil.
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	818	Return the processId if successful, nil otherwise.
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	819	Use #monitorPid:action: for synchronization and exec status return,
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	820	or #killProcess: to stop it."
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	821
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	822	"raise an error: must be redefined in concrete subclass(es)"
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	823
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	824	^ self subclassResponsibility
7656 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
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	827	!AbstractOperatingSystem class methodsFor:'executing OS commands-private'!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	828
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	829	shuffleAllFrom:anInStream to:anOutStream lineWise:lineWise lockWith:aLock
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	830
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	831	lineWise ifFalse:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	832	^ anInStream copyToEndInto:anOutStream.
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	[anInStream atEnd] whileFalse:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	835	aLock critical:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	836	self
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	837	shuffleFrom:anInStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	838	to:anOutStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	839	lineWise:lineWise
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	840	]
7656 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	!
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	shuffleFrom:anInStream to:anOutStream lineWise:lineWise
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	845	"copy data from anInStream to anOutStream.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	846	Caller makes sure, than anInStream does not block.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	847	anOutstream should have been set to non-blocking-mode"
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	lineWise ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	850	\|data\|
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	851
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	852	data := anInStream nextLine.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	853	data notNil ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	854	anOutStream nextPutLine:data
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	855	] .
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	856	] ifFalse:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	857	anInStream copyToEndInto:anOutStream.
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	858	].
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
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	861	shuffleRestFrom:anInStream to:anOutStream lineWise:lineWise
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	862	[anInStream atEnd] whileFalse:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	863	self
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	864	shuffleFrom:anInStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	865	to:anOutStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	866	lineWise:lineWise.
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	867	].
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	868	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	869
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	870	startProcess:aCommandString
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	871	"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	872	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	873	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	874	'sh -c' in your UNIX manual.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	875	Return the processId if successful, nil otherwise.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	876	Use #waitForProcess: for synchronization and exec status return,
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	877	or #killProcess: to stop it."
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	878
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	879	^ self
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	880	startProcess:aCommandString
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	881	inputFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	882	outputTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	883	errorTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	884	auxFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	885	inDirectory:nil
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	886
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	\|pid\|
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	889
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	890	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	891	(Delay forSeconds:3) wait.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	892	OperatingSystem killProcess:pid.
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	"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	895	\|pid\|
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	896
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	897	pid := OperatingSystem startProcess:'dir/l'.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	898	(Delay forSeconds:1) wait.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	899	OperatingSystem killProcess:pid.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	900	"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	901	"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	902	\|pid\|
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	903
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	904	pid := OperatingSystem
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	905	startProcess:'dir/l'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	906	inputFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	907	outputTo:Stdout
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	908	errorTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	909	inDirectory:nil.
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	910	(Delay forSeconds:2) wait.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	911	OperatingSystem killProcess:pid.
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
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	914	"Modified: / 21.3.1997 / 10:04:35 / dq"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	915	"Modified: / 10.11.1998 / 21:03:50 / cg"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	916	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	917
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	918	startProcess:aCommandString inDirectory:aDirectory
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	919	"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	920	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	921	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	922	'sh -c' in your UNIX manual.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	923	Return the processId if successful, nil otherwise.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	924	Use #waitForProcess: for synchronization and exec status return,
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	925	or #killProcess: to stop it."
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	926
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	927	^ self
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	928	startProcess:aCommandString
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	929	inputFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	930	outputTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	931	errorTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	932	auxFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	933	inDirectory:aDirectory
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	934	"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	935	\|pid\|
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	936
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	937	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	938	(Delay forSeconds:3) wait.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	939	OperatingSystem killProcess:pid.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	940	"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	941
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	942	"Modified: / 21.3.1997 / 10:04:35 / dq"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	943	"Modified: / 28.1.1998 / 14:13:33 / md"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	944	"Modified: / 10.11.1998 / 20:59:33 / cg"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	945	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	946
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	947	startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream errorTo:anExternalErrStream
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	948	"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	949	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	950	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	951	'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	952	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	953	each may be nil.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	954	Return the processId if successful, nil otherwise.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	955	Use #monitorPid:action: for synchronization and exec status return,
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	956	or #killProcess: to stop it."
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	957
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	958	^ self
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	959	startProcess:aCommandString
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	960	inputFrom:anExternalInStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	961	outputTo:anExternalOutStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	962	errorTo:anExternalErrStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	963	auxFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	964	inDirectory:nil
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	965
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	966	"Modified: / 10.11.1998 / 20:59:05 / cg"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	967	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	968
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	969	startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	970	errorTo:anExternalErrStream auxFrom:anAuxiliaryStream inDirectory:dir
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	971
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	972	^ self
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	973	startProcess:aCommandString
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	974	inputFrom:anExternalInStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	975	outputTo:anExternalOutStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	976	errorTo:anExternalErrStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	977	auxFrom:anAuxiliaryStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	978	environment:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	979	inDirectory:dir
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	980	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	981
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	982	startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream errorTo:anExternalErrStream inDirectory:dir
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	983	"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	984	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	985	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	986	'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	987	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	988	each may be nil.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	989	Return the processId if successful, nil otherwise.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	990	Use #monitorPid:action: for synchronization and exec status return,
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	991	or #killProcess: to stop it."
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	^ self
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	994	startProcess:aCommandString
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	995	inputFrom:anExternalInStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	996	outputTo:anExternalOutStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	997	errorTo:anExternalErrStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	998	auxFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	999	inDirectory:dir
7637 6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	1000	! !
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	1001
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1002	!AbstractOperatingSystem class methodsFor:'executing OS commands-public'!
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1003
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1004	executeCommand:aCommandString
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1005	"execute the unix command specified by the argument, aCommandString.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1006	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	1007	'sh -c' in your UNIX manual.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1008	Return true if successful, false otherwise."
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1009
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1010	^ self
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1011	executeCommand:aCommandString
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1012	inputFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1013	outputTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1014	errorTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1015	auxFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1016	inDirectory:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1017	lineWise:false
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1018	onError:[:status\| false]
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1019
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1020	"unix:
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1021
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1022	OperatingSystem executeCommand:'sleep 30'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1023	OperatingSystem executeCommand:'pwd'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1024	OperatingSystem executeCommand:'ls -l'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1025	OperatingSystem executeCommand:'invalidCommand'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1026	OperatingSystem executeCommand:'rm /tmp/foofoofoofoo'.
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1027	"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1028
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1029	"msdos:
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1030
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1031	OperatingSystem executeCommand:'dir'
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1032	OperatingSystem executeCommand:'dir /w'
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1033	"
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	"vms:
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1036
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1037	OperatingSystem executeCommand:'dir'
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1038	OperatingSystem executeCommand:'purge'
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1039	OperatingSystem executeCommand:'cc foo.c'
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1040	"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1041
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1042	"Modified: / 7.1.1997 / 19:29:55 / stefan"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1043	"Modified: / 10.11.1998 / 20:55:37 / cg"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1044	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1045
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1046	executeCommand:aCommandString errorTo:errorStream
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1047	"execute the unix command specified by the argument, aCommandString.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1048	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	1049	'sh -c' in your UNIX manual.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1050	Return true if successful, false otherwise."
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1051
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1052	^ self
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1053	executeCommand:aCommandString
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1054	inputFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1055	outputTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1056	errorTo:errorStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1057	auxFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1058	inDirectory:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1059	lineWise:false
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1060	onError:[:status\| false]
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1061
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1062	"unix:
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1063
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1064	OperatingSystem executeCommand:'ls -l' errorTo:Transcript.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1065	OperatingSystem executeCommand:'invalidCommand' errorTo:Transcript.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1066	OperatingSystem executeCommand:'rm /tmp/foofoofoofoo' errorTo:Transcript.
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1067	"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1068	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1069
10021 0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1070	executeCommand:aCommandString errorTo:errorStream inDirectory:aDirectory
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1071	"execute the unix command specified by the argument, aCommandString.
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1072	The commandString is passed to a shell for execution - see the description of
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1073	'sh -c' in your UNIX manual.
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1074	Return true if successful, false otherwise."
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1075
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1076	^ self
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1077	executeCommand:aCommandString
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1078	inputFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1079	outputTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1080	errorTo:errorStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1081	auxFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1082	inDirectory:aDirectory
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1083	lineWise:false
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1084	onError:[:status\| false]
10021 0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1085
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1086	"unix:
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1087
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1088	OperatingSystem executeCommand:'ls -l' errorTo:Transcript.
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1089	OperatingSystem executeCommand:'invalidCommand' errorTo:Transcript.
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1090	OperatingSystem executeCommand:'rm /tmp/foofoofoofoo' errorTo:Transcript.
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1091	"
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1092
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1093	"Created: / 29-09-2006 / 14:58:30 / cg"
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1094	!
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1095
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1096	executeCommand:aCommandString inDirectory:aDirectory
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1097	"execute the unix command specified by the argument, aCommandString.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1098	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	1099	'sh -c' in your UNIX manual.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1100	Return true if successful, false otherwise."
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1101
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1102	^ self
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1103	executeCommand:aCommandString
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1104	inputFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1105	outputTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1106	errorTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1107	auxFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1108	inDirectory:aDirectory
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1109	lineWise:false
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1110	onError:[:exitStatus\| false]
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1111
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1112	"Modified: / 10.11.1998 / 20:54:37 / cg"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1113	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1114
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1115	executeCommand:aCommandString inDirectory:aDirectory onError:aBlock
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1116	"execute the unix command specified by the argument, aCommandString.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1117	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	1118	'sh -c' in your UNIX manual.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1119	Return true if successful, the value from aBlock if not.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1120	If not successfull, aBlock is called with an OsProcessStatus
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1121	(containing the exit status) as argument."
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1122
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1123	^ self
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1124	executeCommand:aCommandString
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1125	inputFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1126	outputTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1127	errorTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1128	auxFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1129	inDirectory:aDirectory
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1130	lineWise:false
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1131	onError:aBlock
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1132
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1133	"Modified: / 10.11.1998 / 20:54:37 / cg"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1134	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1135
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1136	executeCommand:aCommandString inputFrom:anInStream outputTo:anOutStream
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1137	errorTo:anErrStream auxFrom:anAuxStream environment:environmentDictionary
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1138	inDirectory:dirOrNil lineWise:lineWise onError:aBlock
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1139
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1140	"execute the unix command specified by the argument, aCommandString.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1141	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	1142	'sh -c' in your UNIX manual.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1143	Return true if successful, or the value of aBlock if not.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1144	If not successfull, aBlock is called with an OsProcessStatus
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1145	(containing the exit status) as argument.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1146	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	1147	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	1148	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	1149	those internal stream(s).
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1150	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	1151	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	1152
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1153	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	1154	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	1155	avoid vlocking on pipes"
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1156
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1157	\|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	1158	shuffledInStream shuffledOutStream shuffledErrStream shuffledAuxStream
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1159	inputShufflerProcess outputShufflerProcess errorShufflerProcess auxShufflerProcess stopShufflers
10387 7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1160	inStreamToClose outStreamToClose errStreamToClose auxStreamToClose terminateLock
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1161	closeStreams\|
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1162
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1163	terminateLock := Semaphore forMutualExclusion.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1164	((externalInStream := anInStream) notNil
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1165	and:[externalInStream isExternalStream not]) ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1166	pIn := NonPositionableExternalStream makePipe.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1167	inStreamToClose := externalInStream := pIn at:1.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1168	shuffledInStream := pIn at:2.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1169	anInStream isBinary ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1170	shuffledInStream binary
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1171	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1172	lineWise ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1173	shuffledInStream blocking:false.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1174	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1175
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1176	"/ start a reader process, shuffling data from the given
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1177	"/ inStream to the pipe (which is connected to the commands input)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1178	inputShufflerProcess :=
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1179	[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1180	[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1181	[anInStream atEnd] whileFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1182	self shuffleFrom:anInStream to:shuffledInStream lineWise:lineWise.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1183	shuffledInStream flush
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1184	]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1185	] ensure:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1186	shuffledInStream close
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1187	]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1188	] newProcess
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1189	name:'cmd input shuffler';
10498 db5cd86b77e2 Be conservative when setting helper processes of executeCommand:... Stefan Vogel <sv@exept.de> parents: 10491 diff changeset	1190	"/ beSystemProcess;
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1191	resume.
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1192	].
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1193	((externalOutStream := anOutStream) notNil
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1194	and:[externalOutStream isExternalStream not]) ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1195	pOut := NonPositionableExternalStream makePipe.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1196	shuffledOutStream := (pOut at:1).
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1197	anOutStream isBinary ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1198	shuffledOutStream binary
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1199	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1200	outStreamToClose := externalOutStream := pOut at:2.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1201	outputShufflerProcess :=
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1202	[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1203	WriteError handle:[:ex \|
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1204	"/ ignored
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1205	] do:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1206	self shuffleAllFrom:shuffledOutStream to:anOutStream lineWise:lineWise lockWith:terminateLock.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1207	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1208	] newProcess
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1209	name:'cmd output shuffler';
10498 db5cd86b77e2 Be conservative when setting helper processes of executeCommand:... Stefan Vogel <sv@exept.de> parents: 10491 diff changeset	1210	"/ beSystemProcess;
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1211	resume.
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1212	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1213	(externalErrStream := anErrStream) notNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1214	anErrStream == anOutStream ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1215	externalErrStream := externalOutStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1216	] ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1217	anErrStream isExternalStream ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1218	pErr := NonPositionableExternalStream makePipe.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1219	shuffledErrStream := (pErr at:1).
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1220	anErrStream isBinary ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1221	shuffledErrStream binary
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1222	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1223	errStreamToClose := externalErrStream := pErr at:2.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1224	errorShufflerProcess :=
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1225	[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1226	self shuffleAllFrom:shuffledErrStream to:anErrStream lineWise:lineWise lockWith:terminateLock.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1227	] newProcess
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1228	name:'cmd err-output shuffler';
10498 db5cd86b77e2 Be conservative when setting helper processes of executeCommand:... Stefan Vogel <sv@exept.de> parents: 10491 diff changeset	1229	"/ beSystemProcess;
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1230	resume.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1231	]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1232	]
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1233	].
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1234	((externalAuxStream := anAuxStream) notNil
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1235	and:[externalAuxStream isExternalStream not]) ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1236	pAux := NonPositionableExternalStream makePipe.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1237	auxStreamToClose := externalAuxStream := pAux at:1.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1238	shuffledAuxStream := pAux at:2.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1239	shuffledAuxStream blocking:false.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1240	anAuxStream isBinary ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1241	shuffledAuxStream binary
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1242	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1243
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1244	"/ start a reader process, shuffling data from the given
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1245	"/ auxStream to the pipe (which is connected to the commands aux)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1246	auxShufflerProcess :=
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1247	[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1248	[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1249	[anAuxStream atEnd] whileFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1250	self shuffleFrom:anAuxStream to:shuffledAuxStream lineWise:false.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1251	shuffledAuxStream flush
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1252	]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1253	] ensure:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1254	shuffledAuxStream close
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1255	]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1256	] newProcess
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1257	name:'cmd aux shuffler';
10498 db5cd86b77e2 Be conservative when setting helper processes of executeCommand:... Stefan Vogel <sv@exept.de> parents: 10491 diff changeset	1258	"/ beSystemProcess;
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1259	resume.
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1260	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1261
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1262	stopShufflers := [
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1263	inputShufflerProcess notNil ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1264	terminateLock critical:[inputShufflerProcess terminate].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1265	inputShufflerProcess waitUntilTerminated
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1266	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1267	auxShufflerProcess notNil ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1268	terminateLock critical:[auxShufflerProcess terminate].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1269	auxShufflerProcess waitUntilTerminated
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1270	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1271	outputShufflerProcess notNil ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1272	terminateLock critical:[outputShufflerProcess terminate].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1273	outputShufflerProcess waitUntilTerminated.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1274	self shuffleRestFrom:shuffledOutStream to:anOutStream lineWise:lineWise.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1275	shuffledOutStream close.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1276	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1277	errorShufflerProcess notNil ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1278	terminateLock critical:[errorShufflerProcess terminate].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1279	errorShufflerProcess waitUntilTerminated.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1280	self shuffleRestFrom:shuffledErrStream to:anErrStream lineWise:lineWise.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1281	shuffledErrStream close.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1282	].
10387 7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1283	].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1284
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1285	closeStreams := [
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1286	inStreamToClose notNil ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1287	inStreamToClose close
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1288	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1289	errStreamToClose notNil ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1290	errStreamToClose close
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1291	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1292	outStreamToClose notNil ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1293	outStreamToClose close
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1294	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1295	auxStreamToClose notNil ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1296	auxStreamToClose close
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1297	].
7497 cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7492 diff changeset	1298	].
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1299
10387 7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1300
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1301	sema := Semaphore new name:'OS command wait'.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1302	[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1303	pid := Processor
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1304	monitor:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1305	self
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1306	startProcess:aCommandString
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1307	inputFrom:externalInStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1308	outputTo:externalOutStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1309	errorTo:externalErrStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1310	auxFrom:externalAuxStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1311	environment:environmentDictionary
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1312	inDirectory:dirOrNil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1313	]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1314	action:[:status \|
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1315	status stillAlive ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1316	exitStatus := status.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1317	sema signal.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1318	self closePid:pid
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1319	]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1320	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1321
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1322	pid isNil ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1323	exitStatus := self osProcessStatusClass processCreationFailure
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1324	] ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1325	sema wait.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1326	].
10387 7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1327	] ifCurtailed:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1328	closeStreams value.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1329	pid notNil ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1330	"/ terminate the os-command (and all of its forked commands)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1331	self terminateProcessGroup:pid.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1332	self terminateProcess:pid.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1333	self closePid:pid.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1334	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1335	stopShufflers value.
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1336	].
10387 7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1337
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1338	closeStreams value.
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1339	stopShufflers value.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1340	exitStatus success ifFalse:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1341	^ aBlock value:exitStatus
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1342	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1343	^ true
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1344
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1345	"
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1346	\|outStream errStream\|
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1347
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1348	outStream := '' writeStream.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1349
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1350	OperatingSystem executeCommand:'ls -l'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1351	inputFrom:'abc' readStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1352	outputTo:outStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1353	errorTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1354	inDirectory:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1355	lineWise:true
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1356	onError:[:exitStatus \| ^ false].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1357	outStream contents
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1358	"
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1359
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1360	"
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1361	\|outStream errStream\|
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1362
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1363	outStream := #[] writeStream.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1364
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1365	OperatingSystem executeCommand:'cat'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1366	inputFrom:(ByteArray new:5000000) readStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1367	outputTo:outStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1368	errorTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1369	inDirectory:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1370	lineWise:false
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1371	onError:[:exitStatus \| ^ false].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1372	outStream size
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1373	"
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1374
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1375	"
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1376	\|outStream errStream\|
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1377
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1378	outStream := '' writeStream.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1379
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1380	OperatingSystem executeCommand:'gpg -s --batch --no-tty --passphrase-fd 0 /tmp/passwd'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1381	inputFrom:'bla' readStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1382	outputTo:outStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1383	errorTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1384	inDirectory:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1385	lineWise:true
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1386	onError:[:exitStatus \| false].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1387	outStream contents
10387 7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1388	"
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1389
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1390	"Modified: / 11-02-2007 / 20:54:39 / cg"
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1391	!
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1392
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1393	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	1394	^ self
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1395	executeCommand:aCommandString
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1396	inputFrom:anInStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1397	outputTo:anOutStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1398	errorTo:anErrStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1399	auxFrom:anAuxStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1400	environment:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1401	inDirectory:dirOrNil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1402	lineWise:lineWise
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1403	onError:aBlock
7110 808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1404	!
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1405
8655 499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1406	executeCommand:aCommandString inputFrom:inputStreamOrNil outputTo:outStreamOrNil errorTo:errStreamOrNil inDirectory:aDirectory
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1407	"much like #executeCommand:, but changes the current directory
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1408	for the command. Since this is OS specific, use this instead of
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1409	hardwiring any 'cd ..' command strings into your applictions."
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1410
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1411	^ self
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1412	executeCommand:aCommandString
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1413	inputFrom:inputStreamOrNil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1414	outputTo:outStreamOrNil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1415	errorTo:errStreamOrNil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1416	auxFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1417	inDirectory:aDirectory
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1418	lineWise:false
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1419	onError:[:status\| false]
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1420
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1421	"
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1422	OperatingSystem executeCommand:'tdump date.obj' inDirectory:'c:\winstx\stx\libbasic\objbc'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1423	OperatingSystem executeCommand:'xxdir date.obj' inDirectory:'c:\winstx\stx\libbasic\objbc'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1424	OperatingSystem executeCommand:'dir' inDirectory:'c:\'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1425	OperatingSystem executeCommand:'dir'
8655 499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1426	"
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1427
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1428	"Modified: / 20.1.1998 / 17:03:03 / md"
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1429	"Modified: / 10.11.1998 / 20:28:10 / cg"
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1430	"Created: / 10.11.1998 / 21:05:45 / cg"
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1431	!
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1432
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1433	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	1434	"execute the unix command specified by the argument, aCommandString.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1435	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	1436	'sh -c' in your UNIX manual.
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1437	Return true if successful, the value from aBlock if not.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1438	If not successfull, aBlock is called with an OsProcessStatus
4847 6d3b5959198f enhanced executeCommand; Claus Gittinger <cg@exept.de> parents: 4377 diff changeset	1439	(containing the exit status) as argument.
6d3b5959198f enhanced executeCommand; Claus Gittinger <cg@exept.de> parents: 4377 diff changeset	1440	The given in, out and err streams may be arbitrary (Smalltalk-) streams;
6d3b5959198f enhanced executeCommand; Claus Gittinger <cg@exept.de> parents: 4377 diff changeset	1441	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	1442	extra pipes and shuffler processes are created, which stuff the data into
6d3b5959198f enhanced executeCommand; Claus Gittinger <cg@exept.de> parents: 4377 diff changeset	1443	those internal stream(s).
7059 6781d12b989a Fix #executeCommand:.... Stefan Vogel <sv@exept.de> parents: 6793 diff changeset	1444	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	1445	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	1446
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1447	^ self
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1448	executeCommand:aCommandString
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1449	inputFrom:anInStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1450	outputTo:anOutStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1451	errorTo:anErrStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1452	auxFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1453	inDirectory:dirOrNil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1454	lineWise:lineWise
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1455	onError:aBlock
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1456	!
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1457
6162 5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1458	executeCommand:aCommandString inputFrom:anInStream outputTo:anOutStream errorTo:anErrStream inDirectory:dirOrNil onError:aBlock
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1459	"execute the unix command specified by the argument, aCommandString.
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1460	The commandString is passed to a shell for execution - see the description of
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1461	'sh -c' in your UNIX manual.
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1462	Return true if successful, the value from aBlock if not.
6162 5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1463	If not successfull, aBlock is called with an OsProcessStatus
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1464	(containing the exit status) as argument.
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1465	The given in, out and err streams may be arbitrary (Smalltalk-) streams;
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1466	if any is not an external stream (which is required by the command),
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1467	extra pipes and shuffler processes are created, which stuff the data into
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1468	those internal stream(s).
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1469	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	1470	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	1471
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1472	^ self
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1473	executeCommand:aCommandString
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1474	inputFrom:anInStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1475	outputTo:anOutStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1476	errorTo:anErrStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1477	auxFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1478	inDirectory:dirOrNil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1479	lineWise:false
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1480	onError:aBlock
6162 5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1481
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1482	"
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1483	OperatingSystem
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1484	executeCommand:'dir'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1485	inputFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1486	outputTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1487	errorTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1488	inDirectory:'c:'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1489	onError:[:status \| Transcript flash]
6162 5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1490
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1491	OperatingSystem
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1492	executeCommand:'foo'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1493	inputFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1494	outputTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1495	errorTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1496	inDirectory:'/etc'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1497	onError:[:status \| Transcript flash]
6162 5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1498
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1499	\|s\|
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1500	s := '' writeStream.
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1501	OperatingSystem
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1502	executeCommand:'ls -l'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1503	inputFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1504	outputTo:s
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1505	errorTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1506	onError:[:status \| Transcript flash].
6162 5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1507	Transcript showCR:s contents.
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1508
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1509	\|s\|
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1510	s := '' writeStream.
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1511	OperatingSystem
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1512	executeCommand:'sh foo'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1513	inputFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1514	outputTo:s
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1515	errorTo:s
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1516	onError:[:status \| Transcript flash].
6162 5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1517	Transcript showCR:s contents.
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1518	"
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1519
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1520	"Modified: / 25.3.1997 / 11:02:02 / stefan"
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1521	"Modified: / 28.1.1998 / 14:46:36 / md"
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1522	"Modified: / 10.11.1998 / 20:48:08 / cg"
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1523	"Created: / 10.11.1998 / 20:51:11 / cg"
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1524	!
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1525
6610 02a2d5b5cfe0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6605 diff changeset	1526	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	1527	"execute the unix command specified by the argument, aCommandString.
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1528	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	1529	'sh -c' in your UNIX manual.
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1530	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	1531	If not successfull, aBlock is called with an OsProcessStatus
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1532	(containing the exit status) as argument."
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1533
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1534	^ self
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1535	executeCommand:aCommandString
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1536	inputFrom:anInStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1537	outputTo:anOutStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1538	errorTo:anErrStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1539	auxFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1540	inDirectory:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1541	lineWise:false
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1542	onError:aBlock
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1543
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1544	"
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1545	OperatingSystem
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1546	executeCommand:'dir'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1547	inputFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1548	outputTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1549	errorTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1550	onError:[:status \| Transcript flash]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1551
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1552	OperatingSystem
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1553	executeCommand:'foo'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1554	inputFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1555	outputTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1556	errorTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1557	onError:[:status \| Transcript flash]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1558	"
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1559	"
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1560	\|outStr errStr\|
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1561
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1562	outStr := '' writeStream.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1563	errStr := '' writeStream.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1564	OperatingSystem
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1565	executeCommand:'ls'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1566	inputFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1567	outputTo:outStr
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1568	errorTo:errStr
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1569	onError:[:status \| Transcript flash].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1570	Transcript show:'out:'; showCR:outStr contents.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1571	Transcript show:'err:'; showCR:errStr contents.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1572	"
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1573	"
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1574	\|outStr errStr\|
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1575
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1576	outStr := '' writeStream.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1577	errStr := '' writeStream.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1578	OperatingSystem
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1579	executeCommand:'ls /fooBar'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1580	inputFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1581	outputTo:outStr
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1582	errorTo:errStr
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1583	onError:[:status \| Transcript flash].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1584	Transcript show:'out:'; showCR:outStr contents.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1585	Transcript show:'err:'; showCR:errStr contents.
6610 02a2d5b5cfe0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6605 diff changeset	1586	"
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1587
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1588	"Modified: / 10.11.1998 / 20:51:39 / cg"
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1589	!
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1590
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1591	executeCommand:aCommandString onError:aBlock
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1592	"execute the unix command specified by the argument, aCommandString.
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1593	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	1594	'sh -c' in your UNIX manual.
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1595	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	1596	If not successfull, aBlock is called with an OsProcessStatus
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1597	(containing the exit status) as argument."
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1598
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1599	^ self
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1600	executeCommand:aCommandString
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1601	inputFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1602	outputTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1603	errorTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1604	auxFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1605	inDirectory:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1606	lineWise:false
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1607	onError:aBlock
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1608
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1609	"unix:
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1610
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1611	OperatingSystem executeCommand:'sleep 30' onError:[].
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1612	OperatingSystem executeCommand:'pwd' onError:[:status\|status inspect].
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1613	OperatingSystem executeCommand:'ls -l' onError:[].
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1614	OperatingSystem executeCommand:'invalidCommand' onError:[:status\| status inspect].
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1615	OperatingSystem executeCommand:'rm /tmp/foofoofoofoo'onError:[:status \| status inspect].
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1616
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1617	OperatingSystem executeCommand:'dir' onError:[].
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1618	OperatingSystem executeCommand:'foo' onError:[].
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1619
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1620	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1621
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1622	"Modified: / 25.3.1997 / 11:06:43 / stefan"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1623	"Modified: / 28.1.1998 / 14:46:56 / md"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1624	"Created: / 5.6.1998 / 19:02:09 / cg"
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1625	"Modified: / 10.11.1998 / 20:55:02 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1626	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1627
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1628	executeCommand:aCommandString onError:aBlock inDirectory:aDirectory
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1629	"OBSOLETE for backward compatibility.
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1630	execute the unix command specified by the argument, aCommandString.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1631	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	1632	'sh -c' in your UNIX manual.
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1633	Return true if successful, the value from aBlock if not.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1634	If not successfull, aBlock is called with an OsProcessStatus
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1635	(containing the exit status) as argument."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1636
5861 24ee164045bd Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 5857 diff changeset	1637	<resource:#obsolete>
24ee164045bd Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 5857 diff changeset	1638
4849 439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1639	self obsoleteMethodWarning:'use executeCommand:inDirectory:onError:'.
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1640
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1641	^ self
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1642	executeCommand:aCommandString
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1643	inputFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1644	outputTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1645	errorTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1646	auxFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1647	inDirectory:aDirectory
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1648	lineWise:false
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1649	onError:aBlock
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1650
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1651	"Modified: / 10.11.1998 / 20:54:37 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1652	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1653
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1654	executeCommand:aCommandString outputTo:anOutStreamOrNil
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1655	"execute the unix command specified by the argument, aCommandString.
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1656	The commandString is passed to a shell for execution - see the description of
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1657	'sh -c' in your UNIX manual.
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1658	Return true if successful, false otherwise."
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1659
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1660	^ self
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1661	executeCommand:aCommandString
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1662	inputFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1663	outputTo:anOutStreamOrNil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1664	errorTo:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1665	auxFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1666	inDirectory:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1667	lineWise:false
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1668	onError:[:status\| false]
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1669
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1670	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1671	String streamContents:[:s\|OperatingSystem
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1672	executeCommand:'ls'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1673	outputTo:s
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1674	]
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1675	"
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1676
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1677	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1678	String streamContents:[:s\|OperatingSystem
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1679	executeCommand:'pwd'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1680	outputTo:s
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1681	]
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1682	"
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1683	!
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1684
4849 439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1685	executeCommand:aCommandString outputTo:outStreamOrNil errorTo:errStreamOrNil inDirectory:aDirectory
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1686	"much like #executeCommand:, but changes the current directory
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1687	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	1688	hardwiring any 'cd ..' command strings into your applictions."
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1689
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1690	^ self
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1691	executeCommand:aCommandString
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1692	inputFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1693	outputTo:outStreamOrNil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1694	errorTo:errStreamOrNil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1695	auxFrom:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1696	inDirectory:aDirectory
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1697	lineWise:false
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1698	onError:[:status\| false]
4849 439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1699
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1700	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1701	OperatingSystem executeCommand:'tdump date.obj' inDirectory:'c:\winstx\stx\libbasic\objbc'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1702	OperatingSystem executeCommand:'xxdir date.obj' inDirectory:'c:\winstx\stx\libbasic\objbc'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1703	OperatingSystem executeCommand:'dir' inDirectory:'c:\'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1704	OperatingSystem executeCommand:'dir'
4849 439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1705	"
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1706
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1707	"Modified: / 20.1.1998 / 17:03:03 / md"
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1708	"Modified: / 10.11.1998 / 20:28:10 / cg"
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1709	"Created: / 10.11.1998 / 21:05:45 / cg"
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1710	!
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1711
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1712	getCommandOutputFrom:aCommand
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1713	"execute a simple command (such as hostname) and
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1714	return the commands first line of output as a string (forget stdErr).
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1715	If the command generates multiple output lines, only the first line is returned.
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1716	If the commands does not generate any output, an empty string is returned;
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1717	if the command fails, nil is returned."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1718
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1719	\|result\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1720
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1721	result := self getCommandOutputFrom:aCommand maxNumberOfLines:1 errorDisposition:#discard.
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1722	result notNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1723	^ result firstIfEmpty:['']
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1724	].
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1725	^ result
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1726
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1727	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1728	OperatingSystem getCommandOutputFrom:'hostname'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1729	OperatingSystem getCommandOutputFrom:'pwd'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1730	OperatingSystem getCommandOutputFrom:'sleep 1'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1731	OperatingSystem getCommandOutputFrom:'foo'
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1732	"
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1733
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1734	!
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1735
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1736	getCommandOutputFrom:aCommand maxNumberOfLines:numLinesOrNil errorDisposition:errorDisposition
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1737	"execute a simple command (such as hostname) and
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1738	return the commands output as a collection of strings,
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1739	but only up to the given number of lines (if non-nil).
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1740	If the command generates more output, only the first nLines are returned
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1741	(but the command is allowed to finish execution).
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1742	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	1743	if the command fails, nil is returned.
433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1744	errorDisposition controls where the stdErr output should go,
433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1745	and may be one of #discard, #inline or #stderr (default).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1746	#discard causes stderr to be discarded (/dev/null),
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1747	#inline causes it to be written to smalltalks own stdout and
433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1748	#stderr causes it to be written to smalltalks own stderr.
433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1749	Nil is treated like #stderr"
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1750
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1751	\|result\|
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1752
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	1753	PipeFailed ~~ true ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1754	PipeStream openErrorSignal handle:[:ex \|
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1755	PipeFailed := true.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1756	'OperatingSystem [warning]: cannot fork/popen' errorPrintCR.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1757	ex return.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1758	] do:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1759	\|p line\|
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1760
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1761	p := PipeStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1762	readingFrom:aCommand
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1763	errorDisposition:errorDisposition
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1764	inDirectory:nil.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1765	result := StringCollection new.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1766	[p atEnd] whileFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1767	line := p nextLine.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1768	(numLinesOrNil isNil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1769	or:[result size < numLinesOrNil]) ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1770	result add:line
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1771	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1772	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1773	p close.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1774	(p exitStatus notNil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1775	and:[p exitStatus success]) ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1776	result isEmpty ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1777	result := nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1778	]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1779	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1780	].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1781	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1782	^ result
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1783
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1784	"
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1785	OperatingSystem getCommandOutputFrom:'ls' maxNumberOfLines:1
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1786	OperatingSystem getCommandOutputFrom:'ls' maxNumberOfLines:10
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1787	OperatingSystem getCommandOutputFrom:'ls' maxNumberOfLines:nil
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1788	OperatingSystem getCommandOutputFrom:'foo' maxNumberOfLines:nil
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1789	"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1790
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1791	"Modified: / 19.5.1999 / 14:25:02 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1792	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1793
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1794	getFullCommandOutputFrom:aCommand
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1795	"execute a command and
5483 1d81b1ad42d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5482 diff changeset	1796	return the commands output as a collection of strings (ignoring stdErr).
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1797	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	1798	if the command fails, nil is returned."
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1799
5483 1d81b1ad42d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5482 diff changeset	1800	^ self getCommandOutputFrom:aCommand maxNumberOfLines:nil errorDisposition:#discard
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1801
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1802	"
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1803	OperatingSystem getFullCommandOutputFrom:'mt status'
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1804	"
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1805
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1806	! !
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	!AbstractOperatingSystem class methodsFor:'executing OS commands-queries'!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1809
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1810	canExecuteCommand:aCommandString
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1811	"return true, if the OS can execute aCommand.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1812	For now, this only works with UNIX."
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1813
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1814	\|fn fullPath\|
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1815
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1816	fullPath := (self pathOfCommand:aCommandString).
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1817	fullPath isNil ifTrue:[^ false].
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1818	fn := fullPath asFilename.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1819	^ fn exists and:[fn isExecutableProgram].
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1820
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1821	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1822	OperatingSystem canExecuteCommand:'fooBar'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1823	OperatingSystem canExecuteCommand:'ls'
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1824	OperatingSystem canExecuteCommand:'cvs'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1825	OperatingSystem canExecuteCommand:'diff'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1826	OperatingSystem canExecuteCommand:'cvs.exe'
17912 80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	1827	OperatingSystem canExecuteCommand:'hg'
80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	1828	OperatingSystem pathOfCommand:'hg'
80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	1829	"
80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	1830
80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	1831	"Created: / 04-11-1995 / 19:13:54 / cg"
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1832	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1833
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1834	commandAndArgsForOSCommand:aCommandString
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1835	"get a shell and shell arguments for command execution"
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	self subclassResponsibility
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
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1840	executableFileExtensions
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1841	"return a collection of extensions for executable program files.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1842	Only req'd for msdos & vms like systems ..."
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1843
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1844	^ #('')
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1845
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1846	"Created: 2.5.1997 / 11:42:29 / cg"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1847	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1848
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1849	nameOfSTXExecutable
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1850	"return the name of the running ST/X executable program.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1851	Usually, 'stx' is returned -
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1852	but may be different for standAlone apps (or winstx.exe)."
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1853
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1854	%{
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1855	extern char *__stxExecutableName__();
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	RETURN (__MKSTRING(__stxExecutableName__()));
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1858	%}
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	OperatingSystem nameOfSTXExecutable
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1861	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1862	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1863
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1864	pathOfCommand:aCommand
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1865	"find where aCommand's executable file is;
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1866	return its full pathName if there is such a command, otherwise
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1867	return nil."
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1868
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1869	^ self subclassResponsibility
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1870	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1871
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1872	pathOfSTXExecutable
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1873	"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	1874	Usually, '.../stx' is returned -
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1875	but may be different for standAlone apps (or winstx.exe)."
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1876
17912 80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	1877	\|path\|
80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	1878
80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	1879	path := self pathOfCommand:(self nameOfSTXExecutable).
80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	1880	self assert:(path notNil).
80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	1881	^ path
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1882
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1883	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1884	OperatingSystem pathOfSTXExecutable
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1885	"
17912 80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	1886
80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	1887	"Modified: / 20-01-2012 / 12:52:46 / cg"
8587 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	!AbstractOperatingSystem class methodsFor:'executing OS commands-wrappers'!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1891
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1892	exec:aCommandPath withArguments:argArray
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1893	"execute the OS command specified by the argument, aCommandPath, with
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1894	arguments in argArray (no arguments, if nil).
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1895	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	1896	If not successful, it does return.
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1897	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	1898
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1899	^ self
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1900	exec:aCommandPath
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1901	withArguments:argArray
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1902	environment:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1903	fileDescriptors:#(0 1 2)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1904	fork:false
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1905	newPgrp:false
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1906	inDirectory:nil
8587 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	"/ never reached ...
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1909
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1910	"Modified: / 12.11.1998 / 14:44:26 / cg"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1911	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1912
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1913	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	1914	^ self
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1915	exec:aCommandPath
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1916	withArguments:argArray
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1917	environment:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1918	fileDescriptors:fileDescriptors
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1919	fork:doFork
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1920	newPgrp:newPgrp
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1921	inDirectory:aDirectory
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1922	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1923
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1924	exec:aCommandPath withArguments:argArray fork:doFork
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1925	"execute an OS command without I/O redirection.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1926	The command reads its input and writes its output
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1927	from/to whatever terminal device ST/X was started
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1928	(typically, the terminal window)"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1929
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1930	^ self
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1931	exec:aCommandPath
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1932	withArguments:argArray
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1933	environment:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1934	fileDescriptors:#(0 1 2)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1935	fork:doFork
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1936	newPgrp:false
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1937	inDirectory:nil
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1938
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1939	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1940	\|id\|
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1941
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1942	id := OperatingSystem fork.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1943	id == 0 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1944	'I am the child'.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1945	OperatingSystem
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1946	exec:'/bin/ls'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1947	withArguments:#('ls' '/tmp')
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1948	fork:false.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1949	'not reached'.
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1950	]
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1951	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1952
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1953	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1954	\|id\|
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1955
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1956	id := OperatingSystem fork.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1957	id == 0 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1958	'I am the child'.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1959	OperatingSystem
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1960	exec:'/bin/sh'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1961	withArguments:#('sh' '-c' 'sleep 2;echo 1;sleep 2;echo 2')
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1962	fork:false.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1963	'not reached'.
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1964	].
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1965	id printNL.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1966	(Delay forSeconds:3.5) wait.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1967	'killing ...' printNL.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1968	OperatingSystem sendSignal:(OperatingSystem sigTERM) to:id.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1969	OperatingSystem sendSignal:(OperatingSystem sigKILL) to:id
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1970	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1971
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1972	"Modified: / 15.7.1997 / 15:54:32 / stefan"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1973	"Modified: / 12.11.1998 / 14:44:46 / cg"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1974	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1975
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1976	exec:aCommandPath withArguments:argArray fork:doFork inDirectory:aDirectory
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1977	"execute an OS command without I/O redirection.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1978	The command reads its input and writes its output
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1979	from/to whatever terminal device ST/X was started
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1980	(typically, the terminal window)"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1981
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1982	^ self
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1983	exec:aCommandPath
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1984	withArguments:argArray
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1985	environment:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1986	fileDescriptors:#(0 1 2)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1987	fork:doFork
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1988	newPgrp:false
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1989	inDirectory:aDirectory
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1990
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1991	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1992	\|id\|
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1993
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1994	id := OperatingSystem fork.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1995	id == 0 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1996	'I am the child'.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1997	OperatingSystem
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1998	exec:'/bin/ls'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1999	withArguments:#('ls' '/tmp')
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2000	fork:false.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2001	'not reached'.
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2002	]
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2003	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2004
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2005	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2006	\|id\|
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2007
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2008	id := OperatingSystem fork.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2009	id == 0 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2010	'I am the child'.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2011	OperatingSystem
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2012	exec:'/bin/sh'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2013	withArguments:#('sh' '-c' 'sleep 2;echo 1;sleep 2;echo 2')
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2014	fork:false.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2015	'not reached'.
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2016	].
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2017	id printNL.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2018	(Delay forSeconds:3.5) wait.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2019	'killing ...' printNL.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2020	OperatingSystem sendSignal:(OperatingSystem sigTERM) to:id.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2021	OperatingSystem sendSignal:(OperatingSystem sigKILL) to:id
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2022	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2023
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2024	"Created: / 28.1.1998 / 14:14:03 / md"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2025	"Modified: / 28.1.1998 / 14:14:45 / md"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2026	"Modified: / 12.11.1998 / 14:45:06 / cg"
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	2027	! !
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	2028
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2029	!AbstractOperatingSystem class methodsFor:'file access'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2030
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2031	closeFd:anInteger
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2032	"low level close of a filedescriptor"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2033
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2034	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2035	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2036
7699 9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	2037	copyFromFd:inFd toFd:outFd startIndex:startIdx count:count
9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	2038	"directly copy from one FD to another (if supported by the OS)"
9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	2039
9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	2040	^ 0 "/ not supported
9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	2041	!
9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	2042
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2043	createDirectory:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2044	"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	2045	path, or relative to the current directory.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2046	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	2047	This is a low-level entry - use Filename protocol for compatibility."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2048
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2049	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2050	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2051
6292 f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2052	createFileForReadAppend:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2053	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2054	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2055
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2056	createFileForReadWrite:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2057	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2058	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2059
3758 1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2060	createHardLinkFrom:oldPath to:newPath
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2061	"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	2062	Return true if successful, false if not."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2063
3758 1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2064	"/
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2065	"/ assume that this OperatingSystem does not support links
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2066	"/
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2067	^ UnsupportedOperationSignal raise
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2068
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2069	"Created: / 13.8.1998 / 21:37:12 / cg"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2070	"Modified: / 13.8.1998 / 21:38:39 / cg"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2071	!
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2072
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2073	createSymbolicLinkFrom:oldPath to:newPath
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2074	"make a link from the file 'oldPath' to the file 'newPath'.
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2075	The link will be a soft (symbolic) link.
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2076	Return true if successful, false if not."
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2077
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2078	"/
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2079	"/ assume that this OperatingSystem does not support symbolic links
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2080	"/
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2081	^ UnsupportedOperationSignal raise
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2082
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2083	"Created: / 13.8.1998 / 21:38:24 / cg"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2084	"Modified: / 13.8.1998 / 21:38:43 / cg"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2085	!
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2086
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2087	linkFile:oldPath to:newPath
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2088	"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	2089	Return true if successful, false if not.
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2090	This method has been renamed - it remains in existance for
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2091	backward compatibility."
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2092
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2093	^ self createHardLinkFrom:oldPath to:newPath
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2094
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2095	"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2096	OperatingSystem linkFile:'foo' to:'bar'
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2097	"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2098
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2099	"Modified: / 13.8.1998 / 21:37:24 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2100	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2101
6292 f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2102	openFileForAppend:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2103	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2104	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2105
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2106	openFileForRead:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2107	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2108	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2109
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2110	openFileForReadAppend:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2111	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2112	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2113
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2114	openFileForReadWrite:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2115	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2116	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2117
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2118	openFileForWrite:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2119	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2120	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2121
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2122	recursiveCopyDirectory:fullPathName to:destinationPathName
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2123	"copy the directory named 'fullPathName' and all contained
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2124	files/directories recursively to destinationPathName.
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2125	Return true if successful.
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2126	Here, false is returned and the caller should be prepared
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2127	for a fallBack solution.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2128	Notice:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2129	this is not a public interface; instead, it is used
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2130	internally by the Filename class, to try a fast copy
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2131	before doing things manually.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2132	Please use Filename recursiveCopyTo:"
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2133
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2134	^ false
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2135
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2136	"
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2137	OperatingSystem recursiveCopyDirectory:'.' to:'/tmp/foo'
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2138	OperatingSystem recursiveRemoveDirectory:'/tmp/foo'
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2139	"
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2140
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2141	"Modified: / 5.5.1999 / 13:29:16 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2142	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2143
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2144	recursiveCreateDirectory:dirName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2145	"create a directory - with all parent dirs if needed.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2146	Return true if successful, false otherwise. If false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2147	is returned, a partial created tree may be left,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2148	which is not cleaned-up here."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2149
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2150	self createDirectory:dirName.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2151	(self isDirectory:dirName) ifFalse:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2152	(self recursiveCreateDirectory:(dirName asFilename directoryName)) ifFalse:[^ false].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2153	^ self createDirectory:dirName
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2154	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2155	^ true
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	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2158	OperatingSystem recursiveCreateDirectory:'foo/bar/baz'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2159	OperatingSystem recursiveRemoveDirectory:'foo'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2160	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2161
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2162	"Modified: 7.3.1996 / 15:26:22 / cg"
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2165	recursiveRemoveDirectory:fullPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2166	"remove the directory named 'fullPathName' and all contained files/directories.
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2167	Return true if successful.
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2168	Here, false is returned and the caller should be prepared
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2169	for a fallBack solution.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2170	Notice:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2171	this is not a public interface; instead, it is used
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2172	internally by the Filename class, to try a fast remove
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2173	before doing things manually.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2174	Please use Filename recursiveRemoveDirectory:"
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2175
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2176	^ false
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2177
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2178	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2179	OperatingSystem recursiveCreateDirectory:'foo/bar/baz'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2180	OperatingSystem recursiveRemoveDirectory:'foo'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2181	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2182
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2183	"Modified: / 5.5.1999 / 13:30:11 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2184	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2185
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2186	removeDirectory:fullPathName
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2187	"remove the directory named 'fullPathName'.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2188	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	2189	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	2190	This is a lowLevel entry - use Filename protocol for compatibility."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2191
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2192	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2195	removeFile:fullPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2196	"remove the file named 'fullPathName'; return true if successful.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2197	This is a lowLevel entry - use Filename protocol for compatibility."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2198
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2199	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2202	renameFile:oldPath to:newPath
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2203	"rename the file 'oldPath' to 'newPath'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2204	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	2205	correct for the OS used - therefore, this should not be called
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2206	directlt. Instead, use Filename protocol to rename; this cares for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2207	any invalid names.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2208	Returns true if successful, false if not"
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	self subclassResponsibility
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	truncateFile:aPathName to:newSize
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2214	"change a files size return true on success, false on failure.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2215	This may not be supported on all architectures.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2216
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2217	This is a low-level entry - use Filename protocol."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2218
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2219	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2222	!AbstractOperatingSystem class methodsFor:'file access rights'!
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	accessMaskFor:aSymbol
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2225	"return the access bits mask for numbers as returned by
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2226	OperatingSystem>>accessModeOf:
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2227	and expected by OperatingSystem>>changeAccessModeOf:to:.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2228	Since these numbers are OS dependent, always use the mask
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2229	(never hardcode 8rxxx into your code)."
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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2232	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2233
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2234	accessModeOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2235	"return a number representing access rights rwxrwxrwx for owner,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2236	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	2237	Notice that the returned number is OS dependent - use the
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2238	modeMasks as returned by OperatingSystem>>accessMaskFor:"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2239
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2240	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2241	this could have been implemented as:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2242	(self infoOf:aPathName) at:#mode
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2243	but for huge directory searches the code below is faster
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2244	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2245
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2246	^ (self infoOf:aPathName) at:#mode
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2247
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2248	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2249	(OperatingSystem accessModeOf:'/') printStringRadix:8
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2250	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2251	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2252
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2253	changeAccessModeOf:aPathName to:modeBits
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2254	"change the access rights of aPathName to the OS dependent modeBits.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2255	You should construct this mask using accessMaskFor, to be OS
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2256	independent. Return true if changed,
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2257	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	2258
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2259	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2262	!AbstractOperatingSystem class methodsFor:'file locking'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2263
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2264	lockFD:aFileDescriptor shared:isSharedReadLock blocking:blockIfLocked
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2265	"set a lock on the file represented by aFileDescriptor.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2266	(such as returned by ExternalStream>>fileDescriptor).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2267	On some systems, only advisory locks are available -
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2268	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	2269	If they do not, they may still access the file
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2270	(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	2271	The isSharedReadLock argument (if true) specifies if multiple readers
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2272	are to be allowed - if false, they are not.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2273	On some systems, all locks are non-exclusive locks.
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	Returns true, if the lock was aquired, false otherwise.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2276
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2277	Notice, that not all OS's support these locks;
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2278	on some, this may simply be a no-op.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2279	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	2280	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	2281	argument."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2282
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2283	^ false
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2286	supportsFileLinks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2287	"return true, if the OS supports file links (hard links).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2288	Typically, only unix returns true here."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2289
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2290	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2291	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2292
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2293	supportsFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2294	"return true, if the OS supports file locking"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2295
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2296	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2297
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2298	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2299	OperatingSystem supportsFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2300	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2301	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2302
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2303	supportsNonBlockingFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2304	"return true, if the OS supports nonBlocking file locking
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2305	(i.e. with immediate return instead of waiting for the lock)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2306
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2307	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2308
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2309	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2310	OperatingSystem supportsNonBlockingFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2311	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2312	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2313
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2314	supportsSharedLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2315	"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	2316	file locking. Assume false here - redefined in concrete classes."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2317
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2318	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2319
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2320	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2321	OperatingSystem supportsNonBlockingFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2322	"
4147 1096115c96c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 4146 diff changeset	2323
1096115c96c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 4146 diff changeset	2324	"Modified: / 5.5.1999 / 01:08:03 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2325	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2326
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2327	supportsSymbolicLinks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2328	"return true, if the OS supports symbolic links on files/directories.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2329	Typically, only Unix returns true here"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2330
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2331	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2332	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2333
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2334	unlockFD:aFileDescriptor
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2335	"clear a file lock on the file represented by aFileDescriptor,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2336	which was previously aquired by #lockFD:.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2337	Return false, if the unlock failed
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2338	(which may happens when a wrong fd is passed,
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2339	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	2340	Notice, that not all OS's support file locks;
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2341	on some, this may simply be a no-op."
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2342
3826 ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	2343	^ false
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	2344
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	2345	"Modified: / 10.9.1998 / 17:54:15 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2346	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2347
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2348	!AbstractOperatingSystem class methodsFor:'file queries'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2349
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2350	caseSensitiveFilenames
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2351	"return true, if the OS has caseSensitive file naming.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2352	On MSDOS, this will return false;
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2353	on a real OS, we return true."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2354
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2355	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2356	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2357
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2358	compressPath:pathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2359	"return the pathName compressed - that is, remove all ..-entries
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2360	and . entries. This does not always (in case of symbolic links)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2361	return the true pathName and is therefore used as a fallback
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2362	if realPath and popen failed."
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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2365	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2366
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2367	directoryNameOf:aPath
5861 24ee164045bd Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 5857 diff changeset	2368	<resource:#obsolete>
24ee164045bd Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 5857 diff changeset	2369
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2370	self obsoleteMethodWarning:'use asFilename directoryName'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2371	^ aPath asFilename directoryName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2372	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2373
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2374	fileSeparator
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2375	"return the character used to separate names in a path.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2376	This character differs for MSDOS and other systems,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2377	(but those are currently not supported - so this is some
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2378	preparation for the future)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2379
3736 718513f3284e checkin from browser Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	2380	^ $/ "/ 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	2381	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2382
17807 06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	2383	getCurrentDirectory
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	2384	"get the current directory of the ST/X OS process"
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	2385
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	2386	^ self subclassResponsibility
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	2387	!
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	2388
4224 5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2389	getDiskInfoOf:aDirectoryPath
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2390	"return some disk info.
4224 5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2391	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	2392	not guaranteed to be consistent across architectures.
4226 429b13ce2028 * empty log message * Claus Gittinger <cg@exept.de> parents: 4224 diff changeset	2393	On unix and msdos, the information returned is (at least):
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2394	freeBytes
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2395	totalBytes
4224 5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2396	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	2397	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	2398	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	2399	"
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2400
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2401	^ nil
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2402
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2403	"
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2404	OperatingSystem getDiskInfoOf:'/'
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2405	OperatingSystem getDiskInfoOf:'.'
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2406	"
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2407
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2408	"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	2409	!
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2410
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2411	getDriveList
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2412	"return a list of volumes in the system.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2413	On unix, no such thing like a volume exists
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2414	- there, a syntetic list with root, home & current is returned.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2415	On MSDOS, a list of drive letters is (eventually) returned.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2416	On VMS, a list of volumes is (eventually) returned."
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	"/
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	2419	"/ default: return an array filled with
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2420	"/ root, home and current directories.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2421	"/
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2422	^ Array
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2423	with:'/'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2424	with:(self getHomeDirectory)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2425	with:(Filename currentDirectory pathName)
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	2426
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	2427	"Modified: / 5.5.1999 / 01:06:26 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2428	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2429
4852 ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2430	getMountedVolumes
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2431	"return info about mounted volumes.
4852 ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2432	The amount of information returned depends upon the OS, and is
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2433	not guaranteed to be consistent across architectures.
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2434	On unix, the information returned is (at least):
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2435	mountPoint - mount point
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2436	fileSystem - device or NFS-remotePath
4852 ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2437	"
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2438
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2439	^ #()
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2440
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2441	"
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2442	OperatingSystem getMountedVolumes
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2443	"
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2444
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2445	"Modified: / 22.5.1999 / 00:36:06 / cg"
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2446	!
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2447
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2448	getNullDevice
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2449	"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	2450
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2451	^ nil
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2452
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2453	"Created: / 19.5.1999 / 12:24:59 / cg"
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2454	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2455
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2456	idOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2457	"return the fileNumber (i.e. inode number) of a file.
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	Not all operatingSystems may provide this - on those that do not,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2460	some dummy id will be returned.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2461	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	2462	physically identical, even if found in different directories
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2463	(i.e. if they are hardLinked)."
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	\|i id\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2466
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2467	id := self primIdOf:aPathName.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2468	id notNil ifTrue:[^ id].
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	i := self infoOf:aPathName.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2471	i notNil ifTrue:[^ i id].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2472	^ nil.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2473
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2474	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2475	OperatingSystem idOf:'/'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2476	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2477	!
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	infoOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2480	"return some object filled with info for the file 'aPathName';
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2481	the info (for which corresponding access methods are understood by
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2482	the returned object) is:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2483	type - a symbol giving the files type
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2484	mode - numeric access mode
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2485	uid - owners user id
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2486	gid - owners group id
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2487	size - files size
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2488	id - files number (i.e. inode number)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2489	accessed - last access time (as Timestamp)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2490	modified - last modification time (as Timestamp)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2491	statusChanged - last status change time (as Timestamp)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2492	alternativeName - (windows only: the MSDOS name of the file)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2493
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2494	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	2495	all of the information.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2496	Return nil if such a file does not exist.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2497	For symbolic links (if supported by the OS),
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2498	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	2499	use #linkInfoOf: to get info about the link itself.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2500	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2501
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2502	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2503	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2504
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2505	isDirectory:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2506	"return true, if 'aPathName' is a valid directory path name.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2507	(i.e. exists and is a directory).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2508	This also returns true for symbolic links pointing to a directory;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2509	if you need to check for this, use #linkInfo:."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2510
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2511	^ (self infoOf:aPathName) type == #directory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2512	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2513
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2514	isExecutable:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2515	"return true, if the given file is executable.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2516	For symbolic links, the pointed-to-file is checked."
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	self subclassResponsibility
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
6772 6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	2521	isMountPoint:aPathName
6781 97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2522	"return true, if the given file is a mounted fileSystems mountPoint"
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2523
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2524	^ self mountPoints contains:[:mountInfo \| mountInfo mountPointPath = aPathName].
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2525
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2526	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2527	OperatingSystem isMountPoint:'/phys/qnx'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2528	OperatingSystem isMountPoint:'/proc'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2529	OperatingSystem isMountPoint:'/'
6781 97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2530	"
6772 6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	2531	!
6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	2532
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2533	isReadable:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2534	"return true, if the file/dir 'aPathName' is readable.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2535	For symbolic links, the pointed-to-file is checked."
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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2538	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2539
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2540	isSymbolicLink:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2541	"return true, if the given file is a symbolic link"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2542
8474 f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2543	\|info\|
f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2544
f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2545	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	2546	^ 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	2547
f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2548	"
f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2549	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	2550	OperatingSystem isSymbolicLink:'/usr/tmp'
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2551	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2552	!
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	isValidPath:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2555	"return true, if 'aPathName' is a valid path name
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2556	(i.e. the file or directory exists)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2557
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2558	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2559	!
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	isWritable:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2562	"return true, if the given file is writable.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2563	For symbolic links, the pointed-to-file is checked."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2564
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2565	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2566	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2567
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2568	linkInfoOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2569	"return a dictionary filled with info for the file 'aPathName',
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2570	IFF aPathName is a symbolic link.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2571	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	2572	(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	2573
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2574	The contents of the dictionary gives info about the link itself,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2575	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	2576	in case of a symbolic link."
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2577
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2578	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2579	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2580
5031 50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2581	mimeTypeForFilename:aFilename
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2582	"given a filename, return a corresponding mimeType.
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2583	This is placed here, to allow for OS-specific configuration
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2584	files and/or the win32 registry to be consultet.
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2585	Returns nil if no mimeType for the given name is known."
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2586
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2587	^ nil
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2588	!
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2589
4240 e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2590	mimeTypeForSuffix:aFileSuffix
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2591	"given a file suffix, return a corresponding mimeType.
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2592	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	2593	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	2594	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	2595
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2596	^ nil
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2597	!
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2598
6781 97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2599	mountPoints
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2600	"return a collection of mountPoints (aka. topDirectories of mounted file systems)"
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2601
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2602	^ #() "/ dont know here
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2603	!
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2604
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2605	parentDirectoryName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2606	"return the name used to refer to parent directories.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2607	In MSDOS, Unix and other systems this is '..', but maybe different
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2608	for other systems.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2609	(but those are currently not supported - so this is some
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2610	preparation for the future)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2611
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2612	^ '..'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2613	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2614
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2615	pathNameOf:pathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2616	"return the pathName of the argument, aPathString,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2617	- thats the full pathname of the directory, starting at '/'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2618	This method needs the path to be valid
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2619	(i.e. all directories must exist, be readable and executable).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2620	Notice: if symbolic links are involved, the result may look different
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2621	from what you expect."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2622
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2623	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2624	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2625
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2626	primIdOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2627	"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	2628
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2629	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2630	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2631
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2632	primPathNameOf:pathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2633	"return the pathName of the argument, aPathString,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2634	- thats the full pathname of the directory, starting at '/'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2635	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	2636	realPath library function.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2637	Notice: if symbolic links are involved, the result may look different
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2638	from what you expect."
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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2641	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2642
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2643	timeOfLastAccess:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2644	"return the time, when the file was last accessed.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2645	For nonexistent files, nil is returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2646
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2647	^ (self infoOf:aPathName) accessTime
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2648	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2649
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2650	timeOfLastChange:aPathName
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2651	"return the time, when the file was last changed.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2652	For nonexistent files, nil is returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2653
6793 0d3e3fd18a70 modified -> modificationTime Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	2654	^ (self infoOf:aPathName) modificationTime
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2655	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2656
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2657	typeOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2658	"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	2659	nil is returned.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2660	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	2661
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2662	^ (self infoOf:aPathName) type
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2663	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2664
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2665	volumeNameOf:aPathString
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2666	"return the volumeName of the argument, aPath
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2667	- thats the name of the volume where aPath is.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2668	Not all OperatingSystems support/use volumes; on unix,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2669	this always returns an empty string."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2670
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	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2673
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2674	!AbstractOperatingSystem class methodsFor:'interprocess communication'!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2675
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2676	createCOMFileForVMSCommand:aCommandString in:aDirectory
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2677	"this is only implemented/required for VMS systems, to execute commands"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2678
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2679	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2680
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2681	"Created: / 19.5.1999 / 12:16:31 / cg"
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2682	"Modified: / 19.5.1999 / 14:22:05 / cg"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2683	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2684
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2685	createMailBox
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2686	"this is only implemented/required for VMS systems, to emulate pipes"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2687
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2688	^ UnsupportedOperationSignal raise
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2689
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2690	"Created: / 19.5.1999 / 12:14:56 / cg"
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2691	"Modified: / 19.5.1999 / 14:22:22 / cg"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2692	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2693
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2694	destroyMailBox:mbx
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2695	"this is only implemented/required for VMS systems, to emulate pipes"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2696
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2697	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2698
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2699	"Created: / 19.5.1999 / 12:16:43 / cg"
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2700	"Modified: / 19.5.1999 / 14:22:33 / cg"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2701	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2702
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2703	mailBoxNameOf:mbx
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2704	"this is only implemented/required for VMS systems, to emulate pipes"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2705
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2706	^ UnsupportedOperationSignal raise
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2707
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2708	"Created: / 19.5.1999 / 12:14:56 / cg"
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2709	"Modified: / 19.5.1999 / 14:22:40 / cg"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2710	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2711
8967 30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2712	makeBidirectionalPipe
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2713	"answer an array with 2 filedescriptors representing
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2714	the two ends of a bidirectional pipe - see also #makePipe"
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2715
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2716	^ self subclassResponsibility
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2717	!
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2718
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2719	makePipe
8967 30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2720	"answer an array with 2 filedescriptors representing
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2721	the two ends of a unidirectional pipe- see also #makeSocketPair"
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2722
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2723	^ self subclassResponsibility
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2724	!
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2725
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2726	shutdownBidirectionalPipeOutput:fileDescriptor
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2727	"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	2728	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	2729
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2730	^ self subclassResponsibility
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2731	! !
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2732
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2733	!AbstractOperatingSystem class methodsFor:'interrupts & signals'!
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	blockInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2736	"disable interrupt processing - if disabled, incoming
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2737	interrupts will be registered and handled as soon as
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2738	interrupts are reenabled by OperatingSystemclass>>unblockInterrupts.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2739	Returns the previous blocking status i.e. true if interrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2740	where already blocked. You need this information for proper
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2741	unblocking, in case of nested block/unblock calls."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2742
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2743	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2744	RETURN ( __BLOCKINTERRUPTS() );
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2745	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2746	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2747
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2748	defaultSignal:signalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2749	"revert to the default action on arrival of a (Unix-)signal.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2750	Dont confuse Unix signals with smalltalk signals.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2751	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	2752	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	2753	default for SIGQUIT (^ \) is to dump core.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2754	Also, NOTICE that signal numbers are not portable between unix
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2755	systems - use OperatingSystem sigXXX to get the numeric value for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2756	a signal."
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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2759	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2760
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2761	disableChildSignalInterrupts
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2762	"disable childSignal interrupts
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2763	(SIGCHLD, if the architecture supports it).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2764	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	2765	SIGCHLD breaks wait & co"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2766
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2767	^ self defaultSignal:(self sigCHLD)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2768
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2769	"Created: 5.1.1996 / 15:45:28 / stefan"
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2772	disableIOInterruptsOn:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2773	"turn off IO interrupts for a filedescriptor"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2774
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2775	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2778	disableSignal:signalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2779	"disable (Unix-) signal processing for signalNumber.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2780	Dont confuse Unix signals with smalltalk signals.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2781	WARNING: for some signals, it is no good idea to disable
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2782	them; for example, disabling the SIGINT signal turns off ^C
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2783	handling.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2784	Also, NOTICE that signal numbers are not portable between unix
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2785	systems - use OperatingSystem sigXXX to get the numeric value for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2786	a signal.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2787	Use only for fully debugged stand alone applications."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2788
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2789	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2790	!
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	disableTimer
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2793	"disable timer interrupts.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2794	WARNING:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2795	the system will not operate correctly with timer interrupts
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2796	disabled, because no scheduling or timeouts are possible."
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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2799	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2800
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2801	disableUserInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2802	"disable userInterrupt processing;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2803	when disabled, no ^C processing takes place.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2804	WARNING:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2805	If at all, use this only for debugged stand-alone applications, since
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2806	no exit to the debugger is possible with user interrupts disabled.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2807	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	2808
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2809	self disableSignal:(self sigBREAK).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2810	self disableSignal:(self sigINT).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2811	!
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	enableAbortInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2814	"enable abort signalhandling, and make it a regular signalInterrupt.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2815	(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	2816	end-user applications ...).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2817	This is especially useful, if linked-in C-libraries call abort() ..."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2818
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2819	self enableSignal:(self sigABRT)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2820	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2821
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2822	enableChildSignalInterrupts
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2823	"enable childSignal interrupts
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2824	(SIGCHLD, if the architecture supports it).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2825	After enabling, these signals will send the message
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2826	'childSignalInterrupt' to the ChildSignalInterruptHandler object."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2827
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2828	self enableSignal:(self sigCHLD)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2829	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2830
6389 8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2831	enableCrashSignalInterrupts
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2832	"enable powerFail signal exception interrupts (sigPWR).
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2833	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	2834
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2835	self enableSignal:(self sigPWR).
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2836	self enableSignal:(self sigHUP)
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2837	!
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2838
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2839	enableFpExceptionInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2840	"enable floating point exception interrupts (if the
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2841	architecture supports it).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2842	After enabling, fpu-exceptions will send the message
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2843	'fpuExceptionInterrupt' to the FPUExceptionInterruptHandler object."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2844
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2845	self enableSignal:(self sigFP)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2846	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2847
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2848	enableHardSignalInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2849	"enable hard signal exception interrupts (trap, buserror & segm. violation).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2850	After enabling, these exceptions will send the message
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2851	'signalInterrupt' to the SignalInterruptHandler object."
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	"/ leads to trouble ...
6389 8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2854	"/ self enableSignal:(self sigPIPE).
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2855	"/ ... 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	2856
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2857	self disableSignal:(self sigPIPE).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2858
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2859	self enableSignal:(self sigILL).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2860	self enableSignal:(self sigBUS).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2861	self enableSignal:(self sigSEGV).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2862	self enableSignal:(self sigFP).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2863	self enableSignal:(self sigEMT).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2864	!
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	enableIOInterruptsOn:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2867	"turn on IO interrupts for a filedescriptor"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2868
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2869	self subclassResonsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2872	enableQuitInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2873	"enable quitInterrupt (usually ^\) handling, and make it a userInterrupt.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2874	(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	2875	end-user applications ...)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2876
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2877	self enableSignal:(self sigQUIT)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2878	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2879
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2880	enableSignal:signalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2881	"enable (Unix-)signal processing for signalNumber.
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2882	Don't confuse Unix signals with smalltalk signals.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2883	The signal will be delivered to one of the standard handlers
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2884	(SIGINT, SIGQUIT, etc) or to a general handler, which
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2885	sends #signalInterrupt:.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2886
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2887	NOTICE that signal numbers are not portable between unix
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2888	systems - use OperatingSystem sigXXX to get the numeric value for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2889	a signal."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2890
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2891	self subclassResponsibility
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2892	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2893
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2894	enableTimer:milliSeconds
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2895	"setup for a timerInterrupt, to be signalled after some (real) time."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2896
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2897	self subclassResonsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2898	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2899
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2900	enableUserInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2901	"enable userInterrupt (^C) handling;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2902	when enabled, ^C in the terminal window will send the message
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2903	'userInterrupt' to the UserInterruptHandler object."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2904
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2905	self enableSignal:(self sigINT).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2906	self enableSignal:(self sigBREAK).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2907	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2908
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2909	interruptPending
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2910	"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	2911	invalid if interrupts are not currently blocked, since otherwise
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2912	the interrupt is usually already handled before arriving here,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2913	or may be served while returning from here."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2914
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2915	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2916	extern OBJ __INTERRUPTPENDING();
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	RETURN ( __INTERRUPTPENDING() );
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2919	%}
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2922	interruptsBlocked
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2923	"return true, if interrupt handling is currently disabled;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2924	false otherwise."
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	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2927	extern OBJ __INTERRUPTS_BLOCKED();
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2928
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2929	RETURN ( __INTERRUPTS_BLOCKED() );
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2930	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2931	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2932
6536 bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2933	isFatalSignal:aNumber
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2934	"return true if a signal with number aNumber is a fatal signal,
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2935	i.e. some severe internal error occured"
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2936
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2937	^ self subclassResponsibility
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2938	!
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2939
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2940	killProcess:processId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2941	"kill an OS process.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2942	The process has a no chance to do some cleanup.
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	WARNING: in order to avoid zombie processes (on unix),
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2945	you may have to fetch the processes exitstatus with
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2946	OperatingSystem>>getStatusOfProcess:aProcessId."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2947
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2948	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2949
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2950	"Modified: / 10.6.1998 / 12:00:07 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2951	!
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	killProcessGroup:processGroupId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2954	"kill an OS process group.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2955	The process has NO chance to do some cleanup.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2956
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2957	WARNING: in order to avoid zombie processes (on unix),
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2958	you may have to fetch the processes exitstatus with
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2959	OperatingSystem>>getStatusOfProcess:aProcessId."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2960
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2961	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2962
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2963	"Created: / 10.6.1998 / 12:00:26 / cg"
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	nameForSignal:aSignalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2967	"for a given Unix signalnumber, return a descriptive string"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2968
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2969	aSignalNumber == self sigHUP ifTrue:[^ 'hangup'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2970	aSignalNumber == self sigINT ifTrue:[^ 'interrupt'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2971	aSignalNumber == self sigKILL ifTrue:[^ 'kill'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2972	aSignalNumber == self sigQUIT ifTrue:[^ 'quit'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2973	aSignalNumber == self sigILL ifTrue:[^ 'illegal instruction'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2974	aSignalNumber == self sigTRAP ifTrue:[^ 'trap'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2975	aSignalNumber == self sigABRT ifTrue:[^ 'abort'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2976	aSignalNumber == self sigIOT ifTrue:[^ 'iot trap'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2977	aSignalNumber == self sigEMT ifTrue:[^ 'emt trap'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2978	aSignalNumber == self sigFP ifTrue:[^ 'fp exception'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2979	aSignalNumber == self sigBUS ifTrue:[^ 'bus error'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2980	aSignalNumber == self sigSEGV ifTrue:[^ 'segmentation violation'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2981	aSignalNumber == self sigSYS ifTrue:[^ 'bad system call'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2982	aSignalNumber == self sigPIPE ifTrue:[^ 'broken pipe'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2983	aSignalNumber == self sigALRM ifTrue:[^ 'alarm timer'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2984	aSignalNumber == self sigTERM ifTrue:[^ 'termination'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2985	aSignalNumber == self sigSTOP ifTrue:[^ 'stop'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2986	aSignalNumber == self sigTSTP ifTrue:[^ 'tty stop'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2987	aSignalNumber == self sigCONT ifTrue:[^ 'continue'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2988	aSignalNumber == self sigCHLD ifTrue:[^ 'child death'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2989	aSignalNumber == self sigTTIN ifTrue:[^ 'background tty input'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2990	aSignalNumber == self sigTTOU ifTrue:[^ 'background tty output'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2991	aSignalNumber == self sigIO ifTrue:[^ 'io available'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2992	aSignalNumber == self sigXCPU ifTrue:[^ 'cpu time expired'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2993	aSignalNumber == self sigXFSZ ifTrue:[^ 'file size limit'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2994	aSignalNumber == self sigVTALRM ifTrue:[^ 'virtual alarm timer'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2995	aSignalNumber == self sigPROF ifTrue:[^ 'profiling timer'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2996	aSignalNumber == self sigWINCH ifTrue:[^ 'winsize changed'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2997	aSignalNumber == self sigLOST ifTrue:[^ 'resource lost'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2998	aSignalNumber == self sigUSR1 ifTrue:[^ 'user signal 1'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2999	aSignalNumber == self sigUSR2 ifTrue:[^ 'user signal 2'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3000	aSignalNumber == self sigMSG ifTrue:[^ 'HFT message'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3001	aSignalNumber == self sigPWR ifTrue:[^ 'power-fail'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3002	aSignalNumber == self sigPRE ifTrue:[^ 'programming exception'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3003	aSignalNumber == self sigGRANT ifTrue:[^ 'HFT access wanted'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3004	aSignalNumber == self sigRETRACT ifTrue:[^ 'HFT access relinquish'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3005	aSignalNumber == self sigSOUND ifTrue:[^ 'HFT sound complete'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3006	aSignalNumber == self sigDANGER ifTrue:[^ 'low on paging space'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3007
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3008	"notice: many systems map SIGPOLL and/or SIGUSR onto SIGIO
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3009	therefore, keep SIGIO always above the two below"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3010	aSignalNumber == self sigPOLL ifTrue:[^ 'io available'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3011	aSignalNumber == self sigURG ifTrue:[^ 'urgent'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3012
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3013	^ 'unknown signal'
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	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3016	OperatingSystem nameForSignal:9
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3017	OperatingSystem nameForSignal:(OperatingSystem sigPOLL)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3018	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3019	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3020
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3021	operatingSystemSignal:signalNumber
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3022	"return the signal to be raised when an
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3023	operatingSystem-signal occurs, or nil"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3024
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3025	OSSignals notNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3026	^ OSSignals at:signalNumber ifAbsent:[nil]
3576 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	^ nil
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3029	!
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	operatingSystemSignal:signalNumber install:aSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3032	"install a signal to be raised when an operatingSystem-signal occurs"
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	OSSignals isNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3035	OSSignals := Array new:32
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3036	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3037	OSSignals at:signalNumber put:aSignal
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3040	sendSignal:signalNumber to:processId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3041	"send a unix signal to some process (maybe myself).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3042	Returns false if any error occurred, true otherwise.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3043
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	3044	Do not confuse UNIX signals with Smalltalk-Signals."
3576 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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3047	!
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	startSpyTimer
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3050	"trigger a spyInterrupt, to be signalled after some short (virtual) time.
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	3051	Return true, if the spy-timerInterrupt was enabled.
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	3052	This was used by the old MessageTally for profiling.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3053	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	3054	(which is of course less correct).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3055	OBSOLETE: the new messageTally runs as a high prio process, not using
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3056	spy interrupts."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3057
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	3058	^ false
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3059	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3060
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3061	stopSpyTimer
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3062	"stop spy timing - disable spy timer.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3063	OBSOLETE: the new messageTally runs as a high prio process, not using
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3064	spy interrupts."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3065
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	3066	^ false
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3067	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3068
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3069	terminateProcess:processId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3070	"terminate a unix process.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3071	The process has a chance to do some cleanup.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3072
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3073	WARNING: in order to avoid zombie processes (on unix),
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3074	you may have to fetch the processes exitstatus with
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3075	OperatingSystem>>getStatusOfProcess:aProcessId."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3076
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3077	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3078	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3079
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3080	terminateProcessGroup:processGroupId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3081	"terminate a unix process group.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3082	The process has a chance to do some cleanup.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3083
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3084	WARNING: in order to avoid zombie processes (on unix),
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3085	you may have to fetch the processes exitstatus with
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3086	OperatingSystem>>getStatusOfProcess:aProcessId."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3087
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3088	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3089	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3090
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3091	unblockInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3092	"enable interrupt processing - if any interrupts are pending,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3093	these will be handled immediately.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3094	When unblocking interrupts, take care of nested block/unblock
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3095	calls - you must only unblock after a blockcall if they where
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3096	really not blocked before. See OperatingSystemclass>>blockInterrupts."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3097	%{
8505 4456ffd20005 #unblockInterrupts returns the prvious blocking state Stefan Vogel <sv@exept.de> parents: 8497 diff changeset	3098	RETURN(__UNBLOCKINTERRUPTS());
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3099	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3100	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3101
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3102	!AbstractOperatingSystem class methodsFor:'misc'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3103
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3104	closePid:pid
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3105	"free pid resource"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3106
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3107	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3108	!
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	exit
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3111	"shutdown smalltalk immediately - this method does not return.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3112	Return 'good'-status (0) to the parent unix process."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3113
5429 f4a52365fc97 checkin from browser Claus Gittinger <cg@exept.de> parents: 5407 diff changeset	3114	self exit:0.
f4a52365fc97 checkin from browser Claus Gittinger <cg@exept.de> parents: 5407 diff changeset	3115
8804 b7eefb374b37 spelling in comments Stefan Vogel <sv@exept.de> parents: 8801 diff changeset	3116	"OperatingSystem exit - don't evaluate this"
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3119	exit:exitCode
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3120	"shutdown smalltalk immediately -
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3121	returning an exit-code to the parent unix process."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3122
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3123	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3124	int code = 1;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3125
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3126	if (__isSmallInteger(exitCode)) {
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3127	code = __intVal(exitCode);
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3128	}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3129	__mainExit(code);
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3130	%}
8804 b7eefb374b37 spelling in comments Stefan Vogel <sv@exept.de> parents: 8801 diff changeset	3131	"OperatingSystem exit:1 - don't evaluate this"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3132	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3133
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3134	exitWithCoreDump
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3135	"shutdown smalltalk immediately - dumping core.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3136	This always returns 'bad'-status to the parent unix process.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3137	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	3138	manually remove any tempfiles.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3139	Use this only for debugging ST/X itself"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3140
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3141	%{ /* NOCONTEXT */
10293 9cd817cd6bc9 Declare abort() Stefan Vogel <sv@exept.de> parents: 10097 diff changeset	3142	extern void abort();
9cd817cd6bc9 Declare abort() Stefan Vogel <sv@exept.de> parents: 10097 diff changeset	3143
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3144	abort();
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3145	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3146	"
8804 b7eefb374b37 spelling in comments Stefan Vogel <sv@exept.de> parents: 8801 diff changeset	3147	OperatingSystem exitWithCoreDump - don't evaluate this
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3148	"
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3149	!
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3150
17834 04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	3151	getAllProcesses
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	3152	"get a list of the running OS processes.
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	3153	Some OperatingSystems (Windows) support this.
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	3154	The default is to answer an empty list."
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	3155
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	3156	^ #().
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	3157	!
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	3158
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3159	getVMSSymbol:aSymbolString
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3160	"get a symbols value, or nil if there is none"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3161
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3162	^ nil
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3163
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3164	"Created: / 5.6.1998 / 19:02:50 / cg"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3165	"Modified: / 5.6.1998 / 19:03:15 / cg"
11768 23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3166	!
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3167
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3168	playSound:fileName
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3169	"unsupported - simply stay silent"
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3170
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3171	^ self.
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3172	!
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3173
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3174	playSound:fileName mode:modeInteger
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3175	"unsupported - simply stay silent"
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3176
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3177	^ self.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3178	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3179
7289 ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3180	!AbstractOperatingSystem class methodsFor:'obsolete'!
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3181
8236 ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3182	baseNameOf:aPath
ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3183	<resource:#obsolete>
ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3184
ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3185	self obsoleteMethodWarning:'use asFilename baseName'.
ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3186	^ aPath asFilename baseName
7289 ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3187	! !
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3188
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3189	!AbstractOperatingSystem class methodsFor:'os queries'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3190
3806 37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3191	getCCDefine
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3192	"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	3193	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	3194	For example, on linux, this is '__GNUC__';
3806 37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3195	on windows, this is either '__MSC__' or '__BORLANDC__'"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3196
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3197	%{ /* NOCONTEXT */
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3198	#ifndef CC_DEFINE
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3199	# ifdef WIN32
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3200	# ifdef __BORLANDC__
3829 4690e0bc7ce7 added isWINDOWSNT query Claus Gittinger <cg@exept.de> parents: 3826 diff changeset	3201	# define CC_DEFINE "__BORLANDC__"
3806 37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3202	# else
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3203	# define CC_DEFINE "__MSC__"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3204	# endif
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3205	# else
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3206	# ifdef __GNUC__
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3207	# define CC_DEFINE "__GNUC__"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3208	# else
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3209	# define CC_DEFINE "__CC__"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3210	# endif
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3211	# endif
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3212	#endif
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3213	RETURN ( __MKSTRING(CC_DEFINE));
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3214	%}
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3215	"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3216	OperatingSystem getCCDefine
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3217	"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3218	!
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3219
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3220	getCPUDefine
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3221	"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	3222	compiled, and which should be passed down when compiling methods.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3223	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	3224	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	3225	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	3226
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3227	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3228	# ifndef CPU_DEFINE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3229	# define CPU_DEFINE "-DunknownCPU"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3230	# endif
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	RETURN ( __MKSTRING(CPU_DEFINE));
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3233	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3234	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3235	OperatingSystem getCPUDefine
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3236	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3237	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3238
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3239	getCPUType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3240	"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	3241	Here, the machine for which ST/X was compiled is returned
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3242	(i.e. for all x86's, the same i386 is returned).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3243	This may normally not be of any interest to you ..."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3244
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3245	\|cpu\|
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3246
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3247	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3248
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3249	# ifdef __vax__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3250	# define CPU_SYMBOL @symbol(vax)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3251	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3252	# ifdef __mips__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3253	# define CPU_SYMBOL @symbol(mips)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3254	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3255	# ifdef __i386__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3256	# define CPU_SYMBOL @symbol(i386)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3257	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3258	# ifdef __i860__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3259	# define CPU_SYMBOL @symbol(i860)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3260	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3261	# ifdef __ns32k__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3262	# define CPU_SYMBOL @symbol(ns32k)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3263	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3264	# ifdef __mc68k__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3265	# define CPU_SYMBOL @symbol(mc68k)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3266	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3267	# ifdef __mc88k__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3268	# define CPU_SYMBOL @symbol(mc88k)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3269	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3270	# ifdef __sparc__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3271	# define CPU_SYMBOL @symbol(sparc)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3272	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3273	# ifdef __hppa__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3274	# define CPU_SYMBOL @symbol(hppa)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3275	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3276	# ifdef __rs6000__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3277	# define CPU_SYMBOL @symbol(rs6000)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3278	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3279	# ifdef __powerPC__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3280	# define CPU_SYMBOL @symbol(powerPC)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3281	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3282	# ifdef __alpha__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3283	# define CPU_SYMBOL @symbol(alpha)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3284	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3285	# ifdef __transputer__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3286	# define CPU_SYMBOL @symbol(transputer)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3287	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3288	# ifdef __ibm370__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3289	# define CPU_SYMBOL @symbol(ibm370)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3290	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3291	# ifdef __s390__
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3292	# define CPU_SYMBOL @symbol(s390)
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3293	# endif
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3294	# ifdef __arm__
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3295	# define CPU_SYMBOL @symbol(arm)
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3296	# endif
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3297	# ifdef __ia64__
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3298	# define CPU_SYMBOL @symbol(ia64)
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3299	# endif
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3300
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3301	# ifndef CPU_SYMBOL
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3302	# define CPU_SYMBOL @symbol(unknown)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3303	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3304
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3305	cpu = CPU_SYMBOL;
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3306	# undef CPU_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3307	%}.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3308	^ cpu
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3309
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3310	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3311	OperatingSystem getCPUType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3312	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3313
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3314	"examples: are we running on a ss-10/solaris ?"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3315	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3316	(OperatingSystem getCPUType = 'sparc')
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3317	and:[OperatingSystem getOSType = 'solaris']
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3318	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3319
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3320	"or on a pc/solaris ?"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3321	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3322	(OperatingSystem getCPUType = 'i386')
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3323	and:[OperatingSystem getOSType = 'solaris']
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3324	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3325	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3326
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3327	getDomainName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3328	"return the domain this host is in.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3329	Notice:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3330	not all systems support this; on some, 'unknown' is returned."
3576 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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3333	!
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	getEnvironment:aStringOrSymbol
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3336	"get an environment string"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3337
5407 d6729266a95b * empty log message * Claus Gittinger <cg@exept.de> parents: 5172 diff changeset	3338	^ self subclassResponsibility
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3339	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3340
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3341	getHostName
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3342	"return the hostname we are running on -
17795 569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	3343	a fully qalified hostname at best.
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	3344
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3345	Notice:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3346	not all systems support this; on some, 'unknown' is returned."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3347
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3348	self subclassResponsibility
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
7778 cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3351	getLanguage
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3352	"get the LANGUAGE setting (example: de_DE.iso8859-15@euro)"
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3353
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3354	^ self getEnvironment:'LANG'.
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3355	!
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3356
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3357	getLocaleInfo
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3358	"return a dictionary filled with values from the locale information;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3359	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	3360	Possible fields are:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3361	decimalPoint <String>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3362
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3363	thousandsSep <String>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3364
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3365	internationalCurrencySymbol <String>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3366
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3367	currencySymbol <String>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3368
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3369	monetaryDecimalPoint <String>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3370
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3371	monetaryThousandsSeparator <String>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3372
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3373	positiveSign <String>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3374
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3375	negativeSign <String>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3376
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3377	internationalFractionalDigits <Integer>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3378
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3379	fractionalDigits <Integer>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3380
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3381	positiveSignPrecedesCurrencySymbol <Boolean>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3382
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3383	negativeSignPrecedesCurrencySymbol <Boolean>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3384
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3385	positiveSignSeparatedBySpaceFromCurrencySymbol <Boolean>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3386
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3387	negativeSignSeparatedBySpaceFromCurrencySymbol <Boolean>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3388
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3389	positiveSignPosition <Symbol>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3390	one of: #parenthesesAround,
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3391	#signPrecedes,
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3392	#signSuceeds,
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3393	#signPrecedesCurrencySymbol,
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3394	#signSuceedsCurrencySymbol
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3395
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3396	negativeSignPosition <like above>
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3397
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3398	it is up to the application to deal with undefined values.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3399
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3400	Notice, that (for now), the system does not use this information;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3401	it should be used by applications as required.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3402	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3403
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3404	self subclassResponsibility
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
8997 e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3407	getNetworkAddresses
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3408	"return a dictionary with key:name of interface and
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3409	value:the network address for each interface"
8997 e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3410
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3411	self subclassResponsibility
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3412	!
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3413
7289 ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3414	getNetworkMACAddresses
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3415	"return a dictionary with key:name of interface and
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3416	value:the MAC adress for each interface"
6363 4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3417
4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3418	self subclassResponsibility
4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3419	!
4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3420
7289 ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3421	getNetworkMACAddressesForIf:ifName
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3422	"return the MAC adress for interface ifName"
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3423
8641 1b45626f0e50 noMacAddress fallBack (NT4.0) Claus Gittinger <cg@exept.de> parents: 8587 diff changeset	3424	self getNetworkMACAddresses at:ifName ifAbsent:nil
1b45626f0e50 noMacAddress fallBack (NT4.0) Claus Gittinger <cg@exept.de> parents: 8587 diff changeset	3425
1b45626f0e50 noMacAddress fallBack (NT4.0) Claus Gittinger <cg@exept.de> parents: 8587 diff changeset	3426	"Modified: / 17-11-2004 / 01:43:35 / cg"
6363 4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3427	!
4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3428
10684 b5ca16223480 * empty log message * sr parents: 10545 diff changeset	3429	getNumberOfProcessors
17746 2c33aabf3828 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17742 diff changeset	3430	"answer the number of physical processors in the system"
2c33aabf3828 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17742 diff changeset	3431
10684 b5ca16223480 * empty log message * sr parents: 10545 diff changeset	3432	self subclassResponsibility
b5ca16223480 * empty log message * sr parents: 10545 diff changeset	3433	!
b5ca16223480 * empty log message * sr parents: 10545 diff changeset	3434
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3435	getOSDefine
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3436	"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	3437	compiled, and which should be passed down when compiling methods.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3438	For example, on linux, this is '-DLINUX'."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3439
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3440	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3441
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3442	#ifndef OS_DEFINE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3443	# ifdef WIN32
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3444	# define OS_DEFINE "-DWIN32"
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3447	# ifndef OS_DEFINE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3448	# define OS_DEFINE "-DunknownOS"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3449	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3450	#endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3451
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3452	RETURN ( __MKSTRING(OS_DEFINE));
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3453
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3454	#undef OS_DEFINE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3455	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3456	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3457	OperatingSystem getOSDefine
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3458	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3459	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3460
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3461	getOSType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3462	"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	3463	This can be used to adapt programs to certain environment
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3464	differences (for example: mail-lock strategy ...)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3465
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3466	\|os\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3467
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3468	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3469
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3470	# ifdef MSDOS
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3471	# define OS_SYMBOL @symbol(msdos)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3472	# endif
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	# ifdef WIN32
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3475	# define OS_SYMBOL @symbol(win32)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3476	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3477
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3478	# ifdef MSWINDOWS
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3479	# define OS_SYMBOL @symbol(mswindows)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3480	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3481
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3482	# ifdef VMS
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3483	# ifdef __openVMS__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3484	# define OS_SYMBOL @symbol(openVMS)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3485	# else
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3486	# define OS_SYMBOL @symbol(VMS)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3487	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3488	# endif
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	# ifdef MVS /* ;-) */
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3491	# define OS_SYMBOL @symbol(mvs)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3492	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3493
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3494	# ifdef OS2
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3495	# define OS_SYMBOL @symbol(os2)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3496	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3497
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3498	# ifdef sinix
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3499	# define OS_SYMBOL @symbol(sinix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3500	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3501
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3502	# ifdef ultrix
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3503	# define OS_SYMBOL @symbol(ultrix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3504	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3505
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3506	# ifdef sco
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3507	# define OS_SYMBOL @symbol(sco)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3508	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3509
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3510	# ifdef hpux
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3511	# define OS_SYMBOL @symbol(hpux)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3512	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3513
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3514	# ifdef LINUX
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3515	# define OS_SYMBOL @symbol(linux)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3516	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3517
6651 4bc133e27717 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	3518	# ifdef FREEBSD
4bc133e27717 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	3519	# define OS_SYMBOL @symbol(freeBSD)
4bc133e27717 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	3520	# endif
4bc133e27717 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	3521
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3522	# ifdef sunos
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3523	# define OS_SYMBOL @symbol(sunos)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3524	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3525
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3526	# ifdef solaris
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3527	# define OS_SYMBOL @symbol(solaris)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3528	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3529
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3530	# ifdef IRIS
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3531	# define OS_SYMBOL @symbol(irix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3532	# endif
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	# ifdef aix
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3535	# define OS_SYMBOL @symbol(aix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3536	# endif
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	# ifdef realIX
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3539	# define OS_SYMBOL @symbol(realIX)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3540	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3541
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3542	# ifdef __osf__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3543	# define OS_SYMBOL @symbol(osf)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3544	# endif
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	/*
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3547	* no concrete info; become somewhat vague ...
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3548	*/
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3549	# ifndef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3550	# ifdef MACH
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3551	# define OS_SYMBOL @symbol(mach)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3552	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3553	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3554
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3555	# ifndef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3556	# ifdef BSD
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3557	# define OS_SYMBOL @symbol(bsd)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3558	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3559
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3560	# ifdef SYSV
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3561	# ifdef SYSV3
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3562	# define OS_SYMBOL @symbol(sys5_3)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3563	# else
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3564	# ifdef SYSV4
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3565	# define OS_SYMBOL @symbol(sys5_4)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3566	# else
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3567	# define OS_SYMBOL @symbol(sys5)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3568	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3569	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3570	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3571	# endif
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	/*
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3574	* become very vague ...
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3575	*/
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3576	# ifndef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3577	# ifdef POSIX
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3578	# define OS_SYMBOL @symbol(posix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3579	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3580	# endif
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3581	# ifndef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3582	# ifdef UNIX
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3583	# define OS_SYMBOL @symbol(unix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3584	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3585	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3586
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3587	# ifndef OS_SYMBOL
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3588	# define OS_SYMBOL @symbol(unknown)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3589	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3590
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3591	os = OS_SYMBOL;
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3592
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3593	# undef OS_SYMBOL
3576 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	^ os
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3596
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3597	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3598	OperatingSystem getOSType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3599	"
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
9698 e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3602	getPlatformDefine
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3603	"return a string which defines the platform,
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3604	and which should be passed down when compiling methods.
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3605	For example, on all unices, this is '-DUNIX'."
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3606
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3607	%{ /* NOCONTEXT */
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3608
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3609	#ifndef PLATFORM_DEFINE
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3610	# ifdef WIN32
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3611	# define PLATFORM_DEFINE "-DWIN32"
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3612	# endif
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3613	# ifdef OS2
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3614	# define PLATFORM_DEFINE "-DOS2"
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3615	# endif
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3616	# ifdef BEOS
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3617	# define PLATFORM_DEFINE "-DBEOS"
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3618	# endif
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3619	# ifdef MACOS
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3620	# define PLATFORM_DEFINE "-DMACOS"
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3621	# endif
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3622	# ifdef VMS
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3623	# define PLATFORM_DEFINE "-DVMS"
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3624	# endif
9698 e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3625	# ifndef PLATFORM_DEFINE
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3626	# define PLATFORM_DEFINE "-DUNIX"
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3627	# endif
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3628	#endif
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3629
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3630	RETURN ( __MKSTRING(PLATFORM_DEFINE));
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3631	%}
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3632	"
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3633	OperatingSystem getPlatformDefine
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3634	"
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3635	!
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3636
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3637	getProcessId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3638	"return the (unix-)processId"
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	self subclassResponsibility
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	getSystemID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3644	"if supported by the OS, return the systemID;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3645	a unique per machine identification.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3646	WARNING:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3647	not all systems support this; on some, 'unknown' is returned."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3648
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3649	^ 'unknown'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3650
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3651	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3652	OperatingSystem getSystemID
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	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3655
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3656	getSystemInfo
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3657	"return info on the system weare running on.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3658	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	3659	otherwise, some simulated info is returned.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3660
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3661	WARNING:
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3662	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	3663	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	3664	OS, for example, linux returns 'ix86', while WIN32 returns 'x86'.
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	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	3667	information.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3668	(in case of system/version specific OS errors, conditional workarounds and patches
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3669	may be based upon this info).
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3670	Your application should NOT depend upon this in any way.
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	The returned info may (or may not) contain:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3673	#system -> some operating system identification (irix, Linux, nt, win32s ...)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3674	#version -> OS version (some os version identification)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3675	#release -> OS release (3.5, 1.2.1 ...)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3676	#node -> some host identification (hostname)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3677	#domain -> domain name (hosts domain)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3678	#machine -> type of machine (i586, mips ...)
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3681	\|info\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3682
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3683	info := IdentityDictionary new.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3684	info at:#system put:(self getSystemType).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3685	info at:#node put:(self getHostName).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3686	info at:#machine put:(self getCPUType).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3687	info at:#architecture put:'unknown'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3688	info at:#domain put:self getDomainName.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3689	info at:#osType put:(self getOSType).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3690	^ info
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	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3693	OperatingSystem getSystemInfo
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	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3696
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3697	getSystemType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3698	"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	3699	This is almost the same as getOSType, but the returned string
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3700	is slightly different for some systems (i.e. iris vs. irix).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3701	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	3702	here ...
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3703	(except for slight differences between next/mach and other machs)"
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	^ self getOSType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3706
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3707	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3708	OperatingSystem getSystemType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3709	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3710	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3711
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3712	getWindowsDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3713	"internal interface - only for Windows based systems.
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3714	Return the windows directory, which, depending on the system,
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3715	may be
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3716	'\WINNT', '\WINDOWS'
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3717	or whatever.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3718	On non-windows systems, nil is returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3719
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3720	^ nil
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	OperatingSystem getWindowsDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3724	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3725	!
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	getWindowsSystemDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3728	"internal interface - only for Windows based systems.
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3729	Return the windows system directory, which, depending on the system,
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3730	may be
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3731	'\WINNT\SYSTEM32', '\WINDOWS\SYSTEM'
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3732	or whatever.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3733	On non-windows systems, nil is returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3734
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3735	^ nil
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3736
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3737	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3738	OperatingSystem getWindowsSystemDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3739	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3740	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3741
4207 89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3742	hasConsole
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3743	"return true, if there is some kind of console available
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3744	(i.e. for proper stdIn, stdOut and stdErr handling).
5918 0d8bc97e7106 * empty log message * Claus Gittinger <cg@exept.de> parents: 5861 diff changeset	3745	This only returns false when running under windows, and
4207 89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3746	the system is running as a pure windows application.
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3747	If false, the miniDebugger is useless and not used."
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3748
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3749	^ true
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3750	!
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3751
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3752	isBSDlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3753	"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	3754
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3755	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3756	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3757
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3758	isMAClike
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3759	"return true, if running on a macOS (but not on A/UX or OS/X)"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3760
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3761	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3762	!
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	isMSDOSlike
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3765	"return true, if the OS we're running on is msdos like (in contrast to unix-like).
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3766	This returns true for any of msdos, win32s, win95, winNT and os/2."
3576 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	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3769	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3770
3901 3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3771	isMSWINDOWSNTlike
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3772	"This returns true if running in a Windows-NT system."
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3773
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3774	^ false.
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3775	!
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3776
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3777	isMSWINDOWSlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3778	"return true, if running on a MS-Windows like system.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3779	This returns true for any of win32s, win95 and winNT."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3780
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3781	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3782	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3783
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3784	isOS2like
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3785	"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	3786	Only returns true for a plain OS/2 system."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3787
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3788	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3789	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3790
17746 2c33aabf3828 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17742 diff changeset	3791	isProcessIdPresent:pid
2c33aabf3828 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17742 diff changeset	3792	"answer true, if a process with process id pid is present, false if not.
2c33aabf3828 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17742 diff changeset	3793	Raise an error, if an exception occures"
2c33aabf3828 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17742 diff changeset	3794
2c33aabf3828 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17742 diff changeset	3795	^ self subclassResponsibility
2c33aabf3828 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17742 diff changeset	3796	!
2c33aabf3828 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17742 diff changeset	3797
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3798	isUNIXlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3799	"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	3800
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3801	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3802	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3803
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3804	isVMSlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3805	"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	3806
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3807	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3808	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3809
9697 d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3810	knownPlatformNames
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3811	"return a collection of strings as possibly returned by getPlatformName.
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3812	Should be used instead of getOSType or getSystemType if multiple choice
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3813	dialogs are presented to the user."
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3814
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3815	^#(
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3816	win32
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3817	os2 "/ actually - this is no longer true
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3818	macos "/ actually - this is no longer true
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3819	vms "/ actually - this is no longer true
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3820	beos "/ actually - this was never true
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3821	unix
9697 d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3822	)
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3823
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3824	"
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3825	OperatingSystem knownPlatformNames
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3826	OperatingSystem platformName
9698 e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3827	OperatingSystem getPlatformDefine
9697 d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3828	"
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3829
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3830	"Modified: 20.6.1997 / 17:37:26 / cg"
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3831	!
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3832
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3833	maxFileNameLength
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3834	"return the max number of characters in a filename.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3835	CAVEAT:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3836	Actually, the following is somewhat wrong - some systems
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3837	support different sizes, depending on the volume.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3838	We return a somewhat conservative number here.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3839	Another entry, to query for volume specific max
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3840	will be added in the future."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3841
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3842	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3843	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3844
6578 e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3845	maxNumberOfOpenFiles
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3846	"answer the maximum number of open files for this process"
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3847
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3848	^ self subclassResponsibility
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3849	!
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3850
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3851	maxPathLength
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3852	"return the max number of characters in a pathName."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3853
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3854	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3855	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3856
17847 62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3857	osName
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3858	"return a string describing the OS platform very we're running on.
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3859	This returns #unix for all unix derivatives.
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3860	I.e. it is much less specific than getOSType or getSystemType."
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3861
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3862	\|info\|
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3863
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3864	info := self getSystemInfo.
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3865	^ ((info at:#system) ? '?')
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3866	,
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3867	((info at:#version) ? '?')
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3868
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3869	"
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3870	OperatingSystem getSystemInfo
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3871	OperatingSystem osName
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3872	"
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3873
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3874	"Modified: / 20-06-1997 / 17:37:26 / cg"
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3875	"Created: / 05-08-2011 / 18:18:53 / cg"
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3876	!
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3877
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3878	pathSeparator
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3879	"return the character which separates items in the PATH variable"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3880
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3881	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3882	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3883
9700 abcbfeb235b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9699 diff changeset	3884	platformDefineForPlatformName:osID
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3885	"return a c-define for a particular platform (use only for makefile generation etc.)"
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3886
17735 6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	3887	osID = #win32 ifTrue:[ ^ '-DWIN32'].
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	3888	osID = #os2 ifTrue:[ ^ '-DOS2'].
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	3889	osID = #macos ifTrue:[ ^ '-DMACOS'].
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	3890	osID = #beos ifTrue:[ ^ '-DBEOS'].
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	3891	osID = #vms ifTrue:[ ^ '-DVMS'].
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	3892	osID = #unix ifTrue:[ ^ '-DUNIX'].
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3893	self error:'unknown os'.
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3894
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3895	"
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3896	OperatingSystem platformDefineForName:(OperatingSystem platformName)
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3897	"
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3898
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3899	"Modified: 20.6.1997 / 17:37:26 / cg"
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3900	!
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3901
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3902	platformName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3903	"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	3904	This returns #unix for all unix derivatives.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3905	I.e. it is much less specific than getOSType or getSystemType."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3906
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3907	\|os\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3908
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3909	os := self getSystemType.
11170 ced52c04b215 #platformName - answer symbols Stefan Vogel <sv@exept.de> parents: 11166 diff changeset	3910	os = #win32 ifTrue:[ ^ #win32].
ced52c04b215 #platformName - answer symbols Stefan Vogel <sv@exept.de> parents: 11166 diff changeset	3911	os = #os2 ifTrue:[ ^ #os2].
ced52c04b215 #platformName - answer symbols Stefan Vogel <sv@exept.de> parents: 11166 diff changeset	3912	os = #macos ifTrue:[ ^ #macos].
ced52c04b215 #platformName - answer symbols Stefan Vogel <sv@exept.de> parents: 11166 diff changeset	3913	os = #VMS ifTrue:[ ^ #vms].
ced52c04b215 #platformName - answer symbols Stefan Vogel <sv@exept.de> parents: 11166 diff changeset	3914	os = #openVMS ifTrue:[ ^ #vms].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3915	^ #unix
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3916
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3917	"
9697 d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3918	OperatingSystem knownPlatformNames
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3919	OperatingSystem platformName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3920	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3921
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3922	"Modified: 20.6.1997 / 17:37:26 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3923	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3924
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3925	randomBytesInto:bufferOrInteger
17757 73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3926	"If bufferOrInteger is a String or a ByteArray,
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3927	fill a given buffer with random bytes from the RtlGenRandom function
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3928	and nswer the buffer.
17757 73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3929
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3930	If bufferOrInteger is a SmallInteger,
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3931	return this many bytes (max 4) as a SmallInteger.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3932
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3933	Return nil on error (may raise PrimitiveFailure, too).
17757 73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3934
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3935	NOTE: This is a private interface, please use RandomGenerator!!
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3936
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3937	Subclasses should implement this, if the OperatingSystem supports a random generator."
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3938
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3939	^ nil "not implemented"
17757 73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3940	!
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3941
17742 3fef0ed4c2d5 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17735 diff changeset	3942	setEnvironment:aStringOrSymbol to:newValueString
3fef0ed4c2d5 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17735 diff changeset	3943	"set an environment variable"
3fef0ed4c2d5 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17735 diff changeset	3944
3fef0ed4c2d5 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17735 diff changeset	3945	^ self subclassResponsibility
3fef0ed4c2d5 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17735 diff changeset	3946	!
3fef0ed4c2d5 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17735 diff changeset	3947
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3948	setLocaleInfo:anInfoDictionary
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3949	"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	3950	(internal in ST/X only - the OS's settings remain unaffected)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3951	See description of fields in #getLocaleInfo.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3952
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3953	Notice, that (for now), the system does not use this information;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3954	it should be used by applications as required."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3955
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3956	LocaleInfo := anInfoDictionary
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3957
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3958	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3959	\|d\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3960
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3961	d := IdentityDictionary new.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3962	d at:#decimalPoint put:'.' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3963	d at:#thousandsSeparator put:',' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3964	d at:#currencySymbol put:'USD' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3965	d at:#monetaryDecimalPoint put:'.' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3966	d at:#monetaryThousandsSeparator put:'.' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3967	d at:#fractionalDigits put:2 .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3968	d at:#positiveSign put:'+' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3969	d at:#negativeSign put:'-' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3970	d at:#positiveSignPrecedesCurrencySymbol put:true .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3971	d at:#negativeSignPrecedesCurrencySymbol put:false .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3972	OperatingSystem setLocaleInfo:d
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3973	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3974	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3975
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3976	supportsChildInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3977	"return true, if the OS supports childProcess termination signalling
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3978	through interrupts (i.e. SIGCHILD)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3979
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3980	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3981
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3982	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3983	OperatingSystem supportsChildInterrupts
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3984	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3985	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3986
3826 ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3987	supportsFileOwnerGroups
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3988	"return true, if the OS's file system supports file
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3989	group ownership - here, we are optimistic assuming that
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3990	we are running under a real OS.
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3991	Redefined in Win32OS to return false."
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3992
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3993	^ true
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3994
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3995	"Modified: / 10.9.1998 / 17:48:20 / cg"
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3996	"Created: / 10.9.1998 / 17:56:28 / cg"
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3997	!
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3998
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3999	supportsFileOwners
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4000	"return true, if the OS's file system supports file
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4001	ownership - here, we are optimistic assuming that
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4002	we are running under a real OS.
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4003	Redefined in Win32OS to return false."
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4004
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4005	^ true
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4006
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4007	"Modified: / 10.9.1998 / 17:48:20 / cg"
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4008	"Created: / 10.9.1998 / 17:56:11 / cg"
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4009	!
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4010
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4011	supportsIOInterrupts
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4012	"return true, if the OS supports IO availability interrupts
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4013	(i.e. SIGPOLL/SIGIO)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4014
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4015	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4016
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4017	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4018	OperatingSystem supportsIOInterrupts
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4019	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4020	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4021
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4022	supportsNonBlockingIO
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4023	"return true, if the OS supports nonblocking IO."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4024
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4025	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4026
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4027	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4028	OperatingSystem supportsNonBlockingIO
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4029	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4030	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4031
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4032	supportsSelect
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4033	"return true, if the OS supports selecting on multiple
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4034	filedescriptors via select.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4035	If false is returned, ProcessorScheduler will poll in 50ms
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4036	intervals for I/O becoming ready."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4037
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4038	^ true
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4039
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4040	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4041	OperatingSystem supportsSelect
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4042	"
3901 3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4043	!
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4044
5099 bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4045	supportsSelectOnPipes
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4046	"return true, if the OS supports selecting on pipe
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4047	filedescriptors via select.
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4048	If false is returned, ProcessorScheduler will poll in 50ms
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4049	intervals for I/O becoming ready."
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4050
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4051	^ true
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4052
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4053	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4054	OperatingSystem supportsSelectOnPipes
5099 bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4055	"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4056
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4057	"Modified: / 14.12.1999 / 19:40:32 / cg"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4058	"Created: / 14.12.1999 / 19:43:43 / cg"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4059	!
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4060
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4061	supportsSelectOnSockets
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4062	"return true, if the OS supports selecting on socket
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4063	filedescriptors via select.
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4064	If false is returned, ProcessorScheduler will poll in 50ms
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4065	intervals for I/O becoming ready."
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4066
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4067	^ true
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4068
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4069	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4070	OperatingSystem supportsSelectOnSockets
5099 bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4071	"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4072
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4073	"Modified: / 14.12.1999 / 19:40:32 / cg"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4074	!
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4075
3901 3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4076	supportsVolumes
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4077	"return true, if the OS supports disk volumes.
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4078	False is returned for UNIX, true for MSDOS and VMS"
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4079
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4080	^ false
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4081
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4082	"Created: / 29.10.1998 / 13:20:37 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4083	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4084
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4085	!AbstractOperatingSystem class methodsFor:'path queries'!
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4086
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4087	defaultPackagePath
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4088	"return a default packagePath - thats a collection of
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4089	dirnames, where ST/X searches for its package subdirs.
5159 ca0524ab2576 defaultPackagePath initialization fixed Claus Gittinger <cg@exept.de> parents: 5148 diff changeset	4090	This method might be redefined in concrete OS's to add
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4091	OS-specific directory names."
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4092
17834 04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4093	\|packagePath dirName homeDirName priv userPrivateSTXDir appDirName appDir topDirName\|
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4094
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4095	"
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4096	the path is set to search files first locally
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4097	- this allows private stuff to override global stuff
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4098	"
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4099	packagePath := OrderedCollection new.
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4100
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4101	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4102	"/ the current (default) directory:
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4103	"/ ./packages
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4104	"/
17807 06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	4105	packagePath add:('.' "Filename currentDirectory pathName").
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4106
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4107	"/
17834 04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4108	"/ the executable's directory:
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4109	"/ (/opt/stx/bin/stx -> /opt/stx/bin)
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4110	"/
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4111	appDirName := self pathOfSTXExecutable asFilename directory.
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4112	(packagePath includes:appDirName) ifFalse:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4113	packagePath add:appDirName.
17834 04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4114	].
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4115
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4116	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4117	"/ the executable's parent directory:
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4118	"/ (/opt/stx/bin/stx -> /opt/stx/packages)
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4119	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4120	appDir := self pathOfSTXExecutable asFilename directory directory.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4121	dirName := appDir pathName.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4122	(packagePath includes:dirName) ifFalse:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4123	packagePath add:dirName.
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4124	].
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4125
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4126	homeDirName := OperatingSystem getHomeDirectory.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4127	homeDirName notNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4128	"/
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4129	"/ a users private smalltalk directory in its home (login) directory:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4130	"/ $HOME/.smalltalk/packages or $HOME\smalltalk\packages
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4131	"/
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4132	OperatingSystem isUNIXlike ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4133	priv := '.smalltalk'.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4134	] ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4135	priv := 'smalltalk'.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4136	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4137	userPrivateSTXDir := homeDirName asFilename / priv.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4138	(userPrivateSTXDir isDirectory) ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4139	dirName := userPrivateSTXDir pathName.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4140	(packagePath includes:dirName) ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4141	packagePath add:dirName
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4142	]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4143	].
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4144	].
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4145
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4146	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4147	"/ STX_TOPDIR from the environment:
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4148	"/ $STX_TOPDIR/packages
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4149	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4150	topDirName := OperatingSystem getEnvironment:'STX_TOPDIR'.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4151	topDirName notNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4152	(packagePath includes:topDirName) ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4153	packagePath add:topDirName
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4154	].
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4155	].
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4156
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4157	packagePath := packagePath select:[:each \| (each asFilename / 'packages') exists]
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4158	thenCollect:[:each \| (each asFilename constructString:'packages')].
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4159
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4160	"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4161	unconditionally prepend all directories from $STX_PACKAGEPATH
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4162	"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4163	(dirName := OperatingSystem getEnvironment:'STX_PACKAGEPATH') notNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4164	dirName := dirName asCollectionOfSubstringsSeparatedBy:$:.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4165	dirName reverseDo:[:eachDirectoryName\|
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4166	(packagePath includes:eachDirectoryName) ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4167	packagePath addFirst:eachDirectoryName.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4168	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4169	].
5654 96a2142a2c04 Use for packagePath Stefan Vogel <sv@exept.de> parents: 5646 diff changeset	4170	].
96a2142a2c04 Use for packagePath Stefan Vogel <sv@exept.de> parents: 5646 diff changeset	4171
17814 b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4172	"maybe the sources are kept in a central place..."
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4173	(appDir / 'source') isDirectory ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4174	packagePath add:(appDir / 'source') pathName.
17814 b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4175	].
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4176
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4177	"maybe we are running in the build environment: XXX/stx /projects /smalltalk
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4178	or: XXX/exept /expecco /application
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4179	- if XXX/stx/libbasic exists, add XXX to the package path"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4180
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4181	topDirName isNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4182	"appdir is now: projects"
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4183	appDir := appDir directory directory.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4184	(appDir / 'stx' / 'libbasic') isDirectory ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4185	packagePath add:appDir pathName.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4186	].
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4187	].
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4188
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4189	^ packagePath
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4190
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4191	"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4192	OperatingSystem defaultPackagePath
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4193	"
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4194
17834 04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4195	"Modified: / 04-02-2011 / 16:27:15 / cg"
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4196	!
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4197
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4198	defaultSystemPath
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4199	"return a default systemPath - thats a collection of
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4200	dirnames, where ST/X searches for its files.
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4201	This method is redefined in concrete OS's to add
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4202	OS-specific directory names."
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4203
17754 5322906cdb6a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17746 diff changeset	4204	\|sysPath p appDir homePath priv userPrivateSTXDir appPath\|
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4205
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4206	"
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4207	the path is set to search files first locally
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4208	- this allows private stuff to override global stuff
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4209	"
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4210	sysPath := OrderedCollection new.
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4211
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4212	"/
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4213	"/ the current (default) directory
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4214	"/
17807 06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	4215	sysPath add:('.' "Filename currentDirectory pathName").
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4216
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4217	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4218	"/ the executable's directory
17814 b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4219	"/ and the executables parent directory (if it is an installed version)
9021 6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4220	"/
17754 5322906cdb6a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17746 diff changeset	4221	appPath := self pathOfSTXExecutable.
5322906cdb6a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17746 diff changeset	4222	appPath notNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4223	appDir := appPath asFilename directory.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4224	appPath := appDir pathName.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4225	(sysPath includes:appPath) ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4226	sysPath add:appPath.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4227	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4228	appDir baseName = 'bin' ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4229	appPath := appDir directory pathName.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4230	(sysPath includes:appPath) ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4231	sysPath add:appPath.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4232	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4233	].
9021 6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4234	].
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4235
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4236	"/
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4237	"/ the users home (login) directory
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4238	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4239	homePath := self getHomeDirectory.
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4240	homePath notNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4241	"/
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4242	"/ a users private smalltalk directory in its home (login) directory
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4243	"/
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4244	OperatingSystem isUNIXlike ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4245	priv := '.smalltalk'.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4246	] ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4247	priv := 'smalltalk'.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4248	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4249	userPrivateSTXDir := homePath asFilename construct:priv.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4250	(userPrivateSTXDir isDirectory) ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4251	userPrivateSTXDir := userPrivateSTXDir pathName.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4252	(sysPath includes:userPrivateSTXDir) ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4253	sysPath add:userPrivateSTXDir
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4254	]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4255	].
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4256	].
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4257
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4258	"/
5036 a967da9d41ac checkin from browser Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	4259	"/ SMALLTALK_LIBDIR, STX_LIBDIR and STX_TOPDIR from the environment
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4260	"/
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4261	#(
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4262	'SMALLTALK_LIBDIR'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4263	'STX_LIBDIR'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4264	'STX_TOPDIR'
5646 5dfccce8e880 no longer automatically add the home-dir to the systemPath Claus Gittinger <cg@exept.de> parents: 5486 diff changeset	4265	) do:[:each \|
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4266	p := OperatingSystem getEnvironment:each.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4267	p notNil ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4268	p := p asFilename pathName.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4269	(p asFilename isDirectory) ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4270	(sysPath includes:p) ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4271	sysPath add:p
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4272	]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4273	]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4274	].
5036 a967da9d41ac checkin from browser Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	4275	].
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4276	^ sysPath
5148 1a4b6b99888d * empty log message * Claus Gittinger <cg@exept.de> parents: 5143 diff changeset	4277
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4278	"
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4279	OperatingSystem defaultSystemPath
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4280	"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4281
5148 1a4b6b99888d * empty log message * Claus Gittinger <cg@exept.de> parents: 5143 diff changeset	4282	"Modified: / 24.12.1999 / 00:30:27 / cg"
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4283	! !
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4284
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	4285	!AbstractOperatingSystem class methodsFor:'printing support'!
d8547710430c printer stuff fm parents: 9380 diff changeset	4286
d8547710430c printer stuff fm parents: 9380 diff changeset	4287	getPrinters
d8547710430c printer stuff fm parents: 9380 diff changeset	4288	"return a collection of PrinterInfos"
d8547710430c printer stuff fm parents: 9380 diff changeset	4289
d8547710430c printer stuff fm parents: 9380 diff changeset	4290	self subclassResponsibility
d8547710430c printer stuff fm parents: 9380 diff changeset	4291
d8547710430c printer stuff fm parents: 9380 diff changeset	4292	"Created: / 27-07-2006 / 12:17:31 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	4293	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	4294
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4295	!AbstractOperatingSystem class methodsFor:'private'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4296
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4297	osProcessStatusClass
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4298	^ self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4299
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4300	"Created: / 12.6.1998 / 16:30:29 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4301	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4302
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	4303	!AbstractOperatingSystem class methodsFor:'queries-sockets'!
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4304
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4305	domainCodeOf:aSymbolOrInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4306	"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	4307	Return nil for invalid or unsupported domains.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4308	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	4309	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	4310
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4311	\|domainCode\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4312
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4313	%{ /NOCONTEXT/
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4314
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4315	if (__isSmallInteger(aSymbolOrInteger) \|\| aSymbolOrInteger == nil) {
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4316	RETURN (aSymbolOrInteger);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4317	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4318
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4319	#ifdef AF_INET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4320	else if ((aSymbolOrInteger == @symbol(AF_INET)) \|\| (aSymbolOrInteger == @symbol(inet)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4321	domainCode = __mkSmallInteger(AF_INET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4322	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4323	#ifdef AF_INET6
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4324	else if ((aSymbolOrInteger == @symbol(AF_INET6)) \|\| (aSymbolOrInteger == @symbol(inet6)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4325	domainCode = __mkSmallInteger(AF_INET6);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4326	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4327	#ifdef AF_UNIX
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4328	else if ((aSymbolOrInteger == @symbol(AF_UNIX)) \|\| (aSymbolOrInteger == @symbol(unix)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4329	domainCode = __mkSmallInteger(AF_UNIX);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4330	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4331	#ifdef AF_APPLETALK
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4332	else if ((aSymbolOrInteger == @symbol(AF_APPLETALK)) \|\| (aSymbolOrInteger == @symbol(appletalk)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4333	domainCode = __mkSmallInteger(AF_APPLETALK);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4334	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4335	#ifdef AF_DECnet
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4336	else if ((aSymbolOrInteger == @symbol(AF_DECnet)) \|\| (aSymbolOrInteger == @symbol(decnet)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4337	domainCode = __mkSmallInteger(AF_DECnet);
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_NS
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4340	else if ((aSymbolOrInteger == @symbol(AF_NS)) \|\| (aSymbolOrInteger == @symbol(ns)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4341	domainCode = __mkSmallInteger(AF_NS);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4342	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4343	#ifdef AF_X25
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4344	else if ((aSymbolOrInteger == @symbol(AF_X25)) \|\| (aSymbolOrInteger == @symbol(x25)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4345	domainCode = __mkSmallInteger(AF_X25);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4346	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4347	#ifdef AF_SNA
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4348	else if (aSymbolOrInteger == @symbol(AF_SNA))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4349	domainCode = __mkSmallInteger(AF_SNA);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4350	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4351	#ifdef AF_RAW
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4352	else if ((aSymbolOrInteger == @symbol(AF_RAW)) \|\| (aSymbolOrInteger == @symbol(raw)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4353	domainCode = __mkSmallInteger(AF_RAW);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4354	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4355	#ifdef AF_ISO
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4356	else if ((aSymbolOrInteger == @symbol(AF_ISO)) \|\| (aSymbolOrInteger == @symbol(iso)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4357	domainCode = __mkSmallInteger(AF_ISO);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4358	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4359	#ifdef AF_ECMA
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4360	else if (aSymbolOrInteger == @symbol(AF_ECMA))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4361	domainCode = __mkSmallInteger(AF_ECMA);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4362	#endif
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4363	#ifdef AF_NETBIOS
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4364	else if ((aSymbolOrInteger == @symbol(AF_NETBIOS)) \|\| (aSymbolOrInteger == @symbol(netbios)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4365	domainCode = __mkSmallInteger(AF_NETBIOS);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4366	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4367	#ifdef AF_NETBEUI
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4368	else if (aSymbolOrInteger == @symbol(AF_NETBEUI))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4369	domainCode = __mkSmallInteger(AF_NETBEUI);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4370	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4371	#ifdef AF_IPX
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4372	else if (aSymbolOrInteger == @symbol(AF_IPX))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4373	domainCode = __mkSmallInteger(AF_IPX);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4374	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4375	#ifdef AF_AX25
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4376	else if (aSymbolOrInteger == @symbol(AF_AX25))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4377	domainCode = __mkSmallInteger(AF_AX25);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4378	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4379	#ifdef AF_NETROM
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4380	else if (aSymbolOrInteger == @symbol(AF_NETROM))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4381	domainCode = __mkSmallInteger(AF_NETROM);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4382	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4383	#ifdef AF_BRIDGE
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4384	else if (aSymbolOrInteger == @symbol(AF_BRIDGE))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4385	domainCode = __mkSmallInteger(AF_BRIDGE);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4386	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4387	#ifdef AF_BSC
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4388	else if (aSymbolOrInteger == @symbol(AF_BSC))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4389	domainCode = __mkSmallInteger(AF_BSC);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4390	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4391	#ifdef AF_ROSE
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4392	else if (aSymbolOrInteger == @symbol(AF_ROSE))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4393	domainCode = __mkSmallInteger(AF_ROSE);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4394	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4395	#ifdef AF_IRDA
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4396	else if ((aSymbolOrInteger == @symbol(AF_IRDA)) \|\| (aSymbolOrInteger == @symbol(irda)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4397	domainCode = __mkSmallInteger(AF_IRDA);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4398	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4399	#ifdef AF_BAN
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4400	else if (aSymbolOrInteger == @symbol(AF_BAN))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4401	domainCode = __mkSmallInteger(AF_BAN);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4402	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4403	#ifdef AF_VOICEVIEW
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4404	else if (aSymbolOrInteger == @symbol(AF_VOICEVIEW))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4405	domainCode = __mkSmallInteger(AF_VOICEVIEW);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4406	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4407	#ifdef AF_ATM
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4408	else if (aSymbolOrInteger == @symbol(AF_ATM))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4409	domainCode = __mkSmallInteger(AF_ATM);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4410	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4411	#ifdef AF_ATMPVC
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4412	else if (aSymbolOrInteger == @symbol(AF_ATMPVC))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4413	domainCode = __mkSmallInteger(AF_ATMPVC);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4414	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4415	#ifdef AF_ATMSVC
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4416	else if (aSymbolOrInteger == @symbol(AF_ATMSVC))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4417	domainCode = __mkSmallInteger(AF_ATMSVC);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4418	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4419	#ifdef AF_SECURITY
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4420	else if (aSymbolOrInteger == @symbol(AF_SECURITY))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4421	domainCode = __mkSmallInteger(AF_SECURITY);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4422	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4423	#ifdef AF_KEY
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4424	else if (aSymbolOrInteger == @symbol(AF_KEY))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4425	domainCode = __mkSmallInteger(AF_KEY);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4426	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4427	#ifdef AF_NETLINK
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4428	else if (aSymbolOrInteger == @symbol(AF_NETLINK))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4429	domainCode = __mkSmallInteger(AF_NETLINK);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4430	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4431	#ifdef AF_PACKET
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4432	else if (aSymbolOrInteger == @symbol(AF_PACKET))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4433	domainCode = __mkSmallInteger(AF_PACKET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4434	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4435	#ifdef AF_ASH
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4436	else if (aSymbolOrInteger == @symbol(AF_ASH))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4437	domainCode = __mkSmallInteger(AF_ASH);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4438	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4439	#ifdef AF_ECONET
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4440	else if (aSymbolOrInteger == @symbol(AF_ECONET))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4441	domainCode = __mkSmallInteger(AF_ECONET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4442	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4443	#ifdef AF_IMPLINK
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4444	else if (aSymbolOrInteger == @symbol(AF_IMPLINK))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4445	domainCode = __mkSmallInteger(AF_IMPLINK);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4446	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4447	#ifdef AF_PUP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4448	else if (aSymbolOrInteger == @symbol(AF_PUP))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4449	domainCode = __mkSmallInteger(AF_PUP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4450	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4451	#ifdef AF_CHAOS
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4452	else if (aSymbolOrInteger == @symbol(AF_CHAOS))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4453	domainCode = __mkSmallInteger(AF_CHAOS);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4454	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4455	#ifdef AF_DLI
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4456	else if (aSymbolOrInteger == @symbol(AF_DLI))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4457	domainCode = __mkSmallInteger(AF_DLI);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4458	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4459	#ifdef AF_LAT
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4460	else if (aSymbolOrInteger == @symbol(AF_LAT))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4461	domainCode = __mkSmallInteger(AF_LAT);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4462	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4463	#ifdef AF_HYLINK
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4464	else if (aSymbolOrInteger == @symbol(AF_HYLINK))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4465	domainCode = __mkSmallInteger(AF_HYLINK);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4466	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4467	#ifdef AF_FIREFOX
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4468	else if (aSymbolOrInteger == @symbol(AF_FIREFOX))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4469	domainCode = __mkSmallInteger(AF_FIREFOX);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4470	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4471	#ifdef AF_CLUSTER
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4472	else if (aSymbolOrInteger == @symbol(AF_CLUSTER))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4473	domainCode = __mkSmallInteger(AF_CLUSTER);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4474	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4475	#ifdef AF_12844
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4476	else if (aSymbolOrInteger == @symbol(AF_12844))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4477	domainCode = __mkSmallInteger(AF_12844);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4478	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4479	#ifdef AF_NETDES
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4480	else if (aSymbolOrInteger == @symbol(AF_NETDES))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4481	domainCode = __mkSmallInteger(AF_NETDES);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4482	#endif
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4483	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4484
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4485	^ domainCode.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4486
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4487	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4488	self domainCodeOf:#AF_INET
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4489	self domainCodeOf:#AF_INET6
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4490	self domainCodeOf:#AF_UNIX
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4491	self domainCodeOf:#AF_APPLETALK
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4492	self domainCodeOf:#AF_DECNET
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4493	"
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4494	"for backward compatibility only:
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4495	self domainCodeOf:#inet
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4496	self domainCodeOf:#inet6
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4497	self domainCodeOf:#unix
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4498	self domainCodeOf:#appletalk
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4499	self domainCodeOf:#decnet
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4500	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4501	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4502
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4503	domainSymbolOf:anInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4504	"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	4505	Return nil for invalid or unsupported domains."
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4506
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4507	\|domainSymbol\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4508
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4509	%{ /NOCONTEXT/
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4510
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4511	if (__isSmallInteger(anInteger)) {
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4512	switch(__intVal(anInteger)) {
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4513	#ifdef AF_INET
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4514	case AF_INET:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4515	domainSymbol = @symbol(AF_INET);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4516	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4517	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4518	#ifdef AF_INET6
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4519	case AF_INET6:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4520	domainSymbol = @symbol(AF_INET6);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4521	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4522	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4523	#ifdef AF_UNIX
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4524	case AF_UNIX:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4525	domainSymbol = @symbol(AF_UNIX);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4526	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4527	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4528	#ifdef AF_APPLETALK
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4529	case AF_APPLETALK:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4530	domainSymbol = @symbol(AF_APPLETALK);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4531	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4532	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4533	#ifdef AF_DECnet
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4534	case AF_DECnet:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4535	domainSymbol = @symbol(AF_DECnet);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4536	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4537	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4538	#ifdef AF_NS
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4539	case AF_NS:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4540	domainSymbol = @symbol(AF_NS);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4541	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4542	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4543	#ifdef AF_X25
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4544	case AF_X25:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4545	domainSymbol = @symbol(AF_X25);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4546	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4547	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4548	#ifdef AF_SNA
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4549	case AF_SNA:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4550	domainSymbol = @symbol(AF_SNA);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4551	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4552	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4553	#ifdef AF_RAW
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4554	case AF_RAW:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4555	domainSymbol = @symbol(AF_RAW);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4556	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4557	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4558	#ifdef AF_ISO
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4559	case AF_ISO:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4560	domainSymbol = @symbol(AF_ISO);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4561	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4562	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4563	#ifdef AF_ECMA
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4564	case AF_ECMA:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4565	domainSymbol = @symbol(AF_ECMA);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4566	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4567	#endif
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4568	#ifdef AF_NETBIOS
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4569	case AF_NETBIOS:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4570	domainSymbol = @symbol(AF_NETBIOS);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4571	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4572	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4573	#ifdef AF_IPX
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4574	case AF_IPX:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4575	domainSymbol = @symbol(AF_IPX);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4576	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4577	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4578	#ifdef AF_AX25
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4579	case AF_AX25:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4580	domainSymbol = @symbol(AF_AX25);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4581	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4582	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4583	#ifdef AF_NETROM
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4584	case AF_NETROM:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4585	domainSymbol = @symbol(AF_NETROM);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4586	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4587	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4588	#ifdef AF_BRIDGE
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4589	case AF_BRIDGE:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4590	domainSymbol = @symbol(AF_BRIDGE);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4591	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4592	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4593	#ifdef AF_BSC
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4594	case AF_BSC:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4595	domainSymbol = @symbol(AF_BSC);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 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_ROSE
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4599	case AF_ROSE:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4600	domainSymbol = @symbol(AF_ROSE);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 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_IRDA
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4604	case AF_IRDA:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4605	domainSymbol = @symbol(AF_IRDA);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 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_BAN
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4609	case AF_BAN:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4610	domainSymbol = @symbol(AF_BAN);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 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_VOICEVIEW
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4614	case AF_VOICEVIEW:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4615	domainSymbol = @symbol(AF_VOICEVIEW);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 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_ATM
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4619	case AF_ATM:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4620	domainSymbol = @symbol(AF_ATM);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 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_ATMPVC
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4624	case AF_ATMPVC:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4625	domainSymbol = @symbol(AF_ATMPVC);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 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_ATMSVC
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4629	case AF_ATMSVC:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4630	domainSymbol = @symbol(AF_ATMSVC);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 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_SECURITY
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4634	case AF_SECURITY:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4635	domainSymbol = @symbol(AF_SECURITY);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 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_KEY
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4639	case AF_KEY:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4640	domainSymbol = @symbol(AF_KEY);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4641	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4642	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4643	#ifdef AF_NETLINK
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4644	case AF_NETLINK:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4645	domainSymbol = @symbol(AF_NETLINK);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4646	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4647	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4648	#ifdef AF_PACKET
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4649	case AF_PACKET:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4650	domainSymbol = @symbol(AF_PACKET);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4651	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4652	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4653	#ifdef AF_ASH
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4654	case AF_ASH:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4655	domainSymbol = @symbol(AF_ASH);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4656	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4657	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4658	#ifdef AF_ECONET
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4659	case AF_ECONET:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4660	domainSymbol = @symbol(AF_ECONET);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4661	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4662	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4663	#ifdef AF_IMPLINK
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4664	case AF_IMPLINK:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4665	domainSymbol = @symbol(AF_IMPLINK);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4666	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4667	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4668	#ifdef AF_PUP
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4669	case AF_PUP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4670	domainSymbol = @symbol(AF_PUP);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4671	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4672	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4673	#ifdef AF_CHAOS
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4674	case AF_CHAOS:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4675	domainSymbol = @symbol(AF_CHAOS);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4676	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4677	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4678	#ifdef AF_DLI
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4679	case AF_DLI:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4680	domainSymbol = @symbol(AF_DLI);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4681	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4682	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4683	#ifdef AF_LAT
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4684	case AF_LAT:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4685	domainSymbol = @symbol(AF_LAT);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4686	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4687	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4688	#ifdef AF_HYLINK
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4689	case AF_HYLINK:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4690	domainSymbol = @symbol(AF_HYLINK);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4691	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4692	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4693	#ifdef AF_FIREFOX
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4694	case AF_FIREFOX:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4695	domainSymbol = @symbol(AF_FIREFOX);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4696	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4697	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4698	#ifdef AF_CLUSTER
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4699	case AF_CLUSTER:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4700	domainSymbol = @symbol(AF_CLUSTER);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4701	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4702	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4703	#ifdef AF_12844
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4704	case AF_12844:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4705	domainSymbol = @symbol(AF_12844);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4706	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4707	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4708	#ifdef AF_NETDES
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4709	case AF_NETDES:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4710	domainSymbol = @symbol(AF_NETDES);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4711	break;
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4712	#endif
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4713	}
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4714	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4715	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4716
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4717	^ domainSymbol.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4718
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4719	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4720	self domainSymbolOf:(self domainCodeOf:#inet)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4721	self domainSymbolOf:(self domainCodeOf:#inet6)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4722	self domainSymbolOf:(self domainCodeOf:#unix)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4723	self domainSymbolOf:(self domainCodeOf:#appletalk)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4724	self domainSymbolOf:(self domainCodeOf:#decnet)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4725	self domainSymbolOf:(self domainCodeOf:#raw)
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4726	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4727	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4728
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4729	protocolCodeOf:aSymbolOrInteger
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4730	"return the numeric IPPROTO_xxx code of a given symbolic protocol name.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4731	Return nil for invalid or unsupported protocols.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4732	For backward compatibility, the obsolete (non-IPPROTO-prefixed) names
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4733	are still supported for a while - this support will vanish."
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4734
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4735	\|protocolCode\|
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4736
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4737	%{ /NOCONTEXT/
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4738
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4739	if (__isSmallInteger(aSymbolOrInteger) \|\| aSymbolOrInteger == nil) {
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4740	RETURN (aSymbolOrInteger);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4741	}
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4742
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4743	#ifdef IPPROTO_IP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4744	else if ((aSymbolOrInteger == @symbol(IPPROTO_IP)) \|\| (aSymbolOrInteger == @symbol(ip)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4745	protocolCode = __mkSmallInteger(IPPROTO_IP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4746	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4747	#ifdef IPPROTO_ICMP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4748	else if ((aSymbolOrInteger == @symbol(IPPROTO_ICMP)) \|\| (aSymbolOrInteger == @symbol(icmp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4749	protocolCode = __mkSmallInteger(IPPROTO_ICMP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4750	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4751	#ifdef IPPROTO_IGMP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4752	else if ((aSymbolOrInteger == @symbol(IPPROTO_IGMP)) \|\| (aSymbolOrInteger == @symbol(igmp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4753	protocolCode = __mkSmallInteger(IPPROTO_IGMP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4754	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4755	#ifdef IPPROTO_GGP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4756	else if ((aSymbolOrInteger == @symbol(IPPROTO_GGP)) \|\| (aSymbolOrInteger == @symbol(ggp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4757	protocolCode = __mkSmallInteger(IPPROTO_GGP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4758	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4759	#ifdef IPPROTO_TCP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4760	else if ((aSymbolOrInteger == @symbol(IPPROTO_TCP)) \|\| (aSymbolOrInteger == @symbol(tcp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4761	protocolCode = __mkSmallInteger(IPPROTO_TCP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4762	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4763	#ifdef IPPROTO_UDP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4764	else if ((aSymbolOrInteger == @symbol(IPPROTO_UDP)) \|\| (aSymbolOrInteger == @symbol(udp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4765	protocolCode = __mkSmallInteger(IPPROTO_UDP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4766	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4767	#ifdef IPPROTO_IDP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4768	else if ((aSymbolOrInteger == @symbol(IPPROTO_IDP)) \|\| (aSymbolOrInteger == @symbol(idp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4769	protocolCode = __mkSmallInteger(IPPROTO_IDP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4770	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4771	#ifdef IPPROTO_ND
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4772	else if ((aSymbolOrInteger == @symbol(IPPROTO_ND)) \|\| (aSymbolOrInteger == @symbol(nd)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4773	protocolCode = __mkSmallInteger(IPPROTO_ND);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4774	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4775	#ifdef IPPROTO_RAW
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4776	else if ((aSymbolOrInteger == @symbol(IPPROTO_RAW)) \|\| (aSymbolOrInteger == @symbol(raw)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4777	protocolCode = __mkSmallInteger(IPPROTO_RAW);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4778	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4779	%}.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4780
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4781	^ protocolCode.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4782
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4783	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4784	self protocolCodeOf:#IPPROTO_UDP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4785	self protocolCodeOf:#IPPROTO_TCP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4786	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4787	"for backward compatibility only:
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4788	self protocolCodeOf:#udp
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4789	self protocolCodeOf:#tcp
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4790	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4791	!
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4792
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4793	protocolSymbolOf:anInteger
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4794	"return the symbolic protocolName of a given numeric IPPROTO_xxx code.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4795	Return nil for invalid or unsupported protocols."
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4796
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4797	\|protocolSymbol\|
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4798
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4799	%{ /NOCONTEXT/
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4800
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4801	if (__isSmallInteger(anInteger)) {
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4802	switch(__intVal(anInteger)) {
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4803	#ifdef IPPROTO_IP
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4804	case IPPROTO_IP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4805	// protocolSymbol = @symbol(IPPROTO_IP);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4806	protocolSymbol = @symbol(ip);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4807	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4808	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4809	#ifdef IPPROTO_ICMP
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4810	case IPPROTO_ICMP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4811	// protocolSymbol = @symbol(IPPROTO_ICMP);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4812	protocolSymbol = @symbol(icmp);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4813	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4814	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4815	#ifdef IPPROTO_IGMP
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4816	case IPPROTO_IGMP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4817	// protocolSymbol = @symbol(IPPROTO_IGMP);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4818	protocolSymbol = @symbol(igmp);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4819	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4820	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4821	#ifdef IPPROTO_GGP
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4822	case IPPROTO_GGP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4823	// protocolSymbol = @symbol(IPPROTO_GGP);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4824	protocolSymbol = @symbol(ggp);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4825	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4826	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4827	#ifdef IPPROTO_TCP
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4828	case IPPROTO_TCP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4829	// protocolSymbol = @symbol(IPPROTO_TCP);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4830	protocolSymbol = @symbol(tcp);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4831	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4832	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4833	#ifdef IPPROTO_PUP
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4834	case IPPROTO_PUP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4835	// protocolSymbol = @symbol(IPPROTO_PUP);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4836	protocolSymbol = @symbol(pup);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4837	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4838	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4839	#ifdef IPPROTO_UDP
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4840	case IPPROTO_UDP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4841	// protocolSymbol = @symbol(IPPROTO_UDP);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4842	protocolSymbol = @symbol(udp);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4843	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4844	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4845	#ifdef IPPROTO_IDP
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4846	case IPPROTO_IDP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4847	// protocolSymbol = @symbol(IPPROTO_IDP);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4848	protocolSymbol = @symbol(idp);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4849	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4850	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4851	#ifdef IPPROTO_ND
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4852	case IPPROTO_ND:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4853	// protocolSymbol = @symbol(IPPROTO_ND);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4854	protocolSymbol = @symbol(nd);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4855	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4856	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4857	#ifdef IPPROTO_RAW
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4858	case IPPROTO_RAW:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4859	// protocolSymbol = @symbol(IPPROTO_RAW);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4860	protocolSymbol = @symbol(raw);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4861	break;
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4862	#endif
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4863	}
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4864	}
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4865	%}.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4866
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4867	^ protocolSymbol.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4868
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4869	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4870	self protocolSymbolOf:(self protocolCodeOf:#tcp)
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4871	self protocolSymbolOf:(self protocolCodeOf:#udp)
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4872	self protocolSymbolOf:(self protocolCodeOf:#raw)
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4873	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4874	!
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4875
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4876	socketAddressSizeOfDomain:aSymbolOrInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4877	"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	4878	Return nil, if unknown or unsupported."
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4879
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4880	\|socketSize domainCode\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4881
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4882	domainCode := OperatingSystem domainCodeOf:aSymbolOrInteger.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4883
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4884	%{
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4885	if (__isSmallInteger(domainCode)) {
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4886	switch (__intVal(domainCode)) {
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4887	#ifdef AF_INET
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4888	case AF_INET:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4889	socketSize = __mkSmallInteger( sizeof(struct sockaddr_in) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4890	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4891	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4892	#ifdef AF_INET6
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4893	case AF_INET6:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4894	socketSize = __mkSmallInteger( sizeof(struct sockaddr_in6) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4895	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4896	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4897	#ifdef AF_UNIX
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4898	case AF_UNIX:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4899	socketSize = __mkSmallInteger( sizeof(struct sockaddr_un) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4900	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4901	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4902	#ifdef AF_APPLETALK
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4903	case AF_APPLETALK:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4904	socketSize = __mkSmallInteger( sizeof(struct sockaddr_at) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4905	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4906	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4907	#ifdef AF_DECnet
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4908	case AF_DECnet:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4909	socketSize = __mkSmallInteger( sizeof(struct sockaddr_dn) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4910	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4911	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4912	#ifdef AF_NS
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4913	case AF_NS:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4914	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ns) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4915	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4916	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4917	#ifdef AF_X25
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4918	case AF_X25:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4919	socketSize = __mkSmallInteger( sizeof(struct sockaddr_x25) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4920	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4921	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4922	#ifdef AF_SNA
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4923	case AF_SNA:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4924	socketSize = __mkSmallInteger( sizeof(struct sockaddr_sna) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4925	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4926	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4927	#ifdef AF_RAW
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4928	case AF_RAW:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4929	socketSize = __mkSmallInteger( sizeof(struct sockaddr_raw) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4930	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4931	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4932	#ifdef AF_ISO
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4933	case AF_ISO:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4934	socketSize = __mkSmallInteger( sizeof(struct sockaddr_iso) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4935	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4936	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4937	#ifdef AF_ECMA
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4938	# if 0
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4939	case AF_ECMA:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4940	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ecma) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4941	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4942	# endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4943	#endif
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4944	#ifdef AF_NETBIOS
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4945	case AF_NETBIOS:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4946	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netbios) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4947	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4948	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4949	#ifdef AF_NETBEUI
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4950	case AF_NETBEUI:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4951	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netbeui) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4952	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4953	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4954	#ifdef AF_IPX
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4955	case AF_IPX:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4956	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ipx) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4957	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4958	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4959	#ifdef AF_AX25
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4960	case AF_AX25:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4961	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ax25) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4962	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4963	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4964	#ifdef AF_NETROM
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4965	case AF_NETROM:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4966	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netrom) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4967	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4968	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4969	#ifdef AF_BRIDGE
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4970	case AF_BRIDGE:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4971	socketSize = __mkSmallInteger( sizeof(struct sockaddr_bridge) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4972	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4973	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4974	#ifdef AF_BSC
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4975	case AF_BSC:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4976	socketSize = __mkSmallInteger( sizeof(struct sockaddr_bsc) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4977	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4978	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4979	#ifdef AF_ROSE
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4980	case AF_ROSE:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4981	socketSize = __mkSmallInteger( sizeof(struct sockaddr_rose) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4982	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4983	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4984	#ifdef AF_IRDA
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4985	case AF_IRDA:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4986	socketSize = __mkSmallInteger( sizeof(struct sockaddr_irda) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4987	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4988	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4989	#ifdef AF_BAN
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4990	case AF_BAN:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4991	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ban) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4992	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4993	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4994	#ifdef AF_VOICEVIEW
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4995	case AF_VOICEVIEW:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4996	socketSize = __mkSmallInteger( sizeof(struct sockaddr_voiceview) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4997	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4998	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4999	#ifdef AF_ATM
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5000	case AF_ATM:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5001	socketSize = __mkSmallInteger( sizeof(struct sockaddr_atm) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5002	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5003	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5004	#ifdef AF_ATMPVC
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5005	case AF_ATMPVC:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5006	socketSize = __mkSmallInteger( sizeof(struct sockaddr_atmpvc) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5007	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5008	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5009	#ifdef AF_ATMSVC
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5010	case AF_ATMSVC:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5011	socketSize = __mkSmallInteger( sizeof(struct sockaddr_atmsvc) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5012	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5013	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5014	#ifdef AF_NETLINK
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5015	case AF_NETLINK:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5016	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netlink) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5017	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5018	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5019	#ifdef AF_PACKET
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5020	case AF_PACKET:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5021	socketSize = __mkSmallInteger( sizeof(struct sockaddr_packet) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5022	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5023	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5024	#ifdef AF_ASH
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5025	case AF_ASH:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5026	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ash) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5027	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5028	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5029	#ifdef AF_ECONET
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5030	case AF_ECONET:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5031	socketSize = __mkSmallInteger( sizeof(struct sockaddr_eco) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5032	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5033	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5034	#ifdef AF_IMPLINK
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5035	case AF_IMPLINK:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5036	socketSize = __mkSmallInteger( sizeof(struct sockaddr_implink) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5037	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5038	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	5039	#ifdef AF_PUP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	5040	# if 0
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5041	case AF_PUP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5042	socketSize = __mkSmallInteger( sizeof(struct sockaddr_pup) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5043	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	5044	# endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	5045	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5046	#ifdef AF_CHAOS
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5047	case AF_CHAOS:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5048	socketSize = __mkSmallInteger( sizeof(struct sockaddr_chaos) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5049	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5050	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5051	#ifdef AF_DLI
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5052	case AF_DLI:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5053	socketSize = __mkSmallInteger( sizeof(struct sockaddr_dli) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5054	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5055	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5056	#ifdef AF_LAT
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5057	case AF_LAT:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5058	socketSize = __mkSmallInteger( sizeof(struct sockaddr_lat) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5059	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5060	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5061	#ifdef AF_HYLINK
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5062	case AF_HYLINK:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5063	socketSize = __mkSmallInteger( sizeof(struct sockaddr_hylink) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5064	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5065	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5066	#ifdef AF_FIREFOX
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5067	case AF_FIREFOX:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5068	socketSize = __mkSmallInteger( sizeof(struct sockaddr_firefox) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5069	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5070	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5071	#ifdef AF_CLUSTER
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5072	case AF_CLUSTER:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5073	socketSize = __mkSmallInteger( sizeof(struct sockaddr_cluster) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5074	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5075	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5076	#ifdef AF_12844
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5077	case AF_12844:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5078	socketSize = __mkSmallInteger( sizeof(struct sockaddr_12844) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5079	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5080	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5081	#ifdef AF_NETDES
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5082	case AF_NETDES:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5083	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netdes) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5084	break;
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5085	#endif
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5086	}
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5087	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5088	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5089	^ socketSize
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5090
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5091	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5092	self socketAddressSizeOfDomain:#'AF_INET'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5093	self socketAddressSizeOfDomain:#'AF_UNIX'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5094	self socketAddressSizeOfDomain:#'Foo'
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5095	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5096	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5097
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5098	socketTypeCodeOf:aSymbolOrInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5099	"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	5100	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	5101
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5102	\|typeCode\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5103
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5104	%{ /NOCONTEXT/
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5105
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5106	if (__isSmallInteger(aSymbolOrInteger) \|\| aSymbolOrInteger == nil) {
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5107	typeCode = aSymbolOrInteger;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5108	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5109
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5110	#ifdef SOCK_STREAM
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5111	else if ((aSymbolOrInteger == @symbol(stream)) \|\| (aSymbolOrInteger == @symbol(SOCK_STREAM)))
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5112	typeCode = __mkSmallInteger(SOCK_STREAM);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5113	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5114	#ifdef SOCK_DGRAM
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5115	else if ((aSymbolOrInteger == @symbol(datagram)) \|\| (aSymbolOrInteger == @symbol(SOCK_DGRAM)))
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5116	typeCode = __mkSmallInteger(SOCK_DGRAM);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5117	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5118	#ifdef SOCK_RAW
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5119	else if ((aSymbolOrInteger == @symbol(raw)) \|\| (aSymbolOrInteger == @symbol(SOCK_RAW)))
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5120	typeCode = __mkSmallInteger(SOCK_RAW);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5121	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5122	#ifdef SOCK_RDM
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5123	else if ((aSymbolOrInteger == @symbol(rdm)) \|\| (aSymbolOrInteger == @symbol(SOCK_RDM)))
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5124	typeCode = __mkSmallInteger(SOCK_RDM);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5125	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5126	#ifdef SOCK_SEQPACKET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5127	else if ((aSymbolOrInteger == @symbol(seqpacket)) \|\| (aSymbolOrInteger == @symbol(SOCK_SEQPACKET)))
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5128	typeCode = __mkSmallInteger(SOCK_SEQPACKET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5129	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5130	#ifdef SOCK_PACKET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5131	else if ((aSymbolOrInteger == @symbol(packet)) \|\| (aSymbolOrInteger == @symbol(SOCK_PACKET)))
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5132	typeCode = __mkSmallInteger(SOCK_PACKET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5133	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5134	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5135
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5136	^ typeCode.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5137
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5138	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5139	self socketTypeCodeOf:#stream
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5140	self socketTypeCodeOf:#datagram
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5141	self socketTypeCodeOf:#raw
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5142	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5143	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5144
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5145	socketTypeSymbolOf:anInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5146	"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	5147	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	5148
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5149	\|socketTypeSymbol\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5150
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5151	%{ /NOCONTEXT/
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5152
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5153	if (__isSmallInteger(anInteger)) {
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5154	switch(__intVal(anInteger)) {
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5155	#ifdef SOCK_STREAM
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5156	case SOCK_STREAM:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5157	socketTypeSymbol = @symbol(SOCK_STREAM);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5158	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5159	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5160	#ifdef SOCK_DGRAM
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5161	case SOCK_DGRAM:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5162	socketTypeSymbol = @symbol(SOCK_DGRAM);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5163	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5164	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5165	#ifdef SOCK_RAW
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5166	case SOCK_RAW:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5167	socketTypeSymbol = @symbol(SOCK_RAW);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5168	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5169	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5170	#ifdef SOCK_RDM
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5171	case SOCK_RDM:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5172	socketTypeSymbol = @symbol(SOCK_RDM);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5173	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5174	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5175	#ifdef SOCK_SEQPACKET
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5176	case SOCK_SEQPACKET:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5177	socketTypeSymbol = @symbol(SOCK_SEQPACKET);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5178	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5179	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5180	#ifdef SOCK_PACKET
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5181	case SOCK_PACKET:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5182	socketTypeSymbol = @symbol(SOCK_PACKET);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5183	break;
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5184	#endif
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5185	}
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5186	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5187	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5188	^ socketTypeSymbol.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5189	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5190
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5191	supportedProtocolFamilies
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5192	"return a collection of supported protocol families.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5193	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	5194	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	5195	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	5196	(non-AF-prefixed) symbols; these will vanish."
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5197
7713 c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5198	^ #(
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5199	#AF_INET #inet
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5200	#AF_UNIX #unix
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5201	#AF_INET6 #inet6
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5202	#AF_APPLETALK #appletalk
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5203	#AF_DECnet #decnet
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5204	#AF_NS #ns
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5205	#AF_X25 #x25
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5206	#AF_SNA
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5207	#AF_RAW
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5208	#AF_ISO
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5209	#AF_ECMA
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5210	#AF_NETBIOS #netbios
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5211	#AF_IPX
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5212	#AF_AX25
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5213	#AF_NETROM
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5214	#AF_BRIDGE
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5215	#AF_BSC
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5216	#AF_ROSE
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5217	#AF_IRDA #irda
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5218	#AF_NETLINK
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5219	#AF_NETLINK
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5220	#AF_NETBEUI
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5221	#AF_ATM
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5222	#AF_ATMPVC
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5223	#AF_ATMSVC
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5224	#AF_BAN
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5225	#AF_VOICEVIEW
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5226	#AF_ECONET
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5227	#AF_IMPLINK
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5228	#AF_PUP
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5229	#AF_CHAOS
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5230	#AF_DLI
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5231	#AF_LAT
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5232	#AF_HYLINK
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5233	#AF_FIREFOX
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5234	#AF_CLUSTER
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5235	#AF_12844
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5236	#AF_NETDES
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5237	) select:[:sym \| (AbstractOperatingSystem domainCodeOf:sym) isNumber ]
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5238
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5239	"
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5240	AbstractOperatingSystem supportedProtocolFamilies
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5241	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5242	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5243
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5244	supportedSocketTypes
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5245	"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	5246	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	5247
7713 c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5248	^ #(
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5249	#SOCK_STREAM
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5250	#SOCK_DGRAM
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5251	#SOCK_RAW
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5252	#SOCK_RDM
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5253	#SOCK_SEQPACKET
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5254	#SOCK_PACKET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5255	) select:[:sym \| (AbstractOperatingSystem socketTypeCodeOf:sym) isNumber ]
7713 c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5256
c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5257	"
c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5258	AbstractOperatingSystem supportedSocketTypes
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5259	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5260	! !
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5261
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5262	!AbstractOperatingSystem class methodsFor:'shared memory access'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5263
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5264	shmAttach:id address:addr flags:flags
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5265	"low level entry to shmat()-system call.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5266	Not supported on all operatingSystems"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5267
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5268	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5269
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5270	"Modified: / 19.5.1999 / 14:21:35 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5271	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5272
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5273	shmDetach:addr
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5274	"low level entry to shmdt()-system call.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5275	Not supported on all operatingSystems"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5276
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5277	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5278
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5279	"Modified: / 19.5.1999 / 14:21:37 / cg"
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5282	shmGet:key size:size flags:flags
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5283	"low level entry to shmget()-system call.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5284	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	5285	- use the provided wrapper class SharedExternalBytes instead."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5286
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5287	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5288
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5289	"Modified: / 19.5.1999 / 14:21:41 / cg"
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5292	!AbstractOperatingSystem class methodsFor:'time and date'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5293
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5294	computeDatePartsOf:osTime for:aBlock
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5295	"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	5296	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	5297	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	5298
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5299	<resource:#obsolete>
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5300
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5301	\|i\|
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5302
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5303	self obsoleteMethodWarning:'use #computeTimeAndDateFrom:osTime'.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5304
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5305	i := self computeTimeAndDateFrom:osTime.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5306	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	5307
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5308	"
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5309	OperatingSystem computeDatePartsOf:0 for:[:y :m :d \|
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5310	y printCR. m printCR. d printCR
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5311	]
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5312	"
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5313	!
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5314
4377 59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5315	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	5316	"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	5317	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	5318
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5319	self subclassResponsibility
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5320
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5321	"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	5322	!
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5323
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5324	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	5325	"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	5326	The arguments are assumed to be in localtime including
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5327	any daylight saving adjustings."
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 subclassResponsibility
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	computeTimeAndDateFrom:osTime
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5333	"given an OS-dependent time in osTime, return an Array
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5334	containing (full-) year, month, day, hour, minute and seconds,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5335	offset to UTC, daylight savings time flag, milliseconds,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5336	dayInYear (1..) and dayInWeek (1..).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5337	Conversion is to localtime including any daylight saving adjustments."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5338
7733 f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5339	\|divMod ret\|
f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5340
f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5341	divMod := osTime divMod:1000.
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5342	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	5343	^ ret
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5344
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5345	"
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5346	OperatingSystem computeTimeAndDateFrom:0
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5347	OperatingSystem computeTimeAndDateFrom:1011
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5348	"
3576 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
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5351	computeTimePartsOf:osTime for:aBlock
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5352	"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	5353	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	5354	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	5355
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5356	<resource:#obsolete>
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5357
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5358	\|hours minutes seconds millis i\|
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5359
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5360	self obsoleteMethodWarning:'use #computeTimeAndDateFrom:osTime'.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5361
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5362	i := self computeTimeAndDateFrom:osTime.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5363	hours := i hours.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5364	minutes := i minutes.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5365	seconds := i seconds.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5366	millis := i milliseconds.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5367
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5368	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	5369
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5370	"
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5371	OperatingSystem computeTimePartsOf:100 for:[:h :m :s :milli \|
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5372	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	5373	]
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5374	"
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5375	!
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5376
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5377	computeUTCTimeAndDateFrom:osTime
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5378	"given an OS-dependent time in osTime, return an Array
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5379	containing:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5380	(full-) year,
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5381	month, (1..)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5382	day, (1..)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5383	hour, (0..23)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5384	minute (0..59)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5385	seconds, (0..59)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5386	offset to UTC, (seconds)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5387	daylight savings time flag,
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5388	milliseconds, (0..999)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5389	dayInYear (1..)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5390	dayInWeek (1..).
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5391	Conversion is to utc."
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5392
7733 f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5393	\|divMod ret\|
f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5394
f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5395	divMod := osTime divMod:1000.
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5396	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	5397	^ ret
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5398
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5399	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5400	OperatingSystem computeUTCTimeAndDateFrom:0
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5401	OperatingSystem computeUTCTimeAndDateFrom:1011
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5402	"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5403	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5404
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5405	computeUTCTimePartsOf:osTime for:aBlock
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5406	"compute hours, minutes, seconds and milliseconds from the osTime
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5407	and evaluate the argument, a 4-arg block with these.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5408	Conversion is to UTC."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5409
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5410	<resource:#obsolete>
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5411
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5412	\|hours minutes seconds millis i\|
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5413
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5414	self obsoleteMethodWarning:'use #computeTimeAndDateFrom:osTime'.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5415
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5416	i := self computeUTCTimeAndDateFrom:osTime.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5417	hours := i hours.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5418	minutes := i minutes.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5419	seconds := i seconds.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5420	millis := i milliseconds.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5421
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5422	aBlock value:hours value:minutes value:seconds value:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5423	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5424
17909 0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5425	getCPUCycleCount
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5426	"get a CPU specific cycle counter value.
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5427	Can be used for exact timing & performance measurements.
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5428	Notice, that the # of cycles has to be multiplied by the cycle time (1/cpu-frequency).
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5429
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5430	For x86:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5431	the CPU cycle count register value is returned (RDTSC instruction).
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5432	Fails if RDTSC instruction is not supported (which is unlikely, nowadays).
17909 0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5433	For others:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5434	currently fails"
17909 0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5435
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5436	%{ /* NOCONTEXT */
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5437	unsigned int low, high;
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5438
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5439	#ifdef i386
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5440	// use RDTSC instruction (retrieves 64bit cycle count; hi in EDX, lo in EAX)
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5441
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5442	# if defined(__BORLANDC__)
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5443	_asm { push edx };
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5444	__emit__(0x0F,0x31); /* RDTSC instruction */
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5445	_asm { mov low,eax };
17909 0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5446	_asm { mov high,edx };
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5447	_asm { pop edx };
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5448	# elif defined(__MINGW_H) \|\| defined(__GNUC__)
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5449	asm volatile("rdtsc" : "=a"(low), "=d"(high));
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5450	# else
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5451	goto unsupported;
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5452	# endif
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5453	#endif /* i386 */
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5454
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5455	RETURN ( __MKLARGEINT64(1, low, high) );
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5456	unsupported: ;
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5457	%}.
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5458	self primitiveFailed:'no CPU cycle register on this architecture'
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5459
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5460	"Created: / 05-01-2012 / 13:23:31 / cg"
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5461	!
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5462
3689 f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5463	getMicrosecondTime
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5464	"This returns the microsecond timers value - if available.
3689 f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5465	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	5466	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	5467	clock resolution value."
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5468
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5469	"/ fallBack - use getMillisecondTime, which must be implemented
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5470	"/ for all OS's
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5471
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5472	^ self getMillisecondTime * 1000
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5473
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5474	"Created: / 30.7.1998 / 16:38:26 / cg"
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5475	!
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5476
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5477	getMillisecondTime
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5478	"This returns the millisecond timers value.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5479	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	5480	LargeInteger arithmetic when doing timeouts and delays.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5481	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	5482	short relative time deltas.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5483	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	5484
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5485	BAD DESIGN:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5486	This should be changed to return some instance of RelativeTime,
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5487	and these computations moved there.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5488
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5489	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	5490	interface. For compatibility with ST-80, use Time millisecondClockValue.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5491	"
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	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5496	getOSTime
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5497	"This returns the OS time.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5498	The base of the returned value is not consistent across
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5499	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	5500	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	5501	converts as appropriate (by using my fromOSTime: conversion methods).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5502
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5503	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	5504	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	5505	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	5506	"
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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5509	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5510
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5511	maximumMillisecondTimeDelta
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5512	"this returns the maximum delta supported by millisecondCounter
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5513	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	5514	timer wraps."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5515
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5516	%{ /* NOCONTEXT */
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	5517	RETURN ( __mkSmallInteger(0x0FFFFFFF) );
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5518	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5519	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5520
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5521	millisecondDelay:millis
7681 7c63f0b47f0d oops: millisecondDelay: was duplicated Claus Gittinger <cg@exept.de> parents: 7656 diff changeset	5522	"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	5523	All other threads proceed as usual.
7849 40819a29fdcd comment ca parents: 7835 diff changeset	5524	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	5525
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5526	\|now then delta\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5527
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5528	now := self getMillisecondTime.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5529	then := self millisecondTimeAdd:now and:millis.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5530
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5531	[(delta := self millisecondTimeDeltaBetween:then and:now) > 0] whileTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5532	self selectOnAnyReadable:nil writable:nil exception:nil withTimeOut:delta.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5533	now := self getMillisecondTime.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5534	]
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	"
7849 40819a29fdcd comment ca parents: 7835 diff changeset	5537	OperatingSystem millisecondDelay:5000
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5538	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5539	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5540
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5541	millisecondTime:msTime1 isAfter:msTime2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5542	"return true if msTime1 is after msTime2, false if not.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5543	The two arguments are supposed to be millisecond times
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5544	(such as returned getMillisecondTime) which wrap at 16r1FFFFFFF.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5545
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5546	This should really be moved to some RelativeTime class."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5547
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5548	(msTime1 > msTime2) ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5549	((msTime1 - msTime2) < 16r10000000) ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5550	^ true
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5551	].
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5552	] ifFalse:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5553	((msTime2 - msTime1) > 16r10000000) ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5554	^ true
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5555	].
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	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5558	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5559
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5560	millisecondTimeAdd:msTime1 and:msTime2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5561	"Add two millisecond times (such as returned getMillisecondTime).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5562	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	5563
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5564	This should really be moved to some RelativeTime class."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5565
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5566	\|sum\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5567
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5568	sum := msTime1 + msTime2.
17892 d86c8bd5ece3 Merged with CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17869 diff changeset	5569	(sum > 16r1FFFFFFF) ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5570	self assert:(sum <= 16r3FFFFFFF) message:'overflow in timer computation'.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5571	^ sum - 16r20000000.
17892 d86c8bd5ece3 Merged with CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17869 diff changeset	5572	].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5573	(sum < 0) ifTrue:[^ sum + 16r20000000].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5574	^ sum
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5575	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5576
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5577	millisecondTimeDeltaBetween:msTime1 and:msTime2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5578	"subtract two millisecond times (such as returned getMillisecondTime)
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5579	and return the difference. Since milli-times wrap (at 16r01FFFFFFF),
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5580	some special handling is built-in here.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5581	The returned value is msTime1 - msTime2. The returned value is invalid
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5582	if the delta is >= 0x10000000.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5583
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5584	This should really be moved to some RelativeTime class;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5585	better yet: create a subclass of Integer named LimitedRangeInteger."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5586
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5587	\|diff\|
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5588
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5589	diff := msTime1 - msTime2.
11166 52c2ccfc0d4c Make last change better looking Stefan Vogel <sv@exept.de> parents: 11165 diff changeset	5590	diff > 16r-10000000 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5591	(diff < 16r10000000) ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5592	^ diff.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5593	] ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5594	^ diff - 16r20000000.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5595	].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5596	].
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5597	^ diff + 16r20000000
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5598
3576 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	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5601	OperatingSystem millisecondTimeAdd:16r0FFFFFFF and:1
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5602	OperatingSystem millisecondTimeAdd:16r0FFFFFFF and:(16 / 3)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5603	OperatingSystem millisecondTimeAdd:16r0FFFFFFF and:1000
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5604
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5605	OperatingSystem millisecondTimeDeltaBetween:0 and:16r0FFFFFFF
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5606	OperatingSystem millisecondTimeDeltaBetween:0 and:16r1FFFFFFF
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5607	OperatingSystem millisecondTimeDeltaBetween:16r1FFFFFFF and:0
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5608
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5609	OperatingSystem millisecondTimeDeltaBetween:(13/3) and:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5610	OperatingSystem millisecondTimeDeltaBetween:999 and:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5611
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5612	OperatingSystem millisecondTime:0 isAfter:16r0FFFFFFF
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5613	OperatingSystem millisecondTime:0 isAfter:16r1FFFFFFF
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5614	OperatingSystem millisecondTime:(13/3) isAfter:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5615	OperatingSystem millisecondTime:999 isAfter:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5616
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5617	OperatingSystem millisecondTime:0 isAfter:0
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5618	OperatingSystem millisecondTime:(13/3) isAfter:0
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5619	OperatingSystem millisecondTime:999 isAfter:0
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5620
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5621	OperatingSystem millisecondTime:1 isAfter:0
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5622	OperatingSystem millisecondTime:(13/3) isAfter:2
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5623	OperatingSystem millisecondTime:999 isAfter:900
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5624
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5625	\|t1 t2\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5626
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5627	t1 := Time millisecondClockValue.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5628	(Delay forMilliseconds:1) wait.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5629	t2 := Time millisecondClockValue.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5630	OperatingSystem millisecondTimeDeltaBetween:t2 and:t1
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5631	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5632	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5633
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5634	sleep:numberOfSeconds
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5635	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5636
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5637	"cease ANY action for some time. This suspends the whole smalltalk
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5638	(unix-) process for some time.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5639	Not really useful since not even low-prio processes and interrupt
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5640	handling will run during the sleep.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5641	Use either OperatingSystem>>millisecondDelay: (which makes all
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5642	threads sleep, but handles interrupts) or use a Delay (which makes
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5643	only the calling thread sleep)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5644
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5645	self subclassResponsibility
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5646	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5647
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5648	timeInfoClass
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5649	^ TimeInfo
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5650	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5651
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5652	timeInfoFromSeconds:osSeconds localTime:isLocalTime
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5653	"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	5654	An internal helper"
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5655
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5656	^ self timeInfoFromSeconds:osSeconds milliseconds:0 localTime:isLocalTime
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5657	!
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5658
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5659	timeInfoFromSeconds:osSeconds milliseconds:osMilliSeconds localTime:isLocalTime
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5660	"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	5661	An internal helper"
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5662
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5663	self subclassResponsibility
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5666	!AbstractOperatingSystem class methodsFor:'users & groups'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5667
17795 569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5668	getApplicationDataDirectoryFor:appName
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5669	"return the directory, where user-and-application-specific private files are to be
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5670	located (ini-files, preferences etc.).
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5671	Under windows, something like 'C:\Users\Administrator\AppData\Roaming\<appName>'
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5672	is returned, here, the fallback ~/.<appName> is returned.
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5673	Notice that only the name is returned; the directory is not guaranteed to exist."
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5674
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5675	"{ Pragma: +optSpace }"
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5676
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5677	^ self getHomeDirectory asFilename constructString:('.',appName)
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5678
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5679	"
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5680	OperatingSystem getApplicationDataDirectoryFor:'expecco'
17795 569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5681	"
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5682
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5683	"Created: / 29-07-2010 / 12:07:25 / sr"
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5684	!
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5685
10544 83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5686	getDesktopDirectory
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5687	"{ Pragma: +optSpace }"
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5688
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5689	"return the name of the users desktop directory.
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5690	The fallback here returns the users home directory."
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5691
10545 8806e5e326c0 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10544 diff changeset	5692	^ self getHomeDirectory
8806e5e326c0 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10544 diff changeset	5693
8806e5e326c0 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10544 diff changeset	5694	"
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5695	OperatingSystem getDesktopDirectory
10544 83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5696	"
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5697
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5698	"Created: / 16-05-2007 / 13:20:53 / cg"
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5699	!
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5700
11760 84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5701	getDocumentsDirectory
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5702	"return your documents directory.
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5703	Under windows, thats the real 'Documents' or 'My Documents'.
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5704	The fallback here returns the users home directory."
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5705
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5706	"{ Pragma: +optSpace }"
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5707
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5708	^ self getHomeDirectory
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5709
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5710	"
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5711	OperatingSystem getDocumentsDirectory
11760 84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5712	"
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5713	!
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5714
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5715	getEffectiveGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5716	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5717
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5718	"return the current users (thats you) effective numeric group id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5719	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	5720	as a setuid program (of which you should think about twice)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5721
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5722	^ self getGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5723
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5724	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5725	OperatingSystem getEffectiveGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5726	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5727	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5728
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5729	getEffectiveUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5730	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5731
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5732	"return the current users (thats you) effective numeric user id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5733	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	5734	as a setuid program (of which you should think about twice)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5735
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5736	^ self getUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5737
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5738	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5739	OperatingSystem getEffectiveUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5740	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5741	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5742
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5743	getFullUserName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5744	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5745
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5746	"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	5747	If not, return the login name as a fallBack."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5748
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5749	^ self getFullUserNameFromID:(self getUserID)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5750
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5751	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5752	OperatingSystem getFullUserName
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5753	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5754
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5755	"Modified: 24.1.1997 / 11:31:55 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5756	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5757
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5758	getFullUserNameFromID:userID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5759	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5760
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5761	"return a string with the users full name - if available.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5762	If not, return the login name as a fallBack."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5763
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5764	^ self getUserNameFromID:userID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5765
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5766	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5767	OperatingSystem getFullUserNameFromID:0
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5768	OperatingSystem getFullUserNameFromID:(OperatingSystem getUserID)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5769
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5770	OperatingSystem getUserNameFromID:(OperatingSystem getUserID)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5771	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5772
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5773	"Modified: 15.7.1996 / 12:44:21 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5774	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5775
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5776	getGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5777	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5778
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5779	"return the current users (thats you) numeric group id"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5780
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5781	^ 1 "/ just a dummy for systems which do not have userIDs
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5782
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5783	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5784	OperatingSystem getGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5785	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5786	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5787
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5788	getGroupNameFromID:aNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5789	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5790
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5791	"return the group-name-string for a given numeric group-id"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5792
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5793	^ '???' "/ just a dummy for systems which do not have groups
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5794
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5795	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5796	OperatingSystem getGroupNameFromID:0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5797	OperatingSystem getGroupNameFromID:10
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5798	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5799	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5800
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5801	getHomeDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5802	"return the name of the users home directory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5803	(i.e. yours)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5804
11760 84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5805	^ self subclassResponsibility
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5806
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5807	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5808	OperatingSystem getHomeDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5809	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5810
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5811	"Modified: 24.1.1997 / 11:32:13 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5812	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5813
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5814	getLoginName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5815	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5816
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5817	"return a string with the users login name (thats yours)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5818
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5819	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5820	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5821
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5822	getUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5823	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5824
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5825	"return the current users (thats you) numeric user id"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5826
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5827	^ 1 "just a dummy for systems which do not have userIDs"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5828
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5829	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5830	OperatingSystem getUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5831	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5832	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5833
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5834	getUserNameFromID:aNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5835	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5836
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5837	"return the user-name-string for a given numeric user-id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5838	This is the login name, not the fullName."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5839
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5840	"/ fallBack dummy
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5841
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5842	aNumber == self getUserID ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5843	^ self getLoginName
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5844	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5845
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5846	^ '? (' , aNumber printString , ')'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5847
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5848	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5849	OperatingSystem getUserNameFromID:0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5850	OperatingSystem getUserNameFromID:100
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5851	OperatingSystem getUserNameFromID:9991
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5852	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5853	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5854
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5855	userInfoOf:aNameOrID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5856	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5857
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5858	"return a dictionary filled with userinfo. The argument can be either
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5859	a string with the users name or its numeric id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5860	Notice, that not all systems provide (all of) this info;
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5861	DOS systems return nothing;
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5862	non-SYSV4 systems have no age/comment.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5863	Portable applications may want to check the systemType and NOT depend
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5864	on all keys to be present in the returned dictionary.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5865	Another notice: on some systems (SYSV4), the gecos field includes multiple
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5866	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	5867	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	5868
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5869	\|info\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5870
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5871	"/ fallBack dummy
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5872	info := IdentityDictionary new.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5873	info at:#name put:(self getLoginName).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5874	info at:#dir put:(self getHomeDirectory).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5875	^ info
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5876
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5877	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5878	OperatingSystem userInfoOf:'root'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5879	OperatingSystem userInfoOf:1
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5880	OperatingSystem userInfoOf:'claus'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5881	OperatingSystem userInfoOf:'fooBar'
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5882	OperatingSystem userInfoOf:(OperatingSystem getUserID)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5883	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5884	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5885
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5886	!AbstractOperatingSystem class methodsFor:'waiting for events'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5887
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5888	blockingChildProcessWait
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5889	"return true, if childProcessWait: blocks, if no children are ready.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5890	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	5891	a subprocesses status (to avoid blocking)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5892
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5893	^ true
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5894	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5895
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5896	childProcessWait:blocking pid:pidToWait
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5897	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5898
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5899	"get status changes from child processes.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5900	Return an OSProcessStatus or nil, if no process has terminated.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5901	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	5902	otherwise we return immediately.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5903	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	5904	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	5905
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5906	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5907	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5908
7802 79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5909	isBlockingOn:fd
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5910	"{ Pragma: +optSpace }"
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5911
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5912	"return the blocking attribute - if set (which is the default)
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5913	a read on the fileDescriptor will block until data is available.
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5914	If clear, a read operation will immediately return with a value nil.
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5915	Also affects write operations, which may perform partial writes when
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5916	blocking is off"
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5917
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5918	self subclassResponsibility
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5919	!
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5920
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5921	numAvailableForReadOn:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5922	"return the number of bytes available for reading, without blocking."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5923
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5924	"/ fallBack for systems which do not provide this info
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5925	^ (self readCheck:fd) ifTrue:[1] ifFalse:[0]
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5926	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5927
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5928	readCheck:fd
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5929	"return true, if a read is possible without blocking.
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5930	This is the case if data is available on a filedescriptor
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5931	or the read would return an error.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5932	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	5933
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5934	\|result\|
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5935
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5936	self supportsSelect ifFalse:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5937	"/ mhmh - what should we do then ?
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5938	"/ For now, return true as if data was present,
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5939	"/ and let the thread fall into the read.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5940	"/ It will then (hopefully) be descheduled there and
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5941	"/ effectively polling for input.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5942
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5943	^ true
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5944	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5945
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5946	result := self
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5947	selectOnAnyReadable:(Array with:fd)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5948	writable:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5949	exception:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5950	withTimeOut:0.
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5951
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5952	"on select error, a read will immediately return, so answer true"
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5953	^ result == fd or:[result == #error].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5954	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5955
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5956	readWriteCheck:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5957	"return true, if filedescriptor can be read or written without blocking.
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5958	This is the case if data is available on a filedescriptor
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5959	or the read or write would return an error.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5960	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	5961	be finished."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5962
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5963	\|result\|
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5964
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5965	self supportsSelect ifFalse:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5966	"/ mhmh - what should we do then ?
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5967	"/ For now, return true as if data was present,
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5968	"/ and let the thread fall into the write.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5969	"/ It will then (hopefully) be desceduled there and
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5970	"/ effectively polling for output.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5971	^ true
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5972	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5973
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5974	result := self selectOnAnyReadable:(Array with:fd)
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5975	writable:(Array with:fd)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5976	exception:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5977	withTimeOut:0.
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5978
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5979	^ result == fd or:[result == #error].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5980	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5981
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5982	selectOn:fd1 and:fd2 withTimeOut:millis
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5983	<resource: #obsolete>
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5984	"wait for any fd to become ready; timeout after t milliseconds.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5985	A zero timeout-time will immediately return (i.e. poll).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5986	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	5987	Obsolete:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5988	This is a leftover method and will vanish."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5989
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5990	^ self selectOnAnyReadable:(Array with:fd1 with:fd2)
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5991	writable:(Array with:fd1 with:fd2)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5992	exception:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5993	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5994	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5995
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5996	selectOn:fd withTimeOut:millis
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5997	"wait for aFileDesriptor to become ready; timeout after t milliseconds.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5998	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	5999	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	6000	of read-data.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6001	Experimental."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6002
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6003	^ self selectOnAnyReadable:(Array with:fd)
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6004	writable:(Array with:fd)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6005	exception:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6006	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6007	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6008
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6009	selectOnAny:fdArray withTimeOut:millis
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6010	"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	6011	timeout after t milliseconds. An empty set will always wait.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6012	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	6013	Experimental."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6014
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6015	^ self selectOnAnyReadable:fdArray
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6016	writable:fdArray
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6017	exception:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6018	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6019	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6020
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6021	selectOnAnyReadable:fdArray withTimeOut:millis
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6022	"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	6023	reading. Timeout after t milliseconds. An empty set will always wait.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6024	A zero timeout-time will immediately return (i.e. poll).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6025	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	6026	Experimental."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6027
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6028	^ self selectOnAnyReadable:fdArray
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6029	writable:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6030	exception:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6031	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6032	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6033
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6034	selectOnAnyReadable:readFdArray writable:writeFdArray exception:exceptFdArray
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6035	readableInto:readableResultFdArray writableInto:writableResultFdArray
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6036	exceptionInto:exceptionResultFdArray
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6037	withTimeOut:millis
7510 46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	6038
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6039	"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	6040	writeFdArray to become ready for writing,
7510 46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	6041	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	6042	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	6043	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	6044	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	6045	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	6046	writableResultFdArray and exceptionResultFdArray respectively.
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	6047
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	6048	Return the (overall) number of selected filedescriptors.
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	6049	readableResultFdArray, writableResultFdArray and exceptionResultFdArray will
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	6050	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	6051	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	6052
f2bf4935e7eb New select for fair scheduling (not giving low filedescriptors Stefan Vogel <sv@exept.de> parents: 7488 diff changeset	6053	self subclassResponsibility
f2bf4935e7eb New select for fair scheduling (not giving low filedescriptors Stefan Vogel <sv@exept.de> parents: 7488 diff changeset	6054	!
f2bf4935e7eb New select for fair scheduling (not giving low filedescriptors Stefan Vogel <sv@exept.de> parents: 7488 diff changeset	6055
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6056	selectOnAnyReadable:readFdArray writable:writeFdArray exception:exceptFdArray withTimeOut:millis
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6057	"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	6058	reading, writeFdArray to become ready for writing, or exceptFdArray to
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6059	arrive exceptional data (i.e. out-of-band data).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6060	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	6061	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	6062	descriptors (i.e. to check if I/O possible without blocking).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6063	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	6064
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6065	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6066	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6067
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6068	setBlocking:aBoolean on:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6069	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6070
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6071	"set/clear the blocking attribute - if set (which is the default)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6072	a read on the fileDescriptor will block until data is available.
7803 2238df4944ca comments; Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	6073	If cleared, a read operation will immediately return with a value of nil.
2238df4944ca comments; Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	6074	Also affects write operations, which may perform partial writes when
2238df4944ca comments; Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	6075	blocking is off"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6076
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6077	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6078	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6079
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6080	writeCheck:fd
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6081	"return true, if filedescriptor can be written without blocking.
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6082	This is the case if data can be written to a filedescriptor
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6083	or the write would return an error."
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6084
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6085	\|result\|
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6086
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6087	self supportsSelect ifFalse:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6088	"/ mhmh - what should we do then ?
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6089	"/ For now, return true as if data was present,
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6090	"/ and let the thread fall into the write.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6091	"/ It will then (hopefully) be desceduled there and
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6092	"/ effectively polling for output.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6093	^ true
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6094	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6095
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6096	result := self selectOnAnyReadable:nil
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6097	writable:(Array with:fd)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6098	exception:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6099	withTimeOut:0.
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6100
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6101	^ result == fd or:[result == #error].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6102	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6103
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6104	!AbstractOperatingSystem::PrinterInfo class methodsFor:'constants'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6105
d8547710430c printer stuff fm parents: 9380 diff changeset	6106	paperSizeNameForNumber:aNumber
d8547710430c printer stuff fm parents: 9380 diff changeset	6107	^ self paperSizeNumberToNameMapping at:aNumber
d8547710430c printer stuff fm parents: 9380 diff changeset	6108
d8547710430c printer stuff fm parents: 9380 diff changeset	6109	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6110	self paperSizeNameForNumber:1
d8547710430c printer stuff fm parents: 9380 diff changeset	6111	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6112
d8547710430c printer stuff fm parents: 9380 diff changeset	6113	"Created: / 31-07-2006 / 15:35:36 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6114	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6115
d8547710430c printer stuff fm parents: 9380 diff changeset	6116	paperSizeNameForNumber:aNumber ifAbsent: aBlock
d8547710430c printer stuff fm parents: 9380 diff changeset	6117	^ self paperSizeNumberToNameMapping at:aNumber ifAbsent: aBlock
d8547710430c printer stuff fm parents: 9380 diff changeset	6118
d8547710430c printer stuff fm parents: 9380 diff changeset	6119	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6120	self paperSizeNameForNumber:11212 ifAbsent: [nil]
d8547710430c printer stuff fm parents: 9380 diff changeset	6121	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6122
d8547710430c printer stuff fm parents: 9380 diff changeset	6123	"Created: / 31-07-2006 / 15:35:36 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6124	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6125
d8547710430c printer stuff fm parents: 9380 diff changeset	6126	paperSizeNames
d8547710430c printer stuff fm parents: 9380 diff changeset	6127	\|codes\|
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6128	codes := self paperSizeNumberToNameTable values asSortedCollection:[:a :b \| a < b].
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6129	^codes collect:[:each \| self paperSizeNameForNumber: each]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6130
d8547710430c printer stuff fm parents: 9380 diff changeset	6131	"Created: / 31-07-2006 / 15:35:36 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6132	"Modified: / 16-04-2007 / 12:03:55 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6133	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6134
d8547710430c printer stuff fm parents: 9380 diff changeset	6135	paperSizeNumberForName:aName
d8547710430c printer stuff fm parents: 9380 diff changeset	6136	^ self paperSizeNumberToNameMapping at:aName
d8547710430c printer stuff fm parents: 9380 diff changeset	6137
d8547710430c printer stuff fm parents: 9380 diff changeset	6138	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6139	self paperSizeNumberForName:'Letter, 8 1/2- by 11-inches'
d8547710430c printer stuff fm parents: 9380 diff changeset	6140	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6141
d8547710430c printer stuff fm parents: 9380 diff changeset	6142	"Created: / 31-07-2006 / 15:35:37 / 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	paperSizeNumberToNameMapping
d8547710430c printer stuff fm parents: 9380 diff changeset	6146	\|d\|
d8547710430c printer stuff fm parents: 9380 diff changeset	6147
d8547710430c printer stuff fm parents: 9380 diff changeset	6148	d := self paperSizeNumberToNameTable.
d8547710430c printer stuff fm parents: 9380 diff changeset	6149
d8547710430c printer stuff fm parents: 9380 diff changeset	6150	d keys copy do:[:k \| d at:(d at:k) put:k].
d8547710430c printer stuff fm parents: 9380 diff changeset	6151	^ d.
d8547710430c printer stuff fm parents: 9380 diff changeset	6152
d8547710430c printer stuff fm parents: 9380 diff changeset	6153	"Created: / 31-07-2006 / 15:35:37 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6154	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6155
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6156	paperSizeNumberToNameTable
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6157
d8547710430c printer stuff fm parents: 9380 diff changeset	6158	^Dictionary withKeysAndValues:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6159	#(
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6160	'Letter, 8 1/2- by 11-inches' 1 "/ Letter
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6161	'Legal 8 1/2- by 14-inches' 5 "/ Legal
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6162	'10- by 14-inch sheet' 16 "/ 10x14
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6163	'11- by 17-inch sheet' 17 "/ 11x17
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6164	"/ '12X11' "/ Windows 98/Me, Windows NT 4.0 and later: 12- by 11-inch sheet
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6165	'A3 sheet, 297- by 420-millimeters' 8 "/ A3
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6166	'A3 rotated sheet, 420- by 297-millimeters' 67 "/ A3_rotated
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6167	'A4 sheet, 210- by 297-millimeters' 9 "/ A4
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6168	'A4 rotated sheet, 297- by 210-millimeters' 55 "/ A4_rotated
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6169	'A4 small sheet, 210- by 297-millimeters' 10 "/ A4 small
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6170	'A5 sheet, 148- by 210-millimeters' 11 "/ A5
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6171	'A5 rotated sheet, 210- by 148-millimeters' 61 "/ A5 rotated
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6172	"/ 'a6' "/ Windows 98/Me, Windows NT 4.0 and later: A6 sheet, 105- by 148-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	6173	"/ 'a6_rotated' "/ Windows 98/Me, Windows NT 4.0 and later: A6 rotated sheet, 148- by 105-millimeters
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6174	'B4 sheet, 250- by 354-millimeters' 12 "/ B4
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6175	"/ b4_jis_rotated Windows 98/Me, Windows NT 4.0 and later: B4 (JIS) rotated sheet, 364- by 257-millimeters
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6176	'B5 sheet, 182- by 257-millimeter paper' 13 "/ B5
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6177	"/ 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	6178	"/ 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	6179	"/ 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	6180	"/ csheet C Sheet, 17- by 22-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6181	"/ 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	6182	"/ 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	6183	"/ dsheet D Sheet, 22- by 34-inches
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6184	'#9 Envelope, 3 7/8- by 8 7/8-inches' 19 "/ env_9
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6185	'#10 Envelope, 4 1/8- by 9 1/2-inches' 20 "/ env_10
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6186	'#11 Envelope, 4 1/2- by 10 3/8-inches' 21 "/ env_11
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6187	'#12 Envelope, 4 3/4- by 11-inches' 22 "/ env_12
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6188	'#14 Envelope, 5- by 11 1/2-inches' 23 "/ env_15
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6189	'C5 Envelope, 162- by 229-millimeters' 28 "/ env_c5
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6190	'C3 Envelope, 324- by 458-millimeters' 29 "/ env_c3
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6191	'C4 Envelope, 229- by 324-millimeters' 30 "/ env_c4
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6192	'C6 Envelope, 114- by 162-millimeters' 31 "/ env_c6
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6193	'C65 Envelope, 114- by 229-millimeters' 32 "/ env_c65
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6194	'B4 Envelope, 250- by 353-millimeters' 33 "/ env_b4
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6195	'B5 Envelope, 176- by 250-millimeters' 34 "/ env_b5
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6196	'B6 Envelope, 176- by 125-millimeters' 35 "/ env_b6
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6197	'DL Envelope, 110- by 220-millimeters' 27 "/ env_dl
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6198	'Italy Envelope, 110- by 230-millimeters' 36 "/ env_italy
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6199	'Monarch Envelope, 3 7/8- by 7 1/2-inches' 37 "/ env_monarch
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6200	"/ env_personal 6 3/4 Envelope, 3 5/8- by 6 1/2-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6201	"/ esheet E Sheet, 34- by 44-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6202	"/ executive Executive, 7 1/4- by 10 1/2-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6203	"/ fanfold_us US Std Fanfold, 14 7/8- by 11-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6204	"/ fanfold_std_german German Std Fanfold, 8 1/2- by 12-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6205	"/ fanfold_lgl_german German Legal Fanfold, 8 - by 13-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6206	"/ folio Folio, 8 1/2- by 13-inch paper
d8547710430c printer stuff fm parents: 9380 diff changeset	6207	"/ 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	6208	"/ jenv_chou3 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Chou #3
d8547710430c printer stuff fm parents: 9380 diff changeset	6209	"/ 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	6210	"/ jenv_chou4 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Chou #4
d8547710430c printer stuff fm parents: 9380 diff changeset	6211	"/ 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	6212	"/ jenv_kaku2 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Kaku #2
d8547710430c printer stuff fm parents: 9380 diff changeset	6213	"/ 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	6214	"/ jenv_kaku3 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Kaku #3
d8547710430c printer stuff fm parents: 9380 diff changeset	6215	"/ 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	6216	"/ jenv_you4 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope You #4
d8547710430c printer stuff fm parents: 9380 diff changeset	6217	"/ 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	6218	"/ last Windows 2000/XP: PENV_10_ROTATED
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6219	'Ledger, 17- by 11-inches' 4 "/ ledger
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6220	'Letter Rotated 11 by 8 1/2 11 inches' 54 "/ letter_rotated
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6221	"/ lettersmall Letter Small, 8 1/2- by 11-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6222	"/ note Note, 8 1/2- by 11-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6223	"/ p16k Windows 98/Me, Windows NT 4.0 and later: PRC 16K, 146- by 215-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	6224	"/ 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	6225	"/ p32k Windows 98/Me, Windows NT 4.0 and later: PRC 32K, 97- by 151-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	6226	"/ 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	6227	"/ 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	6228	"/ 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	6229	"/ 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	6230	"/ 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	6231	"/ 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	6232	"/ 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	6233	"/ 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	6234	"/ 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	6235	"/ 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	6236	"/ 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	6237	"/ 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	6238	"/ 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	6239	"/ 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	6240	"/ 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	6241	"/ 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	6242	"/ 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	6243	"/ 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	6244	"/ 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	6245	"/ 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	6246	"/ 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	6247	"/ 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	6248	"/ 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	6249	"/ quarto Quarto, 215- by 275-millimeter paper
d8547710430c printer stuff fm parents: 9380 diff changeset	6250	"/ statement Statement, 5 1/2- by 8 1/2-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6251	"/ tabloid Tabloid, 11- by 17-inches
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6252	).
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6253
d8547710430c printer stuff fm parents: 9380 diff changeset	6254	"Created: / 31-07-2006 / 15:35:37 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6255	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6256
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6257	statusNumberToDescriptionForNumber:aNumber
11403 0a34ea95a57b changed: #statusNumberToDescriptionForNumber: fm parents: 11180 diff changeset	6258	^ self statusNumberToDescriptionMapping at:aNumber ifAbsent:[('Unknown (%1)' bindWith:aNumber printString)]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6259
d8547710430c printer stuff fm parents: 9380 diff changeset	6260	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6261	self statusNumberToDescriptionForNumber:1
d8547710430c printer stuff fm parents: 9380 diff changeset	6262	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6263
d8547710430c printer stuff fm parents: 9380 diff changeset	6264	"Created: / 01-08-2006 / 14:31:18 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6265	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6266
d8547710430c printer stuff fm parents: 9380 diff changeset	6267	statusNumberToDescriptionMapping
d8547710430c printer stuff fm parents: 9380 diff changeset	6268	\|d\|
d8547710430c printer stuff fm parents: 9380 diff changeset	6269
d8547710430c printer stuff fm parents: 9380 diff changeset	6270	d := self statusNumberToDescriptionTable.
d8547710430c printer stuff fm parents: 9380 diff changeset	6271
d8547710430c printer stuff fm parents: 9380 diff changeset	6272	d keys copy do:[:k \| d at:(d at:k) put:k].
d8547710430c printer stuff fm parents: 9380 diff changeset	6273	^ d.
d8547710430c printer stuff fm parents: 9380 diff changeset	6274
d8547710430c printer stuff fm parents: 9380 diff changeset	6275	"Created: / 01-08-2006 / 14:31:05 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6276	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6277
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6278	statusNumberToDescriptionTable
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6279
d8547710430c printer stuff fm parents: 9380 diff changeset	6280	^Dictionary withKeysAndValues:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6281	#( 'Ready' 0 "/ PRINTER_STATUS_READY
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6282	'Paused' 1 "/ PRINTER_STATUS_PAUSED
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6283	'Error' 2 "/ PRINTER_STATUS_ERROR
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6284	'Deleting...' 4 "/ PRINTER_STATUS_PENDING_DELETION
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6285	'Paper Jam' 8 "/ PRINTER_STATUS_PAPER_JAM
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6286	'Paper Out' 16 "/ PRINTER_STATUS_PAPER_OUT
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6287	'Manual Feed Required' 32 "/ PRINTER_STATUS_MANUAL_FEED
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6288	'Paper Problem' 64 "/ PRINTER_STATUS_PAPER_PROBLEM
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6289	'Offline' 128 "/ PRINTER_STATUS_OFFLINE
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6290	'Downloading Job' 256 "/ PRINTER_STATUS_IO_ACTIVE
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6291	'Busy' 512 "/ PRINTER_STATUS_BUSY
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6292	'Printing' 1024 "/ PRINTER_STATUS_PRINTING
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6293	'Output Bill Full' 2048 "/ PRINTER_STATUS_OUTPUT_BIN_FULL
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6294	'Not Available' 4096 "/ PRINTER_STATUS_NOT_AVAILABLE
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6295	'Waiting' 8192 "/ PRINTER_STATUS_WAITING
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6296	'Processing Job' 16384 "/ PRINTER_STATUS_PROCESSING
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6297	'Initializing' 32768 "/ PRINTER_STATUS_INITIALIZING
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6298	'Warming Up' 65536 "/ PRINTER_STATUS_WARMING_UP
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6299	'Toner Low' 131072 "/ PRINTER_STATUS_TONER_LOW
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6300	'Toner Out' 262144 "/ PRINTER_STATUS_NO_TONER
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6301	'Page too Complex' 524288 "/ PRINTER_STATUS_PAGE_PUNT
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6302	'User Intervention Required'1048576 "/ PRINTER_STATUS_USER_INTERVENTION
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6303	'Out of Memory' 2097152 "/ PRINTER_STATUS_OUT_OF_MEMORY
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6304	'Door Open' 4194304 "/ PRINTER_STATUS_DOOR_OPEN
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6305	'Unable to connect' 8388608 "/ PRINTER_STATUS_SERVER_UNKNOWN
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6306	'Power Save Mode' 16777216 "/ PRINTER_STATUS_POWER_SAVE
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6307	).
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6308
d8547710430c printer stuff fm parents: 9380 diff changeset	6309	"Created: / 01-08-2006 / 14:23:33 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6310	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6311
d8547710430c printer stuff fm parents: 9380 diff changeset	6312	!AbstractOperatingSystem::PrinterInfo methodsFor:'accessing'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6313
d8547710430c printer stuff fm parents: 9380 diff changeset	6314	attributes
d8547710430c printer stuff fm parents: 9380 diff changeset	6315	^ attributes
d8547710430c printer stuff fm parents: 9380 diff changeset	6316
d8547710430c printer stuff fm parents: 9380 diff changeset	6317	"Created: / 27-07-2006 / 12:16:59 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6318	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6319
d8547710430c printer stuff fm parents: 9380 diff changeset	6320	collate
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6321	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6322
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6323	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6324	^ properties isNil ifTrue:[ nil ] ifFalse:[ properties collate = 1 ]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6325
d8547710430c printer stuff fm parents: 9380 diff changeset	6326	"Created: / 01-08-2006 / 09:56:14 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6327	"Modified: / 01-08-2006 / 11:49:18 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6328	"Modified: / 18-10-2006 / 12:02:29 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6329	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6330
d8547710430c printer stuff fm parents: 9380 diff changeset	6331	collate: aBoolean
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6332	\|integer\|
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6333
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6334	integer:= aBoolean
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6335	ifTrue:[1] "DMCOLLATE_TRUE"
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6336	ifFalse:[0]. "DMCOLLATE_FALSE"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6337	self documentProperties collate: integer
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6338
d8547710430c printer stuff fm parents: 9380 diff changeset	6339	"Created: / 01-08-2006 / 09:56:01 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6340	"Modified: / 16-04-2007 / 12:01:30 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6341	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6342
d8547710430c printer stuff fm parents: 9380 diff changeset	6343	comment
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6344	^self printerInfo2 pComment
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6345
d8547710430c printer stuff fm parents: 9380 diff changeset	6346	"Created: / 01-08-2006 / 15:06:20 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6347	"Modified: / 16-04-2007 / 12:01:42 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6348	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6349
d8547710430c printer stuff fm parents: 9380 diff changeset	6350	copies
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6351	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6352
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6353	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6354	^ properties isNil ifTrue:[ nil ] ifFalse:[ properties copies ]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6355
d8547710430c printer stuff fm parents: 9380 diff changeset	6356	"Created: / 31-07-2006 / 13:46:53 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6357	"Modified: / 18-10-2006 / 12:02:14 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6358	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6359
d8547710430c printer stuff fm parents: 9380 diff changeset	6360	copies: anInteger
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6361	self documentProperties copies: anInteger
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6362
d8547710430c printer stuff fm parents: 9380 diff changeset	6363	"Created: / 31-07-2006 / 13:54:55 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6364	"Modified: / 16-04-2007 / 12:01:48 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6365	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6366
d8547710430c printer stuff fm parents: 9380 diff changeset	6367	documentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6368
d8547710430c printer stuff fm parents: 9380 diff changeset	6369	^documentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6370
d8547710430c printer stuff fm parents: 9380 diff changeset	6371	"Created: / 28-07-2006 / 11:50:04 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6372	"Modified: / 31-07-2006 / 13:06:24 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6373	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6374
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6375	documentProperties: aDevModeStructure
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6376
d8547710430c printer stuff fm parents: 9380 diff changeset	6377	documentProperties := aDevModeStructure.
d8547710430c printer stuff fm parents: 9380 diff changeset	6378
d8547710430c printer stuff fm parents: 9380 diff changeset	6379	"Created: / 28-07-2006 / 11:47:31 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6380	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6381
d8547710430c printer stuff fm parents: 9380 diff changeset	6382	driverName
d8547710430c printer stuff fm parents: 9380 diff changeset	6383
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6384	^self attributes at:#driverName
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6385
d8547710430c printer stuff fm parents: 9380 diff changeset	6386	"Created: / 01-08-2006 / 15:33:08 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6387	"Modified: / 16-04-2007 / 12:01:53 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6388	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6389
d8547710430c printer stuff fm parents: 9380 diff changeset	6390	location
d8547710430c printer stuff fm parents: 9380 diff changeset	6391
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6392	^self printerInfo2 pLocation
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6393
d8547710430c printer stuff fm parents: 9380 diff changeset	6394	"Created: / 01-08-2006 / 15:06:28 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6395	"Modified: / 16-04-2007 / 12:02:07 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6396	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6397
d8547710430c printer stuff fm parents: 9380 diff changeset	6398	longName
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6399	^attributes at:#longName ifAbsent:['']
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6400
d8547710430c printer stuff fm parents: 9380 diff changeset	6401	"Created: / 28-07-2006 / 12:06:32 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6402	"Modified: / 16-04-2007 / 12:02:11 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6403	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6404
d8547710430c printer stuff fm parents: 9380 diff changeset	6405	medium
d8547710430c printer stuff fm parents: 9380 diff changeset	6406
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6407	^self attributes at:#medium
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6408
d8547710430c printer stuff fm parents: 9380 diff changeset	6409	"Created: / 01-08-2006 / 15:34:26 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6410	"Modified: / 16-04-2007 / 12:02:14 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6411	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6412
d8547710430c printer stuff fm parents: 9380 diff changeset	6413	orientation
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6414	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6415
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6416	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6417	^ properties isNil ifTrue:[ nil ] ifFalse:[ properties orientation ]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6418
d8547710430c printer stuff fm parents: 9380 diff changeset	6419	"Created: / 28-07-2006 / 16:44:26 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6420	"Modified: / 18-10-2006 / 12:01:36 / User"
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6421	!
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6422
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6423	orientation:anInteger
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6424	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6425
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6426	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6427	properties notNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6428	properties orientation:anInteger
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6429	]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6430
d8547710430c printer stuff fm parents: 9380 diff changeset	6431	"Created: / 28-07-2006 / 17:22:44 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6432	"Modified: / 18-10-2006 / 12:01:40 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6433	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6434
d8547710430c printer stuff fm parents: 9380 diff changeset	6435	pDriverName
d8547710430c printer stuff fm parents: 9380 diff changeset	6436
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6437	^self printerInfo2 pDriverName
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6438
d8547710430c printer stuff fm parents: 9380 diff changeset	6439	"Created: / 01-08-2006 / 15:33:08 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6440	"Modified: / 16-04-2007 / 12:02:21 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6441	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6442
d8547710430c printer stuff fm parents: 9380 diff changeset	6443	paperSize
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6444	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6445
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6446	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6447	^ properties isNil ifTrue:[ nil ] ifFalse:[ properties paperSize ]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6448
d8547710430c printer stuff fm parents: 9380 diff changeset	6449	"Created: / 31-07-2006 / 15:23:29 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6450	"Modified: / 31-07-2006 / 16:25:58 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6451	"Modified: / 18-10-2006 / 12:01:45 / User"
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6452	!
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6453
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6454	paperSize:anInteger
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6455	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6456
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6457	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6458	properties notNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6459	properties paperSize:anInteger
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6460	]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6461
d8547710430c printer stuff fm parents: 9380 diff changeset	6462	"Created: / 31-07-2006 / 15:23:20 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6463	"Modified: / 18-10-2006 / 12:01:48 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6464	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6465
d8547710430c printer stuff fm parents: 9380 diff changeset	6466	paperSizeName
d8547710430c printer stuff fm parents: 9380 diff changeset	6467	^ self class paperSizeNameForNumber:self paperSize ifAbsent:[nil].
d8547710430c printer stuff fm parents: 9380 diff changeset	6468
d8547710430c printer stuff fm parents: 9380 diff changeset	6469	"Created: / 31-07-2006 / 15:35:12 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6470	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6471
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6472	paperSizeName:aString
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6473	self paperSize:(self class paperSizeNumberForName:aString)
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6474
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6475	"Modified: / 18-10-2006 / 12:01:56 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6476	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6477
d8547710430c printer stuff fm parents: 9380 diff changeset	6478	printQuality
d8547710430c printer stuff fm parents: 9380 diff changeset	6479	^self documentProperties printQuality
d8547710430c printer stuff fm parents: 9380 diff changeset	6480
d8547710430c printer stuff fm parents: 9380 diff changeset	6481	"Created: / 04-08-2006 / 13:10:06 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6482	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6483
d8547710430c printer stuff fm parents: 9380 diff changeset	6484	printerName
d8547710430c printer stuff fm parents: 9380 diff changeset	6485	^ printerName
d8547710430c printer stuff fm parents: 9380 diff changeset	6486
d8547710430c printer stuff fm parents: 9380 diff changeset	6487	"Created: / 27-07-2006 / 12:16:59 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6488	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6489
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6490	printerName:printerNameArg attributes:attributesArg
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6491
d8547710430c printer stuff fm parents: 9380 diff changeset	6492	printerName := printerNameArg.
d8547710430c printer stuff fm parents: 9380 diff changeset	6493	attributes := attributesArg.
d8547710430c printer stuff fm parents: 9380 diff changeset	6494
d8547710430c printer stuff fm parents: 9380 diff changeset	6495	"Created: / 27-07-2006 / 12:29:18 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6496	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6497
d8547710430c printer stuff fm parents: 9380 diff changeset	6498	remotePrinterHost
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6499	^attributes at:#remotePrinterHost ifAbsent:['']
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6500
d8547710430c printer stuff fm parents: 9380 diff changeset	6501	"Created: / 28-07-2006 / 16:30:13 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6502	"Modified: / 16-04-2007 / 12:02:32 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6503	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6504
d8547710430c printer stuff fm parents: 9380 diff changeset	6505	remotePrinterName
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6506	^attributes at:#remotePrinterName ifAbsent:['']
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6507
d8547710430c printer stuff fm parents: 9380 diff changeset	6508	"Created: / 28-07-2006 / 16:30:06 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6509	"Modified: / 16-04-2007 / 12:03:23 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6510	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6511
d8547710430c printer stuff fm parents: 9380 diff changeset	6512	status
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6513	self isAvailable ifFalse:[^''].
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6514	^self class statusNumberToDescriptionForNumber: self getPrinterInfo2 status
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6515
d8547710430c printer stuff fm parents: 9380 diff changeset	6516	"Created: / 01-08-2006 / 13:48:58 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6517	"Modified: / 16-04-2007 / 12:03:41 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6518	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6519
d8547710430c printer stuff fm parents: 9380 diff changeset	6520	userFriendlyName
d8547710430c printer stuff fm parents: 9380 diff changeset	6521	^self remotePrinterName isEmpty
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6522	ifTrue:[self printerName]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6523	ifFalse:[self remotePrinterName, ' on ', self remotePrinterHost]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6524
d8547710430c printer stuff fm parents: 9380 diff changeset	6525	"Created: / 03-08-2006 / 12:50:09 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6526	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6527
d8547710430c printer stuff fm parents: 9380 diff changeset	6528	!AbstractOperatingSystem::PrinterInfo methodsFor:'dc creation'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6529
d8547710430c printer stuff fm parents: 9380 diff changeset	6530	createDC
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6531	\|driverName pName\|
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6532
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6533	driverName := self driverName.
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6534	pName := self printerName.
10513 0a27c8d86154 * empty log message * Claus Gittinger <cg@exept.de> parents: 10510 diff changeset	6535	"/ Transcript show:driverName; show:' '; showCR:printerName.
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6536
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6537	^OperatingSystem createPrinterDC:driverName
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6538	device:pName
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6539	output:self medium
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6540	initData:self documentProperties.
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6541
d8547710430c printer stuff fm parents: 9380 diff changeset	6542	"Created: / 02-08-2006 / 16:51:02 / fm"
10513 0a27c8d86154 * empty log message * Claus Gittinger <cg@exept.de> parents: 10510 diff changeset	6543	"Modified: / 16-04-2007 / 13:56:56 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6544	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6545
d8547710430c printer stuff fm parents: 9380 diff changeset	6546	!AbstractOperatingSystem::PrinterInfo methodsFor:'dialogs'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6547
d8547710430c printer stuff fm parents: 9380 diff changeset	6548	openPropertiesDialog
9844 c92a32fa507d * empty log message * Claus Gittinger <cg@exept.de> parents: 9721 diff changeset	6549	"Returns true if the documentProperties have been accepted. Otherwise, returns false"
c92a32fa507d * empty log message * Claus Gittinger <cg@exept.de> parents: 9721 diff changeset	6550
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6551	\|h newDocumentProperties\|
d8547710430c printer stuff fm parents: 9380 diff changeset	6552
d8547710430c printer stuff fm parents: 9380 diff changeset	6553	h := OperatingSystem openPrinter: self printerName.
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6554	newDocumentProperties := OperatingSystem documentPropertiesDialogFor:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6555	hPrinter:h
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6556	pDeviceName: self printerName
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6557	devModeInput:self documentProperties.
9844 c92a32fa507d * empty log message * Claus Gittinger <cg@exept.de> parents: 9721 diff changeset	6558	(newDocumentProperties contains:[:el \| el ~= 0])
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6559	ifFalse:[^false].
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6560	self documentProperties: newDocumentProperties.
d8547710430c printer stuff fm parents: 9380 diff changeset	6561	OperatingSystem closePrinter:h.
d8547710430c printer stuff fm parents: 9380 diff changeset	6562	^true
d8547710430c printer stuff fm parents: 9380 diff changeset	6563
d8547710430c printer stuff fm parents: 9380 diff changeset	6564	"Created: / 28-07-2006 / 11:44:01 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6565	"Modified: / 01-08-2006 / 11:55:49 / fm"
9844 c92a32fa507d * empty log message * Claus Gittinger <cg@exept.de> parents: 9721 diff changeset	6566	"Modified: / 13-09-2006 / 11:36:10 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6567	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6568
d8547710430c printer stuff fm parents: 9380 diff changeset	6569	!AbstractOperatingSystem::PrinterInfo methodsFor:'modifying'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6570
d8547710430c printer stuff fm parents: 9380 diff changeset	6571	setLandscapeOrientation
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6572	"DMORIENT_LANDSCAPE = 2"
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6573	self documentProperties orientation: 2
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6574
d8547710430c printer stuff fm parents: 9380 diff changeset	6575	"Created: / 28-07-2006 / 15:53:35 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6576	"Modified: / 16-04-2007 / 12:03:30 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6577	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6578
d8547710430c printer stuff fm parents: 9380 diff changeset	6579	setNumberOfCopies: n
d8547710430c printer stuff fm parents: 9380 diff changeset	6580
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6581	self documentProperties copies: n
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6582
d8547710430c printer stuff fm parents: 9380 diff changeset	6583	"Created: / 28-07-2006 / 16:04:04 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6584	"Modified: / 16-04-2007 / 12:03:33 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6585	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6586
d8547710430c printer stuff fm parents: 9380 diff changeset	6587	setPortraitOrientation
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6588	"DMORIENT_PORTRAIT = 1"
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6589	self documentProperties orientation: 1
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6590
d8547710430c printer stuff fm parents: 9380 diff changeset	6591	"Created: / 28-07-2006 / 15:49:45 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6592	"Modified: / 16-04-2007 / 12:03:36 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6593	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6594
d8547710430c printer stuff fm parents: 9380 diff changeset	6595	!AbstractOperatingSystem::PrinterInfo methodsFor:'printing & storing'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6596
d8547710430c printer stuff fm parents: 9380 diff changeset	6597	printOn:aStream
d8547710430c printer stuff fm parents: 9380 diff changeset	6598	aStream nextPutAll:(self class name); nextPutAll:'('.
d8547710430c printer stuff fm parents: 9380 diff changeset	6599	printerName printOn:aStream.
d8547710430c printer stuff fm parents: 9380 diff changeset	6600	aStream nextPutAll:')'.
d8547710430c printer stuff fm parents: 9380 diff changeset	6601
d8547710430c printer stuff fm parents: 9380 diff changeset	6602	"Created: / 27-07-2006 / 12:30:28 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6603	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6604
d8547710430c printer stuff fm parents: 9380 diff changeset	6605	!AbstractOperatingSystem::PrinterInfo methodsFor:'private'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6606
d8547710430c printer stuff fm parents: 9380 diff changeset	6607	getDocumentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6608	"Returns a aDevModeStructure"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6609
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6610	\|h devMode \|
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6611
d8547710430c printer stuff fm parents: 9380 diff changeset	6612	h := OperatingSystem openPrinter: self printerName.
d8547710430c printer stuff fm parents: 9380 diff changeset	6613	devMode := OperatingSystem getDocumentProperties:nil
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6614	hPrinter:h
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6615	pDeviceName: self printerName.
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6616	OperatingSystem closePrinter: h.
d8547710430c printer stuff fm parents: 9380 diff changeset	6617	^devMode
d8547710430c printer stuff fm parents: 9380 diff changeset	6618
d8547710430c printer stuff fm parents: 9380 diff changeset	6619	"Created: / 28-07-2006 / 11:49:33 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6620	"Modified: / 31-07-2006 / 10:33:04 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6621	"Modified: / 16-04-2007 / 12:02:00 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6622	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6623
d8547710430c printer stuff fm parents: 9380 diff changeset	6624	getPrinterInfo2
d8547710430c printer stuff fm parents: 9380 diff changeset	6625	"Returns a aPrinterInfo2 structure"
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6626
10097 2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6627	printerInfo2 := OperatingSystem getPrinterInfo2:self printerName.
2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6628	^ printerInfo2
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6629
d8547710430c printer stuff fm parents: 9380 diff changeset	6630	"Created: / 01-08-2006 / 13:50:55 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6631	"Modified: / 01-08-2006 / 15:11:03 / fm"
10097 2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6632	"Modified: / 18-10-2006 / 12:03:54 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6633	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6634
d8547710430c printer stuff fm parents: 9380 diff changeset	6635	printerInfo2
d8547710430c printer stuff fm parents: 9380 diff changeset	6636	"Returns a aPrinterInfo2 structure"
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6637
10097 2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6638	printerInfo2 isNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6639	self getPrinterInfo2.
10097 2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6640	].
2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6641	^ printerInfo2
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6642
d8547710430c printer stuff fm parents: 9380 diff changeset	6643	"Created: / 01-08-2006 / 15:10:18 / fm"
10097 2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6644	"Modified: / 18-10-2006 / 12:03:57 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6645	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6646
d8547710430c printer stuff fm parents: 9380 diff changeset	6647	setDocumentProperties
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6648	"Sets a aDevModeStructure or nil if the printer is not available"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6649
d8547710430c printer stuff fm parents: 9380 diff changeset	6650	self documentProperties: self getDocumentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6651
d8547710430c printer stuff fm parents: 9380 diff changeset	6652	"Created: / 31-07-2006 / 13:04:58 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6653	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6654
d8547710430c printer stuff fm parents: 9380 diff changeset	6655	!AbstractOperatingSystem::PrinterInfo methodsFor:'queries'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6656
d8547710430c printer stuff fm parents: 9380 diff changeset	6657	isAvailable
d8547710430c printer stuff fm parents: 9380 diff changeset	6658
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6659	^self documentProperties notNil
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6660
d8547710430c printer stuff fm parents: 9380 diff changeset	6661	"Created: / 31-07-2006 / 13:08:58 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6662	"Modified: / 16-04-2007 / 12:02:05 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6663	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6664
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6665	!AbstractOperatingSystem::TimeInfo methodsFor:'accessing'!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6666
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6667	at:index
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6668	"backward compatibility"
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6669
8357 64be78ef1e77 Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 8250 diff changeset	6670	<resource: #obsolete>
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6671	self obsoleteMethodWarning:'use accessor for index ', index printString.
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6672
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6673	index == 1 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6674	^ self year.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6675	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6676	index == 2 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6677	^ self month.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6678	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6679	index == 3 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6680	^ self day.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6681	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6682	index == 4 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6683	^ self hours.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6684	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6685	index == 5 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6686	^ self minutes.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6687	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6688	index == 6 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6689	^ self seconds.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6690	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6691	index == 7 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6692	^ self utcOffset.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6693	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6694	index == 8 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6695	^ self dst.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6696	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6697	index == 9 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6698	^ self milliseconds.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6699	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6700	index == 10 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6701	^ self dayInYear.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6702	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6703	index == 11 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6704	^ self dayInWeek.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6705	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6706	self subscriptBoundsError:index
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6707	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6708
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6709	day
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6710	^ day
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6711	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6712
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6713	dayInWeek
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6714	^ dayInWeek
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6715	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6716
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6717	dayInYear
17757 73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6718	"answer of compute the day of the year - if necessary
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6719	(it is not set in windows)"
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6720
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6721	\|dayCount\|
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6722
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6723	dayInYear notNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6724	^ dayInYear.
17757 73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6725	].
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6726
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6727	dayCount := #(0 31 59 90 120 151 181 212 243 273 304 334) at:month.
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6728	(month > 2
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6729	and:[(year \\ 4 == 0)
17757 73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6730	and:[(year \\ 100 ~~ 0)
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6731	and:[(year \\ 400 == 0)]]]) ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6732	"leap year and month after February"
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6733	dayCount := dayCount + 1.
17757 73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6734	].
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6735
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6736	^ dayCount + day.
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6737
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6738
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6739	"
17757 73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6740	\|daysSoFar\|
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6741
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6742	daysSoFar := 0.
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6743	#(0 31 28 31 30 31 30 31 31 30 31 30) collect:[:daysInMonth\| daysSoFar := daysSoFar + daysInMonth. daysSoFar]
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6744	"
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6745	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6746
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6747	dst
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6748	^ dst
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6749	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6750
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6751	hours
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6752	^ hours
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6753	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6754
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6755	milliseconds
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6756	^ milliseconds
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6757	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6758
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6759	milliseconds:something
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6760	milliseconds := something.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6761	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6762
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6763	minutes
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6764	^ minutes
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6765	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6766
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6767	month
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6768	^ month
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6769	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6770
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6771	seconds
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6772	^ seconds
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6773	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6774
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6775	utcOffset
8887 0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6776	"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	6777	If daylight saving time applies to ourself, take that into account.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6778	Add utcOffset to convert from local time to UTC time.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6779	Subtract utcOffset to convert from UTC time to local time.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6780
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6781	If utcOffset is negative, the local timezone is east of Greenwich.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6782	If utcOffset is positive, the local timezone is west of Greenwich."
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6783
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6784	^ utcOffset
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6785
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6786	"
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6787	OperatingSystem utcOffset
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6788	"
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6789	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6790
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6791	year
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6792	^ year
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6793	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6794
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6795	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	6796	"set instance variables (automatically generated)"
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6797
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6798	year := yearArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6799	month := monthArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6800	day := dayArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6801	hours := hoursArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6802	minutes := minutesArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6803	seconds := secondsArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6804	milliseconds := millisecondsArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6805	utcOffset := utcOffsetArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6806	dst := dstArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6807	dayInYear := dayInYearArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6808	dayInWeek := dayInWeekArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6809	!
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6810
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6811	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	6812	"set instance variables (automatically generated)"
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6813
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6814	year := yearArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6815	month := monthArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6816	day := dayArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6817	hours := hoursArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6818	minutes := minutesArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6819	seconds := secondsArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6820	utcOffset := utcOffsetArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6821	dst := dstArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6822	dayInYear := dayInYearArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6823	dayInWeek := dayInWeekArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6824	! !
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6825
17815 956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6826	!AbstractOperatingSystem::TimeInfo methodsFor:'converting'!
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6827
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6828	asDate
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6829	^ Date new year:year month:month day:day.
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6830	!
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6831
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6832	asTime
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6833	^ Time hours:hours minutes:minutes seconds:seconds
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6834	! !
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6835
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6836	!AbstractOperatingSystem::TimeZoneInfo class methodsFor:'documentation'!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6837
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6838	documentation
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6839	"
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6840	Bias
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6841	The current bias for local time translation on this computer, in minutes.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6842	The bias is the difference, in minutes, between Coordinated Universal Time (UTC)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6843	and local time.
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6844	All translations between UTC and local time are based on the following formula:
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6845
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6846	UTC = local time + bias
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6847
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6848	StandardName
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6849	A description for standard time. For example, 'EST' could indicate Eastern Standard Time.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6850	The string will be returned unchanged by the GetTimeZoneInformation function.
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6851	This string can be empty.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6852	This is for information only - do not depend on the value of the string.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6853
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6854	StandardDate
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6855	A Timestamp that contains a date and local time when the transition from daylight saving
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6856	time to standard time occurs on this operating system.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6857	If the time zone does not support daylight saving time or if the caller needs to disable
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6858	daylight saving time, the standardDate is nil.
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6859	If this date is specified, the DaylightDate member of this structure must also be specified.
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6860	Otherwise, the system assumes the time zone data is invalid and no changes will be applied.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6861
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6862	To select the correct day in the month, set the wYear member to zero, the wHour and wMinute members
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6863	to the transition time, the wDayOfWeek member to the appropriate weekday, and the wDay member to indicate
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6864	the occurrence of the day of the week within the month (1 to 5, where 5 indicates the final occurrence
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6865	during the month if that day of the week does not occur 5 times).
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6866
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6867	Using this notation, specify 02:00 on the first Sunday in April as follows:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6868	wHour = 2, wMonth = 4, wDayOfWeek = 0, wDay = 1.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6869	Specify 02:00 on the last Thursday in October as follows:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6870	wHour = 2, wMonth = 10, wDayOfWeek = 4, wDay = 5.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6871
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6872	If the wYear member is not zero, the transition date is absolute; it will only occur one time.
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6873	Otherwise, it is a relative date that occurs yearly.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6874
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6875	StandardBias
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6876	The bias value to be used during local time translations that occur during standard time.
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6877	This member is ignored if a value for the StandardDate member is not supplied.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6878
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6879	This value is added to the value of the Bias member to form the bias used during standard time.
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6880	In most time zones, the value of this member is zero.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6881
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6882	DaylightName
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6883	A description for daylight saving time. For example, 'PDT' could indicate Pacific Daylight Time.
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6884	The string will be returned unchanged by the GetTimeZoneInformation function. This string can be empty.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6885	This is for information only - do not depend on the value of the string.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6886
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6887	DaylightDate
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6888	A Timestamp structure that contains a date and local time when the transition from standard time
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6889	to daylight saving time occurs on this operating system.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6890	If the time zone does not support daylight saving time or if the caller needs to disable daylight
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6891	saving time, this entry is nil.
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6892	If this date is specified, the StandardDate member in this structure must also be specified.
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6893	Otherwise, the system assumes the time zone data is invalid and no changes will be applied.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6894
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6895	To select the correct day in the month, set the wYear member to zero, the wHour and wMinute members to
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6896	the transition time, the wDayOfWeek member to the appropriate weekday, and the wDay member to indicate
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6897	the occurrence of the day of the week within the month (1 to 5, where 5 indicates the final occurrence
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6898	during the month if that day of the week does not occur 5 times).
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6899
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6900	If the wYear member is not zero, the transition date is absolute; it will only occur one time.
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6901	Otherwise, it is a relative date that occurs yearly.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6902
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6903	DaylightBias
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6904	The bias value to be used during local time translations that occur during daylight saving time.
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6905	This member is ignored if a value for the DaylightDate member is not supplied.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6906
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6907	This value is added to the value of the Bias member to form the bias used during daylight saving time.
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6908	In most time zones, the value of this member is -60
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6909	"
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6910	! !
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6911
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6912	!AbstractOperatingSystem::TimeZoneInfo methodsFor:'accessing'!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6913
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6914	bias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6915	^ bias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6916	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6917
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6918	bias:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6919	bias := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6920	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6921
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6922	bias:biasArg name:nameArg standardBias:standardBiasArg daylightName:daylightNameArg daylightBias:daylightBiasArg
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6923	bias := biasArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6924	name := nameArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6925	standardBias := standardBiasArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6926	daylightName := daylightNameArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6927	daylightBias := daylightBiasArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6928	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6929
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6930	bias:biasArg name:nameArg standardDate:standardDateArg standardBias:standardBiasArg daylightName:daylightNameArg daylightDate:daylightDateArg daylightBias:daylightBiasArg
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6931	bias := biasArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6932	name := nameArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6933	standardDate := standardDateArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6934	standardBias := standardBiasArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6935	daylightName := daylightNameArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6936	daylightDate := daylightDateArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6937	daylightBias := daylightBiasArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6938	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6939
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6940	daylightBias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6941	^ daylightBias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6942	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6943
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6944	daylightBias:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6945	daylightBias := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6946	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6947
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6948	daylightDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6949	^ daylightDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6950	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6951
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6952	daylightDay:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6953	daylightDay := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6954	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6955
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6956	daylightHour
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6957	^ daylightHour
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6958	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6959
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6960	daylightHour:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6961	daylightHour := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6962	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6963
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6964	daylightMinute
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6965	^ daylightMinute
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6966	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6967
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6968	daylightMinute:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6969	daylightMinute := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6970	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6971
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6972	daylightMonth
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6973	^ daylightMonth
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6974	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6975
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6976	daylightMonth:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6977	daylightMonth := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6978	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6979
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6980	daylightName
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6981	^ daylightName
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6982	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6983
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6984	daylightName:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6985	daylightName := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6986	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6987
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6988	daylightWeekDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6989	^ daylightWeekDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6990	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6991
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6992	daylightWeekDay:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6993	daylightWeekDay := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6994	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6995
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6996	daylightYear
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6997	^ daylightYear
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6998	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6999
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7000	daylightYear:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7001	daylightYear := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7002	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7003
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	7004	daylightYear:daylightYearArg daylightMonth:daylightMonthArg daylightDay:daylightDayArg daylightWeekDay:daylightWeekDayArg daylightHour:daylightHourArg daylightMinute:daylightMinuteArg
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7005	daylightYear := daylightYearArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7006	daylightMonth := daylightMonthArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7007	daylightDay := daylightDayArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7008	daylightWeekDay := daylightWeekDayArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7009	daylightHour := daylightHourArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7010	daylightMinute := daylightMinuteArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7011	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7012
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7013	name
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7014	^ name
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7015	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7016
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7017	name:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7018	name := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7019	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7020
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7021	standardBias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7022	^ standardBias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7023	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7024
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7025	standardBias:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7026	standardBias := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7027	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7028
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7029	standardDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7030	^ standardDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7031	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7032
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7033	standardDay:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7034	standardDay := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7035	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7036
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7037	standardHour
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7038	^ standardHour
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7039	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7040
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7041	standardHour:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7042	standardHour := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7043	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7044
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7045	standardMinute
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7046	^ standardMinute
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7047	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7048
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7049	standardMinute:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7050	standardMinute := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7051	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7052
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7053	standardMonth
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7054	^ standardMonth
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7055	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7056
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7057	standardMonth:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7058	standardMonth := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7059	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7060
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7061	standardWeekDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7062	^ standardWeekDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7063	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7064
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7065	standardWeekDay:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7066	standardWeekDay := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7067	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7068
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7069	standardYear
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7070	^ standardYear
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7071	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7072
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7073	standardYear:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7074	standardYear := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7075	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7076
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	7077	standardYear:standardYearArg standardMonth:standardMonthArg standardDay:standardDayArg standardWeekDay:standardWeekDayArg standardHour:standardHourArg standardMinute:standardMinuteArg
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7078	standardYear := standardYearArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7079	standardMonth := standardMonthArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7080	standardDay := standardDayArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7081	standardWeekDay := standardWeekDayArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7082	standardHour := standardHourArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7083	standardMinute := standardMinuteArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7084	! !
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7085
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7086	!AbstractOperatingSystem::TimeZoneInfo methodsFor:'queries'!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7087
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7088	utcOffset
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7089	"return the difference between UTC (Greenwich Mean Time) and the local time in seconds.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7090	If daylight saving time applies to ourself, take that into account.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7091	Add utcOffset to convert from local time to UTC time.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7092	Subtract utcOffset to convert from UTC time to local time.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7093
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7094	If utcOffset is negative, the local timezone is east of Greenwich.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7095	If utcOffset is positive, the local timezone is west of Greenwich."
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7096
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7097	^ (bias + daylightBias) * 60
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7098
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7099	"
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7100	OperatingSystem utcOffset
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7101	"
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7102	! !
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7103
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	7104	!AbstractOperatingSystem class methodsFor:'documentation'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	7105
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	7106	version
17912 80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	7107	^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.219 2012/01/20 12:33:14 cg Exp $'
17735 6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	7108	!
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	7109
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	7110	version_CVS
17912 80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	7111	^ 'Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.219 2012/01/20 12:33:14 cg Exp '
17865 598963c6ff8e Recommited from itself Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17847 diff changeset	7112	!
598963c6ff8e Recommited from itself Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17847 diff changeset	7113
598963c6ff8e Recommited from itself Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17847 diff changeset	7114	version_SVN
17912 80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	7115	^ '$Id: AbstractOperatingSystem.st 10763 2012-01-22 23:07:15Z vranyj1 $'
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	7116	! !
6772 6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	7117
17846 24edc476ac18 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17845 diff changeset	7118	AbstractOperatingSystem initialize!
17892 d86c8bd5ece3 Merged with CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17869 diff changeset	7119
17909 0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	7120
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	7121
17911 a99f15c5efa5 Updated with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17910 diff changeset	7122
17912 80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	7123

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Sun, 22 Jan 2012 23:07:15 +0000
branch	jv
changeset 17912	80eb31a5a622
parent 17911	a99f15c5efa5
child 17921	4069fe8e9039
permissions	-rw-r--r--